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

error message for syntax "1..2"; 

syntax error function is in "lex.c" (it has the token)
This commit is contained in:
Roberto Ierusalimschy 1996-11-08 10:49:35 -02:00
parent a0e9bfbb48
commit 60242e1930
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lex.c
View File

@ -1,4 +1,4 @@
char *rcs_lex = "$Id: lex.c,v 2.36 1996/09/25 21:52:00 roberto Exp roberto $";
char *rcs_lex = "$Id: lex.c,v 2.38 1996/11/08 12:20:34 roberto Exp roberto $";
#include <ctype.h>
@ -30,9 +30,15 @@ void lua_setinput (Input fn)
input = fn;
}
char *lua_lasttext (void)
void luaI_syntaxerror (char *s)
{
return luaI_buffer(1);
char msg[256];
char *token = luaI_buffer(1);
if (token[0] == 0)
token = "<eof>";
sprintf (msg,"%s; last token read: \"%s\" at line %d in file `%s'",
s, token, lua_linenumber, lua_parsedfile);
lua_error (msg);
}
@ -75,11 +81,11 @@ void luaI_addReserved (void)
static int inclinenumber (int pragma_allowed)
{
if (pragma_allowed && current == '$') { /* is a pragma? */
char buff[MINBUFF];
char *buff = luaI_buffer(MINBUFF+1);
int i = 0;
next(); /* skip $ */
while (isalnum(current)) {
if (i >= MINBUFF) lua_error("pragma too long");
if (i >= MINBUFF) luaI_syntaxerror("pragma too long");
buff[i++] = current;
next();
}
@ -88,7 +94,7 @@ static int inclinenumber (int pragma_allowed)
lua_debug = 1;
else if (strcmp(buff, "nodebug") == 0)
lua_debug = 0;
else lua_error("invalid pragma");
else luaI_syntaxerror("invalid pragma");
}
return ++lua_linenumber;
}
@ -285,7 +291,12 @@ int luaY_lex (void)
a=10.0*a+(current-'0');
save_and_next();
} while (isdigit(current));
if (current == '.') save_and_next();
if (current == '.') {
save_and_next();
if (current == '.')
luaI_syntaxerror(
"ambiguous syntax (decimal point x string concatenation)");
}
fraction:
{ double da=0.1;
while (isdigit(current))