home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / YACCUNX.ZIP / YPRLOK.1C < prev    next >
Encoding:
Text File  |  1983-12-23  |  353 b   |  19 lines
  1. #include "y1.h"
  2.  
  3. prlook( p ) struct looksets *p;
  4.  
  5.    {
  6.    register j, *pp;
  7.    pp = p->lset;
  8.    if( pp == 0 ) fprintf( foutput, "\tNULL");
  9.    else 
  10.       {
  11.       fprintf( foutput, " { " );
  12.       TLOOP(j) 
  13.          {
  14.          if( BIT(pp,j) ) fprintf( foutput,  "%s ", symnam(j) );
  15.          }
  16.       fprintf( foutput,  "}" );
  17.       }
  18.    }
  19.