时间戳

首页 > 解决方案 > 从 Tcl_HashTable 检索对象以销毁对象的问题

c - 从 Tcl_HashTable 检索对象以销毁对象的问题

问题描述

我正在尝试使用 Tcl C api 创建我的 C 元素的哈希表并将它们链接到某个字符串（键是字符串，值是指向我的 C 对象的指针）。
我的问题是，当我想为我的对象创建销毁函数时，此销毁函数获取 clientData，它是可以转换为我的对象类型的指针，但我无法使用此指针在哈希表中找到该对象（因为键是字符串）。
我该如何解决这个问题？Tcl_linkvar 在这种情况下是否有用？

我将提供一些我写的代码：

Tcl_InitHashTable(hash_table,TCL_STRING_KEYS);
...
int addMyObj(My_Obj * _obj , const char* _obj_name) {

    Tcl_HashEntry * _new_entry;
    int newptr;
    if (_obj == NULL || strlen(_obj_name) == 0) return TCL_ERROR;
    char * _name = (char *) malloc (strlen(_obj_name));
    if (_name == NULL) return TCL_ERROR;
    _new_entry=Tcl_CreateHashEntry(hash_table,_name,&newptr);
    if (newptr == 0) {
        printf("Error: obj with name %s already exists\n",_obj_name);
        return TCL_ERROR;
    }
    Tcl_SetHashValue(_new_entry,_obj);
    return TCL_OK;
}

void removeMyObj(const char * _obj_name) {
    Tcl_HashEntry * _entry;
    _entry = Tcl_FindHashEntry(hash_table,_obj_name);
    // entry was found
    if (_entry != NULL) {
        My_Obj * _my_obj = (My_Obj * ) Tcl_GetHashValue(_entry);
        Tcl_DeleteHashEntry(_entry);
        delete _my_obj;
    }
    return;
}

My_Obj * getMyObj(const char * _obj_name) {
    Tcl_HashEntry * _entry;
    _entry = Tcl_FindHashEntry(hash_table,_obj_name);
    // entry was found
    if (_entry != NULL) {
        My_Obj * _my_obj = (My_Obj * ) Tcl_GetHashValue(_entry);
        return _my_obj;
    }
    return NULL;
}

// The problem is that in this function I should remove the object from hash table and delete it afterwards.


extern "C" void My_Obj_destroy(ClientData clientData) {

    if (clientData != NULL) {
        My_Obj * _my_obj = (My_Obj *) clientData;
        removeMyObj(_my_obj); // should be removed from the hash table but it is receiving pointer to my_obj and not it's name
        delete _my_obj ;
        _my_obj = NULL;
    }
    return;
}

谢谢你

标签： capitcl

解决方案

有两种方法可以处理这个问题：

  1. 在对象中保留对象名称的副本。
  2. Tcl_HashEntry当您在哈希表中为对象命名时，请保留指向 created 的指针。（它只是一个指针，但它保证从创建到被删除都是有效的。）

在您的情况下，最好保留它Tcl_HashEntry *- 它是返回Tcl_CreateHashEntry()或查找的值Tcl_FindHashEntry()- 以便您可以轻松删除。唯一棘手的一点是，这意味着您必须确保小心删除顺序，这意味着当您试图删除整个哈希表时要小心。

推荐阅读