steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.inline: renamed compiler-args to linker-args

db4
Jeremy Hughes 2009-07-11 19:23:21 +12:00
parent 4a5cb3aac3
commit b03b769966
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/alien/inline/inline.factor
View File

@ -12,11 +12,11 @@ IN: alien.inline
<PRIVATE
SYMBOL: c-library
SYMBOL: library-is-c++
SYMBOL: compiler-args
SYMBOL: linker-args
SYMBOL: c-strings
: cleanup-variables ( -- )
{ c-library library-is-c++ compiler-args c-strings }
{ c-library library-is-c++ linker-args c-strings }
[ off ] each ;
: function-types-effect ( -- function types effect )
@ -56,7 +56,7 @@ SYMBOL: c-strings
: compile-library ( -- )
library-is-c++ get [ C++ ] [ C ] if
compiler-args get
linker-args get
c-strings get "\n" join
c-library get compile-to-library ;
@ -67,7 +67,7 @@ PRIVATE>
: define-c-library ( name -- )
c-library-name c-library set
V{ } clone c-strings set
V{ } clone compiler-args set ;
V{ } clone linker-args set ;
: compile-c-library ( -- )
compile-library? [ compile-library ] when
@ -87,10 +87,10 @@ PRIVATE>
] dip append-function-body c-strings get push ;
: c-link-to ( str -- )
"-l" prepend compiler-args get push ;
"-l" prepend linker-args get push ;
: c-use-framework ( str -- )
"-framework" swap compiler-args get '[ _ push ] bi@ ;
"-framework" swap linker-args get '[ _ push ] bi@ ;
: c-link-to/use-framework ( str -- )
os macosx? [ c-use-framework ] [ c-link-to ] if ;