Function luaB_print

src/lua/lua_environment.cpp:30–106

extern void load_api(LuaEnvironment &env);

static int luaB_print(lua_State *L)
{
	TempAllocator2048 ta;
	StringStream ss(ta);

	int n = lua_gettop(L); /* number of arguments */
	lua_getglobal(L, "tostring");

	if (n == 0) {
		logi(LUA, "");
		return 0;
	}

	bool have_line = false;
	for (int i = 1; i <= n; ++i) {
		const char *s;
		if (lua_istable(L, i)) {
			if (have_line) {
				logi(LUA, string_stream::c_str(ss));
				array::clear(ss);
				have_line = false;
			}
			size_t max_key_len = 0;
			lua_pushnil(L);
			while (lua_next(L, i) != 0) {
				size_t key_len;
				lua_pushvalue(L, n + 1); /* function to be called */
				lua_pushvalue(L, -3);    /* key to print */
				lua_call(L, 1, 1);
				s = lua_tolstring(L, -1, &key_len); /* get result */
				if (s == NULL)
					return luaL_error(L, LUA_QL("tostring") " must return a string to " LUA_QL("print"));
				if (key_len > max_key_len)
					max_key_len = key_len;
				lua_pop(L, 2); /* pop result and value, keep key */
			}
			lua_pushnil(L);
			while (lua_next(L, i) != 0) {
				size_t key_len;
				lua_pushvalue(L, n + 1); /* function to be called */
				lua_pushvalue(L, -3);    /* key to print */
				lua_call(L, 1, 1);
				s = lua_tolstring(L, -1, &key_len); /* get result */
				if (s == NULL)
					return luaL_error(L, LUA_QL("tostring") " must return a string to " LUA_QL("print"));
				ss << s;
				for (size_t column = key_len; column < max_key_len + 4; ++column)
					ss << " ";
				lua_pushvalue(L, n + 1); /* function to be called */
				lua_pushvalue(L, -3);    /* value to print */
				lua_call(L, 1, 1);
				s = lua_tostring(L, -1); /* get result */
				if (s == NULL)
					return luaL_error(L, LUA_QL("tostring") " must return a string to " LUA_QL("print"));
				ss << s;
				lua_pop(L, 3); /* pop result, key string and value, keep key */
				logi(LUA, string_stream::c_str(ss));
				array::clear(ss);