method 和 command 函数的一点关系

最新推荐文章于 2023-03-02 08:36:05 发布

原创最新推荐文章于 2023-03-02 08:36:05 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#command #tcl #methods #class #string #struct

本文详细解析了OTcl中method绑定静态变量的过程，探讨了add_method如何与command接口交互并覆盖同名函数，揭示了OTclAddPMethod及AddMethod在实现中的作用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

http://blog.youkuaiyun.com/lzqlgq/archive/2007/05/20/1617933.aspx 已经验证了method绑定静态变量的过程，
有关command 提供给OTcl的接口函数也其它文章中有详细介绍，在此不介绍了

但是，为什么add_method 加入一个mylen就好用了呢，还在method里面实现的，这又怎么和command里的一样呢？和command定义的名字可以重名么？

首先看 add_method定义：

//tcl.cc
// *name is string of mylen ;
// 函数功能：给class_ 指向的otcl对象加入函数name,处理函数为dispatch_method，加入位置，也是otcl内的Hash表，同command解释的函数一样存入一起，只不过是处理函数不同

void TclClass::add_method(const char* name)
{
OTclAddPMethod((OTclObject*)class_, (char*)name,
(Tcl_CmdProc *) dispatch_method, (ClientData)this, 0);
// class_ 是 Otcl类型指针，初始化在 bind 里的一句
//class_ = OTclGetClass(tcl.interp(), (char*)classname_);
//获取对应绑定的otcl实例，也就是c++类AODV的映射otcl对象指针
//classname_是要注册的类名字符串
//上面的例子中classname_ 就是指向字符串“ Agent/AODV”
//dispatch_mehtod函数是回调函数
}

这里最关键的是OtclAddPMethod函数，在otcl.h/cc中
//OTclAddMethod函数功能为，
extern void
OTclAddPMethod(OTclObject* obj, char* nm, Tcl_CmdProc* proc,
        ClientData cd, Tcl_CmdDeleteProc* dp)
{
//procs是 struct OTclObject 的一个变量 Tcl_HashTable* procs,指向otcl系统哈西表入口
if (obj->procs)
     (void)RemoveMethod(obj->procs, nm, (ClientData)obj);
  //删除系统以前注册的函数关联 nm 也就是说 add_method加入的新名字可以覆盖以前注册的，method中注册的名字可以覆盖command中定义的名字
else {
     obj->procs = (Tcl_HashTable*)ckalloc(sizeof(Tcl_HashTable));
     Tcl_InitHashTable(obj->procs, TCL_STRING_KEYS);//分配？？
}
AddMethod(obj->procs, nm, proc, cd, dp, cd); //在hash表中加如函数关联
}
最后调用AddMethod方法
static void
AddMethod(Tcl_HashTable* methods, CONST84 char* nm, Tcl_CmdProc* pr,
   ClientData cd, Tcl_CmdDeleteProc* dp, ClientData dd)
{
int nw = 0;
Tcl_HashEntry *hPtr = Tcl_CreateHashEntry(methods, nm, &nw);
Tcl_CmdInfo* co = (Tcl_CmdInfo*)ckalloc(sizeof(Tcl_CmdInfo));
co->proc = pr;
co->clientData = cd;
co->deleteProc = dp;
co->deleteData = dd;
Tcl_SetHashValue(hPtr, (ClientData)co);
}
//最终指向我们定义的method函数，但是这是系统已经定义的所以我们只要定义method就可以了
static int TclClass::dispatch_method(ClientData cd, Tcl_Interp*, int ac, CONST84 char** av)
{
TclClass* tc = (TclClass*)cd;
return (tc->method(ac, (const char*const*)av));
}
//最后的结果就是我们输入命令然后ns就会检查hash表检查命令的处理函数了，无论是command 还是method加入的函数明都一样的存入到了系统的hash表，并且已经验证method可以覆盖command的同名函数