Re-root site.

common/doloop_tests.fs

@@ -0,0 +1,132 @@
+\ Copyright 2021 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
+
+( Test DO LOOP Works )
+
+e: test-0doloop
+  : foo 0 do i . loop cr ;
+  10 foo
+  out: 0 1 2 3 4 5 6 7 8 9 
+;e
+
+e: test-0?do-loop
+  : foo 0 ?do i . loop cr ;
+  10 foo
+  out: 0 1 2 3 4 5 6 7 8 9 
+  0 foo
+  out: 
+;e
+
+e: test-rev-doloop
+  : foo 0 10 do i . -1 +loop cr ;
+  foo
+  out: 10 9 8 7 6 5 4 3 2 1 0 
+;e
+
+e: test-rev-?doloop
+  : foo 0 10 ?do i . -1 +loop cr ;
+  foo
+  out: 10 9 8 7 6 5 4 3 2 1 0 
+;e
+
+e: test-do+loop
+  : foo 0 do i . 2 +loop cr ;
+  9 foo
+  out: 0 2 4 6 8 
+  10 foo
+  out: 0 2 4 6 8 
+  11 foo
+  out: 0 2 4 6 8 10 
+  1 foo
+  out: 0 
+;e
+
+e: test-?do+loop
+  : foo 0 ?do i . 2 +loop cr ;
+  9 foo
+  out: 0 2 4 6 8 
+  10 foo
+  out: 0 2 4 6 8 
+  11 foo
+  out: 0 2 4 6 8 10 
+  1 foo
+  out: 0 
+  0 foo
+  out: 
+;e
+
+e: test-doloop-leave
+  : foo 0 do 42 emit i 7 = if ." left " leave ." nope" then i . loop cr ;
+  7 foo
+  out: *0 *1 *2 *3 *4 *5 *6 
+  8 foo
+  out: *0 *1 *2 *3 *4 *5 *6 *left 
+  9 foo
+  out: *0 *1 *2 *3 *4 *5 *6 *left 
+;e
+
+e: test-do+loop-leave
+  : foo 0 do 42 emit i 8 = if ." left " leave ." nope" then i . 2 +loop cr ;
+  7 foo
+  out: *0 *2 *4 *6 
+  8 foo
+  out: *0 *2 *4 *6 
+  9 foo
+  out: *0 *2 *4 *6 *left 
+  0 foo
+  out: *0 
+;e
+
+e: test-?do+loop-leave
+  : foo 0 ?do 42 emit i 8 = if ." left " leave ." nope" then i . 2 +loop cr ;
+  7 foo
+  out: *0 *2 *4 *6 
+  8 foo
+  out: *0 *2 *4 *6 
+  9 foo
+  out: *0 *2 *4 *6 *left 
+  0 foo
+  out: 
+;e
+
+e: test-do+loop-unloop
+  : foo 0 do 42 emit i 8 = if ." left " cr unloop exit then i . 2 +loop ." done " cr ;
+  7 foo
+  out: *0 *2 *4 *6 done 
+  8 foo
+  out: *0 *2 *4 *6 done 
+  9 foo
+  out: *0 *2 *4 *6 *left 
+  0 foo
+  out: *0 done 
+;e
+
+e: test-?do+loop-unloop
+  : foo 0 ?do 42 emit i 8 = if ." left " cr unloop exit then i . 2 +loop ." done " cr ;
+  7 foo
+  out: *0 *2 *4 *6 done 
+  8 foo
+  out: *0 *2 *4 *6 done 
+  9 foo
+  out: *0 *2 *4 *6 *left 
+  0 foo
+  out: done 
+;e
+
+e: test-doloop-j
+  : foo 5 0 do 3 0 do j . loop loop cr ;
+  foo
+  out: 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4 
+;e
+