Otcl语法总结.docVIP

Otcl语法总结 以下主要是在网上下载的高手总结的基础上，添加了一点自己的补充。 Otcl称为Object Tcl，它是在Tcl的基础上做了一个面向对象的封装，是一种面向对象的脚本语言。在Tcl中引入面向对象的机制，使得Tcl功能更加强大和方便使用。在Otcl中，支持继承、封装和多态性等面向对象的概念，这点与C++，smallTalk等面向对象的语言类似，但编程的风格跟C++有很大的不同，这可能使C++程序员最开始感到并不习惯。 1、 类的定义 类的定义和创建一个实例： %Class Fruits ; #创建一个类 =Fruits %Fruits fruit ; #创建一个对象的实例 =fruit %fruit info class ; #查看实例属于哪一个类 =Fruits %Fruits info instances ; #查看对象拥有实例 =fruit 关键字Class用来创建一个OTcl对象。如果想定义一个类实例，则在对象名后面加实例变量名。 info命令可以单看类与对象之间的从属关系。 2、 构造函数与析构函数 OTcl同样提供构造函数和析构函数，使类对象能够轻巧地被创建和撤销。构造函数的主要功能是创建类对象，初始化其成员变量，析构函数撤销对象。在OTcl中，析构函数名并不需要同类名相同，一般通过调用init过程来实现类的构造函数，调用的destory过程完成类的析构。 Safety instproc init {} { ; #构造函数 $self next ; #显式调用父类的构造函数 $self set count 0 } Safety instproc destroy {} { ; #析构函数 $self next } 在OTcl中，构造函数和析构函数不会自动调用父类的构造函数，必须显式调用父类的构造函数和析构函数。上例中命令$self next就是显式调用父类的构造函数，所以$self next就调用父类的构造函数。同理，析构函数工作过程也是这样。 3、 成员函数和成员函数的定义 在OTcl中，成员变量比不需要事先定义，因此在成员函数需要使用它的时候，就可以在函数体内定义。定义成员变量使用关键字instvar。在所有的成员函数中要使用已经声明了的成员变量必须使用instvar来重新声明，否则变量只是当作函数内局部变量。成员函数所有的成员变量都是基于public的。在OTcl中，采用关键字instproc来定义一个成员函数，成员函数的定义和参数的定义与Tcl中相同，只需要在前面指定类名表示这个成员函数属于哪一个类。所有成员函数也是基于public的。 %Fruits instproc init {args} { $self set instvar color 0 ;#初始化成员变量为0 eval $self next $args } 上例中，定义了类Fruits的一个init成员函数，变量$self表示对象本身，有点像C++中的this指针。next是指父类的同名方法，类似于C++中的函数覆盖。 %Fruits instproc show_color {} { set color green puts “the color of fruit is $color” } %Fruits fruit %fruit set color ; #查看成员变量color的值 =0 %fruit show_color ; #调用Fruits的show_color方法 the color of fruit is green %fruit set color =0 ; #仍然是0，因为在show_color中定义的color只#是局部变量。在类的成员函数中也可以使用局部变量，作用域仅仅在成员函数中。 4、 继承 在OTcl中所有成员函数和成员变量都是基于public属性的，这点并不像C++等面向对象的程序设计语言的多重属性机制，减小了编程的难度。子类的对象可以继承和使用基类的所有成员函数和方法，在OTcl中，关键字superclass表示类的继承。 %Class Fruits ; #定义父类Fruits Fruits instproc grow {} { $self in