1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)IN.c 1.2 03/07/81"; 4 5 #include "h00vars.h" 6 7 bool 8 IN(element, lower, upper, setptr) 9 10 long element; /* element to check */ 11 long lower; /* lowest element of set */ 12 long upper; /* upper - lower of set */ 13 char setptr[]; /* pointer to set */ 14 { 15 register int indx; 16 17 if ((indx = element - lower) < 0 || indx > upper) 18 return FALSE; 19 if (setptr[indx >> LG2BITSBYTE] & (1 << (indx & MSKBITSBYTE))) 20 return TRUE; 21 return FALSE; 22 } 23