gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.8, 1999/01/03 21:48:37	version 1.9, 1999/02/03 00:10:22
Line 44 AUser CSP	Line 44 AUser CSP

\ shell commands	\ shell commands

0 Value $?	0 Value $? ( -- n ) \ gforth
	\G VALUE: The exit status returned by the most recently executed
	\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 for execution in a sub-shell.
(system) throw TO $? ;	(system) throw TO $? ;

: sh ( "..." -- ) \ gforth	: 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 ;	'# parse cr system ;

\ stuff	\ stuff