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

Merge branch 'inlinec' into marshall 

* inlinec:
  alien.inline: reverted refactoring
db4
Jeremy Hughes 2009-07-06 11:07:32 +12:00
parent 64aef112b5 dbe19d8173
commit bb3fa44e2d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -93,12 +93,14 @@ PRIVATE>
compile-library? [ compile-library ] when
c-library get library-path "cdecl" add-library ;
: define-c-function ( function types effect -- prototype )
[ factor-function define-declared ] 3keep prototype-string ;
: define-c-function ( function types effect -- )
[ factor-function define-declared ] 3keep prototype-string
append-function-body c-strings get push ;
: define-c-function' ( function effect -- prototype )
: define-c-function' ( function effect -- )
[ in>> ] keep [ factor-function define-declared ] 3keep
out>> prototype-string' ;
out>> prototype-string'
append-function-body c-strings get push ;
: define-c-marshalled ( function types effect -- prototype )
[ marshalled-function define-declared ] 3keep
@ -133,8 +135,7 @@ SYNTAX: C-LINK/FRAMEWORK: scan define-c-link/framework ;
SYNTAX: C-INCLUDE: scan define-c-include ;
SYNTAX: C-FUNCTION:
function-types-effect define-c-function
append-function-body c-strings get push ;
function-types-effect define-c-function ;
SYNTAX: C-MARSHALLED:
function-types-effect define-c-marshalled