How to patch GPSR routing protocol to ns-2.34

muaz.sh · 03-11-2012, 07:03 PM

Hi there
I am using ns2.34 the following steps are workable to include Keliu GPSR implementation which could be downloaded from http://www.cs.binghamton.edu/~kliu/r...ode/index.html:
1- follow the three steps you find in the readme, but at step "2" you need to follow "or sentence" i.e you need to modify the files rather than replace them, here you will find some structural difference between Keliu files and ns2.34 files but all you need to do is to do the simple modifications which are mentioned within step "2" of the readme.txt file
2- after you performe step 3 i.e recompilation of ns2.34 "it should be error free" then you can test wireless-gpsr.tcl
3- if you want to get workable nam file i.e. with moving nodes rather than constant ones replace the following for loop:
for {set i 0} {$i < $opt(nn) } {incr i} {
gpsr-create-mobile-node $i
}
with this one:
for {set i 0} {$i < $opt(nn) } {incr i} {
gpsr-create-mobile-node $i
$node_($i) namattach $namfile #This command is used to attach the namtrace file descriptor <namtracefd> to the mobilenode. All nam traces for the node are then written into this namtrace file.
}

I also replaced the following command:
$ns_ namtrace-all $namfile
with this one:
$ns_ namtrace-all-wireless $namfile $opt(x) $opt(y)

I hope this helps all who need to integrate GPSR with ns2.34

muaz.sh · 03-11-2012, 07:04 PM

Hi there
I am using ns2.34 the following steps are workable to include Keliu GPSR implementation which could be downloaded from http://www.cs.binghamton.edu/~kliu/r...ode/index.html:
1- follow the three steps you find in the readme, but at step "2" you need to follow "or sentence" i.e you need to modify the files rather than replace them, here you will find some structural difference between Keliu files and ns2.34 files but all you need to do is to do the simple modifications which are mentioned within step "2" of the readme.txt file
2- after you performe step 3 i.e recompilation of ns2.34 "it should be error free" then you can test wireless-gpsr.tcl
3- if you want to get workable nam file i.e. with moving nodes rather than constant ones replace the following for loop:

for {set i 0} {$i < $opt(nn) } {incr i} {
gpsr-create-mobile-node $i
}
with this one:
for {set i 0} {$i < $opt(nn) } {incr i} {
gpsr-create-mobile-node $i
$node_($i) namattach $namfile #This command is used to attach the namtrace file descriptor <namtracefd> to the mobilenode. All nam traces for the node are then written into this namtrace file.
}

I also replaced the following command:
$ns_ namtrace-all $namfile
with this one:
$ns_ namtrace-all-wireless $namfile $opt(x) $opt(y)

I hope this helps all who need to integrate GPSR with ns2.34

mdkhasawneh · 03-12-2012, 11:31 AM

Dear muaz.sh can you help me

i add the patch for GPSR in Ns 2.33 and no errors

but when i run the command

ns hls.tcl

i get the following error

invalid command name "Agent/GPSR"
while executing
"Agent/GPSR set bdesync_ 0.5 "
(file "hls.tcl" line 6)

knudfl · 03-12-2012, 01:53 PM

# 18 : cd ns-allinone-2.33/ns-2.33/hls/utils/ && ./ns hls.tcl

Code:

num_nodes is set 40
Configuring Nodes (40)
INITIALIZE THE LIST xListHead
Starting Simulation...
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
radiorange 250, x 2000 y 2000
length : 3.000000 , cellperline 12 , heigth 3.000000
maxlevel 3
SORTING LISTS ...DONE!
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5,  distCST_ = 550.0
--- Classfier::no-slot{} default handler (tcl/lib/ns-lib.tcl) ---
        _o31: no target for slot 0
        _o31 type: Classifier/Port
content dump:
classifier _o31
        0 offset
        0 shift
        2147483647 mask
        1 slots
                slot 255: _o33 (CMUTrace/Recv)
---------- Finished standard no-slot{} default handler ----------

mdkhasawneh · 03-12-2012, 11:20 PM

Dear knudfl i did the command

cd ns-allinone-2.33/ns-2.33/hls/utils/ && ./ns hls.tcl

but after it run i get the error

invalid command name "Agent/GPSR"
while executing
"Agent/GPSR set bdesync_ 0.5 "
(file "hls.tcl" line 6)

is there is any solution for this error?

knudfl · 03-12-2012, 11:31 PM

# 20

The ns-2.33 build with the patch is very easy ,,, see post # 11.

Either you are using an unpatched 'ns'. Or your build failed.

Which OS are you using ? ? Version ? Read the links, also post # 11.
Is it 32bits ? 64bits ? The 'uname -m' command will tell.

.

mdkhasawneh · 03-12-2012, 11:51 PM

Dear knudfl im using ubunto 10.04 from Vbox

i run uname -m command and it give me i686

is this mean 64-bit?

and if it 64-bit how can i install 32-bit on my machine.

thnaks,

knudfl · 03-13-2012, 01:38 AM

# 22 : i686 is 32bits = The best choice.
I had the usual issues with the Ubuntu patch command (ns2 patches.)
An exit with no errors, but not all files were in the right location.
→ The missing files can be unpacked from "hls-files-ns233.tar.gz":
https://docs.google.com/open?id=0B7S...alV2SGhJdk1hQQ

This worked on Ubuntu 10.04 : sudo apt-get install g++-4.1

cd ns-allinone-2.33/ns-2.33/ && patch -p1 < ns-2.33-hls.patch
&& tar xvf hls-files-ns233.tar.gz && cd ../
&& export CC=gcc-4.1 CXX=g++-4.1 && ./install

hls.tcl : cd ns-allinone-2.33/ns-2.33/hls/utils/ && ../../ns hls.tcl
→ An OK result. Almost identical to post # 19.

.

sonasanam · 03-13-2012, 06:55 AM

hi

Am working on vanet routing , i want to change MAC layer to 802.11p,
can u help to include this into my tcl file

muaz.sh · 03-13-2012, 08:36 AM

Dear mdkhasawneh,
I did not try to use ns2.33 and the patch you use.However; I guess you did not install the patch correctly, because this error is the same as you did not include the header file of gpsr, so the compiler will not find the command. I suggest you reinstall the patch following steps mentioned in the Readme file strictly.

mdkhasawneh · 03-13-2012, 01:42 PM

Quote:

Originally Posted by knudfl

# 22 : i686 is 32bits = The best choice.
I had the usual issues with the Ubuntu patch command (ns2 patches.)
An exit with no errors, but not all files were in the right location.
→ The missing files can be unpacked from "hls-files-ns233.tar.gz":
https://docs.google.com/open?id=0B7S...alV2SGhJdk1hQQ

This worked on Ubuntu 10.04 : sudo apt-get install g++-4.1

cd ns-allinone-2.33/ns-2.33/ && patch -p1 < ns-2.33-hls.patch
&& tar xvf hls-files-ns233.tar.gz && cd ../
&& export CC=gcc-4.1 CXX=g++-4.1 && ./install

hls.tcl : cd ns-allinone-2.33/ns-2.33/hls/utils/ && ../../ns hls.tcl
→ An OK result. Almost identical to post # 19.

.

Dear knudfl i follow your provided steps and now ns hls.tcl is working

can you help me to run GPSR using NAM

i want to have animation for the protcol.

mdkhasawneh · 03-14-2012, 11:54 PM

Dear muaz.sh i applied the steps in post # 17

to Keliu GPSR implementation but after run ns wireless-gpsr.tcl

i get this:

num_nodes is set 100
warning: Please use -channel as shown in tcl/ex/wireless-mitf.tcl
GPSR configuration file
INITIALIZE THE LIST xListHead
Loading connection pattern...
Loading scenario file...
Load complete...
Starting Simulation...
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5, distCST_ = 129.2
SORTING LISTS ...DONE!
NS EXITING...

and also nothing showed on the screen no animation.

is there is anything missing in my code i already modify wireless-gpsr.tcl accourding to post #17.

knudfl · 03-15-2012, 05:04 AM

#27

Some tcl files will include a command to open a nam window.

All other tcl scripts, that create an <out.nam> file :
Nam is to be run afterwards : nam out.nam

mdkhasawneh · 03-15-2012, 05:19 AM

Dear knudfl how can i modify wireless-gpsr.tcl to run nam animation

i will post the content of the tcl file:

Code:

# Copyright (c) 1997 Regents of the University of California.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
#    must display the following acknowledgement:
#      This product includes software developed by the Computer Systems
#      Engineering Group at Lawrence Berkeley Laboratory.
# 4. Neither the name of the University nor of the Laboratory may be used
#    to endorse or promote products derived from this software without
#    specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Header: /home/cvs/repository/kliu/ns2/gpsr/wireless-gpsr.tcl,v 1.8 2005/12/01 00:03:17 kliu Exp $
#
# Ported from CMU/Monarch's code, nov'98 -Padma.




# ======================================================================
# Default Script Options
# ======================================================================
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	;# for dsdv
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(cp)		"./cbr100.tcl"
set opt(sc)		"./grid-deploy10x10.tcl"

set opt(ifqlen)		50		;# max packet in ifq
set opt(nn)		100		;# number of nodes
set opt(seed)		0.0
set opt(stop)		250.0		;# simulation time
set opt(tr)		trace.tr		;# trace file
set opt(nam)            nam.out.tr
set opt(rp)             gpsr		;# routing protocol script (dsr or dsdv)
set opt(lm)             "off"		;# log movement

# ======================================================================

LL set mindelay_		50us
LL set delay_			25us
LL set bandwidth_		0	;# not used

Agent/Null set sport_		0
Agent/Null set dport_		0

Agent/CBR set sport_		0
Agent/CBR set dport_		0

Agent/TCPSink set sport_	0
Agent/TCPSink set dport_	0

Agent/TCP set sport_		0
Agent/TCP set dport_		0
Agent/TCP set packetSize_	1460

Queue/DropTail/PriQueue set Prefer_Routing_Protocols    1

# 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 freq_ 914e+6 
Phy/WirelessPhy set L_ 1.0


# The transimssion radio range 
#Phy/WirelessPhy set Pt_ 6.9872e-4    ;# ?m
Phy/WirelessPhy set Pt_ 8.5872e-4    ;# 40m
#Phy/WirelessPhy set Pt_ 1.33826e-3   ;# 50m
#Phy/WirelessPhy set Pt_ 7.214e-3     ;# 100m
#Phy/WirelessPhy set Pt_ 0.2818       ;# 250m
# ======================================================================

# Agent/GPSR setting
Agent/GPSR set planar_type_  1   ;#1=GG planarize, 0=RNG planarize
Agent/GPSR set hello_period_   5.0 ;#Hello message period

# ======================================================================

proc usage { argv0 }  {
	puts "Usage: $argv0"
	puts "\tmandatory arguments:"
	puts "\t\t\[-x MAXX\] \[-y MAXY\]"
	puts "\toptional arguments:"
	puts "\t\t\[-cp conn pattern\] \[-sc scenario\] \[-nn nodes\]"
	puts "\t\t\[-seed seed\] \[-stop sec\] \[-tr tracefile\]\n"
}


proc getopt {argc argv} {
	global opt
	lappend optlist cp nn seed sc stop tr x y

	for {set i 0} {$i < $argc} {incr i} {
		set arg [lindex $argv $i]
		if {[string range $arg 0 0] != "-"} continue

		set name [string range $arg 1 end]
		set opt($name) [lindex $argv [expr $i+1]]
	}
}


#proc cmu-trace { ttype atype node } {
#	global ns_ tracefd
#
#        puts ABC
#	if { $tracefd == "" } {
#		return ""
#	}
#	puts BCD
#	set T [new CMUTrace/$ttype $atype]
#	$T target [$ns_ set nullAgent_]
#	$T attach $tracefd
#        $T set src_ [$node id]
#	
#        $T node $node
#
#	return $T
#}




proc log-movement {} {
    global logtimer ns_ ns

    set ns $ns_
    source ../tcl/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
}

# ======================================================================
# Main Program
# ======================================================================
#
# Source External TCL Scripts
#
#source ../lib/ns-mobilenode.tcl

#if { $opt(rp) != "" } {
	#source ../mobility/$opt(rp).tcl
	#} elseif { [catch { set env(NS_PROTO_SCRIPT) } ] == 1 } {
	#puts "\nenvironment variable NS_PROTO_SCRIPT not set!\n"
	#exit
#} else {
	#puts "\n*** using script $env(NS_PROTO_SCRIPT)\n\n";
        #source $env(NS_PROTO_SCRIPT)
#}
#source ../tcl/lib/ns-cmutrace.tcl
source ../tcl/lib/ns-bsnode.tcl
source ../tcl/mobility/com.tcl

# do the get opt again incase the routing protocol file added some more
# options to look for
getopt $argc $argv

if { $opt(x) == 0 || $opt(y) == 0 } {
	usage $argv0
	exit 1
}

if {$opt(seed) > 0} {
	puts "Seeding Random number generator with $opt(seed)\n"
	ns-random $opt(seed)
}

#
# Initialize Global Variables
#
set ns_		[new Simulator]
set chan	[new $opt(chan)]
set prop	[new $opt(prop)]
set topo	[new Topography]

set tracefd   [open $opt(tr) w]
$ns_ trace-all  $tracefd

set namfile [open $opt(nam) w]
$ns_ namtrace-all-wireless $namfile $opt(x) $opt(y)

$topo load_flatgrid $opt(x) $opt(y)

$prop topography $topo

#
# Create God
#
set god_ [create-god $opt(nn)]


#
#  Create the specified number of nodes $opt(nn) and "attach" them
#  the channel.
#  Each routing protocol script is expected to have defined a proc
#  create-mobile-node that builds a mobile node and inserts it into the
#  array global $node_($i)
#

$ns_ node-config -adhocRouting gpsr \
                 -llType $opt(ll) \
                 -macType $opt(mac) \
                 -ifqType $opt(ifq) \
                 -ifqLen $opt(ifqlen) \
                 -antType $opt(ant) \
                 -propType $opt(prop) \
                 -phyType $opt(netif) \
                 -channelType $opt(chan) \
                 -topoInstance $topo \
                 -agentTrace ON \
                 -routerTrace ON \
                 -macTrace OFF \
                 -movementTrace OFF 

source ./gpsr.tcl

for {set i 0} {$i < $opt(nn) } {incr i} {
    gpsr-create-mobile-node $i
    $node_($i) namattach $namfile
}


#
# Source the Connection and Movement scripts
#
if { $opt(cp) == "" } {
	puts "*** NOTE: no connection pattern specified."
        set opt(cp) "none"
} else {
	puts "Loading connection pattern..."
	source $opt(cp)
}




#
# 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).00000001 "puts \"NS EXITING...\" ; $ns_ halt"


if { $opt(sc) == "" } {
	puts "*** NOTE: no scenario file specified."
        set opt(sc) "none"
} else {
	puts "Loading scenario file..."
	source $opt(sc)
	puts "Load complete..."
}

puts $tracefd "M 0.0 nn $opt(nn) x $opt(x) y $opt(y) rp $opt(rp)"
puts $tracefd "M 0.0 sc $opt(sc) cp $opt(cp) seed $opt(seed)"
puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"

puts "Starting Simulation..."

proc finish {} {
    global ns_ tracefd namfile
    $ns_ flush-trace
    close $tracefd
    close $namfile
    exit 0
}

$ns_ at $opt(stop) "finish"

$ns_ run

knudfl · 03-15-2012, 05:51 AM

Post #29 : Please hit the 'Edit' button in post #29 and edit to CODE Tags.
Write [/code] at code text end, and [code] at code start.
Or use the # button in the 'Advanced Editor'.

Post # 17 indicates that a nam file should be generated.

Why not use that file ? ? nam <file.nam>

.