gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.72, 2012/07/23 12:49:06	version 1.73, 2012/07/23 13:27:47
Line 266 defer save-c-prefix-line ( c-addr u -- )	Line 266 defer save-c-prefix-line ( c-addr u -- )
\G One line of C declarations for the C interface	\G One line of C declarations for the C interface
-1 parse save-c-prefix-line ;	-1 parse save-c-prefix-line ;

s" #include <gforth" arch-modifier s+ s" /" s+ version-string s+ s" /libcc.h>" append ( c-addr u )	s" #include <gforth" arch-modifier s+ s" /" append version-string append s" /libcc.h>" append ( c-addr u )
2dup save-c-prefix-line drop free throw	2dup save-c-prefix-line drop free throw

\ Types (for parsing)	\ Types (for parsing)
Line 512 create gen-wrapped-types	Line 512 create gen-wrapped-types
2over s+ 2swap drop free throw ;	2over s+ 2swap drop free throw ;

: open-wrappers ( -- addr\|0 )	: open-wrappers ( -- addr\|0 )
lib-filename 2@ dirname s" lib" s+ lib-filename 2@ basename s+ lib-suffix s+	lib-filename 2@ dirname s" lib" s+
	lib-filename 2@ basename append lib-suffix append
2dup libcc-named-dir string-prefix? if ( c-addr u )	2dup libcc-named-dir string-prefix? if ( c-addr u )
\ see if we can open it in the path	\ see if we can open it in the path
libcc-named-dir nip /string	libcc-named-dir nip /string