在myApp.tcl中引用 common.tcl， 之前的方式是
set fp [open scripts/common.tcl]
set cmd [read $fp]
eval $cmd
close $fp
可以优化为
source [file join [file dirname [info script]] "common.tcl"]
这段代码是用 Tcl（Tool Command Language）编写的，主要功能是构建一个文件的完整路径。我们逐步解析它：
info script: 这个命令返回当前正在执行的脚本的完整路径。
file dirname: 这个命令接受一个文件路径并返回该路径的目录部分。例如，如果输入是 /path/to/script.tcl，则返回 /path/to。
file join: 这个命令用于将多个路径部分连接成一个完整的路径。它会自动处理路径分隔符（如 / 或 \），确保生成的路径在不同操作系统上都是有效的。
"common.tcl": 这是一个字符串，表示要与之前的目录路径连接的文件名。
结合起来，这段代码的作用是：
获取当前脚本的目录。
将该目录与名为 common.tcl 的文件名组合，形成一个完整的路径。
最终，代码的结果是返回一个指向 common.tcl 文件的绝对路径，假设该文件位于当前脚本的同一目录中。
