DIRECTOR: Lingo: Implemented string() built-in function

scummvm · Aug 3, 2016 · 40856e6 · 40856e6
1 parent a8498f4
commit 40856e6
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
@@ -41,6 +41,7 @@ static struct BuiltinProto {
 	{ "random",	Lingo::b_random, 1},
 	{ "sin",	Lingo::b_sin, 1},
 	{ "sqrt",	Lingo::b_sqrt, 1},
+	{ "string",	Lingo::b_string, 1},
 	{ "tan",	Lingo::b_tan, 1},
 	{ 0, 0, 0 }
 };
@@ -145,6 +146,12 @@ void Lingo::b_sqrt() {
 	g_lingo->push(d);
 }
 
+void Lingo::b_string() {
+	Datum d = g_lingo->pop();
+	d.toString();
+	g_lingo->push(d);
+}
+
 void Lingo::b_tan() {
 	Datum d = g_lingo->pop();
 	d.toFloat();

diff --git a/engines/director/lingo/lingo.h b/engines/director/lingo/lingo.h
@@ -226,6 +226,7 @@ class Lingo {
 	static void b_random();
 	static void b_sin();
 	static void b_sqrt();
+	static void b_string();
 	static void b_tan();
 
 	void func_mci(Common::String &s);