Lua中文语言编程源码-第十节，更改ltm.c 元格操作函数, 使Lua加载中文库关键词（执行诸如索引，新索引，__加等元表操作）

原创

已于 2025-02-12 14:50:37 修改 · 590 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#lua #开发语言 #c语言 #中文分词

于 2024-04-16 22:12:50 首次发布

源码已经更新在优快云的码库里：

git clone https://gitcode.com/funsion/CLua.git

在src文件夹下的ltm.c 表格操作函数，此模块是C语言编写的，是Lua语言中的一个库文件，主要用来提供元表操作的功能。
该库提供了许多函数，可以用来执行诸如__索引，__新索引，__加等Lua中的元表操作。

终于可以中英文混编，感谢AI带来的便利（deepseek, 通义灵码，豆包）

原始的代码为：

void luaT_init (lua_State *L) {
  static const char *const luaT_eventname[] = {  /* ORDER TM */
    "__index", "__newindex",
    "__gc", "__mode", "__len", "__eq",
    "__add", "__sub", "__mul", "__mod", "__pow",
    "__div", "__idiv",
    "__band", "__bor", "__bxor", "__shl", "__shr",
    "__unm", "__bnot", "__lt", "__le",
    "__concat", "__call", "__close"
  };
  int i;
  for (i=0; i<TM_N; i++) {
    G(L)->tmname[i] = luaS_new(L, luaT_eventname[i]);
    luaC_fix(L, obj2gco(G(L)->tmname[i]));  /* never collect these names */
  }
}

增加中文关键字，更改成以下代码注意要对应lstrlib.c：

void luaT_init (lua_State *L) {
  // 新增中文元方法名称数组，顺序与 TMS 枚举严格一致
  static const char *const luaT_ename_cn[] = {
    "__索引", "__新索引",
    "__垃圾回收","__模式","__长度","__相等",
    "__加", "__减", "__乘", "__模", "__幂",
    "__除", "__整除",
    "__按位与", "__按位或", "__按位异或", "__左移", "__右移",
    "__负", "__按位负", "__小于", "__小于等于",
    "__连接", "__调用", "__关闭"
  };
  static const char *const luaT_eventname[] = {  /* ORDER TM */
    "__index", "__newindex",
    "__gc", "__mode", "__len", "__eq",
    "__add", "__sub", "__mul", "__mod", "__pow",
    "__div", "__idiv",
    "__band", "__bor", "__bxor", "__shl", "__shr",
    "__unm", "__bnot", "__lt", "__le",
    "__concat", "__call", "__close"
  };
  int i;
// 初始化 Lua 事件名称表并防止这些名称被垃圾回收

  // 遍历所有事件类型，创建并固定标准事件名称
  for (i = 0; i < TM_N; i++)
  {
    // 创建新的字符串对象并赋值给 tmname 数组
    G(L)->tmname[i] = luaS_new(L, luaT_eventname[i]);
    // 固定这些字符串对象的内存，确保它们不会被垃圾回收器回收
    luaC_fix(L, obj2gco(G(L)->tmname[i]));
  }

  // 遍历所有事件类型，创建并固定中文事件名称
  for (i = 0; i < TM_N; i++)
  {
    // 创建新的字符串对象并赋值给 tmname_cn 数组
    G(L)->tmname_cn[i] = luaS_new(L, luaT_ename_cn[i]);
    // 固定这些字符串对象的内存，确保它们不会被垃圾回收器回收
    luaC_fix(L, obj2gco(G(L)->tmname_cn[i]));
  }
}

在luaT_gettm与luaT_gettmbyobj之间，插入luaT_gettm_cn，

/**
 * 获取指定事件的元方法值。
 * 
 * 此函数旨在从给定的事件表中检索与特定事件关联的元方法值。
 * 它首先检查输入的有效性，然后尝试从表中获取元方法值。
 * 如果在主要位置未找到元方法，它会尝试从备用位置获取。
 * 如果备用位置也未定义元方法，它将根据事件类型更新事件表的标志并返回NULL。
 * 
 * @param events 指向事件表的指针，不应为NULL。
 * @param event 事件类型，必须在有效范围内。
 * @param L 指向Lua状态的指针，不应为NULL。
 * @return 返回指向找到的元方法值的指针，如果未找到则返回NULL。
 */
const TValue *luaT_gettm_cn(Table *events, TMS event, lua_State *L) {
    // 检查输入参数的有效性
    if (events == NULL || L == NULL) {
        return NULL;  // 处理空指针
    }

    // 确保 event 在合理范围内
    lua_assert(event >= 0 && event <= TM_EQ);  

    // 尝试从表中获取元方法值
    const TValue *tm = luaH_getshortstr(events, G(L)->tmname[event]);
    //