基于Critcl，如何从Tcl_Obj中恢复指针地址以复用Context？

方案1：用Critcl内置的cdata封装（最简便，推荐） #

Critcl专门提供了cdata机制处理C数据结构与Tcl对象的映射，完全避开指针转字符串/解析的繁琐和风险：

1. 注册Context结构体类型：

critcl::cdata type Context struct {
    // 填入你的Context结构体成员定义，例如：
    int id;
    char name[32];
    // ... 其他成员
}

2. 实现initContext，直接返回Context*指针，Critcl自动封装为Tcl对象：

critcl::cproc initContext {} {Context*} {
    Context* ctx = malloc(sizeof(Context));
    // 初始化Context成员，例如：
    ctx->id = 123;
    strcpy(ctx->name, "test_ctx");
    return ctx;
}

3. 实现useContext，直接接收封装后的Tcl对象，Critcl自动转回Context*指针：

critcl::cproc useContext {Context* ctx} void {
    // 直接调用showContext，注意参数是ctx（指针）而非&ctx
    showContext(ctx);
}

如果需要自定义销毁逻辑，可给cdata type添加destructor选项，Critcl会自动管理对象生命周期。

方案2：手动封装Tcl_Obj类型（灵活，适合自定义需求） #

如果需要更精细的控制，可手动为Context指针创建自定义Tcl对象类型：

1. 定义对象类型及销毁函数（避免内存泄漏）：

#include <tcl.h>
#include "your_context_header.h"

static void ContextObjDelete(Tcl_Obj *obj) {
    Context* ctx = (Context*)Tcl_GetObjInternalRep(obj);
    free(ctx); // 假设Context用malloc分配
}

static const Tcl_ObjType ContextObjType = {
    "Context",
    ContextObjDelete,
    NULL, // 无需复制逻辑时设为NULL
    NULL, // 无需字符串转换时设为NULL
    NULL  // 无需哈希逻辑时设为NULL
};

2. 在initContext中创建并返回自定义对象：

int initContextCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
    Context* ctx = malloc(sizeof(Context));
    // 初始化Context...
    
    Tcl_Obj* ctxObj = Tcl_NewObj();
    Tcl_SetObjInternalRep(ctxObj, &ContextObjType, ctx);
    Tcl_SetObjResult(interp, ctxObj);
    return TCL_OK;
}

3. 在useContext中提取指针并验证：

int useContextCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
    if (objc != 2) {
        Tcl_WrongNumArgs(interp, 1, objv, "contextObj");
        return TCL_ERROR;
    }
    
    Tcl_Obj* ctxObj = objv[1];
    if (Tcl_GetObjType(ctxObj) != &ContextObjType) {
        Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid Context object", -1));
        return TCL_ERROR;
    }
    
    Context* ctx = (Context*)Tcl_GetObjInternalRep(ctxObj);
    showContext(ctx);
    return TCL_OK;
}

方案3：字符串转指针（不推荐，仅作兼容） #

如果坚持通过十六进制字符串传递指针，可用C标准库函数解析：

int useContextCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
    if (objc != 2) {
        Tcl_WrongNumArgs(interp, 1, objv, "hexPointerString");
        return TCL_ERROR;
    }
    
    const char* hexStr = Tcl_GetString(objv[1]);
    Context* ctx;
    // 解析十六进制字符串为指针
    if (sscanf(hexStr, "%p", (void**)&ctx) != 1) {
        Tcl_SetObjResult(interp, Tcl_NewStringObj("invalid pointer format", -1));
        return TCL_ERROR;
    }
    
    // 可选：添加指针有效性验证（比如检查是否为我们分配的Context）
    showContext(ctx);
    return TCL_OK;
}

⚠️ 注意：这种方式存在安全风险，恶意输入可能导致野指针访问，仅在特殊场景下使用。

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