gforth/lib.fs - diff

Return to lib.fs CVS log

Up to [gforth] / gforth

version 1.14, 2005/12/11 21:58:20	version 1.20, 2007/06/30 23:00:35
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 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006 Free Software Foundation, Inc.

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

Line 24	Line 24
[IFDEF] ffi-call	[IFDEF] ffi-call
include libffi.fs	include libffi.fs
[ELSE]	[ELSE]
	.( Neither libffi nor ffcall are available ) cr
	abort
	.( Using oldlib.fs; incompatible with fflib.fs and libffi.fs) cr
include oldlib.fs	include oldlib.fs
[THEN]	[THEN]
[THEN]	[THEN]

\ testing stuff	\ testing stuff

	[IFUNDEF] libc
	s" os-type" environment? [IF]
	2dup s" linux-gnu" str= [IF] 2drop
	library libc libc.so.6
	[ELSE] 2dup s" cygwin" str= [IF] 2drop
	library libc cygwin1.dll
	[ELSE] 2dup s" bsd" search nip nip [IF] 2drop
	library libc libc.so
	[ELSE] 2dup s" darwin" string-prefix? [IF] 2drop
	library libc libc.dylib
	[ELSE] 2drop \ or add your stuff here
	[THEN]
	[THEN]
	[THEN]
	[THEN]
	[THEN]
	[THEN]

[ifdef] testing	[ifdef] testing

library libc libc.so.6	library libc libc.so.6

libc sleep int (int) sleep	libc sleep int (int) sleep
libc open int int ptr (int) open	libc open ptr int int (int) open
libc lseek int llong int (llong) lseek64	libc lseek int llong int (llong) lseek64
libc read int ptr int (int) read	libc read int ptr int (int) read
libc close int (int) close	libc close int (int) close