lua

A copy of the Lua development repository
Log | Files | Refs | README

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:
Mlua.h | 5++++-
Mopcode.c | 19++++++++++++++++++-
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. */