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

only need to reset buffer for strings, numbers, and names.

This commit is contained in:
Roberto Ierusalimschy 2000-01-26 16:51:49 -02:00
parent d83c2a8455
commit d6b9f49aaf
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
llex.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: llex.c,v 1.48 1999/12/30 12:40:29 roberto Exp roberto $ ** $Id: llex.c,v 1.49 2000/01/25 18:44:21 roberto Exp roberto $
** Lexical Analyzer ** Lexical Analyzer
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -321,7 +321,6 @@ static void read_string (lua_State *L, LexState *LS, int del) {
int luaX_lex (LexState *LS) { int luaX_lex (LexState *LS) {
lua_State *L = LS->L; lua_State *L = LS->L;
luaL_resetbuffer(L);
for (;;) { for (;;) {
switch (LS->current) { switch (LS->current) {
@ -340,6 +339,7 @@ int luaX_lex (LexState *LS) {
continue; continue;
case '[': case '[':
luaL_resetbuffer(L);
save_and_next(L, LS); save_and_next(L, LS);
if (LS->current != '[') return '['; if (LS->current != '[') return '[';
else { else {
@ -370,10 +370,12 @@ int luaX_lex (LexState *LS) {
case '"': case '"':
case '\'': case '\'':
luaL_resetbuffer(L);
read_string(L, LS, LS->current); read_string(L, LS, LS->current);
return STRING; return STRING;
case '.': case '.':
luaL_resetbuffer(L);
save_and_next(L, LS); save_and_next(L, LS);
if (LS->current == '.') { if (LS->current == '.') {
next(LS); next(LS);
@ -384,10 +386,11 @@ int luaX_lex (LexState *LS) {
else return CONC; /* .. */ else return CONC; /* .. */
} }
else if (!isdigit(LS->current)) return '.'; else if (!isdigit(LS->current)) return '.';
goto fraction; /* LS->current is a digit: goes through to number */ else goto fraction; /* LS->current is a digit */
case '0': case '1': case '2': case '3': case '4': case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9': case '5': case '6': case '7': case '8': case '9':
luaL_resetbuffer(L);
do { do {
save_and_next(L, LS); save_and_next(L, LS);
} while (isdigit(LS->current)); } while (isdigit(LS->current));
@ -431,6 +434,7 @@ int luaX_lex (LexState *LS) {
} }
tname: { /* identifier or reserved word */ tname: { /* identifier or reserved word */
TaggedString *ts; TaggedString *ts;
luaL_resetbuffer(L);
do { do {
save_and_next(L, LS); save_and_next(L, LS);
} while (isalnum(LS->current) || LS->current == '_'); } while (isalnum(LS->current) || LS->current == '_');