|
|
@ -1,5 +1,5 @@ |
|
|
|
/*
|
|
|
|
** $Id: llex.c,v 1.105 2002/06/18 15:19:27 roberto Exp roberto $ |
|
|
|
** $Id: llex.c,v 1.106 2002/06/25 19:18:20 roberto Exp roberto $ |
|
|
|
** Lexical Analyzer |
|
|
|
** See Copyright Notice in lua.h |
|
|
|
*/ |
|
|
@ -160,7 +160,7 @@ static size_t readname (LexState *LS) { |
|
|
|
|
|
|
|
|
|
|
|
/* LUA_NUMBER */ |
|
|
|
static void read_number (LexState *LS, int comma, SemInfo *seminfo) { |
|
|
|
static void read_numeral (LexState *LS, int comma, SemInfo *seminfo) { |
|
|
|
lua_State *L = LS->L; |
|
|
|
size_t l = 0; |
|
|
|
checkbuffer(L, l); |
|
|
@ -367,7 +367,7 @@ int luaX_lex (LexState *LS, SemInfo *seminfo) { |
|
|
|
} |
|
|
|
else if (!isdigit(LS->current)) return '.'; |
|
|
|
else { |
|
|
|
read_number(LS, 1, seminfo); |
|
|
|
read_numeral(LS, 1, seminfo); |
|
|
|
return TK_NUMBER; |
|
|
|
} |
|
|
|
} |
|
|
@ -380,7 +380,7 @@ int luaX_lex (LexState *LS, SemInfo *seminfo) { |
|
|
|
continue; |
|
|
|
} |
|
|
|
else if (isdigit(LS->current)) { |
|
|
|
read_number(LS, 0, seminfo); |
|
|
|
read_numeral(LS, 0, seminfo); |
|
|
|
return TK_NUMBER; |
|
|
|
} |
|
|
|
else if (isalpha(LS->current) || LS->current == '_') { |
|
|
@ -405,3 +405,4 @@ int luaX_lex (LexState *LS, SemInfo *seminfo) { |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
#undef next |
|
|
|