diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-11 21:13:16 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-01-21 16:10:19 +1000 |
commit | fcfb8169cfa5fefe5610bcc4297500ead2dfaf42 (patch) | |
tree | 01f5b859d134e7f164a3b6935bffe9607d6fb05b /tclcompat.tcl | |
parent | 30a78d4c698c3d47ecf2d399cd553d9e4340c788 (diff) | |
download | jimtcl-fcfb8169cfa5fefe5610bcc4297500ead2dfaf42.zip jimtcl-fcfb8169cfa5fefe5610bcc4297500ead2dfaf42.tar.gz jimtcl-fcfb8169cfa5fefe5610bcc4297500ead2dfaf42.tar.bz2 |
many comment changes, some small code changes
Sweep through and clean up all (most) of the comments in the code.
While there, adjust some variable and function names to be more consistent,
and make a few small code changes - again, mostly for consistency.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 84d9d25..2a5560c 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -1,12 +1,14 @@ -# (c) 2008 Steve Bennett <steveb@workware.net.au> -# # Loads some Tcl-compatible features. # I/O commands, case, lassign, parray, errorInfo, ::tcl_platform, ::env # try, throw, file copy, file delete -force +# +# (c) 2008 Steve Bennett <steveb@workware.net.au> + # Set up the ::env array set env [env] +# Provide Tcl-compatible I/O commands if {[info commands stdout] ne ""} { # Tcl-compatible I/O commands foreach p {gets flush close eof seek tell} { |