1 ! (c)Joe Groff bsd license
2 USING: accessors arrays kernel prettyprint.backend
3 prettyprint.custom prettyprint.sections sequences struct-arrays ;
4 IN: struct-arrays.prettyprint
6 M: struct-array pprint-delims
7 drop \ struct-array{ \ } ;
9 M: struct-array >pprint-sequence
10 [ >array ] [ class>> ] bi prefix ;
12 : pprint-struct-array-pointer ( struct-array -- )
14 [ [ class>> pprint-word ] [ underlying>> pprint* ] [ length>> pprint* ] tri ]
17 M: struct-array pprint*
19 [ pprint-struct-array-pointer ] pprint-c-object ;