patch_ns-lib.tcl.2.29

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

--- ns-2.29/tcl/lib/ns-lib.tcl	2005-10-20 07:45:23.000000000 +0300
+++ ns-2.29-wfq/tcl/lib/ns-lib.tcl	2005-12-13 16:47:40.000000000 +0200
@@ -1009,6 +1009,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]
@@ -1472,6 +1476,11 @@
 	}
 }
 
+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