ns-2中Tcl語言中類的使用

Class mom
mom instproc greet {} {  ;#注意greet後面的空格然後纔是{} ,一定注意要有空格
$self instvar age_
puts "$age_ year old mom say:
How are you doing?"
}


Class kid -superclass mom
kid instproc greet {} {
$self instvar age_
puts "$age_ year old kid say:
what's up, dude?"
}


mom a    ;#類的聲明 就這樣寫 不要寫成set a [new mom]
a set age_ 45   ;#賦值age_
kid b
b set age_ 15


a greet  ;#調用greet函數

b greet

結果運行如下

45 year old mom say:
How are you doing?
15 year old kid say:
what's up, dude?