define-gir-vocab ( path -- )

Vocabulary

gobject-introspection.private

Inputs

path

an object

Outputs

None

Definition

USING: accessors combinators gobject-introspection.common
gobject-introspection.ffi gobject-introspection.loader io kernel
namespaces xml ;

IN: gobject-introspection.private

: define-gir-vocab ( path -- )
    resolve-gir-path dup "Loading " write print
    file>xml xml>repository {
        [ namespace>> name>> current-namespace-name set-global ]
        [ def-ffi-repository ]
    } cleave V{ } clone implement-structs set-global ;