摘要:
=>puts $bufferdcs.rootDir=/blct/dcs=>set firstEqual [string first = $buffer]11set name [string range $buffer 0 [expr $firstEqual -1] ]set value [string range $buffer [expr $firstEqual +1] end] 阅读全文
摘要:
class sampleconf { # a sample class with a single public variable public method setpulicv; public variable publicvab ;# this var is adjusted using the configure -publicv... constructor {} { } } body sampleconf::setpulicv { cn } { set publicvab $cn; puts $publicvab; } # add a configbody for publicv . 阅读全文