83 lines
3.2 KiB
C
83 lines
3.2 KiB
C
#include <stdio.h>
|
|
#include <lua.h>
|
|
#include <lauxlib.h>
|
|
#include <lualib.h>
|
|
|
|
int main() {
|
|
printf("========== Lua Type Constants ==========\n");
|
|
printf("LUA_TNONE = %d\n", LUA_TNONE);
|
|
printf("LUA_TNIL = %d\n", LUA_TNIL);
|
|
printf("LUA_TBOOLEAN = %d\n", LUA_TBOOLEAN);
|
|
printf("LUA_TLIGHTUSERDATA = %d\n", LUA_TLIGHTUSERDATA);
|
|
printf("LUA_TNUMBER = %d\n", LUA_TNUMBER);
|
|
printf("LUA_TSTRING = %d\n", LUA_TSTRING);
|
|
printf("LUA_TTABLE = %d\n", LUA_TTABLE);
|
|
printf("LUA_TFUNCTION = %d\n", LUA_TFUNCTION);
|
|
printf("LUA_TUSERDATA = %d\n", LUA_TUSERDATA);
|
|
printf("LUA_TTHREAD = %d\n", LUA_TTHREAD);
|
|
|
|
printf("\n========== Testing lua_type() ==========\n");
|
|
|
|
// 创建 Lua 状态机
|
|
lua_State *L = luaL_newstate();
|
|
|
|
if (L == NULL) {
|
|
printf("Failed to create Lua state\n");
|
|
return 1;
|
|
}
|
|
|
|
// 测试各种类型压栈后的 lua_type 返回值
|
|
printf("\n1. 压入 nil:\n");
|
|
lua_pushnil(L);
|
|
printf(" lua_type(L, -1) = %d (应为 LUA_TNIL = %d)\n", lua_type(L, -1), LUA_TNIL);
|
|
lua_pop(L, 1);
|
|
|
|
printf("\n2. 压入 boolean (true):\n");
|
|
lua_pushboolean(L, 1);
|
|
printf(" lua_type(L, -1) = %d (应为 LUA_TBOOLEAN = %d)\n", lua_type(L, -1), LUA_TBOOLEAN);
|
|
lua_pop(L, 1);
|
|
|
|
printf("\n3. 压入 number:\n");
|
|
lua_pushnumber(L, 3.14159);
|
|
printf(" lua_type(L, -1) = %d (应为 LUA_TNUMBER = %d)\n", lua_type(L, -1), LUA_TNUMBER);
|
|
lua_pop(L, 1);
|
|
|
|
printf("\n4. 压入 string:\n");
|
|
lua_pushstring(L, "hello");
|
|
printf(" lua_type(L, -1) = %d (应为 LUA_TSTRING = %d)\n", lua_type(L, -1), LUA_TSTRING);
|
|
lua_pop(L, 1);
|
|
|
|
printf("\n5. 创建并压入 table:\n");
|
|
lua_newtable(L);
|
|
printf(" lua_type(L, -1) = %d (应为 LUA_TTABLE = %d)\n", lua_type(L, -1), LUA_TTABLE);
|
|
lua_pop(L, 1);
|
|
|
|
printf("\n6. 压入函数 (C 函数):\n");
|
|
lua_pushcfunction(L, lua_gettop);
|
|
printf(" lua_type(L, -1) = %d (应为 LUA_TFUNCTION = %d)\n", lua_type(L, -1), LUA_TFUNCTION);
|
|
lua_pop(L, 1);
|
|
|
|
// 测试无效索引
|
|
printf("\n7. 测试无效索引:\n");
|
|
printf(" lua_type(L, 100) = %d (应为 LUA_TNONE = %d)\n", lua_type(L, 100), LUA_TNONE);
|
|
|
|
// 测试 lua_typename 函数
|
|
printf("\n========== Testing lua_typename() ==========\n");
|
|
printf("LUA_TTABLE 的类型名称: \"%s\"\n", lua_typename(L, LUA_TTABLE));
|
|
printf("所有类型常量对应的名称:\n");
|
|
printf(" LUA_TNONE -> \"%s\"\n", lua_typename(L, LUA_TNONE));
|
|
printf(" LUA_TNIL -> \"%s\"\n", lua_typename(L, LUA_TNIL));
|
|
printf(" LUA_TBOOLEAN -> \"%s\"\n", lua_typename(L, LUA_TBOOLEAN));
|
|
printf(" LUA_TNUMBER -> \"%s\"\n", lua_typename(L, LUA_TNUMBER));
|
|
printf(" LUA_TSTRING -> \"%s\"\n", lua_typename(L, LUA_TSTRING));
|
|
printf(" LUA_TTABLE -> \"%s\"\n", lua_typename(L, LUA_TTABLE));
|
|
printf(" LUA_TFUNCTION -> \"%s\"\n", lua_typename(L, LUA_TFUNCTION));
|
|
printf(" LUA_TUSERDATA -> \"%s\"\n", lua_typename(L, LUA_TUSERDATA));
|
|
printf(" LUA_TTHREAD -> \"%s\"\n", lua_typename(L, LUA_TTHREAD));
|
|
|
|
// 关闭 Lua 状态机
|
|
lua_close(L);
|
|
|
|
return 0;
|
|
}
|