parse-enum ( class -- )

Vocabulary

classes.enumeration.private

Inputs

class

an object

Outputs

None

Definition

USING: combinators kernel lexer make math parser ;

IN: classes.enumeration.private

: parse-enum ( class -- )
    [
        scan-word-name {
            { ";" [ f ";" unexpected ] }
            {
                "<"
                [
                    scan-word
                    [ dup 0 ~quotation~ parse-enum-elts ] dip
                ]
            }
            [
                [ dup dup ] dip 0 [ 1 + ] parse-enum-elt
                parse-enum-elts fixnum
            ]
        } case
    ] { } make (define-enum-class) ;