ns-cmutrace.tcl

来自「NS-2.28的802.11e协议扩展源代码」· TCL 代码 · 共 45 行

CMUTrace instproc init { tname type } {
	$self next $tname $type
	$self instvar type_ src_ dst_ callback_ show_tcphdr_

	set type_ $type
	set src_ 0
	set dst_ 0
	set callback_ 0
	set show_tcphdr_ 0
}

CMUTrace instproc attach fp {
	$self instvar fp_
	set fp_ $fp
	$self cmd attach $fp_
}

Class CMUTrace/Send -superclass CMUTrace
CMUTrace/Send instproc init { tname } {
	$self next $tname "s"
}

Class CMUTrace/Recv -superclass CMUTrace
CMUTrace/Recv instproc init { tname } {
	$self next $tname "r"
}

Class CMUTrace/Drop -superclass CMUTrace
CMUTrace/Drop instproc init { tname } {
	$self next $tname "D"
}

Class CMUTrace/EOT -superclass CMUTrace
CMUTrace/EOT instproc init { tname } {
	$self next $tname "x"
}

CMUTrace set src_ 0
CMUTrace set dst_ 0
CMUTrace set callback_ 0
CMUTrace set show_tcphdr_ 0
CMUTrace set off_sr_ 0

CMUTrace/Drop set off_SR_ 0