home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / YACCUNX.ZIP / YCHFND.2C < prev    next >
Encoding:
Text File  |  1983-12-23  |  472 b   |  28 lines
  1. #include "y2.h"
  2.  
  3. chfind( t, s ) register char *s; 
  4.  
  5.    {
  6.    int i;
  7.  
  8.    if (s[0]==' ')t=0;
  9.    TLOOP(i)
  10.       {
  11.       if(!strcmp(s,tokset[i].name))
  12.          {
  13.          return( i );
  14.          }
  15.       }
  16.    NTLOOP(i)
  17.       {
  18.       if(!strcmp(s,nontrst[i].name)) 
  19.          {
  20.          return( i+NTBASE );
  21.          }
  22.       }
  23.    /* cannot find name */
  24.    if( t>1 )
  25.       error( "%s should have been defined earlier", s );
  26.    return( defin( t, s ) );
  27.    }
  28.