OpenSolaris_b135/lib/efcode/fcode_test/loop.fth

\ #ident	"%Z%%M%	%I%	%E% SMI"
\ Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
\ Use is subject to license terms.
\
\ CDDL HEADER START
\
\ The contents of this file are subject to the terms of the
\ Common Development and Distribution License, Version 1.0 only
\ (the "License").  You may not use this file except in compliance
\ with the License.
\
\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
\ or http://www.opensolaris.org/os/licensing.
\ See the License for the specific language governing permissions
\ and limitations under the License.
\
\ When distributing Covered Code, include this CDDL HEADER in each
\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.
\ If applicable, add the following below this CDDL HEADER, with the
\ fields enclosed by brackets "[]" replaced with your own identifying
\ information: Portions Copyright [yyyy] [name of copyright owner]
\
\ CDDL HEADER END
\

." Interactive begin .. while .. repeat: "
	" no loop (1) "		1 begin 0 while 1- repeat .passed?
	" loop to 0 (1)"	9 begin dup while 1- repeat  0= .passed? 
cr
." Compiled begin .. while .. repeat: "
	: btest1		1 begin 0 while 1- repeat .passed? ;
	: btest2		9 begin dup while 1- repeat 0= .passed? ;
	" no loop (2) "		btest1
	" loop to 0 (2)"	btest2
cr
." Interactive begin..until: "
	" no loop (3)"		1 begin  dup until .passed?
	" loop to 0 (3)"	9 begin  1- dup 0= until 0= .passed?
cr
." Compiled begin..until: "
	: btest3		1 begin  dup until .passed? ;
	: btest4		9 begin  1- dup 0= until 0= .passed? ;
	" no loop (4)"		btest3
	" loop to 0 (4)"	btest4
cr
." Interactive do .. loop: "
	" loop (1)"	0 h# 10 0 do drop i loop h# f = .passed?
	" no loop (1)"	1 0 0 ?do 1- loop .passed?
	" leave (1)"	h# 10 0 do i 5 = if 1 leave drop 0 then loop .passed?
cr
." Compiled do .. loop: "
	: loop1			do drop i loop h# f = .passed? ;
	: loop2			?do 1- loop .passed? ;
	: loop3			do i 3 = if drop i leave 0 then loop ;
	: loop7			do i 4 = if drop i unloop exit then loop ;
	" loop (2)"		0 h# 10 0 loop1
	" no loop (2)"		1 0 0 loop2
	" leave (2)"		3 4 0 loop3 3 = .passed?
	" unloop"		5 6 0 loop7 4 = .passed?
cr
." Interactive do .. +loop: "
	" loop by 2"		0 h# 10 0 do drop i 2 +loop h# e = .passed?
	" loop down by 2"	0 -2 h# 10 do drop i -2 +loop h# -2 = .passed?
cr
." Compiled do .. +loop: "
	: loop4			0 h# 10  0 do drop i 2 +loop h# e = .passed? ;
	: loop5			0 -2 h# 10 do drop i -2 +loop -2 = .passed? ;
	" loop (4)"		loop4
	" loop (5)"		loop5
cr
." Nested loops: "
	: loop6		0 h# 4 0 do 8 0 do 1 j 3 lshift i + lshift xor loop loop ;
	" i,j sum"		loop6 lwsplit over = swap h# ffff = and .passed?
cr
." Negative Limit Loops: "
	" loop.7"       h# 10 -37 8 bounds do drop i loop -30 = .passed?
	" loop.8"       h# 10 -37 -30 do drop i -1 +loop  -37 = .passed?
cr
." Compiled begin...again: "
	: loop9 begin true exit again false ; loop9 " loop9" rot .passed?
	0 value in-count
	0 value out-count
	: loop10
	   begin
	      out-count 1+ to out-count
 	      begin
	         in-count 10 >= if
	            exit
	         then in-count 1+ to in-count
	      again
	      -1 to in-count
	      exit
	   again
	   -2 to in-count
	;
	" loop.10" loop10 in-count 10 = out-count 1 = and  .passed?
cr