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.18 1997/06/19 18:55:40 roberto Exp $";
   7
   8 #include <stdio.h>
   9 #include <string.h>
  10
  11 #include "lua.h"
  12 #include "auxlib.h"
  13 #include "lualib.h"
  14
  15
  16 #ifdef _POSIX_SOURCE
  17 #include <unistd.h>
  18 #else
  19 #define isatty(x)       (x==0)  /* assume stdin is a tty */
  20 #endif
  21
  22
  23 #define DEBUG   0
  24
  25 static void testC (void)
  26 {
  27 #if DEBUG
  28 #define getnum(s)       ((*s++) - '0')
  29 #define getname(s)      (nome[0] = *s++, nome)
  30
  31   static int locks[10];
  32   lua_Object reg[10];
  33   char nome[2];
  34   char *s = luaL_check_string(1);
  35   nome[1] = 0;
  36   while (1) {
  37     switch (*s++) {
  38       case '0': case '1': case '2': case '3': case '4':
  39       case '5': case '6': case '7': case '8': case '9':
  40         lua_pushnumber(*(s-1) - '0');
  41         break;
  42
  43       case 'c': reg[getnum(s)] = lua_createtable(); break;
  44
  45       case 'P': reg[getnum(s)] = lua_pop(); break;
  46
  47       case 'g': { int n = getnum(s); reg[n] = lua_getglobal(getname(s)); break; }
  48
  49       case 'G': { int n = getnum(s);
  50                   reg[n] = lua_rawgetglobal(getname(s));
  51                   break;
  52                 }
  53
  54       case 'l': locks[getnum(s)] = lua_ref(1); break;
  55       case 'L': locks[getnum(s)] = lua_ref(0); break;
  56
  57       case 'r': { int n = getnum(s); reg[n] = lua_getref(locks[getnum(s)]); break; }
  58
  59       case 'u': lua_unref(locks[getnum(s)]); break;
  60
  61       case 'p': { int n = getnum(s); reg[n] = lua_getparam(getnum(s)); break; }
  62
  63       case '=': lua_setglobal(getname(s)); break;
  64
  65       case 's': lua_pushstring(getname(s)); break;
  66
  67       case 'o': lua_pushobject(reg[getnum(s)]); break;
  68
  69       case 'f': lua_call(getname(s)); break;
  70
  71       case 'i': reg[getnum(s)] = lua_gettable(); break;
  72
  73       case 'I': reg[getnum(s)] = lua_rawgettable(); break;
  74
  75       case 't': lua_settable(); break;
  76
  77       case 'T': lua_rawsettable(); break;
  78
  79       default: luaL_verror("unknown command in `testC': %c", *(s-1));
  80
  81     }
  82   if (*s == 0) return;
  83   if (*s++ != ' ') lua_error("missing ` ' between commands in `testC'");
  84   }
  85 #else
  86   lua_error("`testC' not active");
  87 #endif
  88 }
  89
  90
  91 static void manual_input (void)
  92 {
  93   if (isatty(0)) {
  94     char buffer[250];
  95     while (fgets(buffer, sizeof(buffer), stdin) != 0) {
  96       lua_beginblock();
  97       lua_dostring(buffer);
  98       lua_endblock();
  99     }
 100   }
 101   else
 102     lua_dofile(NULL);  /* executes stdin as a file */
 103 }
 104
 105
 106 int main (int argc, char *argv[])
 107 {
 108   int i;
 109   int result = 0;
 110   iolib_open ();
 111   strlib_open ();
 112   mathlib_open ();
 113   lua_register("testC", testC);
 114   if (argc < 2)
 115     manual_input();
 116   else for (i=1; i<argc; i++) {
 117     if (strcmp(argv[i], "-") == 0)
 118       manual_input();
 119     else if (strcmp(argv[i], "-v") == 0)
 120       printf("%s  %s\n(written by %s)\n\n",
 121              LUA_VERSION, LUA_COPYRIGHT, LUA_AUTHORS);
 122     else if ((strcmp(argv[i], "-e") == 0 && i++) || strchr(argv[i], '=')) {
 123       if (lua_dostring(argv[i]) != 0) {
 124         fprintf(stderr, "lua: error running argument `%s'\n", argv[i]);
 125         return 1;
 126       }
 127     }
 128     else {
 129       result = lua_dofile (argv[i]);
 130       if (result) {
 131         if (result == 2) {
 132           fprintf(stderr, "lua: cannot execute file ");
 133           perror(argv[i]);
 134         }
 135         return 1;
 136       }
 137     }
 138   }
 139   return result;
 140 }
 141