pprint-qualified ( qualified -- )

Vocabulary

vocabs.prettyprint.private

Inputs

qualified

an object

Outputs

None

Definition

IN: vocabs.prettyprint.private

GENERIC: pprint-qualified ( qualified -- )

Methods

USING: accessors kernel prettyprint.backend prettyprint.sections
sequences vocabs.parser vocabs.prettyprint
vocabs.prettyprint.private ;

M: exclude pprint-qualified
    [
        \ EXCLUDE: pprint-word
        [ vocab>> pprint-vocab "=>" text ]
        [ names>> [ text ] each ] bi pprint-;
    ] with-pprint ;


USING: accessors kernel prettyprint.backend prettyprint.sections
sequences vocabs.parser vocabs.prettyprint
vocabs.prettyprint.private ;

M: from pprint-qualified
    [
        \ FROM: pprint-word
        [ vocab>> pprint-vocab "=>" text ]
        [ names>> [ text ] each ] bi pprint-;
    ] with-pprint ;


USING: accessors kernel prettyprint.backend prettyprint.sections
vocabs vocabs.parser vocabs.prettyprint
vocabs.prettyprint.private ;

M: qualified pprint-qualified
    [
        dup [ vocab>> vocab-name ] [ prefix>> ] bi =
        [ \ QUALIFIED: pprint-word vocab>> pprint-vocab ] [
            \ QUALIFIED-WITH: pprint-word
            [ vocab>> pprint-vocab ] [ prefix>> text ] bi
        ] if
    ] with-pprint ;


USING: accessors assocs kernel prettyprint.backend
prettyprint.sections sequences vocabs.parser
vocabs.prettyprint.private ;

M: rename pprint-qualified
    [
        \ RENAME: pprint-word
        [ word>> text ] [ vocab>> text "=>" text ]
        [ words>> >alist first first text ] tri
    ] with-pprint ;