给tcl脚本加"共享库"

  在编写tcl的脚本过程中，遇到了一个痛苦的事情，一开始，把各种辅助函数写在脚本中，后来由于需要修改函数内容，fuk，相同的部分居然在不同的脚本中需要重复修改，能不能想个办法，将公用函数独立出来呢？

  怎奈对tcl了解不多，看教程吧，忽然看到source函数，恩不错不错：source命令读一个文件并把这个文件的内容作为一个脚本进行求值，嘿嘿，我写在外部文件中，用source不就可以共用了，试了一下，效果还不错，只是不能很好使用相对路径，借助info，很好的解决了这个问题，现在不论在哪里调用exp文件，都能使用同级目录下的“共享库”了~

 目录结构如下：

 

test/

  |

  |---script/

  |        |

  |        |--script1.exp

  |        |--script2.exp

  |

  |---commonlib.exp

 

其中commonlib.exp只有 proc函数

在script*.exp中要想引用commonlib.exp中的共享函数，只需要在前加点代码：set tmp_path [info script] set tmp_path [string range $tmp_path 0 [string last / $tmp_path]] #Call additional functions when running source ${tmp_path}../commonlib.exp

好啦，现在就可以拉

ps：好像tcl是支持自己写的扩展包，在运行的时候加上package require XXX来导入，嘿嘿，研究不多，亦不求甚解~~谁晓得可教教