mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
686 B
36 lines
686 B
#include "y1.h"
|
|
|
|
char *chcopy(char *, char *);
|
|
|
|
extern char sarr[ISIZE];
|
|
|
|
char *writem(pp) int *pp;
|
|
|
|
{
|
|
/* creates output string for item pointed to by pp */
|
|
int i,*p;
|
|
char *q;
|
|
|
|
for( p=pp; *p>0 ; ++p ) ;
|
|
p = prdptr[-*p];
|
|
q = chcopy( sarr, nontrst[*p-NTBASE].name );
|
|
q = chcopy( q, " : " );
|
|
|
|
for(;;)
|
|
{
|
|
*q++ = ++p==pp ? '_' : ' ';
|
|
*q = '\0';
|
|
if((i = *p) <= 0) break;
|
|
q = chcopy( q, symnam(i) );
|
|
if( q> &sarr[ISIZE-30] ) error( "item too big" );
|
|
}
|
|
|
|
if( (i = *pp) < 0 )
|
|
{
|
|
/* an item calling for a reduction */
|
|
q = chcopy( q, " (" );
|
|
sprintf( q, "%d)", -i );
|
|
}
|
|
|
|
return( sarr );
|
|
}
|