TCL_TK进阶练习

TCL_TK 进阶练习 2
脚本，对 TCl 程序进行初始化。
2.2.3. Tcl 过程 prn 和 setenv
在初始化文件“~/.myapp.tcl”中可定义若干过程（porc） ，每个过程可在以后被调用，相当 一个新的 Tcl 命令。在“~/.myapp.tcl”定义了两个过程 prn 和 setenv。 过程 prn，是对命令 puts 扩展。它的用法为： prn str str str … prn 将把该命令所跟个数不限参数显示于屏幕上。如 prn Welcom you to use my TCL: $argv0 过程 setenv 是仿 csh 设计的一个过程，用于设置或显示环境变量。Tcl 继承 UNIX 的全部环 境变量，并用一维数组 env 表示，环境变量的名作为数组下标，该下标数组元素的值就是相应环 境变量的值。setenv 的用法是： setenv [key [value]] 它可跟 0～2 个参数。参数个数为 2，为设置一个新的环境变量，第一个参数是环境变量的 名，第二个参数是该环境变量的值；参数个数为 1，用于显示与此参数相匹配的所有环境变量； 参数个数为 0，为显示所有环境变量。
2.4.2. 在 C 中对 Tcl 中全局变量的读写
random 命令仍由名为 tclRandom 的 C 函数来实现，由于设计的功能的要求，需要按读写 Tcl 中的全局变量 range。在此函数中从 Tcl 中取变量 range 的值（字符串）由函数 TclGetVar 实 现，再用函数 Tcl_GetInt 将其转换为整数（int range） 。有关程序段为： int range; Tcl_GetInt(interp, Tcl_GetVar(interp, "range", TCL_GLOBAL_ONLY), &range); 当新的随机数 rand 产生之后，一方面将其值写至 interp->result（显示于屏幕） ，接着用函数
2.3. 用户自建 Tcl 命令（ tcl2）
Tcl 允许用户用 C 语言创建 Tcl 命令。在 tcl2 中支持的命令 random 就是用户自建的命令。
2.3.1. 自建命令的设计
自建命令由命令名和根据功能需求若干个参数组成。如自建命令 random 设计为： random [limit] 这是一个取随机数的命令，它要求 0～1 个参数。如无参数，则产生一个随机数；如有一个 参数，此参数必须是整数，产生一个在此参数范围内（ -|limit| ~ |limit| ）的随机数。如给的参数不 是整数或参数个数多于 1 个，则报错。 用此命令产生一个 200 以内的随机数，有两种等价的方法： % random 200 或 % expr [random] % 200 此命令 expr 对其所跟的一“表达式”进行计算，输出结果；此表达式中第 1 项方括号表示 其内中的一条 TCL 命令的执行结果（一个未给定范围的随机数） 。
2.2. Tcl 的用户初始化（ tcl1）
2.2.1. 用户初始化函数替换系统初始化函数
在 tcl0.c 中函数 Tcl_Init 是 Tcl 的系统初始化函数，Tcl 的所有功能都在这ห้องสมุดไป่ตู้函数中被规定。 现在用另一个初始化函数 Tcl_AppInit 替换 Tcl_Init，如 /＊ file: tcl1.c ＊/ int main(int argc, char ＊argv[]) { Tcl_Main(argc, argv, Tcl_AppInit); exit(0); } 用户初始化函数 Tcl_AppInit 与系统初始化函数 Tcl_Init 类型相同，故具有可替换性。
2.4. C 中读写 Tcl 中变量， tcl3
2.4.1. 递减随机数命令 random 的设计
形式上递减随机数命令 random 仍保持在 tcl2 中定义的随机数命令一样，如 random [limit] 但此 random 较先前 tcl2 中定义的同名命令区别在于，此 random 同 Tcl 的一个全局变量 range 相关。每次执行此命令产生的随机数将自动赋值给该全局变量 range。当命令的参数个数 为 0 时，则产生的随机数较前次产生的随机数要小，除非 range 的值为 0。当命令参数为 1 时， 同先前的 ramdom 一样，产生一个在该参数范围内的随机数。
Tcl-Tk 进阶练习 TclSteps
申 明 1. 综述
本进阶练习包含 9 个单元： tcl0：由 C 程序建立最基本的 Tcl 可执行程序 tcl0。 tcl1：建立的 tcl1 具有自动执行一个 Tcl 脚本，进行初始化。 tcl2：建立的 tcl2，允许用户用 C 语言创建 Tcl 命令。 tcl3：C 程序中读写 Tcl 中全局变量。 tcl4：Tcl 中的全局变量和 C 程序中的变量连接，实现互通，同步改变。 tk0：由 C 程序建立最基本的 Tcl-Tk 可执行程序 tk0。 tk1：建立的 tk1，作为一个 Tcl-Tk 的练习平台。 tk2：建立的 tk2，用按扭调用用户命令的一个实例。 tk3：建立的 tk3，完全的 Tcl-Tk 人机交互界面的一个实例。 所有文件收于在目录~/TclSteps 下。按上述单元分立 9 个子目录。本目录中有一个 Makefile，用 于总控诸子目录的 Make，在本目录中还有.MakeTcl 和.MakeTk 两个文件，分别为下层 tcl#和 tk#两类 子目录的通用 Makefile。
2. Tcl
2.1. 基本 Tcl（ tcl0）
2.1.1. tcl0 的生成
用如下 C 语言程序： /＊ file tcl0.c ＊/ # include <tcl.h> int main(int argc, char ＊argv[]) { Tcl_Main(argc, argv, Tcl_Init); exit(0); } 经用如下命令编译： gcc -o tcl0 main.c -I/usr/local/include /usr/local/lib/libtcl.a -lsocket 便可生成一个标准的 Tcl 可执行程序 tcl0。 关键之点： 一是源程序 tcl0.c 中包含了头文件 tcl.h； 二是在编译连接时用了 Tcl 标准库 libtcl.a 和另一个标准库 libsocket.a（后者是前者所要求的） 。本程序中只调用了两个库函数 Tcl_Main 和 Tcl_Init。
TCL_TK 进阶练习 3
argv[1]非空。 根据输入，tclRandom 调用 C 库的标准函数产生所要求的随机数，再将它（一个整数）转换 为字符串，写至 interp->result。 此函数是整数型，函数只可返回 TCL_OK（成功）或 TCL_ERROR（失败） 。
2.3.4. 递降随机数的生成， Tcl 过程 Rnadom
2.2.2. 用户初始化之一：用 Tcl_EvalFile 函数读 Tcl 脚本
用户初始化函由用户自建，除必须首先调用系统初始化函数 Tcl_Init，用户具有“无限”的 扩展空间。在 tcl1.c 中，采用了函数 Tcl_EvalFile 读入 Tcl 脚本“~/.myapp.tcl” ，如 char ＊tcl_RcFileName = " ~/.myapp.tcl"; int Tcl_AppInit(Tcl_Interp ＊interp) { if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_EvalFile(interp, tcl_RcFileName); return TCL_OK; } 在 C 中用 Tcl_EvalFile 函数读一个 Tcl 脚本，就相当在交换运行过程中用 source 命令读 Tcl
程序 tcl2 用了本目录下的 myapp.tcl 作为初始化文件，此文件开始部分如下： source $env(HOME)/.myapp.tcl proc Random {} { global range; if {$range <= 0} { set range 5000 } while { $range > 0} { prn $range: [set range [random $range]] } } 第一行中$env(HOME)代表环境变量 HOME 的值，所以本行是读文件” ~/.myapp.tcl” （其中 定义了 proc prn） 。 第二行开始，定义了又一个过程 Random。此过程无需参数。它核心部分是一个 while 循环， 此循环中仅一句： prn $range: [set range [random $range]] 这一句显示两个随机数，冒号左的$range 是 range 原先值；冒号右的两重方括号代表 range 的新值，内层方括号用 random 命令以 range 原先值为上界产生一随机数，接着由外层方括号用 set 命令把刚产生的随机数重新赋值给 range。此循环执行到变量 range 的值降为 0 为止。 过程 Random 要求全局变量 range 的存在，在第一次调用 Random 之前，必先用 set 命令 建立变量 range，如 set range “ ” 进入 Random 后，若检查出 range 的值小于或等于 0，则重置 range 为 5000。
2.3.3. 自建命令的函数的定义
用 C 语言定义的自建命令必须用统一的函数类型，如 int tclRandom(ClientData clientData, Tcl_Interp ＊interp, int argc, char ＊argv[]); 需要说明的是： 此函数的第 3、4 个参数用作为函数的输入，字符串数组 argv，为 tcl2 运行中调用此命令时 的“命令行参数” ，它包含命令名和命令参数；argc 是命令行参数的个数，此例中它不得超过 2； argv[0] 为命令名，在此例中就是” random” ；argv[1] 、argv[2]…为命令的参数，在此例中最多只许