[ns] Please Help me porting GPSR

[harish r]

Hi ALL
I have been trying to port GPSR for our research application from 
ns2.16b to 2.27. I have successfully fixed all the errors in the 
C++ files.

I am unable to fix the tcl errors even after trying a lot of 
things.
Please help me out as it is important for my current research 
project.

Even if somebody tells me the possible location of the error in 
the ns-2 files I'll try to fix it.

Here is what I'm getting when I run the TestSuite for gpsr. I have 
added  a class called GPSRNode very similar to SRNode in DSR.

     (_o20 cmd line 1)
     invoked from within
"_o20 cmd addr 0"
     invoked from within
"catch "$self cmd $args" ret"
     invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
     (procedure "_o20" line 2)
     (SplitObject unknown line 2)
     invoked from within
"$gpsr_agent_ addr $address_"
     (procedure "_o16" line 14)
     (GPSRNode init line 14)
     invoked from within
"_o16 init "
     (Class create line 1)
     invoked from within
"GPSRNode create _o16 "
     invoked from within
"catch "$className create $o $args" msg"
     invoked from within
"if [catch "$className create $o $args" msg] {
if [string match "__FAILED_SHADOW_OBJECT_" $msg] {
delete $o
return ""
}
global errorInfo
error "class $..."
     (procedure "new" line 3)
     invoked from within
"new GPSRNode"
     invoked from within
"if [Simulator hier-addr?] {
if [Simulator set mobile_ip_] {
set node_($id) [new GPSRNode/MIPMH $args]
} else {
set node_($id) [new GPSRNode $args]
}
}..."
     (procedure "gpsr-create-mobile-node" line 4)
     invoked from within
"$testName_-create-mobile-node $i"
     (procedure "_o3" line 17)
     (Test/gpsr init line 17)
     invoked from within
"_o3 init "
     (Class create line 1)
     invoked from within
"Test/gpsr create _o3 "
     invoked from within
"catch "$className create $o $args" msg"
     invoked from within
"if [catch "$className create $o $args" msg] {
if [string match "__FAILED_SHADOW_OBJECT_" $msg] {
delete $o
return ""
}
global errorInfo
error "class $..."
     (procedure "new" line 3)
     invoked from within
"new Test/$test"
     (procedure "runtest" line 41)
     invoked from within
"runtest $argv"
     (file "gpsr-cmu.tcl" line 378)