switch-ex.tcl

来自「自己在NS2下写的关于认证的小例子」· TCL 代码 · 共 19 行

proc outp {typ n from rtt} {
	#$self instvar node_
	switch $typ {
		send {puts "node \[\$node_ id\] sended seq $n packet."
		}
		rcv {puts "node \[\$node_ id\] received seq $n packet from \
				$from with round-trip-time $rtt ms."
		}
		auth {puts "node \[\$node_ id\] received seq $n packet from \
				$from,which is authenticated."
		}
		default {puts "args error!"}
	}
}

outp send 0 n0 123
outp rcv 1 n0 123
outp auth 2 n0 123