如何不切换工作目录从其他路径正确source TCL脚本

原有写法失败原因 #

• 第一种写法是纯语法错误：TCL的命令替换规则是[命令 参数1 参数2 ...]，你写的[[pwd] synthesis]里，内层[pwd]执行完返回当前目录的字符串，外层方括号会试图把这个字符串当命令名、synthesis当参数运行，根本不是合法的路径拼接逻辑，必然报错。
• 第二种source ./synthesis/version.tcl语法本身没问题，但跑不通的核心原因是：TCL解析相对路径时，永远以执行命令时的当前工作目录为基准，不会自动以被source脚本的存放目录为基准。你之前切目录再source能跑通，本质是切完目录后，当前工作目录刚好和version.tcl内部写的相对路径预期匹配；如果直接在上级目录source，version.tcl里所有引用同目录资源的相对路径都会指到错误位置，自然运行失败。

可用的单命令方案 #

场景1：version.tcl不依赖同目录其他文件 #

如果version.tcl里只有变量定义、过程声明，没有读写同目录其他文件、调用同目录其他脚本的逻辑，直接拼绝对路径source就行，完全不用切目录：

source [file join [pwd] synthesis version.tcl]

file join支持传入任意多个路径段自动拼接，会自动适配Windows/Linux/macOS的路径分隔符，比手写斜杠拼路径兼容性更好，生成的绝对路径不会出现相对路径解析错位的问题。

场景2：version.tcl依赖同目录相对路径（90%以上的实际场景） #

如果version.tcl里写了相对路径引用同目录资源，就需要临时切到脚本所在目录执行source，同时要保证不管source有没有报错，都能切回原来的工作目录，单命令写法如下：

set _orig_dir [pwd]; catch {cd [file join $_orig_dir synthesis]; source version.tcl} _err _opts; cd $_orig_dir; unset _orig_dir; if {$_err} {return {*}$_opts $_err}

这个写法和你手动来回切目录的执行逻辑完全一致，执行完不会改动当前工作目录，哪怕source过程中抛错，也能正常回到原目录，不会出现工作目录意外停在synthesis目录的问题。

一劳永逸的优化 #

如果允许修改version.tcl，直接在脚本最开头加两行代码，让脚本自动感知自身存放位置，之后不管你在哪个目录下source它，都不会出路径问题：

# 放在version.tcl最顶部
set _script_dir [file dirname [file normalize [info script]]]
cd $_script_dir

加完之后，你在任意工作目录下直接执行source [file join [pwd] synthesis version.tcl]甚至source ./synthesis/version.tcl都能正常跑，不需要额外做目录切换处理。

内容的提问来源于stack exchange，提问作者mtf90