Method Test

MonaServer/sources/Script.cpp:520–553

void Script::Test(lua_State* pState) {
	int i;
	int top = lua_gettop(pState);

	printf("total in stack %d\n", top);

	for (i = 1; i <= top; i++) {  /* repeat for each level */
		int t = lua_type(pState, i);
		switch (t) {

		case LUA_TNONE:  /* strings */
			printf("none\n");
			break;
		case LUA_TNIL:  /* strings */
			printf("nil\n");
			break;
		case LUA_TSTRING:  /* strings */
			printf("string: '%s'\n", lua_tostring(pState, i));
			break;
		case LUA_TBOOLEAN:  /* booleans */
			printf("boolean %s\n", lua_toboolean(pState, i) ? "true" : "false");
			break;
		case LUA_TNUMBER:  /* numbers */
			printf("number: %g\n", lua_tonumber(pState, i));
			break;
		default:  /* other values */
			printf("%s: %p\n", lua_typename(pState, t),lua_topointer(pState,i));
			break;
		}
		printf("  ");  /* put a separator */
	}
	printf("\n");  /* end the listing */

}