From ae77864844d6b933eb8be68694cbb8498af165dc Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 2 Nov 1994 18:29:39 -0200
Subject: [PATCH] tags T_NIL, etc, changed to LUA_T_NIL, etc some lua_
 functions changed form opcode.c to here

---
 inout.c | 91 ++++++++++++++++++++++++++++++++++++++++++++++++++-------
 inout.h |  7 ++++-
 2 files changed, 87 insertions(+), 11 deletions(-)

diff --git a/inout.c b/inout.c
index 515c8f0f..143acece 100644
--- a/inout.c
+++ b/inout.c
@@ -2,9 +2,10 @@
 ** inout.c
 ** Provide function to realise the input/output function and debugger 
 ** facilities.
+** Also provides some predefined lua functions.
 */
 
-char *rcs_inout="$Id: inout.c,v 2.4 1994/10/11 14:38:17 celes Exp $";
+char *rcs_inout="$Id: inout.c,v 2.5 1994/10/17 19:04:19 celes Exp roberto $";
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -108,15 +109,6 @@ void lua_closestring (void)
  lua_delfile();
 }
 
-/*
-** Call user function to handle error messages, if registred. Or report error
-** using standard function (fprintf).
-*/
-void lua_error (char *s)
-{
- if (usererror != NULL) usererror (s);
- else			    fprintf (stderr, "lua: %s\n", s);
-}
 
 /*
 ** Called to execute  SETFUNCTION opcode, this function pushs a function into
@@ -176,3 +168,82 @@ void lua_reportbug (char *s)
  lua_error (msg);
 }
 
+ 
+/*
+** Internal function: do a string
+*/
+void lua_internaldostring (void)
+{
+ lua_Object obj = lua_getparam (1);
+ if (lua_isstring(obj) && !lua_dostring(lua_getstring(obj)))
+  lua_pushnumber(1);
+ else
+  lua_pushnil();
+}
+
+/*
+** Internal function: do a file
+*/
+void lua_internaldofile (void)
+{
+ lua_Object obj = lua_getparam (1);
+ if (lua_isstring(obj) && !lua_dofile(lua_getstring(obj)))
+  lua_pushnumber(1);
+ else
+  lua_pushnil();
+}
+ 
+/*
+** Internal function: print object values
+*/
+void lua_print (void)
+{
+ int i=1;
+ Object *obj;
+ while ((obj=lua_getparam (i++)) != NULL)
+ {
+  if      (lua_isnumber(obj))    printf("%g\n",lua_getnumber (obj));
+  else if (lua_isstring(obj))    printf("%s\n",lua_getstring (obj));
+  else if (lua_isfunction(obj))  printf("function: %p\n",bvalue(obj));
+  else if (lua_iscfunction(obj)) printf("cfunction: %p\n",lua_getcfunction (obj)
+);
+  else if (lua_isuserdata(obj))  printf("userdata: %p\n",lua_getuserdata (obj));
+  else if (lua_istable(obj))     printf("table: %p\n",obj);
+  else if (lua_isnil(obj))       printf("nil\n");
+  else                           printf("invalid value to print\n");
+ }
+}
+ 
+ 
+/*
+** Internal function: return an object type.
+*/
+void lua_type (void)
+{
+  Object *o = lua_getparam(1);
+  switch (tag(o))
+  {
+    case LUA_T_NIL :
+      lua_pushstring("nil");
+      break;
+    case LUA_T_NUMBER :
+      lua_pushstring("number");
+      break;
+    case LUA_T_STRING :
+      lua_pushstring("string");
+      break;
+    case LUA_T_ARRAY :
+      lua_pushstring("table");
+      break;
+    case LUA_T_FUNCTION :
+      lua_pushstring("function");
+      break;
+    case LUA_T_CFUNCTION :
+      lua_pushstring("cfunction");
+      break;
+    default :
+      lua_pushstring("userdata");
+      break;
+  }
+}
+ 
diff --git a/inout.h b/inout.h
index 2b95a7bf..f8cc0e93 100644
--- a/inout.h
+++ b/inout.h
@@ -1,5 +1,5 @@
 /*
-** $Id: inout.h,v 1.1 1993/12/17 18:41:19 celes Exp $
+** $Id: inout.h,v 1.2 1994/10/11 14:38:17 celes Exp roberto $
 */
 
 
@@ -18,4 +18,9 @@ int  lua_pushfunction (char *file, int function);
 void lua_popfunction  (void);
 void lua_reportbug    (char *s);
 
+void    lua_internaldofile (void);
+void    lua_internaldostring (void);
+void    lua_print      (void);
+void    lua_type       (void);
+
 #endif