diff options
Diffstat (limited to 'tcllib/support/devel/sak/validate/validate.tcl')
-rw-r--r-- | tcllib/support/devel/sak/validate/validate.tcl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/tcllib/support/devel/sak/validate/validate.tcl b/tcllib/support/devel/sak/validate/validate.tcl new file mode 100644 index 0000000..1901deb --- /dev/null +++ b/tcllib/support/devel/sak/validate/validate.tcl @@ -0,0 +1,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 |