see-class* ( word -- )

Vocabulary

see.private

Inputs

word

an object

Outputs

None

Definition

IN: see.private

GENERIC: see-class* ( word -- )

Methods

USING: classes.builtin kernel prettyprint.backend
prettyprint.sections see.private sequences vocabs.prettyprint
words ;

M: builtin-class see-class*
    <block \ BUILTIN: pprint-word
    [ pprint-word ] [
        <block "slots" word-prop [ pprint-slot ] each
        pprint-; block>
    ] bi block> ;


USING: accessors classes.error combinators prettyprint.backend
prettyprint.sections see.private sequences vocabs.prettyprint
words ;

M: error-class see-class*
    <colon \ ERROR: pprint-word {
        [ pprint-word ]
        [ superclass. ]
        [
            <block "slots" word-prop
            [ name>> pprint-slot-name ] each block> pprint-;
        ]
        [ tuple-declarations. ]
    } cleave block> ;


USING: classes classes.intersection kernel prettyprint.backend
prettyprint.sections see.private vocabs.prettyprint ;

M: intersection-class see-class*
    <colon \ INTERSECTION: pprint-word dup pprint-word
    class-participants pprint-elements pprint-; block> ;


USING: classes classes.mixin kernel prettyprint.backend
prettyprint.sections see.private sequences ;

M: mixin-class see-class*
    <block \ MIXIN: pprint-word dup pprint-word
    <block dup class-members [
        hard add-line-break \ INSTANCE: pprint-word pprint-word
        pprint-word
    ] with each block> block> ;


USING: classes classes.predicate kernel prettyprint.backend
prettyprint.sections see.private vocabs.prettyprint words ;

M: predicate-class see-class*
    <colon \ PREDICATE: pprint-word dup pprint-word "<" text
    dup superclass-of pprint-word
    <block "predicate-definition" word-prop pprint-elements
    pprint-; block> block> ;


USING: classes.singleton prettyprint.backend see.private ;

M: singleton-class see-class*
    \ SINGLETON: pprint-word pprint-word ;


USING: classes.struct classes.struct.prettyprint.private kernel
prettyprint.backend prettyprint.sections see.private sequences
vocabs.prettyprint ;

M: struct-class see-class*
    <colon dup struct-definer-word pprint-word dup pprint-word
    <block struct-slots [ pprint-struct-slot ] each
    block> pprint-; block> ;


USING: classes.tuple combinators prettyprint.backend
prettyprint.sections see.private sequences vocabs.prettyprint
words ;

M: tuple-class see-class*
    <colon \ TUPLE: pprint-word {
        [ pprint-word ]
        [ superclass. ]
        [
            <block "slots" word-prop [ pprint-slot ] each
            block> pprint-;
        ]
        [ tuple-declarations. ]
    } cleave block> ;


USING: classes classes.union kernel prettyprint.backend
prettyprint.sections see.private vocabs.prettyprint ;

M: union-class see-class*
    <colon \ UNION: pprint-word dup pprint-word
    class-members pprint-elements pprint-; block> ;


USING: kernel see.private words ;

M: word see-class* drop ;