blob: cca192e171b0b157813b29d8189c8a00a3146330 (
plain)
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
|
# -*- tcl -*-
# (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
##
# ###
namespace eval ::sak::util {}
# ###
proc ::sak::util::path2modules {paths} {
set modules {}
foreach p $paths {
if {[file exists $p]} {set p [file tail $p]}
lappend modules $p
}
return $modules
}
proc ::sak::util::modules2path {modules} {
global distribution
set modbase [file join $distribution modules]
set paths {}
foreach m $modules {
lappend paths [file join $modbase $m]
}
return $paths
}
proc ::sak::util::module2path {module} {
global distribution
set modbase [file join $distribution modules]
return [file join $modbase $module]
}
proc ::sak::util::checkModules {modvar} {
upvar 1 $modvar modules
if {![llength $modules]} {
# Default to all if none are specified. This information does
# not require validation.
set modules [modules]
return 1
}
set modules [path2modules $modules]
set fail 0
foreach m $modules {
if {[modules_mod $m]} {
lappend results $m
continue
}
puts " Unknown module: $m"
set fail 1
}
if {$fail} {
puts " Stop."
return 0
}
set modules $results
return 1
}
##
# ###
package provide sak::util 1.0
|