Diff for /gforth/envos.fs.in between versions 1.2 and 1.12

version 1.2, 2006/12/31 13:39:12 version 1.12, 2009/12/31 15:32:35
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,2003,2006 Free Software Foundation, Inc.  \ Copyright (C) 1997,1999,2000,2003,2006,2007,2008,2009 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 15 Line 15
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program. If not, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.  
   
 get-current environment-wordlist set-current  get-current environment-wordlist set-current
 : os-class ( -- c-addr u ) \ gforth-environment  : os-class ( -- c-addr u ) \ gforth-environment
Line 26  get-current environment-wordlist set-cur Line 25  get-current environment-wordlist set-cur
     \G Counted string equal to "$host_os"      \G Counted string equal to "$host_os"
     s" @host_os@" ;      s" @host_os@" ;
 set-current  set-current
   
   : libtool-command ( -- c-addr u ) \ gforth
   \G name of the GNU libtool command
       s" @GNU_LIBTOOL@" ;
   
   : libtool-cc ( -- c-addr u ) \ gforth
   \G invocation string of the C compiler used for libtool
       s" @LIBTOOL_CC@" ;
   
   : libtool-flags ( -- c-addr u ) \ gforth
   \G force no undefined for cygwin
       [ s" @host_os@" s" cygwin" str= ] [IF]  s"  -no-undefined "
       [ELSE]  s" "  [THEN] ;
   
   \ test for the presence of libffi or ffcall
   @FFCALLFLAG@ constant ffcall-present \ libffi present (on building)
   @LIBFFIFLAG@ constant libffi-present \ ffcall libs present (on building)
   
   : include-ffi.h-string ( -- c-addr u )
     s" #include <@FFI_H_NAME@>" ;
   

Removed from v.1.2  
changed lines
  Added in v.1.12


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>