Added "got" command to listutils(n).

Checks to see whether a list is non-empty.

docs/mann/listutils.manpage

@@ -20,6 +20,29 @@ listutils(n) defines the following commands:<p>
 
 <deflist commands>
 
+<defitem got {got <i list>}>
+
+Returns 1 if the list contains any elements, and 0 if the list is empty.
+This allows the programmer to write
+
+<pre>
+if {[got $someListThatMightBeEmpty]} {
+	...
+}
+</pre>
+
+instead of<p>
+
+<pre>
+if {[llength $someListThatMightBeEmpty] > 0} {
+	...
+}
+</pre>
+
+Which seems somewhat trivial, but it reads better, and I'm less likely
+to mistype it than the "llength" version, which I seem to mistype about
+half the time.<p>
+
 <defitem interleave {interleave <i alist blist>}>
 
 Given two lists, returns the result of interleaving the elements of the

lib/quill/listutils.tcl

@@ -18,6 +18,7 @@
 
 namespace eval ::quill:: {
 	namespace export \
+        got          \
         interleave   \
         ladd         \
         ldelete      \
@@ -28,6 +29,15 @@ namespace eval ::quill:: {
 #-------------------------------------------------------------------------
 # Command Definitions
 
+# got list
+#
+# list  - A list
+#
+# Returns 1 if the list has any elements, and 0 otherwise.
+
+proc ::quill::got {list} {
+    expr {[llength $list] > 0}
+}
 
 # ladd listvar value...
 #

test/quill/listutils.test

@@ -28,6 +28,21 @@ namespace import ::quill::*
 #-------------------------------------------------------------------------
 # Setup
 
+#-------------------------------------------------------------------------
+# got
+
+test got-1.1 {empty} -body {
+    got {}
+} -result {0}
+
+test got-1.2 {one item} -body {
+    got {a}
+} -result {1}
+
+test got-1.3 {two item} -body {
+    got {a b}
+} -result {1}
+
 #-------------------------------------------------------------------------
 # interleave