patch_ns-lib.tcl

来自「c＋＋编写的ns环境下关于wfq算法的仿真源代码」· TCL 代码 · 共 26 行

--- ns-2.1b9a/tcl/lib/ns-lib.tcl	Fri Jun 21 01:26:18 2002
+++ ns-2.1b9a-wfq/tcl/lib/ns-lib.tcl	Wed Nov 27 11:36:24 2002
@@ -895,6 +895,10 @@
 		set qtype [lindex $args 0]
 		set q [new Queue/$qtype]
 	    }
+            WFQ {
+                 set q [new Queue/$qtype]
+                 $q set bandwidth_ $bw
+            }
 	    default {
 		if { [llength $args] == 0} {
 		    set q [new Queue/$qtype]
@@ -1323,6 +1327,11 @@
 	[$link_([$n1 id]:[$n2 id]) queue] set limit_ $limit
 }
 
+Simulator instproc wfqclassifier-install { n1 n2 clssf } {
+	$self instvar link_
+	[$link_([$n1 id]:[$n2 id]) queue] install $clssf
+}
+
 Simulator instproc drop-trace { n1 n2 trace } {
 	$self instvar link_
 	[$link_([$n1 id]:[$n2 id]) queue] drop-target $trace