名称空间是一个容器组标识符,用于组变量和程序。命名空间可从Tcl
8.0版开始使用。引入命名空间之前,有一个全局范围。现在有了命名空间,我们可以分区全局范围。
创建命名空间
使用命名空间命令创建命名空间。一个简单的例子,创建命名空间如下图所示
#!/usr/bin/tclsh
namespace eval MyMath { # Create a variable inside the namespace variable myResult }
# Create procedures inside the namespace proc MyMath::Add {a b } { set ::MyMath::myResult [expr $a + $b] } MyMath::Add 10 23
puts $::MyMath::myResult |
当执行上面的代码,产生以下结果:
在上面的程序,可以看到有一个变量myResult和程序Add的一个命名空间。这使得创建变量和程序可根据相同的名称在不同的命名空间。
嵌套的命名空间
TCL允许命名空间的嵌套。一个简单的例子,嵌套的命名空间如下。
#!/usr/bin/tclsh
namespace eval MyMath { # Create a variable inside the namespace variable myResult }
namespace eval extendedMath { # Create a variable inside the namespace namespace eval MyMath { # Create a variable inside the namespace variable myResult } } set ::MyMath::myResult "test1" puts $::MyMath::myResult set ::extendedMath::MyMath::myResult "test2" puts $::extendedMath::MyMath::myResult |
当执行上面的代码,产生以下结果:
导入和导出空间
可以在前面的例子命名空间看到,我们使用了大量的作用范围解决运算符,它们的使用变得更复杂。我们可以通过导入和导出命名空间避免这种情况。下面给出一个例子。
#!/usr/bin/tclsh
namespace eval MyMath { # Create a variable inside the namespace variable myResult namespace export Add }
# Create procedures inside the namespace proc MyMath::Add {a b } { return [expr $a + $b] }
namespace import MyMath::* puts [Add 10 30] |
当执行上面的代码,产生以下结果:
忘记命名空间
可以通过使用forget子删除导入的命名空间。一个简单的例子如下所示。
#!/usr/bin/tclsh
namespace eval MyMath { # Create a variable inside the namespace variable myResult namespace export Add }
# Create procedures inside the namespace proc MyMath::Add {a b } { return [expr $a + $b] } namespace import MyMath::* puts [Add 10 30] namespace forget MyMath::* |
当执行上面的代码,产生以下结果:
|
935 次浏览 |
40次 |
|
捐助 |
|
|