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.7 1995/10/31 17:05:35 roberto 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 ** although this function is POSIX, there is no standard header file that
  19 ** defines it
  20 */
  21 int isatty (int fd);
  22
  23 /*
  24 %F Allow Lua code to access argv strings.
  25 %i Receive from Lua the argument number (starting with 1).
  26 %o Return to Lua the argument, or nil if it does not exist.
  27 */
  28 static void lua_getargv (void)
  29 {
  30  lua_Object lo = lua_getparam(1);
  31  if (!lua_isnumber(lo))
  32   lua_pushnil();
  33  else
  34  {
  35   int n = (int)lua_getnumber(lo);
  36   if (n < 1 || n > lua_argc) lua_pushnil();
  37   else                       lua_pushstring(lua_argv[n]);
  38  }
  39 }
  40
  41
  42 static void manual_input (void)
  43 {
  44   if (isatty(fileno(stdin)))
  45   {
  46    char buffer[250];
  47    while (gets(buffer) != 0)
  48      lua_dostring(buffer);
  49   }
  50   else
  51     lua_dofile(NULL);  /* executes stdin as a file */
  52 }
  53
  54
  55 int main (int argc, char *argv[])
  56 {
  57  int i;
  58  int result = 0;
  59  iolib_open ();
  60  strlib_open ();
  61  mathlib_open ();
  62
  63  lua_register("argv", lua_getargv);
  64
  65  if (argc < 2)
  66    manual_input();
  67  else
  68  {
  69   for (i=1; i<argc; i++)
  70    if (strcmp(argv[i], "--") == 0)
  71    {
  72     lua_argc = argc-i-1;
  73     lua_argv = argv+i;
  74     break;
  75    }
  76   for (i=1; i<argc; i++)
  77   {
  78    if (strcmp(argv[i], "--") == 0)
  79     break;
  80    else if (strcmp(argv[i], "-") == 0)
  81     manual_input();
  82    else if (strcmp(argv[i], "-v") == 0)
  83     printf("%s  %s\n(written by %s)\n\n",
  84             LUA_VERSION, LUA_COPYRIGHT, LUA_AUTHORS);
  85    else
  86     result = lua_dofile (argv[i]);
  87   }
  88  }
  89  return result;
  90 }
  91
  92