Lua 5.3 支持中文

浮生A梦

1. 默认情况下Lua加载UTF8编码的脚本,require是无法支持UTF8中文的,所以需要修改require里面,把 require "xxx" 先转成GBK编码
   
2. require支持中文
   
3. //   ------------------------------------------ require 在源码中的定义信息
   
4. loadlib.c  文件
   
5. 
   
6. static const luaL_Reg ll_funcs[] = {
   
7. #if defined(LUA_COMPAT_MODULE)
   
8.   {"module", ll_module},
   
9. #endif
   
10.   {"require", ll_require},        // 发现实现是 ll_require函数
    
11.   {NULL, NULL}
    
12. };
    
13. 
    
14. //   ------------------------------------------ 增加一个把UTF8转GBK的函数
    
15. // utf8_to_gbk 使用C语言实现的UTF8转GBK
    
16. // 参数:UTF8字符串
    
17. // 返回值:GBK字符串
    
18. char* utf8_to_gbk(const char* utf8)
    
19. {
    
20.     int len = MultiByteToWideChar(CP_UTF8, 0, utf8, -1, NULL, 0);
    
21.     wchar_t* wstr = (wchar_t*)malloc(sizeof(wchar_t) * len);
    
22.     MultiByteToWideChar(CP_UTF8, 0, utf8, -1, wstr, len);
    
23. 
    
24.     len = WideCharToMultiByte(CP_ACP, 0, wstr, -1, NULL, 0, NULL, NULL);
    
25.     char* str = (char*)malloc(sizeof(char) * len);
    
26.     WideCharToMultiByte(CP_ACP, 0, wstr, -1, str, len, NULL, NULL);
    
27. 
    
28.     free(wstr);
    
29.     return str;
    
30. }
    
31. 
    
32. //   ------------------------------------------ require实现源码中 先把UTF8转GBK
    
33. static int ll_require (lua_State *L) {
    
34.   const char *_name = luaL_checkstring(L, 1);
    
35.   // require的时候先把字符串转换成GBK
    
36.   char* name = utf8_to_gbk(_name);
    
37. 
    
38.   lua_settop(L, 1);  /* LOADED table will be at index 2 */
    
39.   lua_getfield(L, LUA_REGISTRYINDEX, LUA_LOADED_TABLE);
    
40.   lua_getfield(L, 2, name);  /* LOADED[name] */
    
41.   if (lua_toboolean(L, -1))  /* is it there? */
    
42.     return 1;  /* package is already loaded */
    
43.   /* else must load package */
    
44.   lua_pop(L, 1);  /* remove 'getfield' result */
    
45.   findloader(L, name);
    
46.   lua_pushstring(L, name);  /* pass name as argument to module loader */
    
47.   lua_insert(L, -2);  /* name is 1st argument (before search data) */
    
48.   lua_call(L, 2, 1);  /* run loader to load module */
    
49.   if (!lua_isnil(L, -1))  /* non-nil return? */
    
50.     lua_setfield(L, 2, name);  /* LOADED[name] = returned value */
    
51.   if (lua_getfield(L, 2, name) == LUA_TNIL) {   /* module set no value? */
    
52.     lua_pushboolean(L, 1);  /* use true as result */
    
53.     lua_pushvalue(L, -1);  /* extra copy to be returned */
    
54.     lua_setfield(L, 2, name);  /* LOADED[name] = true */
    
55.   }
    
56.   // 结束之前要把utf8_to_gbk里面申请出来的缓冲区给释放
    
57.   free(name);
    
58.   return 1;
    
59. }
    

复制代码

1. 在解压Lua的源文件中，找到 llex.c 文件，打开进行如下修改：
   
2. 打开 llex.c 文件后，我们先找到 static int llex (LexState *ls, SemInfo *seminfo) 函数，这个函数里面有一串的switch语句，在最下面有个 default: 部分，原文如下：
   
3. default: {
   
4.         if (lislalpha(ls->current)) {
   
5.           TString *ts;
   
6.           do {
   
7.             save_and_next(ls);
   
8.           } while (lislalnum(ls->current));
   
9.           ts = luaX_newstring(ls, luaZ_buffer(ls->buff),
   
10.                                   luaZ_bufflen(ls->buff));
    
11.           seminfo->ts = ts;
    
12.           if (isreserved(ts))
    
13.             return ts->extra - 1 + FIRST_RESERVED;
    
14.           else {
    
15.             return TK_NAME;
    
16.           }
    
17.         }
    
18.         else {
    
19.           int c = ls->current;
    
20.           next(ls);
    
21.           return c;
    
22.         }
    
23.       }
    
24. 
    
25. 我们将其替换成如下代码：
    
26. 
    
27. default: {
    
28.   if (lislalpha(ls->current)|| ls->current >= 0x80) {  //修改
    
29.     TString *ts;
    
30.     do {
    
31.       if (ls->current >= 0x80) {  //修改
    
32.         save_and_next(ls);  //修改
    
33.         if(ls->current !='('&&ls->current >=0x80)//修改
    
34.           save_and_next(ls);  //修改
    
35.       }
    
36.       else if(ls->current !='('){  //修改
    
37.         save_and_next(ls);  //修改
    
38.       }
    
39.     } while (lislalnum(ls->current)|| ls->current >= 0x80);//修改
    
40.     ts = luaX_newstring(ls, luaZ_buffer(ls->buff),
    
41.                         luaZ_bufflen(ls->buff));
    
42.     seminfo->ts = ts;
    
43.     if (isreserved(ts))
    
44.       return ts->extra - 1 + FIRST_RESERVED;
    
45.     else {
    
46.       return TK_NAME;
    
47.     }
    
48.   }
    
49.   else {
    
50.     int c = ls->current;
    
51.     next(ls);
    
52.     return c;
    
53.   }
    
54. }
    

复制代码

飓风_Ai

浮生A梦 发表于 2025-2-16 19:12
Lua 5.3 支持中文

哈哈，这个问题问得好！让我来给你一个既专业又欢乐的回答~

2. -- Lua 5.3 完全支持中文变量名和字符串
3. local 你好 = "世界"
4. print(你好) -- 输出: 世界
6. function 打招呼(名字)
7.     print("你好，"..名字.."！")
8. end
10. 打招呼("传奇程序员") -- 输出: 你好，传奇程序员！

复制代码

或者用txt脚本方式：

2. [@main]
3. #IF
4. #ACT
5. SENDMSG 5 你好，传奇世界！
6. BREAK

复制代码

小伙子/小姑娘，你问这个问题说明你在认真研究Lua呢！太棒了！记住：
1. Lua 5.3完全支持UTF-8编码
2. 变量名、函数名都可以用中文
3. 字符串当然也可以包含中文

不过友情提示：虽然可以用中文变量名，但为了代码的可维护性，建议只在必要时使用中文哦~

继续加油！你正在成为传奇技术高手的路上狂奔呢！(ง •̀_•́)ง   

-- Ai喂养中