gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.3, 1996/02/13 11:12:19	version 1.6, 1998/06/17 16:55:05
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 32 AUser CSP	Line 33 AUser CSP
: ?CSP ( -- )	: ?CSP ( -- )
sp@ csp @ <> -22 and throw ;	sp@ csp @ <> -22 and throw ;

	\ DMIN and DMAX

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

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

	\ shell commands

	0 Value $?

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