包(Packages)用于创建可重用的代码单元,使用命名空间的概念来避免变量名和过程名的冲突。在我们的下一章" 命名空间" 教程中进一步了解。

创建包(Packages)

可以使用最少两个文件创建一个包,一个文件包含代码,其他文件包含索引程序包文件。

下面给出了创建和使用包的步骤列表。

步骤1 : 创建代码

在名为HelloWorld的文件夹中为包创建代码。让文件命名为HelloWorld.tcl,其代码如下所示-

# /Users/rajkumar/Desktop/helloworld/HelloWorld.tcl 
# Create the namespace
namespace eval ::HelloWorld {
 
  # Export MyProcedure
  namespace export MyProcedure
 
  # My Variables
   set version 1.0
   set My描述 "HelloWorld"
 
  # Variable for the path of the script
   variable home [file join [pwd] [file dirname [info script]]]
 
}
 
# Definition of the procedure MyProcedure
proc ::HelloWorld::MyProcedure {} {
   puts $HelloWorld::My描述
}

package provide HelloWorld $HelloWorld::version
package require Tcl 8.0

步骤2 : 创建包索引

打开tclsh。切换到HelloWorld目录,并使用pkg_mkIndex命令创建索引文件,如下所示-

% cd /Users/rajkumar/Desktop/helloworld 
% pkg_mkIndex . *.tcl

步骤3 : 添加到自动路径

使用lappend命令将软件包添加到全局列表,如下所示-

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

步骤4 : 加载包

接下来使用package require语句将包添加到程序中,如下所示-

% package require HelloWorld 1.0

步骤5 : 调用程序

现在,一切都已设置完毕,我们可以调用我们的过程,如下所示:

链接:https://www.learnfk.com/tcl-tk/tcl-packages.html

来源:LearnFk无涯教程网

% puts [HelloWorld::MyProcedure]

您将获得以下输出-

HelloWorld

前两个步骤创建了包。创建包后,可以通过添加最后三个语句在任何Tcl文件中使用它,如下所示-

无涯教程网

lappend auto_path "/Users/rajkumar/Desktop/helloworld"
package require HelloWorld 1.0
puts [HelloWorld::MyProcedure]

您将获得以下输出-

HelloWorld

这一章你学到了什么?来做个笔记,好记忆不如烂笔头! 如果觉得对您有帮助,麻烦帮分享给您的朋友😊😊

祝学习愉快!(如果觉得不正确,选中要修改的内容->右键->编辑)

点我分享笔记