diff options
| author | Steve Bennett <steveb@workware.net.au> | 2017-10-26 21:42:11 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2017-11-08 07:47:35 +1000 |
| commit | ba3431e8a4496ca4142f30fd4266d06a26abc7b2 (patch) | |
| tree | e0fe92f492dff5976e0cbb4b4b2f0e77e6eb9245 | |
| parent | 79c4a3fb4d20588fc485371128db87971c1e66c0 (diff) | |
| download | jimtcl-ba3431e8a4496ca4142f30fd4266d06a26abc7b2.zip jimtcl-ba3431e8a4496ca4142f30fd4266d06a26abc7b2.tar.gz jimtcl-ba3431e8a4496ca4142f30fd4266d06a26abc7b2.tar.bz2 | |
tclcompat.tcl: minor comment updates
Signed-off-by: Steve Bennett <steveb@workware.net.au>
| -rw-r--r-- | tclcompat.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index b3452d8..432c744 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -1,5 +1,5 @@ # Loads some Tcl-compatible features. -# I/O commands, case, lassign, parray, errorInfo, ::tcl_platform, ::env +# I/O commands, parray, open |..., errorInfo, ::env # try, throw, file copy, file delete -force # # (c) 2008 Steve Bennett <steveb@workware.net.au> @@ -118,7 +118,7 @@ proc {file copy} {{force {}} source target} { } # 'open "|..." ?mode?" will invoke this wrapper around exec/pipe -# Note that we return a lambda which also provides the 'pid' command +# Note that we return a lambda that also provides the 'pid' command proc popen {cmd {mode r}} { lassign [pipe] r w try { @@ -167,7 +167,7 @@ proc popen {cmd {mode r}} { } } -# A wrapper around 'pid' which can return the pids for 'popen' +# A wrapper around 'pid' that can return the pids for 'popen' local proc pid {{channelId {}}} { if {$channelId eq ""} { tailcall upcall pid @@ -186,6 +186,7 @@ local proc pid {{channelId {}}} { # Usage: try ?catchopts? script ?onclause ...? ?finallyclause? # # Where: +# catchopts is: options for catch such as -nobreak, -signal # 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 |