xml>union ( xml -- union )

Vocabulary

gobject-introspection.loader

Inputs

xml

an object

Outputs

union

an object

Definition

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

IN: gobject-introspection.loader

: xml>union ( xml -- union )
    [ union new ] dip {
        [ load-type ]
        [ "field" tags-named [ xml>field ] map >>fields ]
        [ "constructor" load-functions >>constructors ]
        [ "method" load-functions >>methods ]
        [ "function" load-functions >>functions ]
    } cleave ;