Hi
I am implementing QoS for that I am using class based queue for wirless
network. i made three types of traffic classess. I am taking Queue/CBQ/WRR as
interface queue.
then i am defining 3 priority classes and insert them into queue object.
(IN cbq_example.tcl, they insert classess into cbqlink, because i m usnig
wireless network which does not use Link object.)
before that i am classsifing all packets by Classiffie/Hash/Fid.
my code is like this
############################
# The root class
set topclass [new CBQClass]
$topclass setparams none 0 1 auto 8 2 0
# Highest priority class
set class1 [new CBQClass]
set queue1 [new Queue/DropTail]
$class1 install-queue $queue1
$class1 setparams $topclass true 0.5 auto 1 1 0
# Medium priority class
set class2 [new CBQClass]
set queue2 [new Queue/DropTail]
$class2 install-queue $queue2
$class2 setparams $topclass true 0.3 auto 2 1 0
# Low Priority class
set class3 [new CBQClass]
set queue3 [new Queue/DropTail]
$class3 install-queue $queue3
$class3 setparams $topclass true 0.2 auto 3 1 0
#######################################################
for {set i 0} {$i < $val(nn)} {incr i} {
# create nodes
set node_($i) [$ns_ node]
$node_($i) color "$i"
$node_($i) shape "circle"
# set parameters of link
[$node_($i) getLL 0] set bandwidth_ 1000000
[$node_($i) getLL 0] set delay_ 0.001
#getIFQ return interface queue object, i defined this method into
mobilenode.tcl, and getLL return link layer object
[$node_($i) getIFQ 0] link [$node_($i) getLL 0]
[$node_($i) getLL 0] ifq [$node_($i) getIFQ 0]
# Insert priority classes into CBQ object
[$node_($i) getIFQ 0] insert-class $topclass
[$node_($i) getIFQ 0] insert-class $class1
[$node_($i) getIFQ 0] insert-class $class2
[$node_($i) getIFQ 0] insert-class $class3
#i wrote bind method into mobilenode.tcl(as mentioned below)
$node_($i) bind $class1 0
$node_($i) bind $class2 1
$node_($i) bind $class2 2
$node_($i) bind $class2 3
$node_($i) bind $class3 4
##### bind method in mobile.tcl
$self instvar hashClassifier_
set $hClassifier_ hashClassifier_
set slot [$hashClassifier_ installNext $cbqClass]
$hashClassifier_ set-hash auto 0 0 $fid $slot
############################################
i would be very thank ful if anybody solve my problem.
Thank you.
bye
---------------------------------
Do you Yahoo!?
Get on board. You're invited to try the new Yahoo! Mail.
