38、Tclkit、Starkits与Metakit的应用与实践

Tclkit、Starkits与Metakit的应用与实践

1. 创建共享Starkit

Starkit可用于创建供其他应用程序共享的模块。例如，kitten.kit Starkit包含约50个流行的扩展，其中一些是二进制扩展，大小超过4MB，非常适合共享。你可以在CD - ROM或Starkit存档中找到kitten.kit。通过将每个共享模块组织成具有适当结构的Starkit，共享它们就变得很简单。

当一个Starkit被加载时，Tclkit会挂载其虚拟文件系统（VFS）并查找其main.tcl文件。无论是共享Starkit还是应用程序的主Starkit都是如此。如果main.tcl调用了starkit::startup，那么VFS中的lib目录会自动添加到auto_path中。任何组织在lib下的库都可以被加载该Starkit的应用程序自动访问。

你可以添加一些逻辑，使你的包在作为主Starkit运行或被加载到其他应用程序中时表现不同。例如，tcllib Starkit就是这样做的。如果作为独立的Starkit运行，它会启动一个独立的Wiki来描述标准Tcl库的API；否则，它只是将tcllib设置为供主应用程序共享。以下是tcllib.kit的main.tcl示例：

package require starkit
if {[starkit::startup] eq "starkit"} {
   # Do application startup
   package require app-tcllib
} else {
   # Set up to be used as a library