Re: [ns] Classifiers

["Adrian Coward" <cowarda@sunbeach.net>]

Hi,
  Did it look anything like what is below?

Thanks,
  Adrian

-------------------[ns-fr.tcl]------------------
Class Node/frNode -superclass Node
Class Classifier/Addr/fr -superclass Classifier/Addr

Classifier/Addr/fr instproc init {} {
  $self next
}

Node/frNode instproc init args {
 eval $self next $args  ;# parent class constructor
}

Node/frNode instproc reset {} {
        eval $self next 
}

Node/frNode instproc mk-default-classifier {} {
        $self instvar classifier_
        $self set classifier_ [new Classifier/Addr/fr]
}

# ======================================================================
#
# methods for creating Nodes
#
# ======================================================================

Simulator instproc frnode { } {
  $self instvar Node_
  set node [new Node/frNode]
  
  set Node_([$node id]) $node
  $node set ns_ $self

  $self check-node-num    
  return $node
}

#Default settings...
Classifier/Addr/fr set mask_ [AddrParams NodeMask 1]
Classifier/Addr/fr set shift_ [AddrParams NodeShift 1]