TCL在脚本中引用外部脚本过程

可查看《TCL_TK入门经典（第2版）》->第14章，创建与使用TCL脚本库->自动加载。

具体步骤如下：

1、 在一个目录中创建2个tcl脚本：module1.tcl，module2.tcl。

# module1.tcl
namespace eval model::submodel1 {
    proc submodel1_func { } {
        global gb_var1
        set gb_var1 "1"
        model::submodel2::submodel2_func
        tk_messageBox -message $gb_var1
    }
}
model::submodel1::submodel1_func

# module2.tcl
namespace eval model::submodel2 {
    proc submodel2_func { } {
        global gb_var1
        set gb_var1 "2"
    }
}

2、 打开Wish，在命令行中输入命令，进入该脚本目录；用auto_mkindex命令生成tclIndex文件；然后设置auto_path全局变量（该变量为tcl内置，过程的调用会从这里找），命令如下：

set modulepath "C:\\Users\\POWERITECH\\Desktop\\tcl_package"

cd $modulepath

auto_mkindex . *.tcl

set auto_path [linsert $auto_path 0 $modulepath]

3、 在在命令行中输入命令：

source module1.tcl

结果如下：

 

说明全局变量gb_var1在module2中被修改了。

补充：可以给外部脚本的过程传参数，修改代码如下（修改后需要重启Wish）：

# module1.tcl
namespace eval model::submodel1 {
   proc submodel1_func {} {
       global gb_var1
       set gb_var1 "1"
       model::submodel2::submodel2_func 3
       tk_messageBox -message $gb_var1
    }
}
model::submodel1::submodel1_func

# module2.tcl
namespace eval model::submodel2 {
   proc submodel2_func {input_arg} {
       global gb_var1
       # set gb_var1 "2"
       set gb_var1 $input_arg
    }
}

在命令行中输入：source module1.tcl

结果如下：