diff options
author | Lua Team <team@lua.org> | 1994-07-08 12:00:00 +0000 |
---|---|---|
committer | repogen <> | 1994-07-08 12:00:00 +0000 |
commit | 944fc7d7d95575f2b8023c1f3d4ac19e1369fc76 (patch) | |
tree | eabf0822f2058229cd0d49c7928683b8cf0ed88e /fixed/lua.c | |
parent | 8b5979a7e8b9732aa2883d2384f853d87b594770 (diff) | |
download | lua-github-1.1.tar.gz |
Lua 1.11.1
Diffstat (limited to 'fixed/lua.c')
-rw-r--r-- | fixed/lua.c | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/fixed/lua.c b/fixed/lua.c deleted file mode 100644 index f2cfc0b6..00000000 --- a/fixed/lua.c +++ /dev/null @@ -1,55 +0,0 @@ -/* -** lua.c -** Linguagem para Usuarios de Aplicacao -** TeCGraf - PUC-Rio -** 28 Apr 93 -*/ - -#include <stdio.h> - -#include "lua.h" -#include "lualib.h" - - -void test (void) -{ - lua_pushobject(lua_getparam(1)); - lua_call ("c", 1); -} - - -static void callfunc (void) -{ - lua_Object obj = lua_getparam (1); - if (lua_isstring(obj)) lua_call(lua_getstring(obj),0); -} - -static void execstr (void) -{ - lua_Object obj = lua_getparam (1); - if (lua_isstring(obj)) lua_dostring(lua_getstring(obj)); -} - -int main (int argc, char *argv[]) -{ - int i; - if (argc < 2) - { - puts ("usage: lua filename [functionnames]"); - return; - } - lua_register ("callfunc", callfunc); - lua_register ("execstr", execstr); - lua_register ("test", test); - iolib_open (); - strlib_open (); - mathlib_open (); - lua_dofile (argv[1]); - for (i=2; i<argc; i++) - { - lua_call (argv[i],0); - } - return 0; -} - - |