xml>simple-type ( xml -- type )

Vocabulary

gobject-introspection.loader

Inputs

xml

an object

Outputs

type

an object

Definition

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

IN: gobject-introspection.loader

: xml>simple-type ( xml -- type )
    [ simple-type new ] dip {
        [ "name" attr >>name ]
        [
            "type" tags-named [ xml>simple-type ] map f like
            >>element-types
        ]
    } cleave ;