git.marmaro.de Git - mmh/blob - docs/historical/mh-6.8.5/support/bboards/mmdfII/bboards/uprf.c

   1 /* uprf.c - "unsigned" lexical prefix  */
   2
   3
   4 uprf (c1, c2)
   5 register char  *c1,
   6                *c2;
   7 {
   8     register int    c;
   9
  10     while (c = *c2++)
  11         if ((c | 040) != (*c1 | 040))
  12             return 0;
  13         else
  14             c1++;
  15
  16     return 1;
  17 }