|
version 1.5, 2003/03/09 15:17:05
|
version 1.8, 2006/11/05 18:26:01
|
|
Line 1
|
Line 1
|
| \ Structural Conditionals, loops part 12dec92py |
\ Structural Conditionals, loops part 12dec92py |
| |
|
| \ Copyright (C) 1995,1996,1997,1999,2001 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1999,2001,2003 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
|
Line 20
|
Line 20
|
| |
|
| \ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
| |
|
| Variable leavings |
\ this works with flash |
| |
|
| : (leave) here leavings @ , leavings ! ; |
: (leave) -1 , ; |
| : LEAVE postpone branch (leave) ; immediate restrict |
: LEAVE postpone branch (leave) ; immediate restrict |
| : ?LEAVE postpone 0= postpone ?branch (leave) ; |
: ?LEAVE postpone 0= postpone ?branch (leave) ; |
| immediate restrict |
immediate restrict |
| |
|
| : DONE ( addr -- ) leavings @ |
: DONE ( addr -- ) here swap ?DO |
| BEGIN 2dup u<= WHILE dup @ swap >resolve REPEAT |
I @ ['] branch = I @ ['] ?branch = or I @ ['] (?do) = or |
| leavings ! drop ; immediate restrict |
I cell+ @ -1 = and IF I cell+ >resolve THEN |
| |
cell +LOOP ; immediate restrict |
| |
|
| \ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
| |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cloop.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel