[ns] Dear NS-users, please help me about error of tora ad hoc routing!!

[ByungJoon Oh]

Dear respect NS-users,

I got error message of tora routing with same between ns-2.29 and ns-2.28.
so please help me to figure out it.
I'm waiting to your kindly response for me.

Thank you in advance.

Best regards,
ByungJoon Oh,

##############################ns-2.29 version######################
boh at netsim:~> ns wrls-tora2.tcl
num_nodes is set 4
warning: Please use -channel as shown in tcl/ex/wireless-mitf.tcl
warning: no class variable Mac/802_11::MaxSDUSize_

        see tcl-object.tcl in tclcl for info about this warning.


    (_o19 cmd line 1)
    invoked from within
"_o19 cmd ll _o21"
    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 "_o19" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$mac ll $ll"
    (procedure "_o14" line 97)
    (Node/MobileNode add-interface line 97)
    invoked from within
"$node add-interface $chan $propInstance_ $llType_ $macType_  $ifqType_ $ifqlen_ $phyType_ $antType_ $topoInstance_  $inerrProc_ $outerrProc_ $FECProc_"
    (procedure "_o3" line 73)
    (Simulator create-wireless-node line 73)
    invoked from within
"_o3 create-wireless-node"
    ("eval" body line 1)
    invoked from within
"eval $self create-wireless-node $args"
    (procedure "_o3" line 23)
    (Simulator node line 23)
    invoked from within
"$ns node"
    ("for" body line 2)
    invoked from within
"for {set i 0} {$i < $val(nn) } { incr i } {
                set node_($i) [$ns node]
        }"
    (file "wrls-tora2.tcl" line 54)


##############################ns-2.28 version######################

see tcl-object.tcl in tclcl for info about this warning.
    (_o19 cmd line 1)
    invoked from within
"_o19 cmd ll _o21"
    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 "_o19" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$mac ll $ll"
    (procedure "_o14" line 97)
    (Node/MobileNode add-interface line 97)
    invoked from within
"$node add-interface $chan $propInstance_ $llType_ $macType_  $ifqType_ $ifqlen_ $phyType_ $antType_ $topoInstance_  $inerrProc_ $outerrProc_ $FECProc_"
    (procedure "_o3" line 73)
    (Simulator create-wireless-node line 73)
    invoked from within
"_o3 create-wireless-node"
    ("eval" body line 1)
    invoked from within
"eval $self create-wireless-node $args"
    (procedure "_o3" line 23)
    (Simulator node line 23)
    invoked from within
"$ns node"
    ("for" body line 2)
    invoked from within
"for {set i 0} {$i < $val(nn) } { incr i } {
                set node_($i) [$ns node]
        }"
    (file "wrls-tora2.tcl" line 54)