参考网站

package_1">创建自定义package

下面的例程定义了HelloWorld Package，HelloWorld定义了一个变量city，定义了两个函数getCityName和setCityName。

#!/usr/bin/tclsh8.5
# 文件名： HelloWorld.tcl

package provide HelloWorld 1.0

namespace eval ::HelloWorld {
	# define the variable
	set city "BeiJing"
	
	# define the method 
	set getCityName "getCityName"
	set setCityName "setCityName"
}

proc  ::HelloWorld::getCityName { } {
	puts $::HelloWorld::city
}

proc  ::HelloWorld::setCityName {{city "Default"}} {
	set ::HelloWorld::city $city
}

创建索引

#！/usr/bin/tclsh8.5
# 文件名：createIndex.tcl
lappend auto_path .
pkg_mkIndex . HelloWorld.tcl

调用HelloWorld

#!/usr/bin/tclsh8.5
# 文件名：usePackage.tcl
lappend auto_path .
package require HelloWorld 1.0

HelloWorld::setCityName "BeiJing"
HelloWorld::getCityName

输出结果