mirror of
https://github.com/lua/lua.git
synced 2026-07-26 16:09:07 +00:00
063d4e4543
This is the first commit for the branch Lua 5.3. All source files were copied from the official distribution of 5.3.5 in the Lua site. The test files are the same of 5.3.4. The manual came from the previous RCS repository, revision 1.167.1.2.
45 lines
835 B
C
45 lines
835 B
C
#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;
|
|
}
|
|
|