Tcl转换为double不能用于大型示例

Question

我有一个字典列表，我想检索这些字典的一些值。下面是代码:

void Get_Dict_Value(Tcl_Interp *interp, Tcl_Obj *dict, const char* key, std::function<void(Tcl_Obj*)> data_handler) {
Tcl_Obj* val_ptr;
Tcl_Obj* key_ptr = Tcl_NewStringObj(key, -1);
Tcl_IncrRefCount(key_ptr);
Tcl_DictObjGet(interp, dict, key_ptr, &val_ptr);
Tcl_IncrRefCount(val_ptr);
data_handler(val_ptr);
Tcl_DecrRefCount(val_ptr);
Tcl_DecrRefCount(key_ptr);
}
void Write_Float_Dict(Tcl_Interp *interp, Tcl_Obj *dict, const char* key) {
Get_Dict_Value(interp, dict, key, [&interp](Tcl_Obj *val_ptr) {
double double_value;
Tcl_GetDoubleFromObj(interp, val_ptr, &double_value); //crashing here
std::cout << "the value: " << double_value << std::endl;
});
}

static int Dict_Test(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
const char* script = R"__(
proc my_ns::bla {} {
set my_list ""
set my_dict [dict create]
dict set my_dict my_key 123789
dict set my_dict my_key_2 456
lappend my_list $my_dict
return $my_list;
}
)__";
Tcl_Eval(interp, script);
Tcl_Eval(interp, "my_ns::bla");
Tcl_Obj* my_list = Tcl_GetObjResult(interp);
Tcl_IncrRefCount(my_list);
Tcl_Obj* my_dict;
Tcl_ListObjIndex(interp, my_list, 0, &my_dict);
Tcl_IncrRefCount(my_dict);
Write_Float_Dict(interp, my_dict, "my_key"); //prints: the value: 123789
Write_Float_Dict(interp, my_dict, "my_key_2"); //prints: the value: 456
Tcl_DecrRefCount(my_dict);
Tcl_DecrRefCount(my_list);
return TCL_OK;
}

如果我只是按原样运行示例，这将工作。但是当我尝试一个特定的大例子时，我在第一次Tcl_GetDoubleFromObj发生时就崩溃了。关于引用计数，我是不是漏掉了什么?另外，我没有找到关于Tcl_DictObjGet使用的好例子，我用对了吗?

Answer 1

您应该(嗯，必须真的)测试Tcl_DictObjGet的结果，看看它是TCL_OK还是TCL_ERROR。这是一个C API，所以它返回结果代码，而不是抛出c++异常。

void Get_Dict_Value(Tcl_Interp *interp, Tcl_Obj *dict, const char* key, std::function<void(Tcl_Obj*)> data_handler) {
Tcl_Obj* val_ptr = NULL;
Tcl_Obj* key_ptr = Tcl_NewStringObj(key, -1);
Tcl_IncrRefCount(key_ptr);
if (Tcl_DictObjGet(interp, dict, key_ptr, &val_ptr) == TCL_OK) {
Tcl_IncrRefCount(val_ptr);
data_handler(val_ptr);
Tcl_DecrRefCount(val_ptr);
}
Tcl_DecrRefCount(key_ptr);
}

(另一种选择是在Tcl_DictObjGet返回TCL_ERROR时抛出异常)

同样Tcl_GetDoubleFromObj;它使用相同的模式(但在成功时通过其out参数生成double，而不是Tcl_Obj*)。

如果字典包含引用，则不需要增加值的引用计数，但这应该没问题;做你在那里做的事情绝对是合法的(取决于你用它做什么，它可能是必要的;细节问题)。