1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#
# A simple timer class. You can derive a subclass of Timer
# to provide a simple mechanism for scheduling events:
#
# $self sched $delay -- causes "$self timeout" to be called
# $delay seconds in the future
# $self cancel -- cancels any pending scheduled callback
#
Class Timer
Timer instproc init { ns } {
$self set ns_ $ns
}
# sched is the same as resched; the previous setting is cancelled
# and another event is scheduled. No state is kept for the timers.
# This is different than the C++ timer API in timer-handler.cc,h; where a
# sched aborts if the timer is already set. C++ timers maintain state
# (e.g. IDLE, PENDING..etc) that is checked before the timer is scheduled.
Timer instproc sched delay {
$self instvar ns_
$self instvar id_
$self cancel
set id_ [$ns_ after $delay "$self timeout"]
}
Timer instproc destroy {} {
$self cancel
}
Timer instproc cancel {} {
$self instvar ns_
$self instvar id_
if [info exists id_] {
$ns_ cancel $id_
unset id_
}
}
# resched and expire are added to have a similar API to C++ timers.
Timer instproc resched delay {
$self sched $delay
}
# the subclass must provide the timeout function
Timer instproc expire {} {
$self timeout
}
# Interface timers
Class Timer/Iface -superclass Timer
Timer/Iface instproc init { protocol source group oiface sim} {
$self instvar proto_ src_ grp_ oif_
$self next $sim
set proto_ $protocol
set src_ $source
set grp_ $group
set oif_ $oiface
}
Timer/Iface instproc schedule {} {
$self sched [[$self info class] set timeout]
}
|
