d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

some cosmetic changes+fix in calculator

Browse source
This commit is contained in:
ceriel 1987-11-13 15:11:37 +00:00
parent 4359c699dc
commit 57b1a2757e
1 changed files with 13 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
doc/LLgen/LLgen.n
View file

@ -896,36 +896,35 @@ stat { int ident, val; } :
;
expr(int level, *val;) { int expr; } :
%if (level <= MAXPRIO)
/* The grammar is ambiguous here. If level > MAXPRIO,
* this invocation will only scan one factor
*/
expr(MAXPRIO+1,val)
[ %while (prio(tok.t_tokno) >= level)
factor(val)
[ %while (prio(tok.t_tokno) >= level)
/* Swallow operators as long as their priority is
* larger than or equal to the level of this invocation
*/
'+' expr(prio('+')+1,&expr)
'+' expr(prio('+')+1,&expr)
{ *val += expr; }
/* This states that '+' groups left to right. If it
* should group right to left, the rule should read:
* '+' expr(prio('+'),&expr)
*/
| '-' expr(prio('-'),&expr)
| '-' expr(prio('-')+1,&expr)
{ *val -= expr; }
| '*' expr(prio('*'),&expr)
| '*' expr(prio('*')+1,&expr)
{ *val *= expr; }
| '/' expr(prio('/'),&expr)
| '/' expr(prio('/')+1,&expr)
{ *val /= expr; }
| '%' expr(prio('%'),&expr)
| '%' expr(prio('%')+1,&expr)
{ *val %= expr; }
| '&' expr(prio('&'),&expr)
| '&' expr(prio('&')+1,&expr)
{ *val &= expr; }
| '|' expr(prio('|'),&expr)
| '|' expr(prio('|')+1,&expr)
{ *val |= expr; }
]*
]*
/* Notice the "*" here. It is important.
*/
;
factor(int *val;):
| '(' expr(1,val) ')'
| '-' expr(MAXPRIO+1,val)
{ *val = -*val; }