basis/specialized-arrays/prettyprint/prettyprint.factor

   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
   5 specialized-arrays ;
   6 IN: specialized-arrays.prettyprint
   7
   8 : pprint-direct-array ( direct-array -- )
   9     \ c-array@ [
  10          [ underlying-type ] [ underlying>> ] [ length>> ] tri
  11          [ pprint* ] tri@
  12      ] pprint-prefix ;
  13
  14 M: specialized-array pprint*
  15     [ pprint-object ] [ pprint-direct-array ] pprint-c-object ;
  16