parse-uniform-tuple-definition ( -- class superclass uniforms )

Vocabulary

gpu.render.private

Inputs

None

Outputs

class	an object
superclass	an object
uniforms	an object

Definition

USING: classes.parser combinators gpu.render kernel lexer parser
sequences ;

IN: gpu.render.private

: parse-uniform-tuple-definition
    ( -- class superclass uniforms )
    scan-new-class scan-token {
        { ";" [ uniform-tuple f ] }
        {
            "<"
            [
                scan-word parse-array-def
                [ first3 uniform boa ] map
            ]
        }
        {
            "{"
            [
                uniform-tuple \ } parse-until parse-array-def
                swap prefix [ first3 uniform boa ] map
            ]
        }
    } case ;