通讯编程

开发平台：
Visual C++

test-suite-wireless-infra.tcl：源码内容
							# -*-	Mode:tcl; tcl-indent-level:8; tab-width:8; indent-tabs-mode:t -*-
# The default for rfc2988_ is being changed to true.
Mac/802_11 set bugFix_timer_ true;     # default changed 2006/1/30
#
# Copyright (c) 1998,2000 University of Southern California.
# All rights reserved.                                            
#                                                                
# Redistribution and use in source and binary forms are permitted
# provided that the above copyright notice and this paragraph are
# duplicated in all such forms and that any documentation, advertising
# materials, and other materials related to such distribution and use
# acknowledge that the software was developed by the University of
# Southern California, Information Sciences Institute.  The name of the
# University may not be used to endorse or promote products derived from
# this software without specific prior written permission.
# 
# THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
# 
Class TestSuite
Class Test/wireless-infra -superclass TestSuite
 
  proc usage {} {
  global argv0
  puts stderr "usage: ns $argv0 <tests> "
  puts "valid Tests: wireless-infra"
  exit 1
  }
  proc default_options {} {
      global opt
      set opt(chan)	Channel/WirelessChannel
      set opt(prop)	Propagation/TwoRayGround
      set opt(netif)	Phy/WirelessPhy
      set opt(mac)	Mac/802_11
      set opt(ifq)	Queue/DropTail/PriQueue
      set opt(ll)		LL
      set opt(ant)        Antenna/OmniAntenna
      set opt(x)		670 ;# X dimension of the topography
      set opt(y)		670;# Y dimension of the topography
      set opt(ifqlen)	50	      ;# max packet in ifq
      set opt(seed)	0.0
      set opt(tr)		temp.rands    ;# trace file
      set opt(lm)         "OFF"          ;# log movement
      set opt(eott)	"ON"	      ;# eot trace
  }
  # =====================================================================
  # Other default settings
  
 
  # unity gain, omni-directional antennas
  # set up the antennas to be centered in the node and 1.5 meters above it
  Antenna/OmniAntenna set X_ 0
  Antenna/OmniAntenna set Y_ 0
  Antenna/OmniAntenna set Z_ 1.5
  Antenna/OmniAntenna set Gt_ 1.0
  Antenna/OmniAntenna set Gr_ 1.0
 
  # Initialize the SharedMedia interface with parameters to make
  # it work like the 914MHz Lucent WaveLAN DSSS radio interface
  Phy/WirelessPhy set CPThresh_ 10.0
  Phy/WirelessPhy set CSThresh_ 1.559e-11
  Phy/WirelessPhy set RXThresh_ 3.652e-10
  Phy/WirelessPhy set Rb_ 2*1e6
  Phy/WirelessPhy set Pt_ 0.28183815
  Phy/WirelessPhy set freq_ 914e6
  Phy/WirelessPhy set L_ 1.0
 
  # =====================================================================
 
  TestSuite instproc init {} {
  	global opt tracefd topo chan prop
  	global node_ god_
  	$self instvar ns_ testName_
  	set ns_         [new Simulator]
  	set topo	[new Topography]
  	set tracefd	[open $opt(tr) w]
 
  	$ns_ trace-all $tracefd
 
  	$topo load_flatgrid $opt(x) $opt(y)
 
  	puts $tracefd "M 0.0 nn:$opt(nn) x:$opt(x) y:$opt(y)"
  	puts $tracefd "M 0.0 seed:$opt(seed)"
  	puts $tracefd "M 0.0 prop:$opt(prop) ant:$opt(ant)"
  	puts $tracefd "M 0.0 eott:$opt(eott)"
 
  	set god_ [create-god $opt(nn)]
  }
 
  Test/wireless-infra instproc init {} {
      global opt node_ mac_ god_ chan topo
      $self instvar ns_ testName_
      set testName_       wireless-infra
      set opt(nn)		10
      set opt(stop)       10.0
 
      $self next
 
      $ns_ node-config -adhocRouting DumbAgent 
                           -llType $opt(ll) 
                           -macType $opt(mac) 
                           -ifqType $opt(ifq) 
                           -ifqLen $opt(ifqlen) 
                           -antType $opt(ant) 
                           -propType $opt(prop) 
                           -phyType $opt(netif) 
  			 -channel [new $opt(chan)] 
  			 -topoInstance $topo 
                          -agentTrace ON 
                           -routerTrace OFF 
                           -macTrace ON 
                           -movementTrace OFF 
  			 -eotTrace $opt(eott)
 
 
      #
      # We set some parameters as default values, and some
      # we wait until after creating the node.  
 
      
      Mac/802_11 set BeaconInterval_ 0.2
      Mac/802_11 set dataRate_ 11Mb
      for {set i 0} {$i < $opt(nn) } {incr i} {
                  set node_($i) [$ns_ node]
                  $node_($i) random-motion 0              ;# disable random motion
  		set mac_($i) [$node_($i) getMac 0]
 
      		$mac_($i) set RTSThreshold_ 3000
 
  		$node_($i) set X_ $i
  		$node_($i) set Y_ 0.0
  		$node_($i) set Z_ 0.0
      }
 
      # Tell everyone who the AP is
     set AP_ADDR1 [$mac_(0) id]
     $mac_(0) ap $AP_ADDR1
     set AP_ADDR2 [$mac_([expr $opt(nn) - 1]) id]
     $mac_([expr $opt(nn) - 1]) ap $AP_ADDR2
     $mac_(1) ScanType ACTIVE
     for {set i 3} {$i < [expr $opt(nn) - 1]} {incr i} {
	   $mac_($i) ScanType PASSIVE	;#Passive
     }
      $ns_ at 1.0 "$mac_(2) ScanType ACTIVE"
 
      puts "Load complete..."
 
      $self  create-udp-traffic 0 $node_(5) $node_(1) 2.0
      $self  create-udp-traffic 1 $node_(4) $node_(8) 3.0
 
      #
      # Tell all the nodes when the simulation ends
      #
      for {set i 0} {$i < $opt(nn) } {incr i} {
  	$ns_ at $opt(stop).000000001 "$node_($i) reset";
      }
 
      $ns_ at $opt(stop).000000001 "puts "NS EXITING..." ;"
      $ns_ at $opt(stop).1 "$self finish"
  }
 
  Test/wireless-infra instproc run {} {
      $self instvar ns_
      puts "Starting Simulation..."
      $ns_ run
  }
 
 
 
  TestSuite instproc finish-basenode {} {
  	$self instvar ns_
  	global quiet opt tracefd
 
  	flush $tracefd
  	close $tracefd
 
          set tracefd	[open $opt(tr) r]
          set tracefd2    [open $opt(tr).w w]
 
          while { [eof $tracefd] == 0 } {
 
  	    set line [gets $tracefd]
  	    set items [split $line " "]
  	    if { [lindex $items 0] == "M" } {
  		puts $tracefd2 $line
  	    } else {
  		if { [llength $items] > 15} {
  		    puts $tracefd2 $line
  		}
  	    }
  	}
 
  	close $tracefd
  	close $tracefd2
 
  	exec mv $opt(tr).w $opt(tr)
 
  	puts "finishing.."
  	exit 0
  }
 
  TestSuite instproc finish {} {
  	$self instvar ns_
  	global quiet
 
  	$ns_ flush-trace
          #if { !$quiet } {
          #        puts "running nam..."
          #        exec nam temp.rands.nam &
          #}
  	puts "finishing.."
  	exit 0
  }
 
 
  #TestSuite instproc log-movement {} {
  #	global ns
  #	$self instvar logtimer_ ns_
  #
  #	set ns $ns_
  #	source ../mobility/timer.tcl
  #	Class LogTimer -superclass Timer
  #	LogTimer instproc timeout {} {
  #		global opt node_;
  #		for {set i 0} {$i < $opt(nn)} {incr i} {
  #			$node_($i) log-movement
  #		}
  #		$self sched 0.1
  #	}
  #
  #	set logtimer_ [new LogTimer]
  #	$logtimer_ sched 0.1
  #}
 
  TestSuite instproc create-tcp-traffic {id src dst start} {
      $self instvar ns_
      set tcp_($id) [new Agent/TCP]
      $tcp_($id) set class_ 2
      set sink_($id) [new Agent/TCPSink]
      $ns_ attach-agent $src $tcp_($id)
      $ns_ attach-agent $dst $sink_($id)
      $ns_ connect $tcp_($id) $sink_($id)
      set ftp_($id) [new Application/FTP]
      $ftp_($id) attach-agent $tcp_($id)
      $ns_ at $start "$ftp_($id) start"
 
  }
 
 
  TestSuite instproc create-udp-traffic {id src dst start} {
      $self instvar ns_
      set udp_($id) [new Agent/UDP]
      $ns_ attach-agent $src $udp_($id)
      set null_($id) [new Agent/Null]
      $ns_ attach-agent $dst $null_($id)
      set cbr_($id) [new Application/Traffic/CBR]
      $cbr_($id) set packetSize_ 512
      $cbr_($id) set rate_ 64Kb
      $cbr_($id) attach-agent $udp_($id)
      $ns_ connect $udp_($id) $null_($id)
      $ns_ at $start "$cbr_($id) start"
 
  }
 
 
  proc runtest {arg} {
  	global quiet
  	set quiet 0
 
  	set b [llength $arg]
  	if {$b == 1} {
  		set test $arg
  	} elseif {$b == 2} {
  		set test [lindex $arg 0]
  		if {[lindex $arg 1] == "QUIET"} {
  			set quiet 1
  		}
  	} else {
  		usage
  	}
  	set t [new Test/$test]
 
 
  	$t run
  }
 
  global argv arg0
  default_options
  runtest $argv
 
 
 
 
 

						