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

alien.inline: made define-c-marshalled standalone

db4
Jeremy Hughes 2009-07-06 11:08:47 +12:00
parent bb3fa44e2d
commit 9cf0c5e33b
1 changed files with 7 additions and 6 deletions
basis/alien/inline

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

@ -102,13 +102,15 @@ PRIVATE>
out>> prototype-string' out>> prototype-string'
append-function-body c-strings get push ; append-function-body c-strings get push ;
: define-c-marshalled ( function types effect -- prototype ) : define-c-marshalled ( function types effect -- )
[ marshalled-function define-declared ] 3keep [ marshalled-function define-declared ] 3keep
prototype-string ; prototype-string
append-function-body c-strings get push ;
: define-c-marshalled' ( function effect -- prototype ) : define-c-marshalled' ( function effect -- )
[ in>> ] keep [ marshalled-function define-declared ] 3keep [ in>> ] keep [ marshalled-function define-declared ] 3keep
out>> prototype-string' ; out>> prototype-string'
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 ;
@ -138,7 +140,6 @@ SYNTAX: C-FUNCTION:
function-types-effect define-c-function ; function-types-effect define-c-function ;
SYNTAX: C-MARSHALLED: SYNTAX: C-MARSHALLED:
function-types-effect define-c-marshalled function-types-effect define-c-marshalled ;
append-function-body c-strings get push ;
SYNTAX: ;C-LIBRARY compile-c-library ; SYNTAX: ;C-LIBRARY compile-c-library ;