ns-2中Tcl語言中類的使用<3>

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?