new API functions startblock and endblock

2 files changed, 22 insertions, 2 deletions

diff --git a/lua.h b/lua.h
index 3affdb53..b4780ffe 100644
--- a/lua.h
+++ b/lua.h
@@ -2,7 +2,7 @@
 ** LUA - Linguagem para Usuarios de Aplicacao
 ** Grupo de Tecnologia em Computacao Grafica
 ** TeCGraf - PUC-Rio
-** $Id: lua.h,v 3.6 1994/11/09 18:10:11 roberto Exp roberto $
+** $Id: lua.h,v 3.7 1994/11/13 16:17:04 roberto Exp $
 */
 
 
@@ -37,6 +37,9 @@ int            lua_dostring 		(char *string);
 int            lua_callfunction         (lua_Object function);
 int            lua_call                 (char *funcname);
 
+int            lua_beginblock           (void);
+void           lua_endblock             (int block);
+
 lua_Object     lua_getparam             (int number);
 #define        lua_getresult(_)         lua_getparam(_)
 
diff --git a/opcode.c b/opcode.c
index 1451894e..11816826 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 3.13 1994/11/16 17:38:08 roberto Exp $";
+char *rcs_opcode="$Id: opcode.c,v 3.14 1994/11/17 13:58:57 roberto Exp roberto $";
 
 #include <setjmp.h>
 #include <stdio.h>
@@ -436,6 +436,23 @@ lua_Object lua_getsubscript (void)
     return 0;
 }
 
+/*
+** API: starts a new block
+*/
+int lua_beginblock (void)
+{
+  return CBase;
+}
+
+/*
+** API: ends a block
+*/
+void lua_endblock (int block)
+{
+  CBase = block;
+  adjustC(0);
+}
+
 /* 
 ** API: receives on the stack the table, the index, and the new value.
 */