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
67
68
69
70
|
# -*- tcl -*-
# (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
##
# ###
namespace eval ::sak::animate {}
# ###
proc ::sak::animate::init {} {
variable prefix
variable n 0
variable max [llength $prefix]
variable extend 0
}
proc ::sak::animate::next {string} {
variable prefix
variable n
variable max
Extend string
puts -nonewline stdout \r\[[lindex $prefix $n]\]\ $string
flush stdout
incr n ; if {$n >= $max} {set n 0}
return
}
proc ::sak::animate::last {string} {
variable clear
Extend string
puts stdout \r\[$clear\]\ $string
flush stdout
return
}
# ###
proc ::sak::animate::Extend {sv} {
variable extend
upvar 1 $sv string
set l [string length $string]
while {[string length $string] < $extend} {append string " "}
if {$l > $extend} {set extend $l}
return
}
# ###
namespace eval ::sak::animate {
namespace export init next last
variable prefix {
{* } {* } {* } {* } {* }
{ * } { * } { * } { * } { * }
{ * } { * } { * } { * } { * }
{ *} { *} { *} { *} { *}
{ * } { * } { * } { * } { * }
{ * } { * } { * } { * } { * }
}
variable clear { }
}
##
# ###
package provide sak::animate 1.0
|
