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

take advantage of pprint-prefix in c-object-pointer prettyprinters

db4
Joe Groff 2009-08-31 19:56:36 -05:00
parent 3ea364bc80
commit 79be927371
3 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/classes/struct/prettyprint/prettyprint.factor
View File

@ -28,11 +28,7 @@ IN: classes.struct.prettyprint
[ [ \ S{ ] dip [ class ] [ struct>assoc ] bi \ } (pprint-tuple) ] ?pprint-tuple ; [ [ \ S{ ] dip [ class ] [ struct>assoc ] bi \ } (pprint-tuple) ] ?pprint-tuple ;
: pprint-struct-pointer ( struct -- ) : pprint-struct-pointer ( struct -- )
<block \ S@ [ [ class pprint-word ] [ >c-ptr pprint* ] bi ] pprint-prefix ;
\ S@ pprint-word
[ class pprint-word ]
[ >c-ptr pprint* ] bi
block> ;
PRIVATE> PRIVATE>

5
basis/specialized-arrays/direct/functor/functor.factor
View File

@ -9,10 +9,7 @@ IN: specialized-arrays.direct.functor
<PRIVATE <PRIVATE
: pprint-direct-array ( direct-array tag -- ) : pprint-direct-array ( direct-array tag -- )
<block [ [ underlying>> ] [ length>> ] bi [ pprint* ] bi@ ] pprint-prefix ;
pprint-word
[ underlying>> ] [ length>> ] bi [ pprint* ] bi@
block> ;
PRIVATE> PRIVATE>

7
basis/struct-arrays/prettyprint/prettyprint.factor
View File

@ -10,10 +10,9 @@ M: struct-array >pprint-sequence
[ >array ] [ class>> ] bi prefix ; [ >array ] [ class>> ] bi prefix ;
: pprint-struct-array-pointer ( struct-array -- ) : pprint-struct-array-pointer ( struct-array -- )
<block \ struct-array@
\ struct-array@ pprint-word [ [ class>> pprint-word ] [ underlying>> pprint* ] [ length>> pprint* ] tri ]
[ class>> ] [ underlying>> ] [ length>> ] tri [ pprint* ] tri@ pprint-prefix ;
block> ;
M: struct-array pprint* M: struct-array pprint*
[ pprint-object ] [ pprint-object ]