gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.1, 1996/01/07 17:22:16	version 1.7, 1998/12/08 22:02:52
Line 1	Line 1
\ miscelleneous words	\ miscelleneous words

\ Copyright (C) 1996 Free Software Foundation, Inc.	\ Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 18	Line 18
\ along with this program; if not, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ 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	\ 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 31 AUser CSP	Line 32 AUser CSP

: ?CSP ( -- )	: ?CSP ( -- )
sp@ csp @ <> -22 and throw ;	sp@ csp @ <> -22 and throw ;

	\ DMIN and DMAX

	: dmin ( d1 d2 -- d ) \ double
	2over 2over d> IF 2swap THEN 2drop ;

	: dmax ( d1 d2 -- d ) \ double
	2over 2over d< IF 2swap THEN 2drop ;

	\ shell commands

	0 Value $?

	: system ( addr u -- ) \ gforth
	(system) throw TO $? ;
	: sh ( "..." -- ) \ gforth
	'# parse cr system ;