libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-03-05 17:57:14 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

DIRECTOR: LINGO: Implement extened 'on' clause syntax

Browse Source
This commit is contained in:
Eugene Sandulenko 2019-12-01 23:22:26 +01:00
parent 9084dcc70d
commit c33a4f9d8d
3 changed files with 412 additions and 396 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

796
engines/director/lingo/lingo-gr.cpp
View File

File diff suppressed because it is too large Load Diff

7
engines/director/lingo/lingo-gr.y
View File

@ -646,7 +646,7 @@ defn: tMACRO ID { g_lingo->_indef = true; g_lingo->_currentFactory.clear(); }
g_lingo->code1(g_lingo->c_procret);
g_lingo->define(*$2, $4, $5 + 1, &g_lingo->_currentFactory);
g_lingo->_indef = false; }
| on begin argdef nl argstore stmtlist ENDCLAUSE { // D3
| on begin argdef nl argstore stmtlist ENDCLAUSE endargdef { // D3
g_lingo->code1(g_lingo->c_procret);
g_lingo->define(*$1, $2, $3);
g_lingo->_indef = false;
@ -667,6 +667,11 @@ argdef: /* nothing */ { $$ = 0; }
| argdef nl ',' ID { g_lingo->codeArg($4); $$ = $1 + 1; }
;
endargdef: /* nothing */
| ID
| endargdef ',' ID
;
argstore: /* nothing */ { g_lingo->codeArgStore(); }
;

5
engines/director/lingo/tests/events.lingo
View File

@ -10,3 +10,8 @@ on annoy howMuch
beep random(howMuch)
alert "Aren't handlers fun?"
end annoy
on annoy2 howMuch
beep random(howMuch)
alert "Aren't handlers fun?"
end annoy2 howMuch