gforth/lib.fs - diff

Return to lib.fs CVS log

Up to [gforth] / gforth

version 1.23, 2008/02/12 20:28:51	version 1.28, 2008/07/26 21:31:08
Line 1	Line 1
\ lib.fs shared library support package 11may97py	\ lib.fs shared library support package 11may97py

\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 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, see http://www.gnu.org/licenses/.	\ along with this program. If not, see http://www.gnu.org/licenses/.

s" libavcall.so" open-lib 0<>	s" libavcall.so" open-lib 0<>
s" libcallback.so" open-lib 0<> and	s" libcallback.so" open-lib 0<> and [if]
s" libvacall.so" open-lib 0<> and
s" libtrampoline.so" open-lib 0<> and [if]
.( including fflib.fs [ffcall] )	.( including fflib.fs [ffcall] )
include fflib.fs	include fflib.fs
[ELSE]	[ELSE]
Line 40 s" libtrampoline.so" open-lib 0<> and [i	Line 38 s" libtrampoline.so" open-lib 0<> and [i
[IFUNDEF] libc	[IFUNDEF] libc
s" os-type" environment? [IF]	s" os-type" environment? [IF]
2dup s" linux-gnu" str= [IF] 2drop	2dup s" linux-gnu" str= [IF] 2drop
library libc libc.so.6	cell 8 = [IF]
	library libc /lib64/libc.so.6
	[ELSE]
	library libc /lib/libc.so.6
	[THEN]
[ELSE] 2dup s" cygwin" str= [IF] 2drop	[ELSE] 2dup s" cygwin" str= [IF] 2drop
library libc cygwin1.dll	library libc cygwin1.dll
[ELSE] 2dup s" bsd" search nip nip [IF] 2drop	[ELSE] 2dup s" bsd" search nip nip [IF] 2drop