diff options
Diffstat (limited to 'tcllib/modules/control/control.tcl')
-rw-r--r-- | tcllib/modules/control/control.tcl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tcllib/modules/control/control.tcl b/tcllib/modules/control/control.tcl new file mode 100644 index 0000000..6cdf08a --- /dev/null +++ b/tcllib/modules/control/control.tcl @@ -0,0 +1,24 @@ +# control.tcl -- +# +# This is the main package provide script for the package +# "control". It provides commands that govern the flow of +# control of a program. + +package require Tcl 8.2 + +namespace eval ::control { + namespace export assert control do no-op rswitch + + proc control {command args} { + # Need to add error handling here + namespace eval [list $command] $args + } + + # Set up for auto-loading the commands + variable home [file join [pwd] [file dirname [info script]]] + if {[lsearch -exact $::auto_path $home] == -1} { + lappend ::auto_path $home + } + + package provide [namespace tail [namespace current]] 0.1.3 +} |