gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

version 1.22, 2008/06/17 20:18:11	version 1.25, 2008/07/15 16:11:49
Line 1	Line 1
\ libffi.fs shared library support package 14aug05py	\ libffi.fs shared library support package 14aug05py

\ 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 21	Line 21
\ note that the API functions have their arguments reversed and other	\ note that the API functions have their arguments reversed and other
\ deviations.	\ deviations.

require libcc.fs

c-library libffi	c-library libffi
s" ffi" add-lib	s" ffi" add-lib

\c #include <ffi.h>	s" os-type" environment? [IF] s" darwin" string-prefix?
\c static Cell *gforth_RP;	[IF]
\c static unsigned char *gforth_LP;	\c #define MACOSX
	\c #include <ffi/ffi.h>
	[ELSE]
	\c #include <ffi.h>
	[THEN]
	[ELSE]
	\c #include <ffi.h>
	[THEN]
	\c extern Cell *gforth_RP;
	\c extern unsigned char *gforth_LP;
\c static void **gforth_clist;	\c static void **gforth_clist;
\c static void *gforth_ritem;	\c static void *gforth_ritem;
\c typedef void *Label;	\c typedef void *Label;