commit 5406d391cd8c51d56b92e5c390afd60f4c006922
parent b234da1cc2053b8919a9b27af67291e48fdf9703
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 17 Nov 1994 14:41:23 -0200
new API functions startblock and endblock
Diffstat:
2 files changed, 22 insertions(+), 2 deletions(-)
diff --git 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
@@ -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.
*/