修改 Lua支持中文变量名

1. 找到 LuaPlus 工程下的 Lua Source Files 下的 llex.c；

 

2. 在该文件中找到下面所列函数；

static int llex (LexState *ls, SemInfo *seminfo)

3. 这是 Lua 的语法分析模块的关键函数，它由一长段 switch 构成，在一串 case 后找到 default 分支

 

4. 在该分支下找到如下代码段，这是一段完整的 if 分支，该代码段负责将符合条件的字符组合识别为 identifier （函数名或变量名）或 keyword （关键字）

else if (isalpha(ls->current) || ls->current == '_') {
.          /* identifier or reserved word */
.          TString *ts;
.          if (ls->current == 'L') {
.            next(ls);
.            if (ls->current == '"' || ls->current == '/'') {
.              read_wstring(ls, ls->current, seminfo);
.              return TK_WSTRING;
.            }
.            save(ls, 'L');
.          }
.          /* identifier or reserved word */
.          do {
.            save_and_next(ls);
.          } while (isalnum(ls->current) || ls->current == '_');
.          ts = luaX_newstring(ls, luaZ_buffer(ls->buff),
.                                  luaZ_bufflen(ls->buff));
.          if (ts->tsv.reserved > )  /* reserved word? */
.            return ts->tsv.reserved -  + FIRST_RESERVED;
.          else {
.            seminfo->ts = ts;
.            return TK_NAME;
.          }
.        }

5. 将该段替换为下面这一段即可，其作用在于加入了对中文ASCII字符的识别

else if (isalpha(ls->current) || ls->current == '_' || ls->current > 0x80) {
.          /* identifier or reserved word */
.          TString *ts;
.          if (ls->current == 'L') {
.            next(ls);
.            if (ls->current == '"' || ls->current == '/'') {
.              read_wstring(ls, ls->current, seminfo);
.              return TK_WSTRING;
.            }
.            save(ls, 'L');
.          }
.          /* identifier or reserved word */
.          do {
.              if(ls->current > 0x80)
.              {
.                 save_and_next(ls);
.                 save_and_next(ls);
.              }
.              else
.                 save_and_next(ls);
.          } while (isalnum(ls->current) || ls->current == '_' || ls->current > 0x80);
.          ts = luaX_newstring(ls, luaZ_buffer(ls->buff),
.                                  luaZ_bufflen(ls->buff));
.          if (ts->tsv.reserved > )  /* reserved word? */
.            return ts->tsv.reserved -  + FIRST_RESERVED;
.          else {
.            seminfo->ts = ts;
.            return TK_NAME;
.          }
.        }