patch_ns-lib.tcl.2.28

c＋＋编写的ns环境下关于wfq算法的仿真源代码

--- ns-2.28/tcl/lib/ns-lib.tcl	2005-01-24 22:03:43.000000000 +0200
+++ ns-2.28-amodels/tcl/lib/ns-lib.tcl	2005-08-01 16:36:56.000000000 +0300
@@ -970,6 +970,10 @@
 			set qtype [lindex $args 0]
 			set q [new Queue/$qtype]
 		}
+		WFQ {
+			set q [new Queue/$qtype]
+			$q set bandwidth_ $bw
+		}
 		XCP {
 			set q [ $self create-XCPQ ]
 		}
@@ -1436,6 +1440,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