TCL 包

Posted 2021-03-24 lelin

包用于创建代码的可重用单元。

程序包提供特定功能的文件集合。

 

1.创建代码

　　　　

2.创建包index

　　　　打开tclsh,切换到HelloWorld目录，并使用pkg_mkindex 命令创建索引文件。

　　　　%cd   /User/helloword

　　　　%pkg_mkIndex  .  *.tcl

　　　　结果：

　　　　pkgIndex.tcl　　　

　　　　package ifneeded HelloWorld 1.0 [list source [file join $dir HelloWord.tcl]]

3. 添加到目录AUTOPATH

　　使用lappend命令添加程序包到全局列表

　　% lappend auto_path "/Users/rajkumar/Desktop/helloworld"

 

4. 添加软件包

　　接下来添加程序包

　　%package require HelloWorld 1.0

 

5.调用过程　

　　% puts [HelloWorld::MyProcedure]
　　HelloWorld