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 ** Lua stand-alone interpreter
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -67,8 +67,7 @@ static void laction (int i) {
static void report (int status) { static void report (int status) {
if (status == 0) return; if (status) {
else {
lua_getglobal(L, "_ALERT"); lua_getglobal(L, "_ALERT");
lua_pushvalue(L, -2); lua_pushvalue(L, -2);
lua_pcall(L, 1, 0, 0); lua_pcall(L, 1, 0, 0);
@ -151,19 +150,20 @@ static int l_getargs (lua_State *l) {
} }
static int file_input (const char *name) { static int docall (int status) {
int status = lua_loadfile(L, name);
if (status == 0) status = lcall(1); if (status == 0) status = lcall(1);
report(status); report(status);
return 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) { static int dostring (const char *s, const char *name) {
int status = lua_loadbuffer(L, s, strlen(s), name); return docall(lua_loadbuffer(L, s, strlen(s), name));
if (status == 0) status = lcall(1);
report(status);
return status;
} }