[ns] set and get the parameter values of EDCA of a node

[Basim Javed]

Dear all NS/ers

Could somebody help me in a terrible situation, for which i am not
getting any help.

I am using ns 2.31 and TKN EDCA patch for 802.11e. I need to set and
get the priority queues of 802.11e based node, for different
parameters such as AIFS (per node per queue). I am not very familiar
with tcl, and have no idea what this msg is asking me. So do u have
any
idea how to resolve this error for 802.11e?

thank you very much.
kind regards
basim

-----------
CODE piece
----------
Node/MobileNode instproc get-ifq {} {
   puts "First"
   $self instvar ifq_
   puts "Second"
   return $ifq_(0)
 }

puts "Test RV"
set ifq [$node_(0) get-ifq]
$ifq Prio 0 AIFS 2
puts "Test RV_END"
close $testout

proc dump_priority {}  {
   global node_

   # dump mobile priorities (all mobile priorities are the same, so
only dump one of them)
   set ifq [$node_(0) get-ifq]
   puts "Test BWP1"
   set addr [AddrParams addr2id [$node_(0) node-addr]]
   #set levels [$ifq levels]
   set levels 4
   puts "Test BWP2"
   foreach var "PF CW_MIN CW_MAX AIFS TXOPLimit" {
       puts -nonewline stderr [format "%7d  %-9s  " $addr  $var]
       for {set i 0} {$i < $levels} {incr i} {
           if {$var == "TXOPLimit"} {
               puts -nonewline stderr [format "%1d  %8.6f   " $i \
                                           [$ifq get-prio $i $var]]
           } else {
               puts -nonewline stderr [format "%1d  %8d   " $i \
                                           [$ifq get-prio $i $var]]
           }
       }
       puts stderr ""
   }
}
puts "iub"
#set levels [$ifq levels]
set a [$ifq get-prio 0 PF]
----------
ERRORS
----------
     (_o22 cmd line 1)
     invoked from within
  "_o22 cmd get-prio 0 PF"
     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 "_o22" line 2)
     (SplitObject unknown line 2)
     invoked from within
  "$ifq get-prio 0 PF"
     invoked from within
  "set a [$ifq get-prio 0 PF]"
     (file "w1.tcl" line 258)