[ns] problem of node instproc install-entry

["HE Jun" <iscp0252@nus.edu.sg>]

hi, Haobo:

 

The following is excerpted from ns-node.tcl. I think the underlined line

 

                    $clsfr target $hook_assoc($classifier_)

 

should be

                    $clsfr target $hook_assoc_($classifier_)

 

do you think so?

 

Node instproc install-entry { module clsfr {hook ""} } {
     $self instvar classifier_ mod_assoc_ hook_assoc_
     if [info exists classifier_] {
          if [info exists mod_assoc_($classifier_)] {
           $self unregister-module $mod_assoc_($classifier_)
           unset mod_assoc_($classifier_)
          }
          # Connect the new classifier to the existing classifier chain,
          # if there is any.
  

        if [info exists hook_assoc_($classifier_)] {
           if { $hook == "target" } {
                    $clsfr target $hook_assoc($classifier_)
            } elseif { $hook != "" } {
                    $clsfr install $hook $hook_assoc_($classifier_)
           }
          

           set hook_assoc_($clsfr) $hook_assoc_($classifier_)
           unset hook_assoc_($classifier_)
          }
     }
     set mod_assoc_($clsfr) $module
     set classifier_ $clsfr
}

 

 

HE Jun