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

minor mods to parameters in grammar

Browse source
This commit is contained in:
ceriel 1991-11-29 13:57:24 +00:00
parent 45751d25ed
commit 649b7d94f0
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lang/basic/src/basic.g
View file

@ -301,7 +301,7 @@ fieldstmt { int intv; }
',' fieldlist { notyetimpl(); }
;
fieldlist { int intv,var; }
fieldlist { int intv; int var; }
: intvalue(&intv) ASSYM variable(&var)
[ ',' intvalue(&intv) ASSYM variable(&var) ]*
;
@ -406,7 +406,7 @@ semi : ';'
| /* empty */
;
letstmt { int var,exp; }
letstmt { int var; int exp; }
: LETSYM
variable(&var) { save_address(); }
'=' expression(&exp) { assign(var,exp); }
@ -415,7 +415,7 @@ letstmt { int var,exp; }
'=' expression(&exp) { assign(var,exp); }
;
lineinputstmt { int var,intv; }
lineinputstmt { int var; int intv; }
: LINESYM
[ INPUTSYM
semiprompt { setchannel(-1); }
@ -435,7 +435,7 @@ readelm { int var; }
: variable(&var) { readelm(var); }
;
lsetstmt { int var,exp; }
lsetstmt { int var; int exp; }
: LSETSYM variable(&var) '=' expression(&exp)
{ notyetimpl(); }
;
@ -539,7 +539,7 @@ printlist(int *ip;) { int exp; }
]+
;
pokestmt { int exp1,exp2 ; }
pokestmt { int exp1; int exp2 ; }
: POKESYM
expression(&exp1)
','
@ -570,7 +570,7 @@ restorestmt : RESTORESYM
]
;
swapstmt { int var1,var2; }
swapstmt { int var1; int var2; }
: SWAPSYM
variable(&var1)
','