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

`back-up' definition for ERRORMESSAGE

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
Show Stats 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
** See Copyright Notice in lua.h
*/
#include <stdarg.h>
#include <stdio.h>
#include "lua.h"
@ -25,6 +25,19 @@ void luaB_opentests (lua_State *L);
#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) {
struct lua_longjmp myErrorJmp;
lua_State *L = luaM_new(NULL, lua_State);
@ -57,6 +70,7 @@ lua_State *lua_open (int stacksize) {
luaS_init(L);
luaX_init(L);
luaT_init(L);
lua_register(L, LUA_ERRORMESSAGE, errormessage);
#ifdef DEBUG
luaB_opentests(L);
#endif