aboutsummaryrefslogtreecommitdiff
path: root/llex.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-07-22 16:29:42 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-07-22 16:29:42 -0300
commite9a670695a764408aae2bd970ded7a58d98921c4 (patch)
tree4e6b456f909090fced8aad436b6491601a85bfca /llex.c
parent16024861bd23ac9f837f956fbeec739878e5d895 (diff)
downloadlua-e9a670695a764408aae2bd970ded7a58d98921c4.tar.gz
lua-e9a670695a764408aae2bd970ded7a58d98921c4.tar.bz2
lua-e9a670695a764408aae2bd970ded7a58d98921c4.zip
details
Diffstat (limited to 'llex.c')
-rw-r--r--llex.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/llex.c b/llex.c
index 4368fe66..74aa7d3a 100644
--- a/llex.c
+++ b/llex.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: llex.c,v 1.35 1999/05/14 12:24:04 roberto Exp roberto $ 2** $Id: llex.c,v 1.36 1999/06/17 17:04:03 roberto Exp roberto $
3** Lexical Analyzer 3** Lexical Analyzer
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -27,7 +27,8 @@
27#define save_and_next(LS) (save(LS->current), next(LS)) 27#define save_and_next(LS) (save(LS->current), next(LS))
28 28
29 29
30char *reserved [] = {"and", "do", "else", "elseif", "end", "function", 30/* ORDER RESERVED */
31static char *reserved [] = {"and", "do", "else", "elseif", "end", "function",
31 "if", "local", "nil", "not", "or", "repeat", "return", "then", 32 "if", "local", "nil", "not", "or", "repeat", "return", "then",
32 "until", "while"}; 33 "until", "while"};
33 34
@@ -391,7 +392,7 @@ int luaX_lex (LexState *LS) {
391 "ambiguous syntax (decimal point x string concatenation)"); 392 "ambiguous syntax (decimal point x string concatenation)");
392 } 393 }
393 } 394 }
394 fraction: 395 fraction: /* LUA_NUMBER */
395 while (isdigit(LS->current)) 396 while (isdigit(LS->current))
396 save_and_next(LS); 397 save_and_next(LS);
397 if (toupper(LS->current) == 'E') { 398 if (toupper(LS->current) == 'E') {