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.4 1995/02/07 16:04:15 lhf Exp $";
   7
   8 #include <stdio.h>
   9 #include <string.h>
  10
  11 #include "lua.h"
  12 #include "lualib.h"
  13
  14 static int lua_argc;
  15 static char **lua_argv;
  16
  17 /*
  18 %F Allow Lua code to access argv strings.
  19 %i Receive from Lua the argument number (starting with 1).
  20 %o Return to Lua the argument, or nil if it does not exist.
  21 */
  22 static void lua_getargv (void)
  23 {
  24  lua_Object lo = lua_getparam(1);
  25  if (!lua_isnumber(lo))
  26   lua_pushnil();
  27  else
  28  {
  29   int n = (int)lua_getnumber(lo);
  30   if (n < 1 || n > lua_argc) lua_pushnil();
  31   else                       lua_pushstring(lua_argv[n]);
  32  }
  33 }
  34
  35
  36 int main (int argc, char *argv[])
  37 {
  38  int i;
  39  int result = 0;
  40  iolib_open ();
  41  strlib_open ();
  42  mathlib_open ();
  43
  44  lua_register("argv", lua_getargv);
  45
  46  if (argc < 2)
  47  {
  48    char buffer[250];
  49    while (gets(buffer) != 0)
  50      result = lua_dostring(buffer);
  51  }
  52  else
  53  {
  54   for (i=1; i<argc; i++)
  55   {
  56    if (strcmp(argv[i], "--") == 0)
  57    {
  58     lua_argc = argc-i-1;
  59     lua_argv = argv+i;
  60     break;
  61    }
  62   }
  63   for (i=1; i<argc; i++)
  64   {
  65    if (strcmp(argv[i], "--") == 0)
  66     break;
  67    else
  68     result = lua_dofile (argv[i]);
  69   }
  70  }
  71  return result;
  72 }
  73
  74