TCL脚本语言-12-程序库和程序包
合集下载
vhdl程序的基本结构vhdl程序一般由5个部分组成
块语句
块标号:BLOCK[保护表达式] [类属子句;] [端口子句;] [块说明部分;] BEGIN
<块语句部分;>
; END BLOCK 块标号
类属子句用于参数的定义；端口子句用于信号的定义； 块说明部分对该块要用到的信号、常数、元件和子程序 等进行说明；块语句部分对该块的功能进行描述，块语 句部分的语句是并行执行的，和书写顺序无关。
缺省说明: library std; use std.standard.all;
常用库及其程序包
IEEE: IEEE认可的标准库 std_logic_1164:定义了 std_logic, std_logic_vector, std_ulogic, std_ulogic_vector 等数据类型
VHDL 程序的基本结构
设计实体
实体说明
构造体
设计实体的组成
实体说明
Entity <实体名> is
[类属说明;] [端口说明;]
[实体说明部分;] [实体语句部分;] End [entity]<实体名>;
最简单的例： entity nothing is end nothing;
实体说明--类属说明
类属为设计实体和外部环境通讯的静态通信提供通道。可以定
实体说明--实体语句部分
是设计实体接口的共同部分。只能由并行断 言语句、并行过程调用语句、被动进程语 句组成，且不能在语句中给信号赋值。
设计实体
实体说明
构造体
设计实体的组成
构造体
architecture <构造体名> of <实体名> is
[构造体说明语句;]
Begin
<功能描述语句;>
tcl脚本语言介绍
实现执行 set b "hello" 并用其结果来替换源命令
中的方括号部分，产生一条新命令
set a "hello" //"hello" 为 set b "hello" 的返
//回值
最终的结果是b="hello" a="hello"
当命令的一个子域以方括号开始以方括号结束，表示要进行一个命令子替换。并执行该子命令，用其结果来替换原命令中的方括号部分。方括号中的部分都被视为Tcl命令。
Variables: scalars and arrays 变量：标量和向量（即数组）
向量就是数组，而标量是没有下表的变量。
我们用C来类比：
int i； // i 是标量
int j[10]； // j 是向量
变量不需要定义，使用的时候会自动的被创建。Tcl支持两种
变量：标量和向量
举个例子来说明吧，
Tcl是一种很通用的脚本语言，它几乎在所有的平台上都可以释运行，其强大的功能和简单精妙的语法会使你感到由衷的喜悦，这片文章对 Tcl有很好的描述和说明。如果你看起来很吃力，那是因为 Tcl与一般的语言有一些不同之处，刚开始可能有一些不理解，但很快就会掌握的。请坚持一下,我能坚持写完，你至少也应该坚持读一遍吧！
这里有一个初学者不注意的地方，上述的定义一定要写成那样子。而不能向下面那样写：
proc pf {str}
{
puts $str
}
因为proc实际上也只不过是一条命令，是一换行符或分号来结束的，用集群参数来传递函数体。proc的定义如下：
proc name args tclcommand
中的方括号部分，产生一条新命令
set a "hello" //"hello" 为 set b "hello" 的返
//回值
最终的结果是b="hello" a="hello"
当命令的一个子域以方括号开始以方括号结束，表示要进行一个命令子替换。并执行该子命令，用其结果来替换原命令中的方括号部分。方括号中的部分都被视为Tcl命令。
Variables: scalars and arrays 变量：标量和向量（即数组）
向量就是数组，而标量是没有下表的变量。
我们用C来类比：
int i； // i 是标量
int j[10]； // j 是向量
变量不需要定义，使用的时候会自动的被创建。Tcl支持两种
变量：标量和向量
举个例子来说明吧，
Tcl是一种很通用的脚本语言，它几乎在所有的平台上都可以释运行，其强大的功能和简单精妙的语法会使你感到由衷的喜悦，这片文章对 Tcl有很好的描述和说明。如果你看起来很吃力，那是因为 Tcl与一般的语言有一些不同之处，刚开始可能有一些不理解，但很快就会掌握的。请坚持一下,我能坚持写完，你至少也应该坚持读一遍吧！
这里有一个初学者不注意的地方，上述的定义一定要写成那样子。而不能向下面那样写：
proc pf {str}
{
puts $str
}
因为proc实际上也只不过是一条命令，是一换行符或分号来结束的，用集群参数来传递函数体。proc的定义如下：
proc name args tclcommand
TCL编程高级教程讲解
➢ 缺点:不支持版本号，不便于脚本库的更新和维护。由 于脚本库只能用TCL语言编写，能够实现的功能有限。 另外，每个脚本库的路径都要添加到 auto_path 变量中 也比较烦琐。
为解决上述问题和进一步提高TCL 的扩展能力，较新版 本的TCL提供了更好的程序包机制。
脚本库和程序包
• 程序包
Q:什么是程序包？ A:由于脚本库的局限性，TCL提供了更好的
TCL已经有一个这样的集合，就是我们指的 全局命名空间。全局命名空间将所有的全局变量 和命令放在一起。 命名空间也叫做名称空间、名 称域、命名域 等。
命名空间
• 命名空间创建:
用 namespace eval 命令创建一个新的命名空间
• 命名空间查询
如果要在命名空间XXX之外查询命名空间内部变 量的值xxx，可以用如下语句： set :: XXX::xxx
命名空间
• 输入命令和输出命令
命名空间常常用来描述库，需要频繁使用命名空间前缀， 用输入命令和输出命令可以省略命令前面的命名空间前缀。
输入命令： namespace import 输出命令： namespace export
命名空间
• 输入命令
➢ namespace import 命令只输入命名空间中用namespace export命令输 出的命令
package 机制来实现对TCL的共用和扩展，也就 是程序包 。
脚本库和程序包
• 创建TCL程序包:
把你想包含在某个包中的所有自定义过程 放到一个TCL脚本文件中，然后在文件的开头 使用 package provide 命令指明这个包的名字和 版本即可。
脚本库和程序包
– 如果一个函数在几个脚本库中都有定义的话，TCL会按照搜索顺序自动加 载在 auto_path 中位置靠前的那个库。因此，如果加载的脚本库要先被搜 索的话，可以使用 linsert 命令将其插入到 auto_path 中靠前的位置中， 例如： % set auto_path [linsert $auto_path 0 c:/tcllib/lib1]
为解决上述问题和进一步提高TCL 的扩展能力，较新版 本的TCL提供了更好的程序包机制。
脚本库和程序包
• 程序包
Q:什么是程序包？ A:由于脚本库的局限性，TCL提供了更好的
TCL已经有一个这样的集合，就是我们指的 全局命名空间。全局命名空间将所有的全局变量 和命令放在一起。 命名空间也叫做名称空间、名 称域、命名域 等。
命名空间
• 命名空间创建:
用 namespace eval 命令创建一个新的命名空间
• 命名空间查询
如果要在命名空间XXX之外查询命名空间内部变 量的值xxx，可以用如下语句： set :: XXX::xxx
命名空间
• 输入命令和输出命令
命名空间常常用来描述库，需要频繁使用命名空间前缀， 用输入命令和输出命令可以省略命令前面的命名空间前缀。
输入命令： namespace import 输出命令： namespace export
命名空间
• 输入命令
➢ namespace import 命令只输入命名空间中用namespace export命令输 出的命令
package 机制来实现对TCL的共用和扩展，也就 是程序包 。
脚本库和程序包
• 创建TCL程序包:
把你想包含在某个包中的所有自定义过程 放到一个TCL脚本文件中，然后在文件的开头 使用 package provide 命令指明这个包的名字和 版本即可。
脚本库和程序包
– 如果一个函数在几个脚本库中都有定义的话，TCL会按照搜索顺序自动加 载在 auto_path 中位置靠前的那个库。因此，如果加载的脚本库要先被搜 索的话，可以使用 linsert 命令将其插入到 auto_path 中靠前的位置中， 例如： % set auto_path [linsert $auto_path 0 c:/tcllib/lib1]
TCL语言.
TCL语言Tcl(最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义，不过我们仍然称呼它为TCL)是一种脚本语言。
由John Ousterhout创建。
TCL很好学，功能很强大。
TCL经常被用于快速原型开发,脚本编程，GUI和测试等方面。
TCL念作“踢叩” "tickle". Tcl的特性包括:* 任何东西都是一条命令，包括语法结构(for, if等)。
* 任何事物都可以重新定义和重载。
* 所有的数据类型都可以看作字符串。
* 语法规则相当简单* 提供事件驱动给Socket和文件。
基于时间或者用户定义的事件也可以。
* 动态的域定义。
* 很容易用C, C++,或者Java扩展。
* 解释语言，代码能够动态的改变。
* 完全的Unicode支持。
* 平台无关。
Win32, UNIX, Mac上都可以跑。
* 和Windows的GUI紧密集成。
Tk* 代码紧凑，易于维护。
TCL本身不提供面向对象的支持。
但是语言本身很容易扩展到支持面向对象。
许多C语言扩展都提供面向对象能力，包括XOTcl, Incr Tcl 等。
另外SNIT扩展本身就是用TCL写的。
使用最广泛的TCL扩展是TK。
TK提供了各种OS平台下的图形用户界面GUI。
连强大的Python语言都不单独提供自己的GUI，而是提供接口适配到TK上。
另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力，例如(pass wd, ftp, telnet等命令驱动的外壳).下面是TCL程序的例子：#!/bin/sh# next line restarts using tclsh in path \exec tclsh ${1+"$@"}# echo server that can handle multiple# simultaneous connections.proc newConnection { sock addr port } {# client connections will be handled in# line-buffered, non-blocking modefconfigure $sock -blocking no -buffering line# call handleData when socket is readablefileevent $sock readable [ list handleData $sock ]}proc handleData {puts $sock [ gets $sock ]if { [ eof $sock ] } {close $sock}}# handle all connections to port given# as argument when server was invoked# by calling newConnectionset port [ lindex $argv 0 ]socket -server newConnection $port# enter the event loop by waiting# on a dummy variable that is otherwise# unused.vwait forever另外一个TK的例子(来自 A simple A/D clock) 它使用了定时器时间，3行就显示了一个时钟。
TCL语言
目录基本概念具体例子变量和变量交换参数定义方法listsgetschannelidvarname编辑本段基本概念tcl最早称为工具命令语言toolcommandlanguage但是目前已经不是这个含义不过我们仍然称呼它为tcl是一种脚本语言
Generated by Foxit PDF Creator © Foxit Software For evaluation only.
TCL 语言
Tcl (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是 这个含义，不过我们仍然称呼它为 TCL)是一种 脚本语言。 由 John Ousterhout 创 建。 TCL 很好学，功能很强大。TCL 经常被用于 快速原型开发,脚本编程， GUI 和测试等方面。TCL 念作“踢叩” "tickle". Tcl 的特性包括:
Output: If I was 2 inches taller, I would be 6.16667 feet tall 命令流控制 Tcl 有判断流转(if-else; switch)和循环控制(while; for; foreach) Example 4.1: set my_planet "earth" if {$my_planet == "earth"} { puts "I feel right at home." } elseif {$my_planet == "venus"} { puts "This is not my home." } else { puts "I am neither from Earth, nor from Venus." } set temp 95 if {$temp < 80} { puts "It's a little chilly." } else { puts "Warm enough for me." } Output: I feel right at home. Warm enough for me. Example 4.2: set num_legs 4 switch $num_legs { 2 {puts "It could be a human."} 4 {puts "It could be a cow."} 6 {puts "It could be an ant."} 8 {puts "It could be a spider."} default {puts "It could be anything."} } Output: It could be a cow. Example 4.3: for {set i 0} {$i < 10} {incr i 1} { puts "In the for loop, and i == $i" }
Generated by Foxit PDF Creator © Foxit Software For evaluation only.
TCL 语言
Tcl (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是 这个含义，不过我们仍然称呼它为 TCL)是一种 脚本语言。 由 John Ousterhout 创 建。 TCL 很好学，功能很强大。TCL 经常被用于 快速原型开发,脚本编程， GUI 和测试等方面。TCL 念作“踢叩” "tickle". Tcl 的特性包括:
Output: If I was 2 inches taller, I would be 6.16667 feet tall 命令流控制 Tcl 有判断流转(if-else; switch)和循环控制(while; for; foreach) Example 4.1: set my_planet "earth" if {$my_planet == "earth"} { puts "I feel right at home." } elseif {$my_planet == "venus"} { puts "This is not my home." } else { puts "I am neither from Earth, nor from Venus." } set temp 95 if {$temp < 80} { puts "It's a little chilly." } else { puts "Warm enough for me." } Output: I feel right at home. Warm enough for me. Example 4.2: set num_legs 4 switch $num_legs { 2 {puts "It could be a human."} 4 {puts "It could be a cow."} 6 {puts "It could be an ant."} 8 {puts "It could be a spider."} default {puts "It could be anything."} } Output: It could be a cow. Example 4.3: for {set i 0} {$i < 10} {incr i 1} { puts "In the for loop, and i == $i" }
tcl中调用python
tcl中调用pythonTcl（Tool Command Language）是一种脚本语言，常用于快速开发应用程序和自动化任务。
Python是一种功能强大的编程语言，拥有丰富的第三方库和模块。
将两者结合使用，可以充分发挥各自的优点，实现更复杂和灵活的功能。
在Tcl中调用Python有多种方法，下面将介绍其中两种常用的方法。
方法一：使用exec命令Tcl中的exec命令可以执行外部命令，包括Python脚本。
通过在exec命令中指定Python解释器和脚本文件的路径，可以在Tcl中调用Python。
```tclset result [exec python3 script.py arg1 arg2]```上述代码中，exec命令执行了Python脚本script.py，并传递了两个参数arg1和arg2。
脚本的输出结果保存在变量result中。
方法二：使用Tcl的Python扩展Tcl的Python扩展是一个用于在Tcl中调用Python的工具包。
它提供了一组Tcl命令，可以直接调用Python函数和对象。
需要安装Tcl的Python扩展。
可以通过pip命令进行安装：```shellpip install tclpy```安装完成后，在Tcl脚本中引入Tcl的Python扩展：```tclpackage require Tclpy```接下来，就可以使用Tcl的Python扩展提供的命令来调用Python 函数和对象了。
例如，调用Python的math模块计算正弦函数：```tclset sin [python::call math.sin 0.5]```上述代码中，python::call命令用于调用Python的math.sin函数，并传递参数0.5。
函数的返回值保存在变量sin中。
除了上述两种方法，还可以使用其他的第三方库和模块来实现Tcl 和Python的交互。
例如，使用Tkinter库可以在Tcl界面中嵌入Python GUI组件；使用pyTcl库可以实现更高级的Tcl和Python 集成。
TCL脚本技术及用法
TCL内建命令
TCL还提供三种特殊的参数形式： 首先，你可以定义一个没有参数的过程。 % proc add {} { expr 2+3} 其次，可以定义具有缺省参数值的过程。 % proc add {val1 {val2 2} {val3 3}} { % expr $val1+$val2+$val3 %} 另外，TCL的过程定义还支持可变个数的参数，如果 过程的最后一个参数是args, 那么就表示这个过程支持 可变个数的参数调用。
引言
TCL提供了C语言的调用接口，可以很容易地嵌入到C 程序中；由于TCL提供了与C的接口函数，所以可以 在C编写的应用中调用TCL的库函数，执行TCL的命令 或脚本。具体的工作有： ①创建TCL的解释器; ②执行TCL的命令或脚本; ③对返回代码进行处理; ④撤消TCL的解释器。
引言
基本的C程序结构如下： #include <stdio.h> #include <tcl.h> main() { Tcl_Interp *ip; // 定义解释器 int code; ip=Tcl_CreateInterp(); // 创建该解释器 code=Tcl_EvalFile(ip, "test.tcl"); // 执行文件“test.tcl” if(code!=TCL_OK) exit(1); // 是否成功 else exit(0); }
TCL语法
置换
TCL解释器在分析命令时把所有的命令参数当做字符 串对待，置换的作用是获取命令参数所对应的值，而 非命令参数所代表的字符串。 置换包括变量置换、命令置换和反斜杠置换。变量置 换传递的是变量的值，命令置换传递的是命令参数的 计算结果，反斜杠置换主要用于在单词符号中插入诸 如换行符、空格、[、$等被TCL解释器当作特殊符号 对待的字符。置换可以嵌套。
TCL培训教程(全)(2024)
TCP协议特点
面向连接、可靠传输、基于字节流、全双工通信。
2024/1/29
TCP编程应用示例
通过TCL套接字编程实现TCP服务端和客户端的通信，包括建立连 接、发送和接收数据等过程。
37
UDP协议通信原理及实现方式
UDP协议概述
UDP（用户数据报协议）是一种无连接的传输层协议，提供简单的不可靠数据传输服务。
2024/1/29
6
TCL应用场景及案例分析
应用场景
TCL被广泛应用于嵌入式系统、自动化测 试、网络编程、图形界面开发等领域。 它可以作为嵌入式系统的脚本语言，用 于实现设备的自动化控制和数据处理； 也可以作为自动化测试的脚本语言，用 于编写测试用例和自动化测试脚本；还 可以用于网络编程和图形界面开发等场 景。
UDP协议特点
无连接、不可靠传输、基于数据报、尽最大努力交付。
2024/1/29
UDP编程应用示例
通过TCL套接字编程实现UDP通信，包括发送和接收数据报的过程。需要注意的是，由于UDP是无连接的协 议，因此需要在应用程序中实现数据报的丢失重传、乱序重排等机制。
38
07 TCL图形界面开发
2024/1/29
22
局部变量与全局变量
set localVar "I'm local"
global globalVar
set globalVar "I'm global"
2024/1/29
23
局部变量与全局变量
puts $localVar puts $globalVar
2024/1/29
24
局部变量与全局变量
返回值处理
TCL中过程的返回值通过`return`关键 字返回。调用过程时，可以使用`set` 命令将返回值保存到变量中。
面向连接、可靠传输、基于字节流、全双工通信。
2024/1/29
TCP编程应用示例
通过TCL套接字编程实现TCP服务端和客户端的通信，包括建立连 接、发送和接收数据等过程。
37
UDP协议通信原理及实现方式
UDP协议概述
UDP（用户数据报协议）是一种无连接的传输层协议，提供简单的不可靠数据传输服务。
2024/1/29
6
TCL应用场景及案例分析
应用场景
TCL被广泛应用于嵌入式系统、自动化测 试、网络编程、图形界面开发等领域。 它可以作为嵌入式系统的脚本语言，用 于实现设备的自动化控制和数据处理； 也可以作为自动化测试的脚本语言，用 于编写测试用例和自动化测试脚本；还 可以用于网络编程和图形界面开发等场 景。
UDP协议特点
无连接、不可靠传输、基于数据报、尽最大努力交付。
2024/1/29
UDP编程应用示例
通过TCL套接字编程实现UDP通信，包括发送和接收数据报的过程。需要注意的是，由于UDP是无连接的协 议，因此需要在应用程序中实现数据报的丢失重传、乱序重排等机制。
38
07 TCL图形界面开发
2024/1/29
22
局部变量与全局变量
set localVar "I'm local"
global globalVar
set globalVar "I'm global"
2024/1/29
23
局部变量与全局变量
puts $localVar puts $globalVar
2024/1/29
24
局部变量与全局变量
返回值处理
TCL中过程的返回值通过`return`关键 字返回。调用过程时，可以使用`set` 命令将返回值保存到变量中。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
auto_load：加载程序库
auto_load 命令是在 init.tcl 中定义，在解释器初始化的时候被创建。当解释器碰到了未 定义命令的时候，unknown 命令会被调用，在 unknown 中会调用 auto_load 命令来寻找这个
作者：雷雨后
Email: leiyuhou010@
1. 每一个 TCL 应用程序都应该有一个 init.tcl 文件，该文件会做一些初始化的工作， 这个文件都位于 info library 命令所返回的目录中。
2. unknown 命令就是在这个 init.tcl 文件中定义的。 例如我现在使用的 ActiveTcl，运行 info library 命令，返回解释器的库目录为：
source：TCL 中的#include
C/C++中使用库文件的方式，首先必须在源程序中#include 相关的头文件，编译通过后， 在链接（link）阶段与相关的库文件（.lib、.obj 等）连接。在 TCL 中则没有所谓头文件和库 文件，那么分散在其他多个文件的命令和程序，如何被我们的应用中加载引用呢？有一个命 令可以完成类似#include 的功能，这就是 source。其命令语法如下：
未知命令是否是 DOS 内部命令或者是某一个可执行程序。如果是，则执行它 们，并且返回执行结果。 b) 如果没有找到可执行命令文件，或者定义了 auto_noexec，那么就判断该未知 命令是否是“！！”、“!(.+)$”等这样的格式；如果是，那么就调用对应的历史 命令。 6. 如果不是交互模式，则抛出异常，退出 unknown。 上面是 unknown 命令的默认处理流程，我们可以自己重新编写这个命令，但是最好要 保留原来的功能。因为其处理机制非常重要，保证了 TCL 程序库中定义的命令能够被自动 的加载到 TCL 解释器中。完成这个功能的就是 auto_load 命令。
# Tcl autoload index file, version 2.0 # This file is generated by the "auto_mkindex" command # and sourced to set up indexing information for one or # more commands. Typically each line is a command that # sets an element in the auto_index array, where the # element name is the name of a command and the value is # a script that loads the command.
unknow 方法
请先思考下面的问题：Windows 操作系统下，当我们执行命令 tclsh 启动一个 TCL 解释 器之后，进入交互模式，然后在 TCL 的命令提示符下面输入 dir 命令，会怎样？得出结论后， 然后动动手实践一下来验证你的结论是否正确。
创建一个文件 test.tcl，其内容只有一行，就是 dir 命令，然后在命令提示符下面通过输 入命令行 tclsh test.tcl 来执行这个 TCL 脚本，看看结果怎么样。
% set auto_path
作者：雷雨后
leiyuhou010@
TCL、Python 和软件测试自动化
144
C:/Tcl/lib/tcl8.4 C:/Tcl/lib
上面是 auto_index 和 auto_path 两个变量的内容。在 C:/tcl/lib/tcl8.4 目录下存在一个文件 tclIndex，其内容如下：
source filename 唯一的参数是文件名，source 命令读取文件全部内容，然后交给 TCL 解释器来执行， source 命令的结果就是文件中最后一个命令的结果。如果执行的时候发生了异常，source 命 令也会抛出异常。 source 命令在 library 和 package 两种模式中都得到了广泛的应用。
set auto_index(auto_reset) [list source [file join $dir auto.tcl]] set auto_index(tcl_findLibrary) [list source [file join $dir auto.tcl]] set auto_index(auto_mkindex) [list source [file join $dir auto.tcl]] set auto_index(auto_mkindex_old) [list source [file join $dir auto.tcl]] „„
化、执行 init.tcl 文件的时候被定义并且初始化，过程如下： a) 如果有环境变量 TCLLIBPATH，其值将是 auto_path 的第一个元素； b) 命令 info library 所返回的路径以及其父目录会加入到 auto_path 中； c) 当前可执行文件所在目录的父目录下的 lib 子目录，会加入 auto_path 中； d) 如果定义了变量 tcl_pkgPath，其中每一个元素也会加入到 auto_path 中。 可见我们可以将库文件放到很多分散的目录中，只要在 auto_path 变量中有这些目 录中就行了。 2. auto_index：一个数组变量。其中每一个元素的下标是命令名字，对应值则是一条 TCL 语句。通过执行该语句能够定义对应的命令。例如：元素 parray 对应的语句 是“source C:/Tcl/lib/tcl8.4/parray.tcl”。执行该语句后，parray 命令就会被定义。一 般而言，这个语句类似 source xxxfile 的格式。过程就是在 xxxfile 中被定义。 auto_load 的语法格式如下：auto_load cmd ?namespace?；其中的 cmd 就是解释器碰到的 未知命令，当它被调用的时候： 1. 判断数组 auto_index 中是否存在下标为 cmd 的元素。如果有则执行对应的语句，然 后判断命令 cmd 是否被定义；如果存在就返回 1，表示加载成功； 2. 接着判断 auto_path 变量是否存在，如果不存在就返回 0，表示加载失败； 3. 然后依次在 auto_path 所包含的每一个目录下，寻找名字为“tclIndex”的文件，判 断这个文件是否是有效文件。如果有效，那么就执行这个文件。 4. 然后再次判断 auto_index 中是否存在下标为 cmd 的元素，如果存在，则执行对应的 语句，然后判断命令 cmd 是否存在（是否被定义了）；如果存在，就返回 1。 5. 最后返回 0，表示自动加载失败。 这就是 auto_load 命令的全部执行过程。可以看到，除了前面介绍的 auto_path 和 auto_index 变量之外，还涉及到了一个文件 tclIndex。这个文件的内容很简单：就是用来设 置 auto_index 变量的值。例如在我的系统上：
TCL、Python 和软件测试自动化
143
未定义命令。弄清楚 auto_load 的执行机制，会让我们更加清楚 TCL 程序库（library）的工 作机制和自动加载的原理。
首先得介绍一下和 aoto_load 相关的两个全局变量： 1. auto_path：列表变量，其每一个元素是库文件所在的目录。这个变量在解释器初始
作者：雷雨后
Email: leiyuhou010@
TCL、Python 和软件测试自动化
142
里面就不能执行了呢？其实，这都是 unknow 命令在作怪。 实际上，TCL 解释器在解释执行的时候，如果碰上了当前不认识的命令名字，都会调用
一个命令：unkonwn；并且把这个未知命令连同其参数作为 unknow 命令的参数。unknown 命令一般是在 TCL 解释器初始化的时候来定义的。作为一个比较普遍的规则：
行该命令，然后返回； 4. 如果没有定义全局变量 auto_noload，则调用 auto_load 命令来尝试从程序库中加载
和寻找这个未知命令；如果找到则执行它，返回结果； 5. 如果 auto_load 没有找到该命令的实现，那么就判断是否是处在交互模式下；如果
是交互模式： a) 并且没有定义全局变量 auto_noexec，那么就调用 auto_execok 命令来判断这个
结果比较让人诧异：交互模式下，dir 命令能够执行，并且列出了当前目录下的所有内 容，和一般情况下执行 dir 的结果并无差异；但是执行脚本，则报告了一个错误：invalid command name “dir”。怎么回事？dir 是标准的 DOS 内部命令，它不属于 Tcl 的命令。这样 的命令按照常理是不能够被执行的，但是事实上在交互模式下却正确执行了，那为何在脚本
里面就是一堆的 set auto_index(cmd)这样的命令。可以看到，第一条 auto_reset 命令可以 通过执行“source auto.tcl”语句来被定义。根据我们前面对 unknown 和 auto_load 命令的分 析，如果解释器碰到了 auto_reset 命令并且该命令没有被定义，那么就会通过 unknown 和 auto_load 来执行 source auto.tcl，而 auto_reset 命令就是在文件 auto.tcl 中被定义。所以 auto_load 能够加载成功，并且在 unknown 中会执行这个 auto_reset 命令。如果再次调用 auto_reset 命 令，就不会再次进行同样的加载了，因为这个命令已经被定义了，可以被直接调用。
% foreach {k v} [array get auto_index] {puts "$k = $v"} tcl_startOfNextWord = source C:/Tcl/lib/tcl8.4/word.tcl parray = source C:/Tcl/lib/tcl8.4/parray.tcl pkg_mkIndex = source C:/Tcl/lib/tcl8.4/package.tcl ::safe::Lappend = source C:/Tcl/lib/tcl8.4/safe.tcl history = source C:/Tcl/lib/tcl8.4/history.tcl ::safe::AliasSubset = source C:/Tcl/lib/tcl8.4/safe.tcl „„