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

"lua_seterrormethod" should return the previous handler.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1997-06-16 16:48:18 -03:00
parent 312f78d925
commit 4d2de484f6
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lua.h
View File

@@ -2,7 +2,7 @@
** LUA - An Extensible Extension Language ** LUA - An Extensible Extension Language
** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil
** e-mail: lua@tecgraf.puc-rio.br ** e-mail: lua@tecgraf.puc-rio.br
** $Id: lua.h,v 4.6 1997/06/09 17:28:14 roberto Exp roberto $ ** $Id: lua.h,v 4.7 1997/06/12 18:27:29 roberto Exp roberto $
*/ */
@@ -23,7 +23,7 @@ typedef unsigned int lua_Object;
lua_Object lua_settagmethod (int tag, char *event, lua_CFunction method); lua_Object lua_settagmethod (int tag, char *event, lua_CFunction method);
lua_Object lua_gettagmethod (int tag, char *event); lua_Object lua_gettagmethod (int tag, char *event);
void lua_seterrormethod (lua_CFunction method); lua_Object lua_seterrormethod (lua_CFunction method);
int lua_newtag (void); int lua_newtag (void);
void lua_settag (int tag); /* In: object */ void lua_settag (int tag); /* In: object */

7
opcode.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 4.9 1997/06/16 16:50:22 roberto Exp roberto $"; char *rcs_opcode="$Id: opcode.c,v 4.10 1997/06/16 18:42:32 roberto Exp roberto $";
#include <setjmp.h> #include <setjmp.h>
#include <stdio.h> #include <stdio.h>
@@ -667,10 +667,11 @@ lua_Object lua_settagmethod (int tag, char *event, lua_CFunction method)
return put_luaObjectonTop(); return put_luaObjectonTop();
} }
void lua_seterrormethod (lua_CFunction method) lua_Object lua_seterrormethod (lua_CFunction method)
{ {
lua_pushcfunction(method); lua_pushcfunction(method);
do_unprotectedrun(luaI_seterrormethod, 1, 0); do_unprotectedrun(luaI_seterrormethod, 1, 1);
return put_luaObjectonTop();
} }