mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-05 00:36:57 +00:00
DIRECTOR: Support "me(blah 1, 2)" syntax, e.g. no comma after the method name
This is used in totaldistortion-win --start-movie="ATD\HD\bdDREAML.DXR" When the bulb explodes, the Lingo tries to execute a constructed do("me(bubdie2 5, 75)") which then leads to syntax error. The original allowed this broken Lingo syntax
This commit is contained in:
parent
0d585896ed
commit
9153ec4f52
File diff suppressed because it is too large
Load Diff
@ -462,6 +462,10 @@ cmdargs: /* empty */ {
|
||||
// This matches `cmd(args, ...)`
|
||||
$args->insert_at(0, $expr);
|
||||
$$ = $args; }
|
||||
| '(' tVARID nonemptyexprlist[args] trailingcomma ')' {
|
||||
// This matches `cmd(args ...)`
|
||||
$args->insert_at(0, new VarNode($tVARID));
|
||||
$$ = $args; }
|
||||
;
|
||||
|
||||
trailingcomma: /* empty */ | ',' ;
|
||||
|
@ -20,6 +20,7 @@ method callPerform
|
||||
set retval to me(mPerform, "callMe")
|
||||
me(mPerform, "callMe2")
|
||||
me(mPerform, "callMe3")
|
||||
me(mPerform "callMe3")
|
||||
put "returned" && retval
|
||||
|
||||
scummvmAssertEqual(retval, "a1")
|
||||
|
Loading…
Reference in New Issue
Block a user