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

"lua_dofile" returns different error codes if it could not open the file

This commit is contained in:
Roberto Ierusalimschy 1996-06-10 16:36:24 -03:00
parent 0baa915343
commit 3211a9648a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
opcode.c
View File

@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 3.68 1996/04/25 14:10:00 roberto Exp roberto $"; char *rcs_opcode="$Id: opcode.c,v 3.69 1996/05/28 21:07:32 roberto Exp roberto $";
#include <setjmp.h> #include <setjmp.h>
#include <stdio.h> #include <stdio.h>
@ -539,7 +539,7 @@ int lua_call (char *funcname)
/* /*
** Open file, generate opcode and execute global statement. Return 0 on ** Open file, generate opcode and execute global statement. Return 0 on
** success or 1 on error. ** success or non 0 on error.
*/ */
int lua_dofile (char *filename) int lua_dofile (char *filename)
{ {
@ -547,7 +547,7 @@ int lua_dofile (char *filename)
int c; int c;
FILE *f = lua_openfile(filename); FILE *f = lua_openfile(filename);
if (f == NULL) if (f == NULL)
return 1; return 2;
c = fgetc(f); c = fgetc(f);
ungetc(c, f); ungetc(c, f);
status = (c == ID_CHUNK) ? luaI_undump(f) : do_protectedmain(); status = (c == ID_CHUNK) ? luaI_undump(f) : do_protectedmain();
@ -557,12 +557,14 @@ int lua_dofile (char *filename)
/* /*
** Generate opcode stored on string and execute global statement. Return 0 on ** Generate opcode stored on string and execute global statement. Return 0 on
** success or 1 on error. ** success or non 0 on error.
*/ */
int lua_dostring (char *string) int lua_dostring (char *str)
{ {
int status; int status;
lua_openstring(string); if (str == NULL)
return 1;
lua_openstring(str);
status = do_protectedmain(); status = do_protectedmain();
lua_closestring(); lua_closestring();
return status; return status;