alien.inline: factorize-type covers unsigned and long
parent
713e71fd3c
commit
8f8aa3051c
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue