GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-02-04 06:13:04 +08:00
Code Issues Projects Releases Wiki Activity

global variables (in $if) may have '_'.

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1997-04-14 12:30:29 -03:00
parent d73c5bcfe7
commit 64d93e7cf9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lex.c
View File

@ -1,4 +1,4 @@
char *rcs_lex = "$Id: lex.c,v 2.46 1997/04/07 14:48:53 roberto Exp roberto $"; char *rcs_lex = "$Id: lex.c,v 3.1 1997/04/12 15:01:49 roberto Exp roberto $";
#include <ctype.h> #include <ctype.h>
@ -121,7 +121,7 @@ static int checkcond (char *buff)
return 0; return 0;
else if (strcmp(buff, "1") == 0) else if (strcmp(buff, "1") == 0)
return 1; return 1;
else if (isalpha((unsigned char)buff[0])) else if (isalpha((unsigned char)buff[0]) || buff[0] == '_')
return luaI_globaldefined(buff); return luaI_globaldefined(buff);
else { else {
luaI_auxsynterrbf("invalid $if condition", buff); luaI_auxsynterrbf("invalid $if condition", buff);
@ -134,7 +134,7 @@ static void readname (char *buff)
{ {
int i = 0; int i = 0;
skipspace(); skipspace();
while (isalnum((unsigned char)current)) { while (isalnum((unsigned char)current) || current == '_') {
if (i >= PRAGMASIZE) { if (i >= PRAGMASIZE) {
buff[PRAGMASIZE] = 0; buff[PRAGMASIZE] = 0;
luaI_auxsynterrbf("pragma too long", buff); luaI_auxsynterrbf("pragma too long", buff);