resolve-gir-path ( path -- path )

Vocabulary

gobject-introspection.private

Inputs

path

an object

Outputs

path

an object

Definition

USING: gobject-introspection io.files io.pathnames kernel
sequences ;

IN: gobject-introspection.private

:: resolve-gir-path ( path -- path )
    path file-exists?
    [ path ] [
        current-vocab-dirs custom-gir-dirs system-gir-dirs
        3append sift :> paths paths
        [ path append-path file-exists? ] find nip
        [ path append-path ] [ path paths gir-not-found ] if*
    ] if ;