diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-05-19 20:36:00 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-09-29 15:13:13 +1000 |
commit | 31130bb056088ed80f0ab76daf4d4ac8bda5489d (patch) | |
tree | 10e099900cf3dc849b45ab0013f2361ce8e0d152 /tclcompat.tcl | |
parent | 94357f11bcab186bbdbb291cdda0f7acf61165e9 (diff) | |
download | jimtcl-31130bb056088ed80f0ab76daf4d4ac8bda5489d.zip jimtcl-31130bb056088ed80f0ab76daf4d4ac8bda5489d.tar.gz jimtcl-31130bb056088ed80f0ab76daf4d4ac8bda5489d.tar.bz2 |
jimsh: Scriptable command-line completion support
via tcl::autocomplete
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index d1516b3..e2ae56e 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -63,9 +63,8 @@ proc fileevent {args} { tailcall {*}$args } -# Second, option argument is a glob pattern +# Second, optional argument is a glob pattern # Third, optional argument is a "putter" function -# proc parray {arrayname {pattern *} {puts puts}} { upvar $arrayname a @@ -172,14 +171,9 @@ local proc pid {{channelId {}}} { # Usage: try ?catchopts? script ?onclause ...? ?finallyclause? # # Where: -# onclause is: on codes {?resultvar? ?optsvar?} script -# -# codes is: a list of return codes (ok, error, etc. or integers), or * for any -# -# finallyclause is: finally script -# -# -# Where onclause is: on codes {?resultvar? ?optsvar?} +# onclause is: on codes {?resultvar? ?optsvar?} script +# codes is: a list of return codes (ok, error, etc. or integers), or * for any +# finallyclause is: finally script proc try {args} { set catchopts {} while {[string match -* [lindex $args 0]]} { |