xml>record ( xml -- record )

Vocabulary

gobject-introspection.loader

Inputs

xml

an object

Outputs

record

an object

Definition

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

IN: gobject-introspection.loader

: xml>record ( xml -- record )
    [ record new ] dip {
        [ load-type ]
        [
            over c-type>> implement-struct?
            [ "field" tags-named [ xml>field ] map >>fields ]
            [ drop ] if
        ]
        [ "constructor" load-functions >>constructors ]
        [ "method" load-functions >>methods ]
        [ "function" load-functions >>functions ]
        [ "disguised" attr "1" = >>disguised? ]
        [ "is-gtype-struct-for" attr >>struct-for ]
    } cleave ;