ns2可以解释tcl脚本,编译后,我修改了tcl/lib/ns-lib.tcl,在里面增加了一个函数。
Simulator instproc debug-fun {} {
set var "base"
return $var
}
然后写了一个测试脚本test.tcl
set ns [new Simulator]
set node1 [$ns node]
set value [$ns debug-fun]
puts $value
执行后,却提示错误。(_o3 cmd line 1)invoked from within"_o3 cmd debug-fun"。重新编译ns,则可以出现正确的结果。觉得很疑惑,难道ns2还可以预先编译字节码,之后执行指令吗?但是却没有发现相关代码。tcl中的解释代码似乎也没有这个功能。
这个问题,令人困惑。于是花了点时间,翻到了Makefile.in文件,有这样一句话
$(GEN_DIR)ns_tcl.cc: $(NS_TCL_LIB)
$(TCLSH) bin/tcl-expand.tcl tcl/lib/ns-lib.tcl @V_NS_TCL_LIB_STL@ | $(TCL2C) et_ns_lib > $@
这句话生成了ns_tcl.cc文件,执行make之后,可以看到这个生成文件中的内容,里面是个大数组static char code[]。可以找到之前自定义的脚本函数:
Simulator instproc debug-fun {} {\n\
set var \"base\"\n\
return $var\n\
}\n\
这个cc文件被编译进了ns的二进制代码中,也算是一种字节码吧。所以,修改了tcl文件的中的脚本文件,而不重新编译ns2,修改的内容是无法生效的。