gforth/lib.fs - diff

Return to lib.fs CVS log

Up to [gforth] / gforth

version 1.25, 2008/04/29 20:03:40	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 22 s" libcallback.so" open-lib 0<> and [i	Line 22 s" libcallback.so" open-lib 0<> and [i
.( including fflib.fs [ffcall] )	.( including fflib.fs [ffcall] )
include fflib.fs	include fflib.fs
[ELSE]	[ELSE]
s" libffi" open-lib [if]	s" libffi.so" open-lib [if]
.( including libffi.fs )	.( including libffi.fs )
include libffi.fs	include libffi.fs
[ELSE]	[ELSE]
Line 38 s" libcallback.so" open-lib 0<> and [i	Line 38 s" libcallback.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