tcl-debug调试Otcl脚本
转自http://hi.baidu.com/weblong/blog/item/13c9fbea5fd5a8d7d539c9f8.html
1.下载 tcl-debug( 地址 http://expect.nist.gov/tcl-debug/tcl-debug.tar.gz),以版本2.28为例,解压到ns-allinone-2.28目录下面。
2. 编译tcl-debug,并且将产生的可加载的库文件复制到NS-2的库目录里面,具体步骤如下:
1) 进入到tcl-debug目录下面
$ cd tcl-debug-2.0
2) 配置并且编译tcl-debug
$ ./configure
$ make
3)检查可加载的库文件(*.a) 在编译之后是否被创建。
查看是否产生了一个"libtcldbg.a" 文件。他是一个tcl的库文件。
4) 复制这个库文件到NS-2 库目录里面,即 /home/UserID/ns-allinone-2.28/ns-2.28/lib or ~ns/lib
$ cp *.a ../ns-2.28/lib
注:编译之后不会产生一个可执行的文件,而是一个可加载的库文件。
3. 编译NS-2
1) 进入~ns/lib目录里面,查看库文件libtcldbg.a是否存在。
$ cd ../ns-2.28/lib
$ ls
2) 进入ns-2.28目录下面,即 /home/UserID/ns-allinone-2.28/ns-2.28
cd ..
3) 重新配置NS-2以便启用tcl-debug.
$ ./configure --with-tcldebug
注意:你可以从屏幕输出的信息查看到tcl-debug是否被验证了。
如果你没有看到以下的文字,你需要重复以前的步骤。
Checking for libtcldbg... -L/home/UserID/ns-allinone-2.28/ns-2.28/ ../tcl-debug-2.0 -ltcldbg
上面的文字在下面这句话之后出现
checking dmallc... not requested with --with-dmalloc
4)删除以前的编译纪录
$ make clean
注:这一步骤非常重要!
5)重新编译NS-2
$ make
现在tcl-debug已经嵌入到NS-2的可执行文件"ns.exe"中去了
6)检查NS-2是否能够正常运行。随便选择一个脚本测试一下就可以了
$ ns example.tcl
7) 拷贝ns.exe到ns-allinone-2.28/bin 目录里面(我觉得设置了环境变量就不用了)
4. 检查tcl-debug是否能够正常工作。
你可以通过添加debug 1在你的脚本中设置断点。示例如下:
1)从目录~ns/tcl/ex directory 里面选择一个脚本, 如:wireless-test.tcl,
利用文本编辑器编辑该脚本:
set ns_ [new Simulator]
debug 1; # 在这个位置添加这么一行代码
set chan [new $opt(chan)]
2) 运行 wireless-test.tcl
$ ns wireless-test.tcl
运行脚本之后,如果你成功安装,将会出现以下信息提示:
2: lappend auto_path $dbg_library
dbg2.0>
如果还有错误信息,你就重复检查以上各个过程是否正确,好运!
转自http://blog.csdn.net/flyuniverse_shell/article/details/5956618
1.下载 tcl-debug-2.0;将下载的tar包拷贝到与NS-2.34平行的目录下,并解压
2. 编译tcl-debug,并且将产生的可加载的库文件复制到NS-2.34的库目录里面,具体步骤如下:
1) 进入到tcl-debug目录下面
$ cd tcl-debug-2.0
2) 配置并且编译tcl-debug
$ ./configure --prefix =/home/pengyu/ns-allinone-2.34/ns-2.34/ --with-tcl=/home/pengyu/ns-allinone-2.34/tcl8.4.18/unix/
$ make
3)检查可加载的库文件(*.a) 在编译之后是否被创建。
查看是否产生了一个"libtcldbg.a" 文件。他是一个tcl的库文件。
4) 复制这个库文件到NS-2 库目录里面,即 /home/pengyu/ns-allinone-2.34/ns-2.34/lib下面
3. 编译NS-2
1) 进入ns-2.34目录下面,即 /home/pengyu/ns-allinone-2.34/ns-2.34
2) 重新配置NS-2以便启用tcl-debug.
$ ./configure --with-tcldebug=/home/pengyu/ns-allinone-2.34/tcl-debug-2.0
注意:你可以从屏幕输出的信息查看到tcl-debug是否被验证了。
如果你没有看到以下的文字,你需要重复以前的步骤。
Checking for libtcldbg... -L/home/pengyu/ns-allinone-2.34/tcl-debug-2.0 -ltcldbg
上面的文字在下面这句话之后出现
checking dmallc... not requested with --with-dmalloc
3)删除以前的编译纪录
$ make clean
注:这一步骤非常重要!
4)重新编译NS-2
$ make
现在tcl-debug已经嵌入到NS-2的可执行文件"ns.exe"中去了
5)检查NS-2是否能够正常运行。随便选择一个脚本测试一下就可以了
$ ns example.tcl
4. 检查tcl-debug是否能够正常工作。
你可以通过添加debug 1在你的脚本中设置断点。示例如下:
1)从目录~ns/tcl/ex directory 里面选择一个脚本, 如:wireless-test.tcl,
利用文本编辑器编辑该脚本:
set ns_ [new Simulator]
debug 1; # 在这个位置添加这么一行代码
set chan [new $opt(chan)]
2) 运行 wireless-test.tcl
$ ns wireless-test.tcl
运行脚本之后,如果你成功安装,将会出现以下信息提示:
2: lappend auto_path $dbg_library
dbg2.0>
使用:
在NS2中调试TCL/OTCL脚本了。设断点的方法是,直接在脚本文件中相应的位置加上debug 1。一些基本的命令如下:
s 单步执行(进入进程)
n 单步执行(不进入进程)
c 继续
r 继续执行直到从过程中返回
u 转至上级作用域
d 转至下级作用域
w 列出调用栈
b 设置,清除或显示断点
h 帮助
运行脚本,就会在相应的断点位置停下来,可以使用puts命令来打印输出各种变量的值。info也是一个我常用的命令。
info exists
info class //查询一个对象的类名
info instances //查询一个类的所有实例
info instprocs //查询一个类的所有实例过程
info vars
info superclass/subclass //查询一个类的超类/子类
gdb调试C++
gdb调试C++部分的代码也比较简单,如果系统不自带gdb,则先安装,安装好后需要修改$NS_HOME/ns-2.34中的Makefile文件,使得编译后的可执行文件带调试信息
将原来文件中的
CCOPT = -Wall -Wno-write-strings
中间添加-g,即
CCOPT = -Wall -g -Wno-write-strings
然后重新编译
make clean
make
使用时,
#cd $NS_HOME/ns-2.34
#gdb ns
#gdb>run test.tcl
然后如果要在某个源文件中添加断点
(gdb)>b mac/mac-sensor.cc (注意,这里是源文件,不是可执行文件)
(gdb)>b mac/wireless-phy.cc
(gdb)>run XXX.tcl