nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Linguagem para Usuarios de Aplicacao

Browse Source
This commit is contained in:
Waldemar Celes
1993-12-17 16:41:19 -02:00
parent 69bee7a3d1
commit d443840846
1 changed files with 9 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
lua.c
View File

@@ -1,54 +1,31 @@
/* /*
** lua.c ** lua.c
** Linguagem para Usuarios de Aplicacao ** Linguagem para Usuarios de Aplicacao
** TeCGraf - PUC-Rio
** 28 Apr 93
*/ */
char *rcs_lua="$Id: $";
#include <stdio.h> #include <stdio.h>
#include "lua.h" #include "lua.h"
#include "lualib.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[]) void main (int argc, char *argv[])
{ {
int i; 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 (); iolib_open ();
strlib_open (); strlib_open ();
mathlib_open (); mathlib_open ();
lua_dofile (argv[1]); if (argc < 2)
for (i=2; i<argc; i++)
{ {
lua_call (argv[i],0); char buffer[250];
while (gets(buffer) != 0)
lua_dostring(buffer);
} }
else
for (i=1; i<argc; i++)
lua_dofile (argv[i]);
} }