chiark - git - mdw - qmail/blob - case_starts.c

   1 #include "case.h"
   2
   3 int case_starts(s,t)
   4 register char *s;
   5 register char *t;
   6 {
   7   register unsigned char x;
   8   register unsigned char y;
   9
  10   for (;;) {
  11     x = *s++ - 'A';
  12     if (x <= 'Z' - 'A') x += 'a'; else x += 'A';
  13     y = *t++ - 'A';
  14     if (y <= 'Z' - 'A') y += 'a'; else y += 'A';
  15     if (!y) return 1;
  16     if (x != y) return 0;
  17   }
  18 }