--- gforth/stuff.fs 1996/10/06 22:24:19 1.5 +++ gforth/stuff.fs 1999/02/16 06:32:30 1.10 @@ -1,6 +1,6 @@ \ miscelleneous words -\ Copyright (C) 1996 Free Software Foundation, Inc. +\ Copyright (C) 1996,1997,1998 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -18,7 +18,9 @@ \ along with this program; if not, write to the Free Software \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -' require alias needs + +' require alias needs ( ... "name" -- ... ) \ gforth +\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 \ a little more compiler security @@ -42,10 +44,28 @@ AUser CSP \ shell commands -0 Value $? +0 Value $? ( -- n ) \ gforth dollar-question +\G VALUE: The exit status returned by the most recently executed +\G @code{system} command. : system ( addr u -- ) \ gforth +\G Pass the string specified by c-addr, u to the host operating system +\G for execution in a sub-shell. (system) throw TO $? ; + : sh ( "..." -- ) \ gforth +\G Parse a string and use @code{system} to pass it to the host +\G operating system for execution in a sub-shell. '# parse cr system ; +\ stuff + +: ]L ( compilation: n -- ; run-time: -- n ) \ gforth + \G equivalent to @code{] literal} + ] postpone literal ; + +: in-dictionary? ( x -- f ) + forthstart dictionary-end within ; + +: in-return-stack? ( addr -- f ) + rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;