gforth/libcc.fs - diff

Return to libcc.fs CVS log

Up to [gforth] / gforth

version 1.40, 2008/07/10 16:18:41	version 1.41, 2008/07/10 19:59:41
Line 469 create gen-wrapped-types	Line 469 create gen-wrapped-types
0 <<# ['] #s $10 base-execute #>	0 <<# ['] #s $10 base-execute #>
s" gforth_c_" 2swap s+ #>> ;	s" gforth_c_" 2swap s+ #>> ;

: home-dir ( -- c-addr u )
s" HOME" getenv ;

: libcc-named-dir ( -- c-addr u )	: libcc-named-dir ( -- c-addr u )
home-dir s" /.gforth/libcc-named/" s+ ;	s" ~/.gforth/libcc-named/" ;

: libcc-tmp-dir ( -- c-addr u )	: libcc-tmp-dir ( -- c-addr u )
home-dir s" /.gforth/libcc-tmp/" s+ ;	s" ~/.gforth/libcc-tmp/" ;

: prepend-dirname ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 )	: prepend-dirname ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 )
2over append 2swap drop free throw ;	2over s+ 2swap drop free throw ;

: c-library-name-setup ( c-addr u -- )	: c-library-name-setup ( c-addr u -- )
assert( c-source-file-id @ 0= )	assert( c-source-file-id @ 0= )