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.
USING: accessors alien alien.accessors arrays classes combinators
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 ;
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 )
M: integer c-type-string number>string ;
M: word c-type-string name>> ;
M: pointer c-type-string pointer-string ;
M: wrapper c-type-string wrapped>> c-type-string ;
M: array c-type-string
unclip
[ [ unparse "[" "]" surround ] map ]
[ [ c-type-string "[" "]" surround ] map ]
[ c-type-string ] bi*
prefix concat ;