diff options
Diffstat (limited to 'engines/director/lingo/lingo-builtins.cpp')
-rw-r--r-- | engines/director/lingo/lingo-builtins.cpp | 55 |
1 files changed, 53 insertions, 2 deletions
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp index 311e774e0d..4bca9fd226 100644 --- a/engines/director/lingo/lingo-builtins.cpp +++ b/engines/director/lingo/lingo-builtins.cpp @@ -29,6 +29,12 @@ static struct BuiltinProto { void (*func)(void); int nparams; } builtins[] = { + { "abs", Lingo::b_abs, 1}, + { "atan", Lingo::b_atan, 1}, + { "cos", Lingo::b_cos, 1}, + { "exp", Lingo::b_exp, 1}, + { "integer",Lingo::b_integer, 1}, + { "log", Lingo::b_log, 1}, { "random", Lingo::b_random, 1}, { 0, 0, 0 } }; @@ -39,12 +45,57 @@ void Lingo::initBuiltIns() { } } +void Lingo::b_abs() { + 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() { + Datum d = g_lingo->pop(); + d.toFloat(); + d.u.f = atanf(d.u.f); + g_lingo->push(d); +} + +void Lingo::b_cos() { + Datum d = g_lingo->pop(); + d.toFloat(); + d.u.f = cos(d.u.f); + g_lingo->push(d); +} + +void Lingo::b_exp() { + Datum d = g_lingo->pop(); + d.toInt(); // Lingo uses int, so we're enforcing it + d.toFloat(); + d.u.f = expf(d.u.f); + g_lingo->push(d); +} + +void Lingo::b_integer() { + Datum d = g_lingo->pop(); + d.toInt(); + g_lingo->push(d); +} + +void Lingo::b_log() { + Datum d = g_lingo->pop(); + d.toFloat(); + d.u.f = logf(d.u.f); + g_lingo->push(d); +} + void Lingo::b_random() { Datum max = g_lingo->pop(); Datum res; - if (max.type != INT) - warning("Non-int type for rand: %d", max.type); + max.toInt(); res.u.i = g_lingo->_vm->_rnd.getRandomNumber(max.u.i); res.type = INT; |