1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.5 9
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.4
}
|
