summaryrefslogtreecommitdiff
path: root/fixed/lua.c
diff options
context:
space:
mode:
authorLua Team <team@lua.org>1994-07-08 12:00:00 +0000
committerrepogen <>1994-07-08 12:00:00 +0000
commit944fc7d7d95575f2b8023c1f3d4ac19e1369fc76 (patch)
treeeabf0822f2058229cd0d49c7928683b8cf0ed88e /fixed/lua.c
parent8b5979a7e8b9732aa2883d2384f853d87b594770 (diff)
downloadlua-github-1.1.tar.gz
Lua 1.11.1
Diffstat (limited to 'fixed/lua.c')
-rw-r--r--fixed/lua.c55
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;
-}
-
-