parse-enum-base-type ( -- base-type token )

Vocabulary

alien.parser.private

Inputs

None

Outputs

base-type	an object
token	an object

Definition

USING: alien.c-types kernel lexer parser ;

IN: alien.parser.private

: parse-enum-base-type ( -- base-type token )
    scan-token dup "<" =
    [ drop scan-object scan-token ] [ [ int ] dip ] if ;