TCL面向对象设计模式

TCL面向对象设计模式TCL面向对象设计模式•设计模式描述和解决了在软件开发与设计过程中反复发生和遇到的问题。各种版本的设计模式文献层出不穷，很多被誉为经典之作，可见设计模式对于软件开发的重要性。不过目前大部分的的设计模式文档都是以C++,Java等作为示例代码，而目前我们的自动化测试平台也在进行00面向对象的改造，在此分享一些IncrTcl实现的模式。成员对象•一个常见问题是怎样实现一个成员对象，或者简单地说就是某个成员变量是另一个对象。解决办法就是让一个成员变量拥有另一个对象的引用，然后在构造函数和析构函数里创建和删除它。例如，对象B拥有一个对象Aitcl::classA(methodprint(}(puts"HellofromA.MynameisStlus.n}}itcl::classB(variableaconstructor(}(seta[A#auto]} #B的构造函数创建A对象的一个实例引用destmctor(itcl::deleteobjectSa}methodprint(}(Sapiiiit}}Bb_instanceBc_iiistaiiceb_iiistanceprmtc_iiistanceprint运行结果：HellofromA.Mynameis::B::aO.HellofromA.Mynameis::B::al.•在这个例子中还有个小tip,就是对于#3也的用法。在tCl的帮助文档是这么解释的:IfobjNamecontainsthestring”#auto”，thatstringisreplacedwithanautomaticallygeneratedname.NameshavetheformdassName<number>.wheretheclassNamepartismodifiedtostartwithalowercaseletter对象组合•尽管创建一个成员对象很容易，但是要在IncrTel里引用成员对象的变量和方法则可能很麻烦。并旦不断有关于继承是否已经陈旧过时，或者应该有更合适的开发模式的讨论。终于产生了一种可替换和避免使用继承的模式出现，对象组合。itcl::classuser(publicvaiiableuseniame}itcl::classsession(variabletliisuservariablethatuserconstructor(}{setthisuser[usertliisuser]setthatuser[usertliatuser]}methodosend(itemcmd)(setobs[itcl::findobjects]setitem[stringtnnileftSitemH-n]setpos[Iseaich-exactSobsSitem]if($pos>=0)(return[eval[luidexSobs$pos]Scmd]}sessionaaosend-thisuser{configure-usernameFied}puts[aosend-tliisuser(cget-username}]运行结果：Fred•confgiure和cget是IncrTcl的内置方法，用来对public变量进行存取配置.抽象工厂•抽象工厂是设计模式里一种经典的模式，下面的IncrTcl实现示例说明抽象类和纯虚方法的使用。一个抽象类不能够被实例化，仅有子类的实例对象可以被创建。纯虚函数在父类里没有定义，而是放在子类里实现。itcl::classFactoiy{constiuctor(}(#确保抽象类不被实例化.if([namespacetail[infoclass]]="Factory”}(errorHError:can'tcreateFactoryobjects-abstractclass/1)#验证是否在子类里定义了status方法if([Stliisinfofunctionstatus-body]== {errorHError:method'status*undefined.")}protectedmethodstatus(}()}%Factory#autoError:can*tcreateFactoiyobjects-abstractclass.%itcl::classWidgetFactory{iiilieritFactoiy)%WidgetFactoiy弁autoError:method'status'undefined.%itcl::classMyFactoiy{iiilieritFactorymethodstatus(}(putsMyFactoiy::status}}%MyFactoiy#automyFactoiyO工厂方法•在IncrTel里，工厂方法实现了在父类的名词空间里创建对象的方式。在下面这个工厂方法的例子里，尽管你想要在方法被调用的名词空间里创建新的对象，尽管通常情况下是在全局名词空间内，但也有可■能是其它任何地方，所以我们使用uplevel命令确保在方法被调用的名词空间内创建对象。并且使用namespacewhich获得该对象可以传递到其它任何名词空间的对象名字。itcl::classProduct{publicvariablesomeliiterestingStuff}itcl::classCreator(methodcreateProduct(}{return[uplevel(namespacewhich[Product#auto]}]})单一模式itcl::classSingleton(privatecommon_instance(}#staticinstancevariable#定义静态方法实例#procInstance(}(if{$_instance=={})(set_instance[Smgleton::#auto])returnSJnstance}constiuctor(}(setcaller[infolevel[expr[infolevel]-1]]if![stringmatchnSmgleton::IiistanceHScalier]{error"ClassSmgletoncannotbeduectlyinstantiated-useInstance")}}sets[Singleton:distance]简单单一模式itcl::classSmgleton(privatecommon_instance{};#staticinstancevaiiableconstiuctor(}(if{$_mstaiice=={})(set^instanceonlyone}else{erior"ClassSingletonaheadyinstantiated")}}puts[Smgletonfbo]puts[Smgletonbar]fboClassSingletonaheadyinstantiatedwhileexecutmgMenor"ClassSingletonaheadyinstantiated""whileconstiuctmgobjectM::barnin::Singleton::constnictor(bodyIme5)抽象方法•在公共的父类里抽象大部分的方法是种比较安全行为，这样继承的子类里，代码就可以自动小心翼翼地重写抽象方法。这种模式对那些有很多类，但只想使用同一个方法接「1的设计相当有用procabstract(metliodnameaiguments)(if(Smethod!="method”}{errorHOnlymethodscanbeabstract!M)uplevelnmethod[listSname][listSarguments](errorX^Snainemetliodhastobeuuplementedforclass\[strmgtriinleft\[\$tliisiiifbclass]:]\H))itcl::cla