如何在启用Stubs的Tcl扩展中正确使用tommath？

核心问题：Stubs扩展中mp_int的标准操作方式 #

创建mp_int并生成Tcl大数值对象 #

• 必须使用Tcl通过Stubs暴露的libtommath包装函数，不能直接调用原始libtommath API，否则会出现符号未定义或版本冲突：

  1. 用Tcl_MpInit初始化mp_int，替代原始的mp_init；
  2. 执行算术操作时，使用tclTomMath.h中声明的包装函数，比如Tcl_MpAdd、Tcl_MpSub、Tcl_MpMul等；
  3. 调用Tcl_NewBignumObj生成Tcl对象后，用Tcl_MpClear释放mp_int避免内存泄漏。

  示例代码：

  mp_int num1, num2, result;
  Tcl_MpInit(&num1);
  Tcl_MpInit(&num2);
  Tcl_MpInit(&result);
  
  // 假设已给num1、num2赋值，执行加法
  int err = Tcl_MpAdd(&num1, &num2, &result);
  if (err != MP_OKAY) {
      // 错误处理逻辑
      Tcl_MpClear(&num1);
      Tcl_MpClear(&num2);
      Tcl_MpClear(&result);
      return TCL_ERROR;
  }
  
  Tcl_Obj *bignumObj = Tcl_NewBignumObj(&result);
  // 清理资源
  Tcl_MpClear(&num1);
  Tcl_MpClear(&num2);
  Tcl_MpClear(&result);
  

处理mp_error_to_string未暴露的问题 #

mp_error_to_string不在Tcl Stubs的暴露范围内，无法直接调用。只能根据返回的错误码（如MP_MEM、MP_VAL等）手动映射通用错误信息：

int err = Tcl_MpSomeOperation(...);
if (err != MP_OKAY) {
    const char *errMsg;
    switch(err) {
        case MP_MEM: errMsg = "内存分配失败"; break;
        case MP_VAL: errMsg = "无效输入值"; break;
        default: errMsg = "未知算术错误"; break;
    }
    Tcl_SetObjResult(interp, Tcl_NewStringObj(errMsg, -1));
    return TCL_ERROR;
}

绝对不要链接外部libtommath，否则会与Tcl自带版本冲突，引发兼容性问题。

额外问题：可移植加载-2^64到mp_int #

-1-(2**64-1)等价于-2^64，可通过以下步骤实现：

1. 初始化mp_int变量；
2. 用Tcl_MpSet_u64写入UINT64_MAX（即2^64-1）；
3. 加1得到2^64；
4. 取负数得到目标值。

示例代码：

mp_int val;
mp_int one;
Tcl_MpInit(&val);
Tcl_MpInit(&one);

Tcl_MpSet_u64(&val, UINT64_MAX); // 加载2^64-1
Tcl_MpSet_u64(&one, 1);
Tcl_MpAdd(&val, &one, &val); // val = 2^64
Tcl_MpNeg(&val, &val); // val = -2^64

// 使用val进行后续操作...

// 清理资源
Tcl_MpClear(&val);
Tcl_MpClear(&one);

编译提示：Tcl 8.7安装时未自动安装tclTomMath.h，可在编译时通过-I参数指定Tcl源码的generic目录，无需手动复制头文件，避免版本不一致问题。

内容的提问来源于stack exchange，提问作者Cyan Ogilvie