ns-rtmodule.tcl.diffs

来自「it is very important」· DIFFS 代码 · 共 22 行

*** ns-rtmodule.tcl.original	Mon Oct 30 14:11:22 2000
--- ns-rtmodule.tcl	Wed Oct 25 13:48:49 2000
***************
*** 95,100 ****
--- 95,110 ----
  	$node install-entry $self $classifier_
  }
  
+ RtModule/Nix instproc register { node } {
+ 	$self next $node
+ 	# Create classifier
+ 	$self instvar classifier_
+ 	set classifier_ [new Classifier/Nix]
+ 	$classifier_ set-node-id [$node set id_]
+ 	#puts "RtModule/Nix set node id to [$node set id_]"
+ 	$node install-entry $self $classifier_
+ }
+ 
  
  #
  # Illustrates usage of insert-entry{}. However: