insignia.tcl

来自「INSIGNIA是专门为无线ad hoc网络设计的qos信令协议」· TCL 代码 · 共 25 行

# ======================================================================
# INSIGNIA Setup
# ======================================================================

set insignia_ [new Agent/INSIGNIA]

$insignia_ ip-addr [$self id]
$insignia_ target  $classifier_

# ======================================================================
# INSIGNIA Options
# ======================================================================

$insignia_ ins_sum   "ON"             ;# INSIGNIA summary ON/OFF
$insignia_ ins_tr    "ON"             ;# INSIGNIA trace   ON/OFF
$insignia_ ins_dir   $opt(ins_dir)    ;# INSIGNIA results directory

$insignia_ flow_spec  0   512  0.1  0  0  0  0
$insignia_ flow_spec  1   512  0.1  1  1  4  3
$insignia_ flow_spec  2   512  0.1  1  2  2  2
$insignia_ flow_spec  3   512  0.1  1  1  1  1
$insignia_ flow_spec  4  1024  0.1  1  1  1  2

# INSIGNIA flow specification :
# $insignia_ flow_spec [source port number] [packet size] [packet generatation interval] [ratio of BQ] [ratio of EQ] [adaptation granulity] [adaptation parameter]