clients/lua/lua.c

   1 /*
   2 ** lua.c
   3 ** Linguagem para Usuarios de Aplicacao
   4 */
   5
   6 char *rcs_lua="$Id: lua.c,v 1.1 1993/12/17 18:41:19 celes Exp $";
   7
   8 #include <stdio.h>
   9
  10 #include "lua.h"
  11 #include "lualib.h"
  12
  13 void main (int argc, char *argv[])
  14 {
  15  int i;
  16  iolib_open ();
  17  strlib_open ();
  18  mathlib_open ();
  19  if (argc < 2)
  20  {
  21    char buffer[2048];
  22    while (gets(buffer) != 0)
  23      lua_dostring(buffer);
  24  }
  25  else
  26    for (i=1; i<argc; i++)
  27     lua_dofile (argv[i]);
  28 }