home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / HAM_W32.ZIP / SAMPLES / MEMBER.CSH < prev    next >
Encoding:
Text File  |  1994-05-12  |  286 b   |  15 lines
  1. #    Determine if first argument word appears somewhere in the list given
  2. #    by the second argument.
  3.  
  4. #    Copyright (c) 1994 by Hamilton Laboratories.  All rights reserved.
  5.         
  6. proc member ( a, b )
  7.     local i
  8.     foreach i ($b)
  9.         if (a == i) return 1
  10.     end
  11.     return 0
  12. end
  13.  
  14. member $argv
  15.