diff options
Diffstat (limited to 'lib/LuaBridge/Tests/Lua/Lua.5.1.5/etc/min.c')
-rw-r--r-- | lib/LuaBridge/Tests/Lua/Lua.5.1.5/etc/min.c | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/lib/LuaBridge/Tests/Lua/Lua.5.1.5/etc/min.c b/lib/LuaBridge/Tests/Lua/Lua.5.1.5/etc/min.c deleted file mode 100644 index 6a85a4d..0000000 --- a/lib/LuaBridge/Tests/Lua/Lua.5.1.5/etc/min.c +++ /dev/null @@ -1,39 +0,0 @@ -/* -* min.c -- a minimal Lua interpreter -* loads stdin only with minimal error handling. -* no interaction, and no standard library, only a "print" function. -*/ - -#include <stdio.h> - -#include "lua.h" -#include "lauxlib.h" - -static int print(lua_State *L) -{ - int n=lua_gettop(L); - int i; - for (i=1; i<=n; i++) - { - if (i>1) printf("\t"); - if (lua_isstring(L,i)) - printf("%s",lua_tostring(L,i)); - else if (lua_isnil(L,i)) - printf("%s","nil"); - else if (lua_isboolean(L,i)) - printf("%s",lua_toboolean(L,i) ? "true" : "false"); - else - printf("%s:%p",luaL_typename(L,i),lua_topointer(L,i)); - } - printf("\n"); - return 0; -} - -int main(void) -{ - lua_State *L=lua_open(); - lua_register(L,"print",print); - if (luaL_dofile(L,NULL)!=0) fprintf(stderr,"%s\n",lua_tostring(L,-1)); - lua_close(L); - return 0; -} |