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

alien.c-types: c-type-string without using prettyprint words 

Using prettyprint caused deploy-images to grow unnecessarily.
char-rename
Björn Lindqvist 2016-08-11 15:25:46 +02:00
parent 2c30b2f243
commit 402e4313bb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/alien/c-types/c-types.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.accessors arrays classes combinators USING: accessors alien alien.accessors arrays classes combinators
compiler.units cpu.architecture delegate fry kernel layouts macros compiler.units cpu.architecture delegate fry kernel layouts macros
math math.order prettyprint quotations sequences summary system words math math.order math.parser quotations sequences summary system words
words.symbol ; words.symbol ;
IN: alien.c-types IN: alien.c-types
@ -507,11 +507,12 @@ M: pointer pointer-string to>> pointer-string [ CHAR: * suffix ] [ f ] if* ;
GENERIC: c-type-string ( c-type -- string ) GENERIC: c-type-string ( c-type -- string )
M: integer c-type-string number>string ;
M: word c-type-string name>> ; M: word c-type-string name>> ;
M: pointer c-type-string pointer-string ; M: pointer c-type-string pointer-string ;
M: wrapper c-type-string wrapped>> c-type-string ; M: wrapper c-type-string wrapped>> c-type-string ;
M: array c-type-string M: array c-type-string
unclip unclip
[ [ unparse "[" "]" surround ] map ] [ [ c-type-string "[" "]" surround ] map ]
[ c-type-string ] bi* [ c-type-string ] bi*
prefix concat ; prefix concat ;