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

new pragma "$endinput"

This commit is contained in:
Roberto Ierusalimschy 1997-04-14 16:08:09 -03:00
parent 64d93e7cf9
commit faec0b0824
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lex.c
View File

@ -1,4 +1,4 @@
char *rcs_lex = "$Id: lex.c,v 3.1 1997/04/12 15:01:49 roberto Exp roberto $";
char *rcs_lex = "$Id: lex.c,v 3.2 1997/04/14 15:30:29 roberto Exp roberto $";
#include <ctype.h>
@ -151,6 +151,7 @@ static void inclinenumber (void);
static void ifskip (int thisiflevel)
{
if (thisiflevel < 0) return;
while (iflevel > thisiflevel &&
(ifstate[thisiflevel] == 0 || ifstate[thisiflevel] == 3)) {
if (current == '\n')
@ -165,7 +166,7 @@ static void ifskip (int thisiflevel)
static void inclinenumber (void)
{
static char *pragmas [] =
{"debug", "nodebug", "end", "ifnot", "if", "else", NULL};
{"debug", "nodebug", "end", "ifnot", "if", "else", "endinput", NULL};
next(); /* skip '\n' */
++lua_linenumber;
if (current == '$') { /* is a pragma? */
@ -198,6 +199,9 @@ static void inclinenumber (void)
luaI_auxsyntaxerror("unmatched $else");
ifstate[iflevel-1] = ifstate[iflevel-1] | 2;
break;
case 6: /* endinput */
current = 0;
break;
default:
luaI_auxsynterrbf("invalid pragma", buff);
}
@ -206,7 +210,6 @@ static void inclinenumber (void)
inclinenumber();
else if (current != 0) /* or eof */
luaI_auxsyntaxerror("invalid pragma format");
if (iflevel > 0)
ifskip(iflevel-1);
}
}