basis/alien/prettyprint/prettyprint.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel combinators alien alien.strings alien.syntax
   4 prettyprint.backend prettyprint.custom prettyprint.sections ;
   5 IN: alien.prettyprint
   6
   7 M: alien pprint*
   8     {
   9         { [ dup expired? ] [ drop \ BAD-ALIEN pprint-word ] }
  10         { [ dup pinned-c-ptr? not ] [ drop "( displaced alien )" text ] }
  11         [ \ ALIEN: [ alien-address pprint* ] pprint-prefix ]
  12     } cond ;
  13
  14 M: dll pprint* dll-path dup "DLL\" " "\"" pprint-string ;