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

Moved two words from alien.inline to alien.inline.types

db4
Jeremy Hughes 2009-07-06 11:26:17 +12:00
parent 9cf0c5e33b
commit ae4b284006
2 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,23 +14,10 @@ SYMBOL: library-is-c++
SYMBOL: compiler-args SYMBOL: compiler-args
SYMBOL: c-strings SYMBOL: c-strings
: annotate-effect ( types effect -- types effect' )
[ in>> ] [ out>> ] bi [
zip
[ over pointer-to-primitive? [ ">" prepend ] when ]
assoc-map unzip
] dip <effect> ;
: function-types-effect ( -- function types effect ) : function-types-effect ( -- function types effect )
scan scan swap ")" parse-tokens scan scan swap ")" parse-tokens
[ "(" subseq? not ] filter swap parse-arglist ; [ "(" subseq? not ] filter swap parse-arglist ;
: types-effect>params-return ( types effect -- params return )
[ in>> zip ]
[ nip out>> dup length 0 > [ first ] [ drop "void" ] if ]
2bi ;
: arg-list ( types -- params ) : arg-list ( types -- params )
CHAR: a swap length CHAR: a + [a,b] CHAR: a swap length CHAR: a + [a,b]
[ 1string ] map ; [ 1string ] map ;

12
basis/alien/inline/types/types.factor
View File

@ -32,3 +32,15 @@ MEMO: resolved-primitives ( -- seq )
: pointer-to-primitive? ( type -- ? ) : pointer-to-primitive? ( type -- ? )
{ [ pointer? ] [ type-sans-pointer primitive-type? ] } 1&& ; { [ pointer? ] [ type-sans-pointer primitive-type? ] } 1&& ;
: types-effect>params-return ( types effect -- params return )
[ in>> zip ]
[ nip out>> dup length 0 > [ first ] [ drop "void" ] if ]
2bi ;
: annotate-effect ( types effect -- types effect' )
[ in>> ] [ out>> ] bi [
zip
[ over pointer-to-primitive? [ ">" prepend ] when ]
assoc-map unzip
] dip <effect> ;