1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
|
in the program, but they will interfere if the same loop is reentrant on the
same object or other objects of the same class), and then resetting the Done
flag of all objects at the given (x,y) coordinates. If upflag is false, then
it starts at the top, and if true, starts at the bottom. At the beginning of
the <body>, the found object is on the stack; you can then use or store it.
Once "next" is reached, it finds the next object and goes back.
if <truepart> [else <falsepart>] then ( bool -- )
Takes a boolean value from the stack. If true, then <truepart> is executed;
otherwise it tries the other parts; "else" means always do this if none of
the previous parts match.
mbegin <body> repeat ( -- any ) ( -- )
The "mbegin" instruction is a shortcut for "begin tmark while", and it has
|
>
>
>
>
>
>
>
>
|
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
|
in the program, but they will interfere if the same loop is reentrant on the
same object or other objects of the same class), and then resetting the Done
flag of all objects at the given (x,y) coordinates. If upflag is false, then
it starts at the top, and if true, starts at the bottom. At the beginning of
the <body>, the found object is on the stack; you can then use or store it.
Once "next" is reached, it finds the next object and goes back.
fork <body1> [else <body2>] then ( -- )
Continues executing <body1> as a subroutine; after it finishes then the
part after "then" is executed in the same subroutine call (there is no
implicit "ret" before "then"), but the "else" part (if any) is skipped.
After it returns, then <body2> (if any) is executed, and then it will
also continue from after "then". (This is not the same as the fork
function (or any other function) in C.)
if <truepart> [else <falsepart>] then ( bool -- )
Takes a boolean value from the stack. If true, then <truepart> is executed;
otherwise it tries the other parts; "else" means always do this if none of
the previous parts match.
mbegin <body> repeat ( -- any ) ( -- )
The "mbegin" instruction is a shortcut for "begin tmark while", and it has
|