diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/Extras/libh/any.c

   1 #ifdef COMMENT
   2         Proprietary Rand Corporation, 1981.
   3         Further distribution of this software
   4         subject to the terms of the Rand
   5         license agreement.
   6 #endif
   7
   8 any(chr,stg)
   9 char chr, *stg;
  10 {
  11         register char c, *s;
  12
  13         c = chr;
  14         for (s = stg; *s;)
  15                 if (*s++ == c) return (1);
  16         return (0);
  17 }