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

`back-up' definition for ERRORMESSAGE

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2000-09-12 15:42:32 -03:00
parent 5d033f33eb
commit 0b3b6850c9
1 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lstate.c
View File

@@ -1,11 +1,11 @@
/* /*
** $Id: lstate.c,v 1.37 2000/09/11 17:38:42 roberto Exp roberto $ ** $Id: lstate.c,v 1.38 2000/09/11 19:42:57 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
#include <stdarg.h> #include <stdio.h>
#include "lua.h" #include "lua.h"
@@ -25,6 +25,19 @@ void luaB_opentests (lua_State *L);
#endif #endif
/*
** built-in implementation for ERRORMESSAGE. In a "correct" environment
** ERRORMESSAGE should have an external definition, and so this function
** would not be used.
*/
static int errormessage (lua_State *L) {
const char *s = lua_tostring(L, 1);
if (s == NULL) s = "(no message)";
fprintf(stderr, "error: %s\n", s);
return 0;
}
lua_State *lua_open (int stacksize) { lua_State *lua_open (int stacksize) {
struct lua_longjmp myErrorJmp; struct lua_longjmp myErrorJmp;
lua_State *L = luaM_new(NULL, lua_State); lua_State *L = luaM_new(NULL, lua_State);
@@ -57,6 +70,7 @@ lua_State *lua_open (int stacksize) {
luaS_init(L); luaS_init(L);
luaX_init(L); luaX_init(L);
luaT_init(L); luaT_init(L);
lua_register(L, LUA_ERRORMESSAGE, errormessage);
#ifdef DEBUG #ifdef DEBUG
luaB_opentests(L); luaB_opentests(L);
#endif #endif