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

Made factorize-type and cify-type public

db4
Jeremy Hughes 2009-07-04 15:23:11 +12:00
parent 3cd4bd8106
commit 284ef4f048
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,6 +7,14 @@ math.order math.ranges multiline namespaces sequences splitting
strings system vocabs.loader vocabs.parser words ; strings system vocabs.loader vocabs.parser words ;
IN: alien.inline IN: alien.inline
: factorize-type ( str -- str' )
"const-" ?head drop
"unsigned-" ?head [ "u" prepend ] when
"long-" ?head [ "long" prepend ] when ;
: cify-type ( str -- str' )
{ { CHAR: ~ CHAR: space } } substitute ;
<PRIVATE <PRIVATE
SYMBOL: c-library SYMBOL: c-library
SYMBOL: library-is-c++ SYMBOL: library-is-c++
@ -34,14 +42,6 @@ SYMBOL: c-strings
CHAR: a swap length CHAR: a + [a,b] CHAR: a swap length CHAR: a + [a,b]
[ 1string ] map ; [ 1string ] map ;
: factorize-type ( str -- str' )
"const-" ?head drop
"unsigned-" ?head [ "u" prepend ] when
"long-" ?head [ "long" prepend ] when ;
: cify-type ( str -- str' )
{ { CHAR: - CHAR: space } } substitute ;
: factor-function ( function types effect -- word quot effect ) : factor-function ( function types effect -- word quot effect )
annotate-effect [ c-library get ] 3dip annotate-effect [ c-library get ] 3dip
[ [ factorize-type ] map ] dip [ [ factorize-type ] map ] dip