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

View File

@ -102,13 +102,15 @@ PRIVATE>
out>> prototype-string'
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
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
out>> prototype-string' ;
out>> prototype-string'
append-function-body c-strings get push ;
: define-c-link ( str -- )
"-l" prepend compiler-args get push ;
@ -138,7 +140,6 @@ SYNTAX: C-FUNCTION:
function-types-effect define-c-function ;
SYNTAX: C-MARSHALLED:
function-types-effect define-c-marshalled
append-function-body c-strings get push ;
function-types-effect define-c-marshalled ;
SYNTAX: ;C-LIBRARY compile-c-library ;