usr.bin/perl/locale.c

5704      * longer string, etc.  By making them smaller than any other weight, the
5729     const char longer[] = "ABCDEFGHIJKLMnopqrstuvwxyz";
5730     char * x_longer;        /* Transformed 'longer' */
5733     char * x_shorter;   /* We also transform a substring of 'longer' */
5753     x_longer = mem_collxfrm_(longer,
5754                              sizeof(longer) - 1,
5765     /* Find out how long the transformation of a substring of 'longer' is.
5767      * calculate 'm' and 'b'.  The substring is all of 'longer' except the
5770     x_shorter = mem_collxfrm_(longer + 1,
5771                               sizeof(longer) - 2,
5787                 " length for shorter sample=%zu; longer=%zu\n",
5793         /* We have both: m * strlen(longer)  + b = x_len_longer
5796          *          m * (strlen(longer) - strlen(shorter))
5799          * 'longer'.  Hence:
5815         base = x_len_longer - PL_collxfrm_mult * (sizeof(longer) - 1);
6189          * If so, that copy is no longer needed */
6940 executed after this function is called can no longer just assume that this