From ba3cf6181c06ddcd543db277d1fe5a6d4506cad7 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Sat, 30 Jul 2016 20:42:56 +0300
Subject: DIRECTOR: Lingo: Implemented ilk() function

---
 engines/director/lingo/lingo.cpp | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'engines/director/lingo/lingo.cpp')

diff --git a/engines/director/lingo/lingo.cpp b/engines/director/lingo/lingo.cpp
index 441cd27972..0bb43092f3 100644
--- a/engines/director/lingo/lingo.cpp
+++ b/engines/director/lingo/lingo.cpp
@@ -290,22 +290,24 @@ Common::String *Datum::toString() {
 	return u.s;
 }
 
-const char *Datum::type2str() {
+const char *Datum::type2str(bool isk) {
 	static char res[20];
 
-	switch (type) {
+	switch (isk ? u.i : type) {
 	case INT:
-		return "INT";
+		return isk ? "#integer" : "INT";
 	case FLOAT:
-		return "FLOAT";
+		return isk ? "#float" : "FLOAT";
 	case STRING:
-		return "STRING";
+		return isk ? "#string" : "STRING";
 	case CASTREF:
 		return "CASTREF";
 	case VOID:
-		return "VOID";
+		return isk ? "#void" : "VOID";
 	case POINT:
-		return "POINT";
+		return isk ? "#point" : "POINT";
+	case SYMBOL:
+		return isk ? "#symbol" : "SYMBOL";
 	default:
 		snprintf(res, 20, "-- (%d) --", type);
 		return res;
-- 
cgit v1.2.3