xml>class ( xml -- class )

Vocabulary

gobject-introspection.loader

Inputs

xml

an object

Outputs

class

an object

Definition

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

IN: gobject-introspection.loader

: xml>class ( xml -- class )
    [ class new ] dip {
        [ load-type ]
        [ "abstract" attr "1" = >>abstract? ]
        [ "parent" attr >>parent ]
        [ "type-struct" attr >>type-struct ]
        [ "constructor" load-functions >>constructors ]
        [ "method" load-functions >>methods ]
        [ "function" load-functions >>functions ]
        [ "signal" tags-named [ xml>signal ] map >>signals ]
    } cleave ;