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
|
# -*- tcl -*-
# (C) 2008 Andreas Kupries <andreas_kupries@users.sourceforge.net>
##
# ###
namespace eval ::sak::color {}
# ###
if {$::tcl_platform(platform) == "windows"} {
# No ansi colorization on windows
namespace eval ::sak::color {
variable n
foreach n {cya yel whi mag red green rst} {
proc $n {} {return ""}
namespace export $n
proc =$n {s} {return $s}
namespace export =$n
}
unset n
}
} else {
getpackage term::ansi::code::attr term/ansi/code/attr.tcl
getpackage term::ansi::code::ctrl term/ansi/code/ctrl.tcl
::term::ansi::code::ctrl::import ::sak::color sda_bg* sda_reset
namespace eval ::sak::color {
variable s
variable n
foreach {s n} {
sda_bgcyan cya
sda_bgyellow yel
sda_bgwhite whi
sda_bgmagenta mag
sda_bgred red
sda_bggreen green
sda_reset rst
} {
rename $s $n
namespace export $n
proc =$n {s} "return \[$n\]\$s\[rst\]"
namespace export =$n
}
unset s n
}
}
##
# ###
package provide sak::color 1.0
|
