You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by da...@apache.org on 2002/03/10 11:30:22 UTC
cvs commit: tcl-rivet/rivet/rivet-tcl lempty.tcl tclIndex
damonc 02/03/10 02:30:22
Modified: rivet/rivet-tcl tclIndex
Added: rivet/rivet-tcl lempty.tcl
Log:
Adding a Tcl-only version of the lempty command.
Revision Changes Path
1.4 +1 -0 tcl-rivet/rivet/rivet-tcl/tclIndex
Index: tclIndex
===================================================================
RCS file: /home/cvs/tcl-rivet/rivet/rivet-tcl/tclIndex,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- tclIndex 27 Jan 2002 02:40:30 -0000 1.3
+++ tclIndex 10 Mar 2002 10:30:22 -0000 1.4
@@ -15,3 +15,4 @@
set auto_index(wrap) [list source [file join $dir wrap.tcl]]
set auto_index(wrapline) [list source [file join $dir wrap.tcl]]
set auto_index(debug) [list source [file join $dir debug.tcl]]
+set auto_index(lempty) [list source [file join $dir lempty.tcl]]
1.1 tcl-rivet/rivet/rivet-tcl/lempty.tcl
Index: lempty.tcl
===================================================================
proc lempty {list} {
if {[catch {llength $list} len]} { return 0 }
return [expr $len == 0]
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-dev-help@tcl.apache.org