'main' returns condition code

1 files changed, 6 insertions, 4 deletions

diff --git a/lua.c b/lua.c
index 73391a7f..b292ec7b 100644
--- a/lua.c
+++ b/lua.c
@@ -3,7 +3,7 @@
 ** Linguagem para Usuarios de Aplicacao
 */
 
-char *rcs_lua="$Id: $";
+char *rcs_lua="$Id: lua.c,v 1.1 1993/12/17 18:41:19 celes Stab roberto $";
 
 #include <stdio.h>
 
@@ -11,9 +11,10 @@ char *rcs_lua="$Id: $";
 #include "lualib.h"
 
 
-void main (int argc, char *argv[])
+int main (int argc, char *argv[])
 {
  int i;
+ int result = 0;
  iolib_open ();
  strlib_open ();
  mathlib_open ();
@@ -21,11 +22,12 @@ void main (int argc, char *argv[])
  {
    char buffer[250];
    while (gets(buffer) != 0)
-     lua_dostring(buffer);
+     result = lua_dostring(buffer);
  }
  else
    for (i=1; i<argc; i++)
-    lua_dofile (argv[i]);
+    result = lua_dofile (argv[i]);
+ return result;
 }