parse-role-definition ( -- class superroles slots )

Vocabulary

roles

Inputs

None

Outputs

class	an object
superroles	an object
slots	an object

Definition

USING: arrays classes.parser classes.tuple.parser combinators
kernel lexer make parser ;

IN: roles

: parse-role-definition ( -- class superroles slots )
    scan-new-class scan-token {
        { ";" [ { } { } ] }
        {
            "<"
            [ scan-word 1array [ parse-tuple-slots ] { } make ]
        }
        {
            "<{"
            [
                \ } parse-until >array
                [ parse-tuple-slots ] { } make
            ]
        }
        [
            { } swap
            [ parse-slot-name [ parse-tuple-slots ] when ] { }
            make
        ]
    } case ;