xml>enum ( xml -- enum )

Vocabulary

gobject-introspection.loader

Inputs

xml

an object

Outputs

enum

an object

Definition

USING: accessors combinators gobject-introspection.repository
kernel sequences xml.traversal ;

IN: gobject-introspection.loader

: xml>enum ( xml -- enum )
    [ enum new ] dip {
        [ load-type ]
        [ "member" tags-named [ xml>member ] map >>members ]
    } cleave ;