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
71
72
73
74
75
|
# -*- tcl -*-
# (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
##
# ###
namespace eval ::sak::help {}
# ###
proc ::sak::help::print {text} {
global critcldefault
puts stdout [string map \
[list @@ $critcldefault] $text]
return
}
proc ::sak::help::on {topic} {
variable base
# Look for static text and dynamic, i.e. generated help.
# Static is prefered.
set ht [file join $base $topic help.txt]
if {[file exists $ht]} {
return [get_input $ht]
}
set ht [file join $base $topic help.tcl]
if {[file exists $ht]} {
source $ht
return [sak::help::on::$topic]
}
set help ""
append help \n
append help " The topic \"$topic\" is not known." \n
append help " The known topics are:" \n\n
append help [topics]
return $help
}
proc ::sak::help::alltopics {} {
# Locate the quick-help for all topics and combine it with a
# general header.
set help "\n"
append help " SAK - Swiss Army Knife\n\n"
append help " sak is a tool to ease the work"
append help " of developers and release managers. Try:\n\n"
append help [topics]
return $help
}
proc ::sak::help::topics {} {
variable base
set help ""
foreach f [lsort [glob -nocomplain -directory $base */topic.txt]] {
append help \tsak\ help\ [get_input $f]
}
return $help
}
# ###
namespace eval ::sak::help {
variable base [file join $::distribution support devel sak]
}
##
# ###
package provide sak::help 1.0
|
