version 1.40, 2001/07/28 05:36:18 |
version 1.41, 2001/09/16 21:12:08 |
|
|
pushs1(p->name); /* macro name */ |
pushs1(p->name); /* macro name */ |
pushs(ep); /* start next..*/ |
pushs(ep); /* start next..*/ |
|
|
if (l != LPAREN) { /* add bracks */ |
if (l != LPAREN && PARLEV == 0) { |
putback(RPAREN); |
/* no bracks */ |
putback(LPAREN); |
chrsave(EOS); |
|
|
|
if (sp == STACKMAX) |
|
errx(1, "internal stack overflow"); |
|
if (CALTYP == MACRTYPE) |
|
expand((const char **) mstack+fp+1, 2); |
|
else |
|
eval((const char **) mstack+fp+1, 2, CALTYP); |
|
|
|
ep = PREVEP; /* flush strspace */ |
|
sp = PREVSP; /* previous sp.. */ |
|
fp = PREVFP; /* rewind stack...*/ |
} |
} |
} |
} |
} |
} else if (t == EOF) { |
else if (t == EOF) { |
|
if (sp > -1) { |
if (sp > -1) { |
warnx( "unexpected end of input, unclosed parenthesis:"); |
warnx( "unexpected end of input, unclosed parenthesis:"); |
dump_stack(paren, PARLEV); |
dump_stack(paren, PARLEV); |