alien-function-alias-word

Vocabulary

alien.prettyprint

Class description

Used to prettier pretty-printing of alien function words.

Definition

USING: accessors alien combinators.short-circuit kernel
sequences words ;

IN: alien.prettyprint

PREDICATE: alien-function-alias-word < word
    def>> { [ length 6 = ] [ last \ alien-invoke eq? ] } 1&& ;

Methods

USING: alien.prettyprint kernel see.private ;

M: alien-function-alias-word declarations. drop ;


USING: alien.prettyprint alien.syntax definitions kernel ;

M: alien-function-alias-word definer drop \ FUNCTION-ALIAS: f ;


USING: alien.prettyprint definitions kernel ;

M: alien-function-alias-word definition drop f ;


USING: accessors alien.prettyprint combinators
prettyprint.backend prettyprint.sections see see.private
sequences ;

M: alien-function-alias-word synopsis*
    {
        [ seeing-word ]
        [ def>> second pprint-library ]
        [ definer. ]
        [ pprint-word ]
        [ [ def>> third text ] pprint-function ]
    } cleave ;