1# control.tcl -- 2# 3# This is the main package provide script for the package 4# "control". It provides commands that govern the flow of 5# control of a program. 6 7package require Tcl 8.2 8 9namespace eval ::control { 10 namespace export assert control do no-op rswitch 11 12 proc control {command args} { 13 # Need to add error handling here 14 namespace eval [list $command] $args 15 } 16 17 # Set up for auto-loading the commands 18 variable home [file join [pwd] [file dirname [info script]]] 19 if {[lsearch -exact $::auto_path $home] == -1} { 20 lappend ::auto_path $home 21 } 22 23 package provide [namespace tail [namespace current]] 0.1.3 24} 25