src/interp/lex.c
/*======================================
 * reserved -- See if string is reserved
 *====================================*/
- See if string is reserved
- See if string is reserved
BOOLEAN
reserved (STRING word,
          INT *pval)
{
	INT i;
	for (i = 0; i < nrwords; i++) {
		if (eqstr(word, rwordtable[i].rword)) {
			*pval = rwordtable[i].val;
			return TRUE;
		}
	}
	return FALSE;
}
BOOLEAN reserved ( STRING word , INT * pval ) { INT i ; for ( i = 0 ; i < nrwords ; i ++ ) { if ( eqstr ( word , rwordtable [ i ] . rword ) ) { * pval = rwordtable [ i ] . val ; return TRUE ; } } return FALSE ; }
reserved -- See if string is reserved
reserved -- See if string is reserved