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

alien.inline: factorize-type covers unsigned and long

Jeremy Hughes 2009-07-04 11:28:31 +12:00
parent 96bbef8a6f
commit 9ee25d6148
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,7 +25,9 @@ SYMBOL: c-strings
[ 1string ] map ; [ 1string ] map ;
: factorize-type ( str -- str' ) : factorize-type ( str -- str' )
"const-" ?head drop ; "const-" ?head drop
"unsigned-" ?head [ "u" prepend ] when
"long-" ?head [ "long" prepend ] when ;
: cify-type ( str -- str' ) : cify-type ( str -- str' )
{ { CHAR: ~ CHAR: space } } substitute ; { { CHAR: ~ CHAR: space } } substitute ;