1 ! Copyright (C) 2009 Joe Groff.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien.data kernel prettyprint.backend
4 prettyprint.sections prettyprint.custom
6 IN: specialized-arrays.prettyprint
8 : pprint-direct-array ( direct-array -- )
10 [ underlying-type ] [ underlying>> ] [ length>> ] tri
14 M: specialized-array pprint*
15 [ pprint-object ] [ pprint-direct-array ] pprint-c-object ;