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

最新推荐文章于 2025-07-11 15:54:29 发布

天边树若荠

最新推荐文章于 2025-07-11 15:54:29 发布

阅读量3.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： TCL

本文链接：https://blog.youkuaiyun.com/a845179011/article/details/79996174

TCL 专栏收录该内容

8 篇文章

订阅专栏

本文通过创建两个TCL脚本module1.tcl和module2.tcl演示了如何在TCL_TK环境中实现自动加载。首先设置脚本路径并生成tclIndex文件，然后通过调整auto_path变量使模块可被自动加载。最后通过调用不同模块中的过程展示全局变量的交互。

可查看《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

结果如下：