(define-enum) ( word base-type members -- )

Vocabulary

alien.enums

Inputs

word	an object
base-type	an object
members	an object

Outputs

None

Definition

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

IN: alien.enums

: (define-enum) ( word base-type members -- )
    [ dup define-enum-constructor ] 2dip
    [ define-enum-members ] [ <enum-c-type> swap typedef ] bi ;