lua

A copy of the Lua development repository
Log | Files | Refs | README

commit d763b69740653e68aaddd72edf0bc0a34544415a
parent 36dd1af92dc0455684b997c15e736b0c56ef3f7c
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Thu, 15 Aug 1996 15:40:35 -0300

skip first line of a lua file if it starts with a '#' (to allow shell
scripts).

Diffstat:
Mopcode.c | 10++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/opcode.c b/opcode.c @@ -3,7 +3,7 @@ ** TecCGraf - PUC-Rio */ -char *rcs_opcode="$Id: opcode.c,v 3.70 1996/06/10 19:36:24 roberto Exp roberto $"; +char *rcs_opcode="$Id: opcode.c,v 3.71 1996/07/24 17:55:57 roberto Exp roberto $"; #include <setjmp.h> #include <stdio.h> @@ -551,7 +551,13 @@ int lua_dofile (char *filename) return 2; c = fgetc(f); ungetc(c, f); - status = (c == ID_CHUNK) ? luaI_undump(f) : do_protectedmain(); + if (c == ID_CHUNK) + status = luaI_undump(f); + else { + if (c == '#') + while ((c=fgetc(f)) != '\n') /* skip first line */; + status = do_protectedmain(); + } lua_closefile(); return status; }