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
|
# -*- tcl -*-
# (C) 2008 Andreas Kupries <andreas_kupries@users.sourceforge.net>
##
# ###
namespace eval ::sak::validate {}
# ###
proc ::sak::validate::usage {args} {
package require sak::help
puts stdout [join $args { }]\n[sak::help::on validate]
exit 1
}
proc ::sak::validate::all {modules mode stem tclv} {
package require sak::validate::versions
package require sak::validate::manpages
package require sak::validate::testsuites
package require sak::validate::syntax
sak::validate::versions::run $modules $mode $stem $tclv
sak::validate::manpages::run $modules $mode $stem $tclv
sak::validate::testsuites::run $modules $mode $stem $tclv
sak::validate::syntax::run $modules $mode $stem $tclv
sak::validate::versions::summary
sak::validate::manpages::summary
sak::validate::testsuites::summary
sak::validate::syntax::summary
return
}
##
# ###
package provide sak::validate 1.0
|
