libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-01-04 16:38:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

DIRECTOR: LINGO: Proper stub for 'ancestor' property

Browse Source
This commit is contained in:
Eugene Sandulenko 2020-01-19 13:21:34 +01:00
parent 6a6935ed4c
commit 84e8ab4956
5 changed files with 663 additions and 651 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
engines/director/lingo/lingo-builtins.cpp
View File

@ -208,7 +208,6 @@ static struct BuiltinProto {
{ "moveToBack", LB::b_moveToBack, 1, 1, false, 4, BLTIN }, // D4 c
{ "moveToFront", LB::b_moveToFront, 1, 1, false, 4, BLTIN }, // D4 c
// Constants
{ "ancestor", LB::b_ancestor, 0, 0, false, 4, BLTIN }, // D4
{ "backspace", LB::b_backspace, 0, 0, false, 2, FBLTIN }, // D2
{ "empty", LB::b_empty, 0, 0, false, 2, FBLTIN }, // D2
{ "enter", LB::b_enter, 0, 0, false, 2, FBLTIN }, // D2
@ -1631,11 +1630,6 @@ void LB::b_soundStop(int nargs) {
///////////////////
// Constants
///////////////////
void LB::b_ancestor(int nargs) {
warning("STUB: b_ancestor");
g_lingo->push(Datum(0));
}
void LB::b_backspace(int nargs) {
g_lingo->push(Datum(new Common::String("\b")));
}

1
engines/director/lingo/lingo-builtins.h
View File

@ -181,7 +181,6 @@ namespace LB {
void b_soundPlayFile(int nargs);
void b_soundStop(int nargs);
void b_ancestor(int nargs);
void b_backspace(int nargs);
void b_empty(int nargs);
void b_enter(int nargs);

4
engines/director/lingo/lingo-code.cpp
View File

@ -331,6 +331,10 @@ void LC::c_varpush() {
warning("c_varpush: ME");
}
if (name.equalsIgnoreCase("ancestor")) {
warning("c_varpush: ANCESTOR");
}
if (g_lingo->getHandler(name) != NULL) {
d.type = HANDLER;
d.u.s = new Common::String(name);

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

File diff suppressed because it is too large Load Diff

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

@ -465,7 +465,7 @@ proc: tPUT expr { g_lingo->code1(LC::c_printtop); }
| tEXIT tREPEAT { g_lingo->code1(LC::c_exitRepeat); }
| tEXIT { g_lingo->code1(LC::c_procret); }
| tGLOBAL { g_lingo->_indef = kStateInArgs; } globallist { g_lingo->_indef = kStateNone; }
| tPROPERTY propertylist
| tPROPERTY { g_lingo->_indef = kStateInArgs; } propertylist { g_lingo->_indef = kStateNone; }
| tINSTANCE instancelist
| BLTIN '(' arglist ')' {
g_lingo->codeFunc($BLTIN, $arglist);