enum-c-type-word

Vocabulary

alien.enums

Definition

USING: alien.c-types alien.enums.private words ;

IN: alien.enums

PREDICATE: enum-c-type-word < c-type-word
    "c-type" word-prop enum-c-type? ;

Methods

USING: alien.enums alien.syntax definitions kernel ;

M: enum-c-type-word definer drop \ ENUM: \ ; ;


USING: accessors alien.c-types alien.enums definitions ;

M: enum-c-type-word definition lookup-c-type members>> ;


USING: accessors alien.c-types alien.enums combinators kernel
prettyprint.backend prettyprint.sections see see.private ;

M: enum-c-type-word synopsis*
    {
        [ seeing-word ]
        [ definer. ]
        [ pprint-word ]
        [
            lookup-c-type base-type>> dup int eq?
            [ drop ] [ "<" text pprint-word ] if
        ]
    } cleave ;