xml>alias ( xml -- alias )

Vocabulary

gobject-introspection.loader

Inputs

xml

an object

Outputs

alias

an object

Definition

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

IN: gobject-introspection.loader

: xml>alias ( xml -- alias )
    [ alias new ] dip {
        [ "name" attr >>name ]
        [ "type" attr >>c-type ]
        [ child-type-tag xml>type >>type ]
    } cleave ;