version 1.11, 1999/03/23 20:24:20
|
version 1.13, 1999/12/03 18:24:23
|
Line 36 AUser CSP
|
Line 36 AUser CSP
|
|
|
\ DMIN and DMAX |
\ DMIN and DMAX |
|
|
: dmin ( d1 d2 -- d ) \ double |
: dmin ( d1 d2 -- d ) \ double d-min |
2over 2over d> IF 2swap THEN 2drop ; |
2over 2over d> IF 2swap THEN 2drop ; |
|
|
: dmax ( d1 d2 -- d ) \ double |
|
|
: dmax ( d1 d2 -- d ) \ double d-max |
2over 2over d< IF 2swap THEN 2drop ; |
2over 2over d< IF 2swap THEN 2drop ; |
|
|
\ shell commands |
\ shell commands |
|
|
0 Value $? ( -- n ) \ gforth dollar-question |
0 Value $? ( -- n ) \ gforth dollar-question |
\G VALUE: The exit status returned by the most recently executed |
\G @code{Value} -- the exit status returned by the most recently executed |
\G @code{system} command. |
\G @code{system} command. |
|
|
: system ( addr u -- ) \ gforth |
: system ( addr u -- ) \ gforth |