home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / YACCUNX.ZIP / YFDTYP.2C < prev    next >
Encoding:
Text File  |  1983-12-23  |  312 b   |  13 lines
  1. #include "y2.h"
  2.  
  3. fdtype( t )
  4.    {
  5.    /* determine the type of a symbol */
  6.    register v;
  7.    if( t >= NTBASE ) v = nontrst[t-NTBASE].tvalue;
  8.    else v = TYPE( toklev[t] );
  9.    if( v <= 0 ) error( "must specify type for %s", (t>=NTBASE)?nontrst[t-NTBASE].name:
  10.    tokset[t].name );
  11.    return( v );
  12.    }
  13.