gforth/envos.fs - diff

Return to envos.fs CVS log

Up to [gforth] / gforth

version 1.6, 2003/03/09 15:16:47	version 1.9, 2006/04/02 22:38:25
Line 1	Line 1
\ envos.fs set os-specific environmental queries 07jul97jaw	\ envos.fs set os-specific environmental queries 07jul97jaw

\ Copyright (C) 1997,1999,2000 Free Software Foundation, Inc.	\ Copyright (C) 1997,1999,2000,2003 Free Software Foundation, Inc.

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

Line 22 get-current environment-wordlist set-cur	Line 22 get-current environment-wordlist set-cur
: os-class ( -- c-addr u ) \ gforth-environment	: os-class ( -- c-addr u ) \ gforth-environment
\G Counted string representing a description of the host operating system.	\G Counted string representing a description of the host operating system.
s" unix" ;	s" unix" ;
	: os-type ( -- c-addr u ) \ gforth-environment
	\G Counted string equal to "$host_os"
	s" cygwin" ;
set-current	set-current