pprint-struct-slot ( slot -- )

Vocabulary

classes.struct.prettyprint.private

Inputs

slot

an object

Outputs

None

Definition

USING: accessors alien.prettyprint classes.struct combinators
kernel prettyprint.backend prettyprint.custom
prettyprint.sections ;

IN: classes.struct.prettyprint.private

: pprint-struct-slot ( slot -- )
    <flow \ { pprint-word f <inset {
        [ name>> text ]
        [ type>> pprint-c-type ]
        [ read-only>> [ \ read-only pprint-word ] when ]
        [ initial>> [ \ initial: pprint-word pprint* ] when* ]
        [
            dup struct-bit-slot-spec?
            [ \ bits: pprint-word bits>> pprint* ] [ drop ] if
        ]
    } cleave block> \ } pprint-word block> ;