Tcl编程简介（六）

Tcl编程简介（六）
9PkPIQ$s rV`0Q0 　

Tcl 名字空间51Testing软件测试网yj O
j#@^

namespace
ZPt@{.G&?0

　　创建和操纵命令和变量的上下文(content)。51Testing软件测试网9D SiV-|p7w t+T f;O

简介：51Testing软件测试网?HOIl-H[(oZ!X

*c)Q2_t!{6|m0　　一个名字空间是一个命令和变量的集合，通过名字空间的封装来保证他们不会影响其它名字空间的变量和命令。 Tcl 总是维护了一个全局名字空间 global namespace 包含了所有的全局变量和命令。

　　namespace eval允许你创建一个新的namespace。51Testing软件测试网HUkI)wk,U

X
tHE4W'b rl0　　例如：

51Testing软件测试网1q@#U^?$W{q
namespace eval Counter {
7stE:[%]E^0 namespace export Bump 51Testing软件测试网V#n+p9V[jg
variable num 0 51Testing软件测试网x9gpME$^

e v_Tq0proc Bump {} {
:B2U3Y,RG2{0 variable num//声明局部变量
qz6~%o%m8I)NT0 incr num 51Testing软件测试网
]oady'rR
} 51Testing软件测试网uB0rMD*W3]0F
} 51Testing软件测试网}(KVi-[t?

　　名字空间是动态的，可变的。51Testing软件测试网Q3^%O!qz/[%k

4s|%u8^8D ?+N0　　例如：

U0YN7kP051Testing软件测试网"nC`*ND7{.b
namespace eval Counter {
]6n(fGbj^ Wce0 variable num 0//初始化
t6R9W*kg? y)^.Q0 proc Bump {} {
:Wp
W2u&\+O0 variable num
%O8~)AE
C w0 return [incr num]
)L'l_:@bm[0xf0 }
.M1gJM
m0 }

//添加了一个过程
%MM
R:b0].gr/d0 namespace eval Counter {
9n aU H]G}0 proc test {args} { 51Testing软件测试网8}$C_$@"w]4|.D![[;@
return $args
-M:Tc:e1t~&X3P(X0 } 51Testing软件测试网%_*`1_,usa'F8E
}

+G2\ru,F m1fq0//删除test
"UZs:K#V/jtx0 namespace eval Counter {
'W2UmqV5w0 rename test ""
5g,ZP*{C"D{\9q/Tl0 } 51Testing软件测试网vb1p Q5`\e

4Y-^PdTcq9_ _O0

　　引用：51Testing软件测试网8ohcB;[.S!iUKA

0lzVC\w~U0 set Counter::num
'F)HD6L'jG0g:f{D0 //return 0

$E.Lz'o4Ev\~fx0　　也可以用下面的方式添加：

?u ^.T"|oQO/m"h0proc Foo::Test {args} {return $args} 51Testing软件测试网:ZMWH,d(L6?N5ide
51Testing软件测试网lq w%]jRK

　　或在名字空间中移动：

rename Foo::Test Bar::Test51Testing软件测试网
P;Y4qD?r

t-wPrDK9y0