mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new API functions startblock and endblock

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
Show Stats 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
** 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(_)

19
opcode.c
View File

@ -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.
*/