Add TclX-compatible loop command

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 14 insertions, 0 deletions

diff --git a/jim_tcl.txt b/jim_tcl.txt
index dc16815..1bf20dd 100644
--- a/jim_tcl.txt
+++ b/jim_tcl.txt
@@ -64,6 +64,7 @@ Changes between 0.70 and 0.71
 4. Support +jimsh --version+
 5. Additional variables in +tcl_platform()+
 6. 'local' procs now push existing commands and 'upcall' can call them
+7. Add 'loop' command (TclX compatible)
 
 Changes between 0.63 and 0.70
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -2741,6 +2742,19 @@ than waiting until garbage collection.
       ...
     }
 
+loop
+~~~~
++*loop* 'var first limit ?incr? body'+
+
+Similar to 'for' except simpler and possibly more efficient.
+With a positive increment, equivalent to:
+
+  for {set var $first} {$var < $limit} {incr var $incr} $body
+
+If *incr* is not specified, 1 is used.
+Note that setting the loop variable inside the loop does not
+affect the loop count.
+
 lindex
 ~~~~~~
 +*lindex* 'list index'+