[Scummvm-cvs-logs] CVS: residual lua.cpp,1.8,1.9

Daniel Schepler dschepler at users.sourceforge.net
Tue Aug 19 20:47:27 CEST 2003


Update of /cvsroot/scummvm/residual
In directory sc8-pr-cvs1:/tmp/cvs-serv13531

Modified Files:
	lua.cpp 
Log Message:
Improve stub debugging info for userdata.


Index: lua.cpp
===================================================================
RCS file: /cvsroot/scummvm/residual/lua.cpp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- lua.cpp	19 Aug 2003 12:27:17 -0000	1.8
+++ lua.cpp	19 Aug 2003 23:46:16 -0000	1.9
@@ -651,8 +651,23 @@
       fprintf(stderr, "nil");
     else if (lua_istable(lua_getparam(i)))
       fprintf(stderr, "{...}");
-    else if (lua_isuserdata(lua_getparam(i)))
-      fprintf(stderr, "<userdata %p>", lua_getuserdata(lua_getparam(i)));
+    else if (lua_isuserdata(lua_getparam(i))) {
+      if (lua_tag(lua_getparam(i)) == actor_tag) {
+	Actor *a = check_actor(i);
+	fprintf(stderr, "<actor \"%s\">", a->name());
+      }
+      else if (lua_tag(lua_getparam(i)) == color_tag) {
+	Color *c = check_color(i);
+	fprintf(stderr, "<color #%02x%02x%02x>",
+		c->red(), c->green(), c->blue());
+      }
+      else if (lua_tag(lua_getparam(i)) == sound_tag) {
+	Sound *s = check_sound(i);
+	fprintf(stderr, "<sound %s>", s->filename());
+      }
+      else
+	fprintf(stderr, "<userdata %p>", lua_getuserdata(lua_getparam(i)));
+    }
     else if (lua_isfunction(lua_getparam(i)))
       fprintf(stderr, "<function>");
     else if (lua_isnumber(lua_getparam(i)))





More information about the Scummvm-git-logs mailing list