version 1.10, 1999/02/16 06:32:30
|
version 1.13, 1999/12/03 18:24:23
|
Line 20
|
Line 20
|
|
|
|
|
' require alias needs ( ... "name" -- ... ) \ gforth |
' require alias needs ( ... "name" -- ... ) \ gforth |
\G an alias for @code{require}; exists on other systems (e.g., Win32Forth). |
\G An alias for @code{require}; exists on other systems (e.g., Win32Forth). |
\ needs is an F-PC name. we will probably switch to 'needs' in the future |
\ needs is an F-PC name. we will probably switch to 'needs' in the future |
|
|
\ a little more compiler security |
\ a little more compiler security |
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 |
\G Pass the string specified by c-addr, u to the host operating system |
\G Pass the string specified by @var{c-addr, u} to the host operating system |
\G for execution in a sub-shell. |
\G for execution in a sub-shell. |
(system) throw TO $? ; |
(system) throw TO $? ; |
|
|