summaryrefslogtreecommitdiff
path: root/lua.c
diff options
context:
space:
mode:
Diffstat (limited to 'lua.c')
-rw-r--r--lua.c54
1 files changed, 0 insertions, 54 deletions
diff --git a/lua.c b/lua.c
deleted file mode 100644
index be01b70f..00000000
--- a/lua.c
+++ /dev/null
@@ -1,54 +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));
-}
-
-void 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);
- }
-}
-
-