TCL:使用添加库文件

Posted 2020-07-12 le.li

>直接引用工具自带的库文件
通过指令:
1.1查看能直接调用的库文件路径
#可以查到工具默认库文件路径，一般包括回显中的路径以及回显中路径的父路径。
info library 
#D:/Script.NET/V2/Interps/Tcl/Lib/tcl8.4
1.2、在上一步的路径下找找没有自己需要的库，通过指令：
package require xxx  引用，一般直接写tcl文件名即可，如果不对，查看pkgIndex.tcl里package ifneeded 后边的名称。


>引用别人的库文件或者添加自己的库文件

下边的工具指Script.NET

1、将别人写好的库文件拷贝到编译器所在文件路径下。
路径：D:\Script.NET\V2\interps\Tcl\lib下，脚本中添加"package require xxx"后，就可调用了。


2、创建自己的library库

注意：一般不要使用工具自带的控制台生成pkg_mkIndex,问题较多。
可以用ActiveTcl（下边的操作，尽量使用ActiveTcl安装后的tclsh.exe交互界面执行命令）
2.1、在工具安装路径（如D:\Script.NET\V2\lib），lib库路径下创建自己的lib(创建一个文件夹)，如：mylib1.0
2.2、将自己需要用到的所有tcl文件都放到这个文件夹下(tcl文件中一定要包含：package provide fun 1.0)，provide提供的名称和版本。
2.3、执行工具自带的控制台（工具-->控制台），执行pkg_mkIndex -direct "D:\\Script.NET\\V2\\lib\\mylib1.0" *.tcl （tclsh.exe执行时可以在脚本中添加puts xxx，当第一次调用时，会显示puts后的内容，使用工具自带的控制台会添加puts会导致生成失败，但不会提示和报错）
说明:pkg_mkIndex [-direct--使用前直接加载当前路径下的文件，不管用到与否|-lazy -verbose--动态加载，使用时才加载，否则，不加载]
2.4生成成功后，会有类似如下显示：
package ifneeded my_fun 1.0 [list source [file join $dir fun.tcl]]
package ifneeded my_namespace 1.0 [list source [file join $dir my_namespace.tcl]]
说明：动态和静态不一样，但是必有引用的文件，不可能全是注释内容
注意：文件中可以有多个方法，但是不能包含puts xxx,否则pkg_mkIndex生成的结果会有问题。
说明：目前测试，包含变量，方法，namespace的脚本都可以被package require xxx 后调用。

3、添加自己的library库路径

工具有一个公共变量，执行代码时，可以直接使用
auto_path，使用：
3.1、显示默认自动可以引用的路径
#show the library of path which can be using directly.(Eg:package require xxx)
puts $auto_path
3.1、在默认自动可以引用的路径中，添加自己的路径，注意用applend和/。
#add path to auto_path.Intro:the path must be splited by "/",otherwise,it can not work.
lappend auto_path "D:/Tcl/lib"
puts $auto_path


其他说明：
1、非TCL工具里的指令，只能在交互界面里执行（如：dir、ping等系统自带的指令），如果不希望交互里能执行非工具里的指令，可以定义变量set auto_noexec 0（可以设置成任何值），此时下发dir会报错，不识别。恢复：unset auto_noexec，之后输入dir就可以看到dir以及它对应的回显。