From 54840fb25696ab30e11d2d80f3c18af6d1f01481 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 15 Jan 1999 11:11:22 -0200
Subject: new functions to manipulate C global variables

---
 lapi.c | 47 ++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 44 insertions(+), 3 deletions(-)

(limited to 'lapi.c')

diff --git a/lapi.c b/lapi.c
index d5c16369..5f75649f 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.29 1998/12/03 15:45:15 roberto Exp roberto $
+** $Id: lapi.c,v 1.30 1998/12/30 17:26:49 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -425,8 +425,42 @@ void lua_settag (int tag)
 }
 
 
+
 /*
+** {======================================================
+** To manipulate the implementation global variables
 ** =======================================================
+*/
+
+lua_State *lua_setstate (lua_State *st) {
+  lua_State *old = lua_state;
+  lua_state = st;
+  return old;
+}
+
+lua_LHFunction lua_setlinehook (lua_LHFunction func) {
+  lua_LHFunction old = lua_linehook;
+  lua_linehook = func;
+  return old;
+}
+
+lua_CHFunction lua_setcallhook (lua_CHFunction func) {
+  lua_CHFunction old = lua_callhook;
+  lua_callhook = func;
+  return old;
+}
+
+int lua_setdebug (int debug) {
+  int old = lua_debug;
+  lua_debug = debug;
+  return old;
+}
+
+/* }====================================================== */
+
+
+/*
+** {======================================================
 ** Debug interface
 ** =======================================================
 */
@@ -541,8 +575,11 @@ char *lua_getobjname (lua_Object o, char **name)
   else return "";
 }
 
+/* }====================================================== */
+
+
 /*
-** =======================================================
+** {======================================================
 ** BLOCK mechanism
 ** =======================================================
 */
@@ -582,9 +619,11 @@ lua_Object lua_getref (int ref)
   return (o ? put_luaObject(o) : LUA_NOOBJECT);
 }
 
+/* }====================================================== */
+
 
 /*
-** =======================================================
+** {======================================================
 ** Derived functions
 ** =======================================================
 */
@@ -602,6 +641,8 @@ void (lua_pushcfunction) (lua_CFunction f) { lua_pushcfunction(f); }
 
 int (lua_clonetag) (int t) { return lua_clonetag(t); }
 
+/* }====================================================== */
+
 
 
 
-- 
cgit v1.2.3-55-g6feb