最近在倒騰 Lua 指令碼引擎。Lua 現在廣泛用於各種遊戲、PSP中，速度極快，與 C++ 宿主程式碼“相處”能力強，還有第三方增強工程如 LuaPlus， LuaBind 等的支援，筆者正是在使用 LuaPlus 這個不錯的 Lua C++ 封裝，內建 Lua 5.1 引擎。Lua 本身不能支援中文變數名或函式名，作為想盡善盡美的支援指令碼的軟體來說，當然不爽啦。從網上搜到了一些程式碼，能夠修改老版本的 Lua 核心使得 Lua 支援中文變數名，如：價格=45 之類，但 Lua 5.1 的核心程式碼已經略有不同了。當然只要稍微作些改動，就能讓 Lua 5.1 乖乖的也認識起中文變數名、函式名來。以 LuaPlus 為例（Visual Studio 2005 IDE環境下）：1. 找到 LuaPlus 工程下的 Lua Source Files 下的 llex.c；2. 在該檔案中找到下面所列函式；

1. staticint llex (LexState *ls, SemInfo *seminfo)

3. 這是 Lua 的語法分析模組的關鍵函式，它由一長段 switch 構成，在一串 case 後找到 default 分支
4. 在該分支下找到如下程式碼段，這是一段完整的 if 分支，該程式碼段負責將符合條件的字元組合識別為 identifier （函式名或變數名）或 keyword （關鍵字）

1. else
   if (isalpha(ls->current) || ls->current == '_') {
2. /* identifier or reserved word */
3.           TString *ts;
4. if (ls->current == 'L') {
5.             next(ls);
6. if (ls->current == '"' || ls->current == '/'') {
7.               read_wstring(ls, ls->current, seminfo);
8. return TK_WSTRING;
9.             }
10.             save(ls, 
    'L');
11.           }
12. /* identifier or reserved word */
13. do {
14.             save_and_next(ls);
15.           } while (isalnum(ls->current) || ls->current == '_');
16.           ts = luaX_newstring(ls, luaZ_buffer(ls->buff),
17.                                   luaZ_bufflen(ls->buff));
18. if (ts->tsv.reserved > 0)  
    /* reserved word? */
19. return ts->tsv.reserved - 1 + FIRST_RESERVED;
20. else {
21.             seminfo->ts = ts;
22. return TK_NAME;
23.           }
24.         }

5. 將該段替換為下面這一段即可，其作用在於加入了對中文ASCII字元的識別

1. elseif (isalpha(ls->current) || ls->current == '_' || ls->current > 0x80) {
2. /* identifier or reserved word */
3.           TString *ts;
4. if (ls->current == 'L') {
5.             next(ls);
6. if (ls->current == '"' || ls->current == '/'') {
7.               read_wstring(ls, ls->current, seminfo);
8. return TK_WSTRING;
9.             }
10.             save(ls, 'L');
11.           }
12. /* identifier or reserved word */
13. do {
14. if(ls->current > 0x80)
15.               {
16.                  save_and_next(ls);
17.                  save_and_next(ls);
18.               }
19. else
20.                  save_and_next(ls);
21.           } while (isalnum(ls->current) || ls->current == '_' || ls->current > 0x80);
22.           ts = luaX_newstring(ls, luaZ_buffer(ls->buff),
23.                                   luaZ_bufflen(ls->buff));
24. if (ts->tsv.reserved > 0)  /* reserved word? */
25. return ts->tsv.reserved - 1 + FIRST_RESERVED;
26. else {
27.             seminfo->ts = ts;
28. return TK_NAME;
29.           }
30.         }