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

details

This commit is contained in:
Roberto Ierusalimschy 2002-05-23 16:43:04 -03:00
parent 8876a1bf92
commit a1700bbc50
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lua.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lua.c,v 1.86 2002/05/15 18:57:44 roberto Exp roberto $
** $Id: lua.c,v 1.87 2002/05/16 19:09:19 roberto Exp roberto $
** Lua stand-alone interpreter
** See Copyright Notice in lua.h
*/
@ -67,8 +67,7 @@ static void laction (int i) {
static void report (int status) {
if (status == 0) return;
else {
if (status) {
lua_getglobal(L, "_ALERT");
lua_pushvalue(L, -2);
lua_pcall(L, 1, 0, 0);
@ -151,19 +150,20 @@ static int l_getargs (lua_State *l) {
}
static int file_input (const char *name) {
int status = lua_loadfile(L, name);
static int docall (int status) {
if (status == 0) status = lcall(1);
report(status);
return status;
}
static int file_input (const char *name) {
return docall(lua_loadfile(L, name));
}
static int dostring (const char *s, const char *name) {
int status = lua_loadbuffer(L, s, strlen(s), name);
if (status == 0) status = lcall(1);
report(status);
return status;
return docall(lua_loadbuffer(L, s, strlen(s), name));
}