fuckit

git-svn-id: http://svn.net-core.org/repos/t-engine4@1995 51575b47-30f0-44d4-a5cc-537603b46e54

@@ -977,3 +977,7 @@ function util.browserOpenUrl(url)
 	end
 	end
 	return false
 	return false
 end
 end
+
+function __dump_fct(f)
+	return string.format("%q", string.dump(f))
+end

@@ -680,7 +680,7 @@ int main(int argc, char *argv[])
 	init_gen_rand(time(NULL));
 	init_gen_rand(time(NULL));
 
 
 	// Change to line buffering
 	// Change to line buffering
-	setvbuf(stdout, (char *) NULL, _IOLBF, 0);
+//	setvbuf(stdout, (char *) NULL, _IOLBF, 0);
 
 
 	// Parse arguments
 	// Parse arguments
 	int i;
 	int i;

@@ -138,9 +138,24 @@ static bool basic_serialize(lua_State *L, serial_type *s, int type, int idx)
 		dump_string(s, str, len);
 		dump_string(s, str, len);
 		writeZipFixed(s, "\"", 1);
 		writeZipFixed(s, "\"", 1);
 	} else if (type == LUA_TFUNCTION) {
 	} else if (type == LUA_TFUNCTION) {
+/*
 		writeZipFixed(s, "loadstring(\"", 12);
 		writeZipFixed(s, "loadstring(\"", 12);
 		lua_dump(L, dump_function, s);
 		lua_dump(L, dump_function, s);
 		writeZipFixed(s, "\")", 2);
 		writeZipFixed(s, "\")", 2);
+*/
+		lua_getglobal(L, "__dump_fct");
+		lua_pushvalue(L, idx-1);
+		lua_call(L, 1, 1);
+
+		size_t len;
+		const char *str = lua_tolstring(L, -1, &len);
+
+		writeZipFixed(s, "loadstring(", 11);
+		writeZipFixed(s, str, len);
+		writeZipFixed(s, ")", 1);
+		
+		lua_pop(L, 1);
+
 	} else if (type == LUA_TTABLE) {
 	} else if (type == LUA_TTABLE) {
 		lua_pushstring(L, "__CLASSNAME");
 		lua_pushstring(L, "__CLASSNAME");
 		lua_rawget(L, idx - 1);
 		lua_rawget(L, idx - 1);