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# 7# RCS: @(#) $Id: control.tcl,v 1.15 2005/09/30 05:36:38 andreas_kupries Exp $ 8 9package require Tcl 8.2 10 11namespace eval ::control { 12 variable version 0.1.3 13 namespace export assert control do no-op rswitch 14 15 proc control {command args} { 16 # Need to add error handling here 17 namespace eval [list $command] $args 18 } 19 20 # Set up for auto-loading the commands 21 variable home [file join [pwd] [file dirname [info script]]] 22 if {[lsearch -exact $::auto_path $home] == -1} { 23 lappend ::auto_path $home 24 } 25 26 package provide [namespace tail [namespace current]] $version 27} 28