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