home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / alde_c / misc / comm / yaccunx / ywritm.1c < prev    next >
Encoding:
Text File  |  1983-12-23  |  689 b   |  35 lines
  1. #include "y1.h"
  2.  
  3. extern char sarr[ISIZE];
  4.  
  5. char *writem(pp) int *pp; 
  6.  
  7.    {
  8.    /* creates output string for item pointed to by pp */
  9.    int i,*p;
  10.    char *q;
  11.  
  12.    for( p=pp; *p>0 ; ++p ) ;
  13.    p = prdptr[-*p];
  14.    q = chcopy( sarr, nontrst[*p-NTBASE].name );
  15.    q = chcopy( q, " : " );
  16.  
  17.    for(;;)
  18.       {
  19.       *q++ = ++p==pp ? '_' : ' ';
  20.       *q = '\0';
  21.       if((i = *p) <= 0) break;
  22.       q = chcopy( q, symnam(i) );
  23.       if( q> &sarr[ISIZE-30] ) error( "item too big" );
  24.       }
  25.  
  26.    if( (i = *pp) < 0 )
  27.       {
  28.       /* an item calling for a reduction */
  29.       q = chcopy( q, "    (" );
  30.       sprintf( q, "%d)", -i );
  31.       }
  32.  
  33.    return( sarr );
  34.    }
  35.