Rename Lua test folder
This commit is contained in:
44
third_party/lua/test/libs/lib1.c
vendored
Normal file
44
third_party/lua/test/libs/lib1.c
vendored
Normal file
@@ -0,0 +1,44 @@
|
||||
#include "lua.h"
|
||||
#include "lauxlib.h"
|
||||
|
||||
static int id (lua_State *L) {
|
||||
return lua_gettop(L);
|
||||
}
|
||||
|
||||
|
||||
static const struct luaL_Reg funcs[] = {
|
||||
{"id", id},
|
||||
{NULL, NULL}
|
||||
};
|
||||
|
||||
|
||||
/* function used by lib11.c */
|
||||
LUAMOD_API int lib1_export (lua_State *L) {
|
||||
lua_pushstring(L, "exported");
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
LUAMOD_API int onefunction (lua_State *L) {
|
||||
luaL_checkversion(L);
|
||||
lua_settop(L, 2);
|
||||
lua_pushvalue(L, 1);
|
||||
return 2;
|
||||
}
|
||||
|
||||
|
||||
LUAMOD_API int anotherfunc (lua_State *L) {
|
||||
luaL_checkversion(L);
|
||||
lua_pushfstring(L, "%d%%%d\n", (int)lua_tointeger(L, 1),
|
||||
(int)lua_tointeger(L, 2));
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
LUAMOD_API int luaopen_lib1_sub (lua_State *L) {
|
||||
lua_setglobal(L, "y"); /* 2nd arg: extra value (file name) */
|
||||
lua_setglobal(L, "x"); /* 1st arg: module name */
|
||||
luaL_newlib(L, funcs);
|
||||
return 1;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user