IN: alien

BUILTIN: alien
{ underlying c-ptr read-only initial: f } expired ;

USING: alien core-foundation core-foundation.utilities ;

M: alien (>cf) CFRetain ;

USING: alien tools.disassembler.private ;

M: alien convert-address alien-address ;

USING: alien kernel ;

M: alien equal?
over alien? [
2dup [ expired? ] either?
[ [ expired? ] both? ] [ [ alien-address ] same? ] if
] [ 2drop f ] if ;

USING: accessors alien ;

M: alien expired? expired>> ;

USING: alien alien.syntax combinators kernel math.parser
prettyprint.backend prettyprint.custom prettyprint.sections ;

M: alien pprint*
{
{ [ dup expired? ] [ drop \ BAD-ALIEN pprint-word ] }
{
[ dup pinned-c-ptr? not ]
[ drop "( displaced alien )" text ]
}
[ \ ALIEN: [ alien-address >hex text ] pprint-prefix ]
} cond ;