alien.inline: factorize-type covers unsigned and long
parent
713e71fd3c
commit
8f8aa3051c
basis/alien/inline
|
@ -25,7 +25,9 @@ SYMBOL: c-strings
|
|||
[ 1string ] map ;
|
||||
|
||||
: factorize-type ( str -- str' )
|
||||
"const-" ?head drop ;
|
||||
"const-" ?head drop
|
||||
"unsigned-" ?head [ "u" prepend ] when
|
||||
"long-" ?head [ "long" prepend ] when ;
|
||||
|
||||
: cify-type ( str -- str' )
|
||||
{ { CHAR: ~ CHAR: space } } substitute ;
|
||||
|
|
Loading…
Reference in New Issue