cmu-trace.tcl

来自「在Linux下做的QuadTree的程序」· TCL 代码 · 共 56 行

CMUTrace instproc init { tname type mactype} {
	$self next $tname $type $mactype
	$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 mactype} {
	$self next $tname "s" $mactype
}

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

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


CMUTrace/Recv set src_ 0
CMUTrace/Recv set dst_ 0
CMUTrace/Recv set callback_ 0
CMUTrace/Recv set show_tcphdr_ 0
CMUTrace/Recv set off_sr_ 0
CMUTrace/Recv set off_hgps_ 0

CMUTrace/Send set src_ 0
CMUTrace/Send set dst_ 0
CMUTrace/Send set callback_ 0
CMUTrace/Send set show_tcphdr_ 0
CMUTrace/Send set off_sr_ 0
CMUTrace/Send set off_hgps_ 0

CMUTrace/Drop set src_ 0
CMUTrace/Drop set dst_ 0
CMUTrace/Drop set callback_ 0
CMUTrace/Drop set show_tcphdr_ 0
CMUTrace/Drop set off_sr_ 0
CMUTrace/Drop set off_hgps_ 0