Re: string-ci* oddity

[Thien-Thi Nguyen <ttn@gnuvola.org>]

FYI, below is the code that all ci comparison
funcs will be using in the next Guile 1.4.x release.

This means, for example:
(char-ci<? #\a #\_) => #f.

thi


___________________________________________________________________
// libguile/chars.c

#define ISLOWER(c)  (islower (c) ? (1 + c - 'a') : 0)
#define ISUPPER(c)  (isupper (c) ? (1 + c - 'A') : 0)

static int
ccmp_ci (int x, int y)
{
  int lx, ux = 0, ly, uy = 0, rv;

  rv = ((! ((lx = ISLOWER (x)) || (ux = ISUPPER (x))))
        ||
        (! ((ly = ISLOWER (y)) || (uy = ISUPPER (y)))))
    /* One or both do not satisfy `isalpha'; subtract directly.  */
    ? (x - y)
    /* Both satisfy `isalpha'; subtract in one domain or another.  */
    : (lx
       ? (lx - (ly
                ? ly
                : uy))
       : (ux - (uy
                ? uy
                : ly)));
  return !rv
    ? 0
    : (GOOD (rv)
       ?  1
       : -1);
}