开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
topo-view.tcl
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：1k
源码类别：

通讯编程

开发平台：

Visual C++

topo-view.tcl：源码内容
  1. ################ XXX temp to view the topology using nam.. !! ###
  3. proc view-topology { infile outfile hier_flag } {
  4.         source $infile
  5. global ns node
  6. set f [open $outfile w]
  7.         set ns [new Simulator]
  9.         $ns namtrace-all $f
  11.         # create-topology ... [params]..
  12. if {$hier_flag} {
  13. create-hier-topology ns node 1.5Mb
  14. } else {
  15. create-topology ns node 1.5Mb
  16. }
  18.         #... dump the file
  19.         $ns dump-topology $f
  20.         delete $ns
  21.         flush $f
  22.         close $f
  23.         # run nam
  24.         puts "running nam with $outfile ... "
  25.         exec nam $outfile &
  26. }
  27.                 
  28. Simulator instproc dump-topology { file } {
  29.         $self instvar topology_dumped started_
  30. set started_ 1
  32.         # set topology_dumped 1
  34. # make sure this does not affect anything else later on !
  35. # $self namtrace-all $file
  36.                 
  37.         # Color configuration for nam
  38.         $self dump-namcolors
  39.                 
  40.         # Node configuration for nam
  41.         $self dump-namnodes
  42.                 
  43.         # Lan and Link configurations for nam
  44.         $self dump-namlans
  45.         $self dump-namlinks
  47.         # nam queue configurations
  48.         $self dump-namqueues
  49.  
  50.         # Traced agents for nam
  51.         $self dump-namagents
  52. }