alien.inline.compile: write library files to resource:alien-inline-libs

db4
Jeremy Hughes 2009-07-10 12:45:27 +12:00
parent e56617cc05
commit e0c0399d24
2 changed files with 9 additions and 3 deletions

View File

@ -8,6 +8,12 @@ IN: alien.inline.compiler
SYMBOL: C
SYMBOL: C++
: inline-libs-directory ( -- path )
"resource:alien-inline-libs" dup make-directories ;
: inline-library-file ( name -- path )
inline-libs-directory prepend-path ;
: library-suffix ( -- str )
os {
{ [ dup macosx? ] [ drop ".dylib" ] }
@ -17,9 +23,9 @@ SYMBOL: C++
: library-path ( str -- str' )
'[
"lib-" % current-vocab name>> %
"lib" % current-vocab name>> %
"-" % _ % library-suffix %
] "" make temp-file ;
] "" make inline-library-file ;
: src-suffix ( lang -- str )
{

View File

@ -60,7 +60,7 @@ PRIVATE>
concat make-function ;
: define-c-library ( name -- )
c-library set
[ current-vocab name>> % "_" % % ] "" make c-library set
V{ } clone c-strings set
V{ } clone compiler-args set ;