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

alien.inline: renamed and refactored prototype-string

db4
Jeremy Hughes 2009-07-06 11:28:41 +12:00
parent ae4b284006
commit 7ecadf0a68
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,19 +40,20 @@ SYMBOL: c-strings
7 narray >quotation 7 narray >quotation
] dip ; ] dip ;
: prototype-string ( function types effect -- str ) : append-function-body ( prototype-str -- str )
" {\n" append parse-here append "\n}\n" append ;
: c-function-string ( function types effect -- str )
[ [ cify-type ] map ] dip [ [ cify-type ] map ] dip
types-effect>params-return cify-type -rot types-effect>params-return cify-type -rot
[ " " join ] map ", " join [ " " join ] map ", " join
"(" prepend ")" append 3array " " join "(" prepend ")" append 3array " " join
library-is-c++ get [ "extern \"C\" " prepend ] when ; library-is-c++ get [ "extern \"C\" " prepend ] when
append-function-body ;
: prototype-string' ( function types return -- str )
[ dup arg-list ] <effect> prototype-string ;
: append-function-body ( prototype-str -- str )
" {\n" append parse-here append "\n}\n" append ;
: c-function-string' ( function types return -- str )
[ dup arg-list ] <effect> c-function-string
append-function-body ;
: library-path ( -- str ) : library-path ( -- str )
"lib" c-library get library-suffix "lib" c-library get library-suffix
@ -81,23 +82,20 @@ PRIVATE>
c-library get library-path "cdecl" add-library ; c-library get library-path "cdecl" add-library ;
: define-c-function ( function types effect -- ) : define-c-function ( function types effect -- )
[ factor-function define-declared ] 3keep prototype-string [ factor-function define-declared ] 3keep
append-function-body c-strings get push ; c-function-string c-strings get push ;
: define-c-function' ( function effect -- ) : define-c-function' ( function effect -- )
[ in>> ] keep [ factor-function define-declared ] 3keep [ in>> ] keep [ factor-function define-declared ] 3keep
out>> prototype-string' out>> c-function-string' c-strings get push ;
append-function-body c-strings get push ;
: define-c-marshalled ( function types effect -- ) : define-c-marshalled ( function types effect -- )
[ marshalled-function define-declared ] 3keep [ marshalled-function define-declared ] 3keep
prototype-string c-function-string c-strings get push ;
append-function-body c-strings get push ;
: define-c-marshalled' ( function effect -- ) : define-c-marshalled' ( function effect -- )
[ in>> ] keep [ marshalled-function define-declared ] 3keep [ in>> ] keep [ marshalled-function define-declared ] 3keep
out>> prototype-string' out>> c-function-string' c-strings get push ;
append-function-body c-strings get push ;
: define-c-link ( str -- ) : define-c-link ( str -- )
"-l" prepend compiler-args get push ; "-l" prepend compiler-args get push ;