nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new API functions startblock and endblock

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1994-11-17 14:41:42 -02:00
parent b234da1cc2
commit 5406d391cd
2 changed files with 22 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lua.h
View File

@@ -2,7 +2,7 @@
** LUA - Linguagem para Usuarios de Aplicacao ** LUA - Linguagem para Usuarios de Aplicacao
** Grupo de Tecnologia em Computacao Grafica ** Grupo de Tecnologia em Computacao Grafica
** TeCGraf - PUC-Rio ** 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_callfunction (lua_Object function);
int lua_call (char *funcname); int lua_call (char *funcname);
int lua_beginblock (void);
void lua_endblock (int block);
lua_Object lua_getparam (int number); lua_Object lua_getparam (int number);
#define lua_getresult(_) lua_getparam(_) #define lua_getresult(_) lua_getparam(_)

19
opcode.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** 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 <setjmp.h>
#include <stdio.h> #include <stdio.h>
@@ -436,6 +436,23 @@ lua_Object lua_getsubscript (void)
return 0; 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. ** API: receives on the stack the table, the index, and the new value.
*/ */