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

alien.inline: better names

db4
Jeremy Hughes 2009-07-10 23:55:05 +12:00
parent 0851823ba9
commit 864a6e7508
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,16 +82,16 @@ PRIVATE>
[ out>> prototype-string' ] 3bi [ out>> prototype-string' ] 3bi
] dip append-function-body c-strings get push ; ] dip append-function-body c-strings get push ;
: define-c-link ( str -- ) : c-link-to ( str -- )
"-l" prepend compiler-args get push ; "-l" prepend compiler-args get push ;
: define-c-framework ( str -- ) : c-use-framework ( str -- )
"-framework" swap compiler-args get '[ _ push ] bi@ ; "-framework" swap compiler-args get '[ _ push ] bi@ ;
: define-c-link/framework ( str -- ) : c-link-to/use-framework ( str -- )
os macosx? [ define-c-framework ] [ define-c-link ] if ; os macosx? [ c-use-framework ] [ c-link-to ] if ;
: define-c-include ( str -- ) : c-include ( str -- )
"#include " prepend c-strings get push ; "#include " prepend c-strings get push ;
: define-c-typedef ( old new -- ) : define-c-typedef ( old new -- )
@ -110,7 +110,7 @@ PRIVATE>
] "" make c-strings get push ] "" make c-strings get push
] 2bi ; ] 2bi ;
: delete-inline-library ( str -- ) : delete-inline-library ( name -- )
c-library-name [ remove-library ] c-library-name [ remove-library ]
[ library-path dup exists? [ delete-file ] [ drop ] if ] bi ; [ library-path dup exists? [ delete-file ] [ drop ] if ] bi ;
@ -118,13 +118,13 @@ SYNTAX: C-LIBRARY: scan define-c-library ;
SYNTAX: COMPILE-AS-C++ t library-is-c++ set ; SYNTAX: COMPILE-AS-C++ t library-is-c++ set ;
SYNTAX: C-LINK: scan define-c-link ; SYNTAX: C-LINK: scan c-link-to ;
SYNTAX: C-FRAMEWORK: scan define-c-framework ; SYNTAX: C-FRAMEWORK: scan c-use-framework ;
SYNTAX: C-LINK/FRAMEWORK: scan define-c-link/framework ; SYNTAX: C-LINK/FRAMEWORK: scan c-link-to/use-framework ;
SYNTAX: C-INCLUDE: scan define-c-include ; SYNTAX: C-INCLUDE: scan c-include ;
SYNTAX: C-FUNCTION: SYNTAX: C-FUNCTION:
function-types-effect parse-here define-c-function ; function-types-effect parse-here define-c-function ;