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