gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

version 1.25, 2008/07/15 16:11:49	version 1.29, 2008/08/09 21:28:39
Line 24	Line 24
c-library libffi	c-library libffi
s" ffi" add-lib	s" ffi" add-lib

s" os-type" environment? [IF] s" darwin" string-prefix?	\ The ffi.h of XCode needs the following line, and it should not hurt elsewhere
[IF]	\c #define MACOSX
\c #define MACOSX	include-ffi.h-string save-c-prefix-line \ #include <ffi.h>
\c #include <ffi/ffi.h>
[ELSE]
\c #include <ffi.h>
[THEN]
[ELSE]
\c #include <ffi.h>
[THEN]
\c extern Cell *gforth_RP;	\c extern Cell *gforth_RP;
\c extern unsigned char *gforth_LP;	\c extern unsigned char *gforth_LP;
\c static void **gforth_clist;	\c static void **gforth_clist;
Line 344 also c-decl definitions	Line 337 also c-decl definitions
' >dl+ ' >dl- 6 argtype dlong	' >dl+ ' >dl- 6 argtype dlong
' >sf+ ' >sf- 9 argtype sf	' >sf+ ' >sf- 9 argtype sf
' >df+ ' >df- &10 argtype df	' >df+ ' >df- &10 argtype df
	: ints 0 ?DO int LOOP ;

' noop 0 rettype (void)	' noop 0 rettype (void)
' is>x 6 rettype (int)	' is>x 6 rettype (int)
Line 431 also cb-decl definitions	Line 425 also cb-decl definitions
' ffi-arg-longlong 8 argtype' llong	' ffi-arg-longlong 8 argtype' llong
' ffi-arg-dlong 6 argtype' dlong	' ffi-arg-dlong 6 argtype' dlong
' ffi-arg-ptr &12 argtype' ptr	' ffi-arg-ptr &12 argtype' ptr
	: ints ( n -- ) 0 ?DO postpone int LOOP ; immediate

' ffi-ret-void 0 rettype' (void)	' ffi-ret-void 0 rettype' (void)
' ffi-ret-int 6 rettype' (int)	' ffi-ret-int 6 rettype' (int)