/* ScummVM - Graphic Adventure Engine * * ScummVM is the legal property of its developers, whose names * are too numerous to list here. Please refer to the COPYRIGHT * file distributed with this source distribution. * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License * as published by the Free Software Foundation; either version 2 * of the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * */ #include "engines/director/lingo/lingo.h" namespace Director { static struct BuiltinProto { const char *name; void (*func)(int); int minArgs; int maxArgs; bool parens; } builtins[] = { // Math { "abs", Lingo::b_abs, 1, 1, true }, // D2 { "atan", Lingo::b_atan, 1, 1, true }, // D4 { "cos", Lingo::b_cos, 1, 1, true }, // D4 { "exp", Lingo::b_exp, 1, 1, true }, // D4 { "float", Lingo::b_float, 1, 1, true }, // D4 { "integer",Lingo::b_integer, 1, 1, true }, { "integerp",Lingo::b_integerp, 1, 1, true }, { "log", Lingo::b_log, 1, 1, true }, // D4 { "pi", Lingo::b_pi, 0, 0, true }, // D4 { "power", Lingo::b_power, 2, 2, true }, // D4 { "random", Lingo::b_random, 1, 1, true }, // D2 { "sin", Lingo::b_sin, 1, 1, true }, { "sqrt", Lingo::b_sqrt, 1, 1, true }, // D2 { "tan", Lingo::b_tan, 1, 1, true }, // D4 // String { "chars", Lingo::b_chars, 3, 3, true }, // D2 { "charToNum", Lingo::b_charToNum, 1, 1, true }, // D2 { "length", Lingo::b_length, 1, 1, true }, // D2 { "string", Lingo::b_string, 1, 1, true }, // D2 // Files { "closeDA", Lingo::b_closeDA, 0, 0, false }, // D2 { "closeResFile", Lingo::b_closeResFile, 0, 1, false }, // D2 { "closeXlib", Lingo::b_closeXlib, 0, 1, false }, // D2 // open // D2 { "openDA", Lingo::b_openDA, 1, 1, false }, // D2 { "openResFile", Lingo::b_openResFile, 1, 1, false }, // D2 { "openXlib", Lingo::b_openXlib, 1, 1, false }, // D2 { "showResFile", Lingo::b_showResFile, 0, 1, false }, // D2 { "showXlib", Lingo::b_showXlib, 0, 1, false }, // D2 // Control { "continue", Lingo::b_continue, 0, 0, false }, // D2 { "dontPassEvent", Lingo::b_dontPassEvent, 0, 0, false }, // D2 { "delay", Lingo::b_delay, 1, 1, false }, // D2 { "do", Lingo::b_do, 1, 1, false }, // D2 { "nothing", Lingo::b_nothing, 0, 0, false }, // D2 { "pause", Lingo::b_pause, 0, 0, false }, // D2 // play // D2 { "playAccel", Lingo::b_playAccel, -1,0, false }, // D2 // play done // D2 { "quit", Lingo::b_quit, 0, 0, false }, // D2 { "restart", Lingo::b_restart, 0, 0, false }, // D2 { "shutDown", Lingo::b_shutDown, 0, 0, false }, // D2 { "startTimer", Lingo::b_startTimer, 0, 0, false }, // D2 // when keyDown // D2 // when mouseDown // D2 // when mouseUp // D2 // when timeOut // D2 // Misc { "alert", Lingo::b_alert, 1, 1, false }, // D2 { "cursor", Lingo::b_cursor, 1, 1, false }, // D2 { "printFrom", Lingo::b_printFrom, -1,0, false }, // D2 { "ilk", Lingo::b_ilk, 1, 2, true }, // D4 // put // D2 // set // D2 { "showGlobals", Lingo::b_showGlobals, 0, 0, false }, // D2 { "showLocals", Lingo::b_showLocals, 0, 0, false }, // D2 // Score { "constrainH", Lingo::b_constrainH, 2, 2, true }, // D2 { "constrainV", Lingo::b_constrainV, 2, 2, true }, // D2 { "editableText", Lingo::b_editableText, 0, 0, false }, // D2 // go // D2 { "installMenu", Lingo::b_installMenu, 1, 1, false }, // D2 { "label", Lingo::b_label, 1, 1, true }, // D2 { "moveableSprite", Lingo::b_moveableSprite,0, 0, false }, // D2 { "puppetPalette", Lingo::b_puppetPalette, -1,0, false }, // D2 { "puppetSound", Lingo::b_puppetSound, -1,0, false }, // D2 { "puppetSprite", Lingo::b_puppetSprite, -1,0, false }, // D2 { "puppetTempo", Lingo::b_puppetTempo, 1, 1, false }, // D2 { "puppetTransition",Lingo::b_puppetTransition,-1,0, false },// D2 { "spriteBox", Lingo::b_spriteBox, -1,0, false }, // D2 { "updateStage", Lingo::b_updateStage, 0, 0, false }, // D2 { "zoomBox", Lingo::b_zoomBox, -1,0, false }, // D2 // Point { "point", Lingo::b_point, 2, 2, true }, // Sound { "beep", Lingo::b_beep, 0, 1, false }, // D2 { "mci", Lingo::b_mci, 1, 1, false }, { "mciwait", Lingo::b_mciwait, 1, 1, false }, // Constants { "backspace", Lingo::b_backspace, 0, 0, false }, // D2 { "empty", Lingo::b_empty, 0, 0, false }, // D2 { "enter", Lingo::b_enter, 0, 0, false }, // D2 { "false", Lingo::b_false, 0, 0, false }, // D2 { "quote", Lingo::b_quote, 0, 0, false }, // D2 { "return", Lingo::b_return, 0, 0, false }, // D2 { "tab", Lingo::b_tab, 0, 0, false }, // D2 { "true", Lingo::b_true, 0, 0, false }, // D2 { 0, 0, 0, 0, false } }; void Lingo::initBuiltIns() { for (BuiltinProto *blt = builtins; blt->name; blt++) { Symbol *sym = new Symbol; sym->name = (char *)calloc(strlen(blt->name) + 1, 1); Common::strlcpy(sym->name, blt->name, strlen(blt->name)); sym->type = BLTIN; sym->nargs = blt->minArgs; sym->maxArgs = blt->maxArgs; sym->parens = blt->parens; sym->u.bltin = blt->func; _handlers[blt->name] = sym; _functions[(void *)sym->u.s] = new FuncDesc(blt->name, ""); } } void Lingo::printStubWithArglist(const char *funcname, int nargs) { Common::String s(funcname); s += '('; for (int i = 0; i < nargs; i++) { Datum d = _stack[_stack.size() - nargs + i]; d.toString(); s += *d.u.s; if (i != nargs - 1) s += ", "; } s += ")"; warning("STUB: %s", s.c_str()); } void Lingo::convertVOIDtoString(int arg, int nargs) { if (_stack[_stack.size() - nargs + arg].type == VOID) { if (_stack[_stack.size() - nargs + arg].u.s != NULL) g_lingo->_stack[_stack.size() - nargs + arg].type = STRING; else warning("Incorrect convertVOIDtoString for arg %d of %d", arg, nargs); } } void Lingo::dropStack(int nargs) { for (int i = 0; i < nargs; i++) pop(); } /////////////////// // Math /////////////////// void Lingo::b_abs(int nargs) { Datum d = g_lingo->pop(); if (d.type == INT) d.u.i = ABS(d.u.i); else if (d.type == FLOAT) d.u.f = ABS(d.u.f); g_lingo->push(d); } void Lingo::b_atan(int nargs) { Datum d = g_lingo->pop(); d.toFloat(); d.u.f = atan(d.u.f); g_lingo->push(d); } void Lingo::b_cos(int nargs) { Datum d = g_lingo->pop(); d.toFloat(); d.u.f = cos(d.u.f); g_lingo->push(d); } void Lingo::b_exp(int nargs) { Datum d = g_lingo->pop(); d.toInt(); // Lingo uses int, so we're enforcing it d.toFloat(); d.u.f = exp(d.u.f); g_lingo->push(d); } void Lingo::b_float(int nargs) { Datum d = g_lingo->pop(); d.toFloat(); g_lingo->push(d); } void Lingo::b_integer(int nargs) { Datum d = g_lingo->pop(); d.toInt(); g_lingo->push(d); } void Lingo::b_integerp(int nargs) { Datum d = g_lingo->pop(); int res = (d.type == INT) ? 1 : 0; d.toInt(); d.u.i = res; g_lingo->push(d); } void Lingo::b_log(int nargs) { Datum d = g_lingo->pop(); d.toFloat(); d.u.f = log(d.u.f); g_lingo->push(d); } void Lingo::b_pi(int nargs) { Datum d; d.toFloat(); d.u.f = M_PI; g_lingo->push(d); } void Lingo::b_power(int nargs) { Datum d1 = g_lingo->pop(); Datum d2 = g_lingo->pop(); d1.toFloat(); d2.toFloat(); d1.u.f = pow(d2.u.f, d1.u.f); g_lingo->push(d1); } void Lingo::b_random(int nargs) { Datum max = g_lingo->pop(); Datum res; max.toInt(); res.u.i = g_lingo->_vm->_rnd.getRandomNumber(max.u.i); res.type = INT; g_lingo->push(res); } void Lingo::b_sin(int nargs) { Datum d = g_lingo->pop(); d.toFloat(); d.u.f = sin(d.u.f); g_lingo->push(d); } void Lingo::b_sqrt(int nargs) { Datum d = g_lingo->pop(); d.toFloat(); d.u.f = sqrt(d.u.f); g_lingo->push(d); } void Lingo::b_tan(int nargs) { Datum d = g_lingo->pop(); d.toFloat(); d.u.f = tan(d.u.f); g_lingo->push(d); } /////////////////// // String /////////////////// void Lingo::b_chars(int nargs) { Datum to = g_lingo->pop(); Datum from = g_lingo->pop(); Datum s = g_lingo->pop(); if (s.type != STRING) error("Incorrect type for 'chars' function: %s", s.type2str()); to.toInt(); from.toInt(); int len = strlen(s.u.s->c_str()); int f = MAX(0, MIN(len, from.u.i - 1)); int t = MAX(0, MIN(len, to.u.i)); Common::String *res = new Common::String(&(s.u.s->c_str()[f]), &(s.u.s->c_str()[t])); delete s.u.s; s.u.s = res; s.type = STRING; g_lingo->push(s); } void Lingo::b_charToNum(int nargs) { Datum d = g_lingo->pop(); if (d.type != STRING) error("Incorrect type for 'charToNum' function: %s", d.type2str()); byte chr = d.u.s->c_str()[0]; delete d.u.s; d.u.i = chr; d.type = INT; g_lingo->push(d); } void Lingo::b_length(int nargs) { Datum d = g_lingo->pop(); if (d.type != STRING) error("Incorrect type for 'length' function: %s", d.type2str()); int len = strlen(d.u.s->c_str()); delete d.u.s; d.u.i = len; d.type = INT; g_lingo->push(d); } void Lingo::b_string(int nargs) { Datum d = g_lingo->pop(); d.toString(); g_lingo->push(d); } /////////////////// // Files /////////////////// void Lingo::b_closeDA(int nargs) { warning("STUB: b_closeDA"); } void Lingo::b_closeResFile(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_closeResFile(%s)", d.u.s->c_str()); delete d.u.s; } void Lingo::b_closeXlib(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_closeXlib(%s)", d.u.s->c_str()); delete d.u.s; } void Lingo::b_openDA(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_openDA(%s)", d.u.s->c_str()); delete d.u.s; } void Lingo::b_openResFile(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_openResFile(%s)", d.u.s->c_str()); delete d.u.s; } void Lingo::b_openXlib(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_openXlib(%s)", d.u.s->c_str()); delete d.u.s; } void Lingo::b_showResFile(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_showResFile(%s)", d.u.s->c_str()); delete d.u.s; } void Lingo::b_showXlib(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_showXlib(%s)", d.u.s->c_str()); delete d.u.s; } /////////////////// // Control /////////////////// void Lingo::b_dontPassEvent(int nargs) { warning("STUB: b_dontPassEvent"); } void Lingo::b_continue(int nargs) { warning("STUB: b_continue"); } void Lingo::b_nothing(int nargs) { warning("STUB: b_nothing"); } void Lingo::b_delay(int nargs) { Datum d = g_lingo->pop(); d.toInt(); warning("STUB: b_delay(%d)", d.u.i); } void Lingo::b_do(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_do(%s)", d.u.s->c_str()); } void Lingo::b_pause(int nargs) { warning("STUB: b_pause"); } void Lingo::b_playAccel(int nargs) { g_lingo->printStubWithArglist("b_playAccel", nargs); g_lingo->dropStack(nargs); } void Lingo::b_printFrom(int nargs) { g_lingo->printStubWithArglist("b_printFrom", nargs); g_lingo->dropStack(nargs); } void Lingo::b_quit(int nargs) { warning("STUB: b_quit"); } void Lingo::b_restart(int nargs) { warning("STUB: b_restart"); } void Lingo::b_shutDown(int nargs) { warning("STUB: b_shutDown"); } void Lingo::b_startTimer(int nargs) { warning("STUB: b_startTimer"); } /////////////////// // Misc /////////////////// void Lingo::b_ilk(int nargs) { Datum d = g_lingo->pop(); d.u.i = d.type; d.type = SYMBOL; g_lingo->push(d); } void Lingo::b_alert(int nargs) { Datum d = g_lingo->pop(); d.toString(); warning("STUB: b_alert"); delete d.u.s; } void Lingo::b_cursor(int nargs) { Datum d = g_lingo->pop(); d.toInt(); warning("STUB: b_cursor(%d)", d.u.i); } void Lingo::b_showGlobals(int nargs) { warning("STUB: b_showGlobals"); } void Lingo::b_showLocals(int nargs) { warning("STUB: b_showLocals"); } /////////////////// // Score /////////////////// void Lingo::b_constrainH(int nargs) { Datum num = g_lingo->pop(); Datum sprite = g_lingo->pop(); num.toInt(); sprite.toInt(); warning("STUB: b_constrainH(%d, %d)", sprite.u.i, num.u.i); g_lingo->push(Datum(0)); } void Lingo::b_constrainV(int nargs) { Datum num = g_lingo->pop(); Datum sprite = g_lingo->pop(); num.toInt(); sprite.toInt(); warning("STUB: b_constrainV(%d, %d)", sprite.u.i, num.u.i); g_lingo->push(Datum(0)); } void Lingo::b_editableText(int nargs) { warning("STUB: b_editableText"); } void Lingo::b_installMenu(int nargs) { Datum d = g_lingo->pop(); warning("STUB: b_installMenu(%d)", d.u.i); } void Lingo::b_label(int nargs) { Datum d = g_lingo->pop(); d.toInt(); warning("STUB: b_label(%d)", d.u.i); g_lingo->push(Datum(0)); } void Lingo::b_moveableSprite(int nargs) { Datum d = g_lingo->pop(); warning("STUB: b_moveableSprite(%d)", d.u.i); } void Lingo::b_puppetPalette(int nargs) { g_lingo->convertVOIDtoString(0, nargs); g_lingo->printStubWithArglist("b_puppetPalette", nargs); g_lingo->dropStack(nargs); } void Lingo::b_puppetSound(int nargs) { g_lingo->convertVOIDtoString(0, nargs); g_lingo->printStubWithArglist("b_puppetSound", nargs); g_lingo->dropStack(nargs); } void Lingo::b_puppetSprite(int nargs) { g_lingo->printStubWithArglist("b_puppetSprite", nargs); g_lingo->dropStack(nargs); } void Lingo::b_puppetTempo(int nargs) { Datum d = g_lingo->pop(); warning("STUB: b_puppetTempo(%d)", d.u.i); } void Lingo::b_puppetTransition(int nargs) { g_lingo->printStubWithArglist("b_puppetTransition", nargs); g_lingo->dropStack(nargs); } void Lingo::b_spriteBox(int nargs) { g_lingo->printStubWithArglist("b_spriteBox", nargs); g_lingo->dropStack(nargs); } void Lingo::b_zoomBox(int nargs) { g_lingo->printStubWithArglist("b_zoomBox", nargs); g_lingo->dropStack(nargs); } void Lingo::b_updateStage(int nargs) { warning("STUB: b_updateStage"); } /////////////////// // Point /////////////////// void Lingo::b_point(int nargs) { Datum y = g_lingo->pop(); Datum x = g_lingo->pop(); Datum d; x.toFloat(); y.toFloat(); d.u.arr = new FloatArray; d.u.arr->push_back(x.u.f); d.u.arr->push_back(y.u.f); d.type = POINT; g_lingo->push(d); } /////////////////// // Sound /////////////////// void Lingo::b_beep(int nargs) { Datum d = g_lingo->pop(); warning("STUB: b_beep(%d)", d.u.i); } void Lingo::b_mci(int nargs) { Datum d = g_lingo->pop(); d.toString(); g_lingo->func_mci(*d.u.s); } void Lingo::b_mciwait(int nargs) { Datum d = g_lingo->pop(); d.toString(); g_lingo->func_mciwait(*d.u.s); } /////////////////// // Constants /////////////////// void Lingo::b_backspace(int nargs) { g_lingo->push(Datum(new Common::String("\b"))); } void Lingo::b_empty(int nargs) { g_lingo->push(Datum(new Common::String(""))); } void Lingo::b_enter(int nargs) { g_lingo->push(Datum(new Common::String("\n"))); } void Lingo::b_false(int nargs) { g_lingo->push(Datum(0)); } void Lingo::b_quote(int nargs) { g_lingo->push(Datum(new Common::String("\""))); } void Lingo::b_return(int nargs) { g_lingo->push(Datum(new Common::String("\r"))); } void Lingo::b_tab(int nargs) { g_lingo->push(Datum(new Common::String("\t"))); } void Lingo::b_true(int nargs) { g_lingo->push(Datum(1)); } /////////////////// // Factory /////////////////// void Lingo::b_factory(int nargs) { // This is intentionally empty } void Lingo::factoryCall(Common::String &name, int nargs) { Common::String s("factoryCall: "); s += name; convertVOIDtoString(0, nargs); printStubWithArglist(s.c_str(), nargs); Datum method = _stack[_stack.size() - nargs + 0]; s = name + "-" + *method.u.s; debugC(3, kDebugLingoExec, "Stack size before call: %d", _stack.size()); call(s, nargs); debugC(3, kDebugLingoExec, "Stack size after call: %d", _stack.size()); if (!method.u.s->compareToIgnoreCase("mNew")) { Datum d; d.type = OBJECT; d.u.s = new Common::String(name); g_lingo->push(d); } } } // End of namespace Director