-/* -*- Mode: C; c-file-style: "gnu"; -*- */
-/* GObject introspection: Repository implementation
+/* -*- mode: C; c-file-style: "gnu"; indent-tabs-mode: nil; -*-
+ * GObject introspection: Repository implementation
*
* Copyright (C) 2005 Matthias Clasen
+ * Copyright (C) 2008 Colin Walters <walters@verbum.org>
+ * Copyright (C) 2008 Red Hat, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* Boston, MA 02111-1307, USA.
*/
+#include "config.h"
+
#include <stdio.h>
#include <string.h>
+#include <stdlib.h>
#include <glib.h>
#include <glib/gprintf.h>
#include <gmodule.h>
#include "girepository.h"
-#include "gtypelib.h"
+#include "gitypelib-internal.h"
+#include "girepository-private.h"
+
+/**
+ * SECTION:girepository
+ * @short_description: GObject Introspection repository manager
+ * @include: girepository.h
+ *
+ * #GIRepository is used to manage repositories of namespaces. Namespaces
+ * are represented on disk by type libraries (.typelib files).
+ */
+
static GIRepository *default_repository = NULL;
-static GHashTable *default_typelib = NULL;
static GSList *search_path = NULL;
-struct _GIRepositoryPrivate
+struct _GIRepositoryPrivate
{
- GHashTable *typelib; /* (string) namespace -> GTypelib */
+ GHashTable *typelibs; /* (string) namespace -> GITypelib */
+ GHashTable *lazy_typelibs; /* (string) namespace-version -> GITypelib */
+ GHashTable *info_by_gtype; /* GType -> GIBaseInfo */
+ GHashTable *info_by_error_domain; /* GQuark -> GIBaseInfo */
};
G_DEFINE_TYPE (GIRepository, g_irepository, G_TYPE_OBJECT);
-static void
+#ifdef G_PLATFORM_WIN32
+
+#include <windows.h>
+
+static HMODULE girepository_dll = NULL;
+
+#ifdef DLL_EXPORT
+
+BOOL WINAPI
+DllMain (HINSTANCE hinstDLL,
+ DWORD fdwReason,
+ LPVOID lpvReserved)
+{
+ if (fdwReason == DLL_PROCESS_ATTACH)
+ girepository_dll = hinstDLL;
+
+ return TRUE;
+}
+
+#endif
+
+#undef GOBJECT_INTROSPECTION_LIBDIR
+
+/* GOBJECT_INTROSPECTION_LIBDIR is used only in code called just once,
+ * so no problem leaking this
+ */
+#define GOBJECT_INTROSPECTION_LIBDIR \
+ g_build_filename (g_win32_get_package_installation_directory_of_module (girepository_dll), \
+ "lib", \
+ NULL)
+
+#endif
+
+static void
g_irepository_init (GIRepository *repository)
{
repository->priv = G_TYPE_INSTANCE_GET_PRIVATE (repository, G_TYPE_IREPOSITORY,
GIRepositoryPrivate);
+ repository->priv->typelibs
+ = g_hash_table_new_full (g_str_hash, g_str_equal,
+ (GDestroyNotify) NULL,
+ (GDestroyNotify) g_typelib_free);
+ repository->priv->lazy_typelibs
+ = g_hash_table_new_full (g_str_hash, g_str_equal,
+ (GDestroyNotify) g_free,
+ (GDestroyNotify) NULL);
+ repository->priv->info_by_gtype
+ = g_hash_table_new_full (g_direct_hash, g_direct_equal,
+ (GDestroyNotify) NULL,
+ (GDestroyNotify) g_base_info_unref);
+ repository->priv->info_by_error_domain
+ = g_hash_table_new_full (g_direct_hash, g_direct_equal,
+ (GDestroyNotify) NULL,
+ (GDestroyNotify) g_base_info_unref);
}
static void
{
GIRepository *repository = G_IREPOSITORY (object);
- g_hash_table_destroy (repository->priv->typelib);
-
+ g_hash_table_destroy (repository->priv->typelibs);
+ g_hash_table_destroy (repository->priv->lazy_typelibs);
+ g_hash_table_destroy (repository->priv->info_by_gtype);
+ g_hash_table_destroy (repository->priv->info_by_error_domain);
+
(* G_OBJECT_CLASS (g_irepository_parent_class)->finalize) (G_OBJECT (repository));
}
gobject_class->finalize = g_irepository_finalize;
- g_type_class_add_private (class, sizeof (GIRepositoryPrivate));
+ g_type_class_add_private (class, sizeof (GIRepositoryPrivate));
}
-const gchar *
-g_irepository_register (GIRepository *repository,
- GTypelib *typelib)
+static void
+init_globals (void)
{
- Header *header;
- const gchar *name;
- GHashTable *table;
- GError *error = NULL;
-
- g_return_val_if_fail (typelib != NULL, NULL);
-
- header = (Header *)typelib->data;
+ static gsize initialized = 0;
- g_return_val_if_fail (header != NULL, NULL);
+ if (!g_once_init_enter (&initialized))
+ return;
- if (repository != NULL)
- {
- if (repository->priv->typelib == NULL)
- repository->priv->typelib = g_hash_table_new_full (g_str_hash, g_str_equal,
- (GDestroyNotify) NULL,
- (GDestroyNotify) g_typelib_free);
- table = repository->priv->typelib;
- }
- else
+ if (default_repository == NULL)
+ default_repository = g_object_new (G_TYPE_IREPOSITORY, NULL);
+
+ if (search_path == NULL)
{
- if (default_typelib == NULL)
- default_typelib = g_hash_table_new_full (g_str_hash, g_str_equal,
- (GDestroyNotify) NULL,
- (GDestroyNotify) g_typelib_free);
- table = default_typelib;
- }
+ const char *libdir;
+ char *typelib_dir;
+ const gchar *type_lib_path_env;
- name = g_typelib_get_string (typelib, header->namespace);
+ /* This variable is intended to take precedence over both:
+ * - the default search path;
+ * - all g_irepository_prepend_search_path() calls.
+ */
+ type_lib_path_env = g_getenv ("GI_TYPELIB_PATH");
- if (g_hash_table_lookup (table, name))
- {
- g_printerr ("typelib (%p) for '%s' already registered\n",
- typelib, name);
+ search_path = NULL;
+ if (type_lib_path_env)
+ {
+ gchar **custom_dirs;
+ gchar **d;
- return NULL;
- }
- g_hash_table_insert (table, g_strdup(name), (void *)typelib);
+ custom_dirs = g_strsplit (type_lib_path_env, G_SEARCHPATH_SEPARATOR_S, 0);
- if (typelib->module == NULL)
- typelib->module = g_module_open (NULL, 0);
+ d = custom_dirs;
+ while (*d)
+ {
+ search_path = g_slist_prepend (search_path, *d);
+ d++;
+ }
- if (g_getenv ("G_IREPOSITORY_VERBOSE"))
- {
- g_printerr ("Loaded typelib %s\n", name);
+ /* ownership of the array content was passed to the list */
+ g_free (custom_dirs);
+ }
+
+ libdir = GOBJECT_INTROSPECTION_LIBDIR;
+
+ typelib_dir = g_build_filename (libdir, "girepository-1.0", NULL);
+
+ search_path = g_slist_prepend (search_path, typelib_dir);
+
+ search_path = g_slist_reverse (search_path);
}
- return name;
+ g_once_init_leave (&initialized, 1);
}
-
+/**
+ * g_irepository_prepend_search_path:
+ * @directory: (type filename): directory name to prepend to the typelib
+ * search path
+ *
+ * Prepends @directory to the typelib search path.
+ * See g_irepository_get_search_path().
+ */
void
-g_irepository_unregister (GIRepository *repository,
- const gchar *namespace)
+g_irepository_prepend_search_path (const char *directory)
{
- GHashTable *table;
+ init_globals ();
+ search_path = g_slist_prepend (search_path, g_strdup (directory));
+}
- if (repository != NULL)
- table = repository->priv->typelib;
- else
- table = default_typelib;
+/**
+ * g_irepository_get_search_path:
+ *
+ * Returns the current search path #GIRepository will use when loading
+ * typelib files. The list is internal to #GIRespository and should not
+ * be freed, nor should its string elements.
+ *
+ * Returns: (element-type filename) (transfer none): #GSList of strings
+ */
+GSList *
+g_irepository_get_search_path (void)
+{
+ return search_path;
+}
- if (!g_hash_table_remove (table, namespace))
- {
- g_printerr ("namespace '%s' not registered\n", namespace);
- }
+static char *
+build_typelib_key (const char *name, const char *source)
+{
+ GString *str = g_string_new (name);
+ g_string_append_c (str, '\0');
+ g_string_append (str, source);
+ return g_string_free (str, FALSE);
}
-gboolean
-g_irepository_is_registered (GIRepository *repository,
- const gchar *namespace)
+/* Note: Returns %NULL (not an empty %NULL-terminated array) if there are no
+ * dependencies. */
+static char **
+get_typelib_dependencies (GITypelib *typelib)
+{
+ Header *header;
+ const char *dependencies_glob;
+
+ header = (Header *)typelib->data;
+
+ if (header->dependencies == 0)
+ return NULL;
+
+ dependencies_glob = g_typelib_get_string (typelib, header->dependencies);
+ return g_strsplit (dependencies_glob, "|", 0);
+}
+
+static GIRepository *
+get_repository (GIRepository *repository)
{
- GHashTable *table;
+ init_globals ();
if (repository != NULL)
- table = repository->priv->typelib;
+ return repository;
else
- table = default_typelib;
-
- return g_hash_table_lookup (table, namespace) != NULL;
+ return default_repository;
}
-GIRepository *
-g_irepository_get_default (void)
+static GITypelib *
+check_version_conflict (GITypelib *typelib,
+ const gchar *namespace,
+ const gchar *expected_version,
+ char **version_conflict)
{
- if (default_repository == NULL)
- {
- default_repository = g_object_new (G_TYPE_IREPOSITORY, NULL);
- if (default_typelib == NULL)
- default_typelib = g_hash_table_new_full (g_str_hash, g_str_equal,
- (GDestroyNotify) NULL,
- (GDestroyNotify) g_typelib_free);
- default_repository->priv->typelib = default_typelib;
+ Header *header;
+ const char *loaded_version;
+
+ if (expected_version == NULL)
+ {
+ if (version_conflict)
+ *version_conflict = NULL;
+ return typelib;
}
- return default_repository;
+ header = (Header*)typelib->data;
+ loaded_version = g_typelib_get_string (typelib, header->nsversion);
+ g_assert (loaded_version != NULL);
+
+ if (strcmp (expected_version, loaded_version) != 0)
+ {
+ if (version_conflict)
+ *version_conflict = (char*)loaded_version;
+ return NULL;
+ }
+ if (version_conflict)
+ *version_conflict = NULL;
+ return typelib;
}
-static void
-count_interfaces (gpointer key,
- gpointer value,
- gpointer data)
+static GITypelib *
+get_registered_status (GIRepository *repository,
+ const char *namespace,
+ const char *version,
+ gboolean allow_lazy,
+ gboolean *lazy_status,
+ char **version_conflict)
{
- guchar *typelib = ((GTypelib *) value)->data;
- gint *n_interfaces = (gint *)data;
-
- *n_interfaces += ((Header *)typelib)->n_local_entries;
+ GITypelib *typelib;
+ repository = get_repository (repository);
+ if (lazy_status)
+ *lazy_status = FALSE;
+ typelib = g_hash_table_lookup (repository->priv->typelibs, namespace);
+ if (typelib)
+ return check_version_conflict (typelib, namespace, version, version_conflict);
+ typelib = g_hash_table_lookup (repository->priv->lazy_typelibs, namespace);
+ if (!typelib)
+ return NULL;
+ if (lazy_status)
+ *lazy_status = TRUE;
+ if (!allow_lazy)
+ return NULL;
+ return check_version_conflict (typelib, namespace, version, version_conflict);
}
-gint
-g_irepository_get_n_infos (GIRepository *repository,
- const gchar *namespace)
+static GITypelib *
+get_registered (GIRepository *repository,
+ const char *namespace,
+ const char *version)
{
- gint n_interfaces = 0;
-
- if (namespace)
+ return get_registered_status (repository, namespace, version, TRUE, NULL, NULL);
+}
+
+static gboolean
+load_dependencies_recurse (GIRepository *repository,
+ GITypelib *typelib,
+ GError **error)
+{
+ char **dependencies;
+
+ dependencies = get_typelib_dependencies (typelib);
+
+ if (dependencies != NULL)
{
- GTypelib *typelib;
+ int i;
+
+ for (i = 0; dependencies[i]; i++)
+ {
+ char *dependency = dependencies[i];
+ const char *last_dash;
+ char *dependency_namespace;
+ const char *dependency_version;
- typelib = g_hash_table_lookup (repository->priv->typelib, namespace);
+ last_dash = strrchr (dependency, '-');
+ dependency_namespace = g_strndup (dependency, last_dash - dependency);
+ dependency_version = last_dash+1;
- if (typelib)
- n_interfaces = ((Header *)typelib->data)->n_local_entries;
+ if (!g_irepository_require (repository, dependency_namespace, dependency_version,
+ 0, error))
+ {
+ g_free (dependency_namespace);
+ g_strfreev (dependencies);
+ return FALSE;
+ }
+ g_free (dependency_namespace);
+ }
+ g_strfreev (dependencies);
+ }
+ return TRUE;
+}
+
+static const char *
+register_internal (GIRepository *repository,
+ const char *source,
+ gboolean lazy,
+ GITypelib *typelib,
+ GError **error)
+{
+ Header *header;
+ const gchar *namespace;
+
+ g_return_val_if_fail (typelib != NULL, FALSE);
+
+ header = (Header *)typelib->data;
+
+ g_return_val_if_fail (header != NULL, FALSE);
+
+ namespace = g_typelib_get_string (typelib, header->namespace);
+
+ if (lazy)
+ {
+ g_assert (!g_hash_table_lookup (repository->priv->lazy_typelibs,
+ namespace));
+ g_hash_table_insert (repository->priv->lazy_typelibs,
+ build_typelib_key (namespace, source), (void *)typelib);
}
else
{
- g_hash_table_foreach (repository->priv->typelib,
- count_interfaces, &n_interfaces);
+ gpointer value;
+ char *key;
+
+ /* First, try loading all the dependencies */
+ if (!load_dependencies_recurse (repository, typelib, error))
+ return NULL;
+
+ /* Check if we are transitioning from lazily loaded state */
+ if (g_hash_table_lookup_extended (repository->priv->lazy_typelibs,
+ namespace,
+ (gpointer)&key, &value))
+ g_hash_table_remove (repository->priv->lazy_typelibs, key);
+ else
+ key = build_typelib_key (namespace, source);
+
+ g_hash_table_insert (repository->priv->typelibs, key, (void *)typelib);
}
- return n_interfaces;
+ return namespace;
}
-typedef struct
+/**
+ * g_irepository_get_immediate_dependencies:
+ * @repository: (nullable): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace of interest
+ *
+ * Return an array of the immediate versioned dependencies for @namespace_.
+ * Returned strings are of the form <code>namespace-version</code>.
+ *
+ * Note: @namespace_ must have already been loaded using a function
+ * such as g_irepository_require() before calling this function.
+ *
+ * To get the transitive closure of dependencies for @namespace_, use
+ * g_irepository_get_dependencies().
+ *
+ * Returns: (transfer full): Zero-terminated string array of immediate versioned
+ * dependencies
+ *
+ * Since: 1.44
+ */
+char **
+g_irepository_get_immediate_dependencies (GIRepository *repository,
+ const char *namespace)
{
- gint index;
- const gchar *name;
- const gchar *type;
- GIBaseInfo *iface;
-} IfaceData;
+ GITypelib *typelib;
+ gchar **deps;
+
+ g_return_val_if_fail (namespace != NULL, NULL);
+
+ repository = get_repository (repository);
+
+ typelib = get_registered (repository, namespace, NULL);
+ g_return_val_if_fail (typelib != NULL, NULL);
+
+ /* Ensure we always return a non-%NULL vector. */
+ deps = get_typelib_dependencies (typelib);
+ if (deps == NULL)
+ deps = g_strsplit ("", "|", 0);
+
+ return deps;
+}
+/* Load the transitive closure of dependency namespace-version strings for the
+ * given @typelib. @repository must be non-%NULL. @transitive_dependencies must
+ * be a pre-existing GHashTable<owned utf8, owned utf8> set for storing the
+ * dependencies. */
static void
-find_interface (gpointer key,
- gpointer value,
- gpointer data)
+get_typelib_dependencies_transitive (GIRepository *repository,
+ GITypelib *typelib,
+ GHashTable *transitive_dependencies)
{
- gint i;
- GTypelib *typelib = (GTypelib *)value;
- IfaceData *iface_data = (IfaceData *)data;
- gint index;
- gint n_entries;
- guint32 offset;
- const gchar *name;
- const gchar *type;
- DirEntry *entry;
+ gchar **immediate_dependencies;
+ guint i;
- index = 0;
- n_entries = ((Header *)typelib->data)->n_local_entries;
+ immediate_dependencies = get_typelib_dependencies (typelib);
- if (iface_data->name)
+ for (i = 0; immediate_dependencies != NULL && immediate_dependencies[i]; i++)
{
- for (i = 1; i <= n_entries; i++)
- {
- entry = g_typelib_get_dir_entry (typelib, i);
- name = g_typelib_get_string (typelib, entry->name);
- if (strcmp (name, iface_data->name) == 0)
- {
- index = i;
- break;
- }
- }
- }
- else if (iface_data->type)
- {
- for (i = 1; i <= n_entries; i++)
- {
- entry = g_typelib_get_dir_entry (typelib, i);
- if (entry->blob_type < 4)
- continue;
-
- offset = *(guint32*)&typelib->data[entry->offset + 8];
- type = g_typelib_get_string (typelib, offset);
- if (strcmp (type, iface_data->type) == 0)
- {
- index = i;
- break;
- }
- }
+ gchar *dependency;
+ const gchar *last_dash;
+ gchar *dependency_namespace;
+
+ dependency = immediate_dependencies[i];
+
+ /* Steal from the strv. */
+ g_hash_table_add (transitive_dependencies, dependency);
+ immediate_dependencies[i] = NULL;
+
+ /* Recurse for this namespace. */
+ last_dash = strrchr (dependency, '-');
+ dependency_namespace = g_strndup (dependency, last_dash - dependency);
+
+ typelib = get_registered (repository, dependency_namespace, NULL);
+ g_return_if_fail (typelib != NULL);
+ get_typelib_dependencies_transitive (repository, typelib,
+ transitive_dependencies);
+
+ g_free (dependency_namespace);
}
- else if (iface_data->index > n_entries)
- iface_data->index -= n_entries;
- else if (iface_data->index > 0)
+
+ g_free (immediate_dependencies);
+}
+
+/**
+ * g_irepository_get_dependencies:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace of interest
+ *
+ * Return an array of all (transitive) versioned dependencies for
+ * @namespace_. Returned strings are of the form
+ * <code>namespace-version</code>.
+ *
+ * Note: @namespace_ must have already been loaded using a function
+ * such as g_irepository_require() before calling this function.
+ *
+ * To get only the immediate dependencies for @namespace_, use
+ * g_irepository_get_immediate_dependencies().
+ *
+ * Returns: (transfer full): Zero-terminated string array of all versioned
+ * dependencies
+ */
+char **
+g_irepository_get_dependencies (GIRepository *repository,
+ const char *namespace)
+{
+ GITypelib *typelib;
+ GHashTable *transitive_dependencies; /* set of owned utf8 */
+ GHashTableIter iter;
+ gchar *dependency;
+ GPtrArray *out; /* owned utf8 elements */
+
+ g_return_val_if_fail (namespace != NULL, NULL);
+
+ repository = get_repository (repository);
+
+ typelib = get_registered (repository, namespace, NULL);
+ g_return_val_if_fail (typelib != NULL, NULL);
+
+ /* Load the dependencies. */
+ transitive_dependencies = g_hash_table_new (g_str_hash, g_str_equal);
+ get_typelib_dependencies_transitive (repository, typelib,
+ transitive_dependencies);
+
+ /* Convert to a string array. */
+ out = g_ptr_array_new_full (g_hash_table_size (transitive_dependencies),
+ g_free);
+ g_hash_table_iter_init (&iter, transitive_dependencies);
+
+ while (g_hash_table_iter_next (&iter, (gpointer) &dependency, NULL))
{
- index = iface_data->index;
- iface_data->index = 0;
+ g_ptr_array_add (out, dependency);
+ g_hash_table_iter_steal (&iter);
}
- if (index != 0)
+ g_hash_table_unref (transitive_dependencies);
+
+ /* Add a NULL terminator. */
+ g_ptr_array_add (out, NULL);
+
+ return (gchar **) g_ptr_array_free (out, FALSE);
+}
+
+/**
+ * g_irepository_load_typelib:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @typelib: TODO
+ * @flags: TODO
+ * @error: TODO
+ *
+ * TODO
+ */
+const char *
+g_irepository_load_typelib (GIRepository *repository,
+ GITypelib *typelib,
+ GIRepositoryLoadFlags flags,
+ GError **error)
+{
+ Header *header;
+ const char *namespace;
+ const char *nsversion;
+ gboolean allow_lazy = flags & G_IREPOSITORY_LOAD_FLAG_LAZY;
+ gboolean is_lazy;
+ char *version_conflict;
+
+ repository = get_repository (repository);
+
+ header = (Header *) typelib->data;
+ namespace = g_typelib_get_string (typelib, header->namespace);
+ nsversion = g_typelib_get_string (typelib, header->nsversion);
+
+ if (get_registered_status (repository, namespace, nsversion, allow_lazy,
+ &is_lazy, &version_conflict))
{
- entry = g_typelib_get_dir_entry (typelib, index);
- iface_data->iface = g_info_new (entry->blob_type, NULL,
- typelib, entry->offset);
+ if (version_conflict != NULL)
+ {
+ g_set_error (error, G_IREPOSITORY_ERROR,
+ G_IREPOSITORY_ERROR_NAMESPACE_VERSION_CONFLICT,
+ "Attempting to load namespace '%s', version '%s', but '%s' is already loaded",
+ namespace, nsversion, version_conflict);
+ return NULL;
+ }
+ return namespace;
}
+ return register_internal (repository, "<builtin>",
+ allow_lazy, typelib, error);
+}
+
+/**
+ * g_irepository_is_registered:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace of interest
+ * @version: (allow-none): Required version, may be %NULL for latest
+ *
+ * Check whether a particular namespace (and optionally, a specific
+ * version thereof) is currently loaded. This function is likely to
+ * only be useful in unusual circumstances; in order to act upon
+ * metadata in the namespace, you should call g_irepository_require()
+ * instead which will ensure the namespace is loaded, and return as
+ * quickly as this function will if it has already been loaded.
+ *
+ * Returns: %TRUE if namespace-version is loaded, %FALSE otherwise
+ */
+gboolean
+g_irepository_is_registered (GIRepository *repository,
+ const gchar *namespace,
+ const gchar *version)
+{
+ repository = get_repository (repository);
+ return get_registered (repository, namespace, version) != NULL;
+}
+
+/**
+ * g_irepository_get_default:
+ *
+ * Returns the singleton process-global default #GIRepository. It is
+ * not currently supported to have multiple repositories in a
+ * particular process, but this function is provided in the unlikely
+ * eventuality that it would become possible, and as a convenience for
+ * higher level language bindings to conform to the GObject method
+ * call conventions.
+ *
+ * All methods on #GIRepository also accept %NULL as an instance
+ * parameter to mean this default repository, which is usually more
+ * convenient for C.
+ *
+ * Returns: (transfer none): The global singleton #GIRepository
+ */
+GIRepository *
+g_irepository_get_default (void)
+{
+ return get_repository (NULL);
}
-GIBaseInfo *
+/**
+ * g_irepository_get_n_infos:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace to inspect
+ *
+ * This function returns the number of metadata entries in
+ * given namespace @namespace_. The namespace must have
+ * already been loaded before calling this function.
+ *
+ * Returns: number of metadata entries
+ */
+gint
+g_irepository_get_n_infos (GIRepository *repository,
+ const gchar *namespace)
+{
+ GITypelib *typelib;
+ gint n_interfaces = 0;
+
+ g_return_val_if_fail (namespace != NULL, -1);
+
+ repository = get_repository (repository);
+
+ typelib = get_registered (repository, namespace, NULL);
+
+ g_return_val_if_fail (typelib != NULL, -1);
+
+ n_interfaces = ((Header *)typelib->data)->n_local_entries;
+
+ return n_interfaces;
+}
+
+/**
+ * g_irepository_get_info:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace to inspect
+ * @index: 0-based offset into namespace metadata for entry
+ *
+ * This function returns a particular metadata entry in the
+ * given namespace @namespace_. The namespace must have
+ * already been loaded before calling this function.
+ * See g_irepository_get_n_infos() to find the maximum number of
+ * entries.
+ *
+ * Returns: (transfer full): #GIBaseInfo containing metadata
+ */
+GIBaseInfo *
g_irepository_get_info (GIRepository *repository,
const gchar *namespace,
gint index)
{
- IfaceData data;
+ GITypelib *typelib;
+ DirEntry *entry;
- data.name = NULL;
- data.type = NULL;
- data.index = index + 1;
- data.iface = NULL;
+ g_return_val_if_fail (namespace != NULL, NULL);
- if (namespace)
- {
- GTypelib *typelib;
-
- typelib = g_hash_table_lookup (repository->priv->typelib, namespace);
-
- if (typelib)
- find_interface ((void *)namespace, typelib, &data);
- }
- else
- g_hash_table_foreach (repository->priv->typelib, find_interface, &data);
+ repository = get_repository (repository);
- return data.iface;
+ typelib = get_registered (repository, namespace, NULL);
+
+ g_return_val_if_fail (typelib != NULL, NULL);
+
+ entry = g_typelib_get_dir_entry (typelib, index + 1);
+ if (entry == NULL)
+ return NULL;
+ return _g_info_new_full (entry->blob_type,
+ repository,
+ NULL, typelib, entry->offset);
}
-GIBaseInfo *
-g_irepository_find_by_gtype (GIRepository *repository,
- GType type)
+typedef struct {
+ const gchar *gtype_name;
+ GITypelib *result_typelib;
+} FindByGTypeData;
+
+static DirEntry *
+find_by_gtype (GHashTable *table, FindByGTypeData *data, gboolean check_prefix)
{
- IfaceData data;
+ GHashTableIter iter;
+ gpointer key, value;
+ DirEntry *ret;
- data.name = NULL;
- data.type = g_type_name (type);
- data.index = -1;
- data.iface = NULL;
+ g_hash_table_iter_init (&iter, table);
+ while (g_hash_table_iter_next (&iter, &key, &value))
+ {
+ GITypelib *typelib = (GITypelib*)value;
+ if (check_prefix)
+ {
+ if (!g_typelib_matches_gtype_name_prefix (typelib, data->gtype_name))
+ continue;
+ }
+
+ ret = g_typelib_get_dir_entry_by_gtype_name (typelib, data->gtype_name);
+ if (ret)
+ {
+ data->result_typelib = typelib;
+ return ret;
+ }
+ }
- g_hash_table_foreach (repository->priv->typelib, find_interface, &data);
+ return NULL;
+}
- return data.iface;
+/**
+ * g_irepository_find_by_gtype:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @gtype: GType to search for
+ *
+ * Searches all loaded namespaces for a particular #GType. Note that
+ * in order to locate the metadata, the namespace corresponding to
+ * the type must first have been loaded. There is currently no
+ * mechanism for determining the namespace which corresponds to an
+ * arbitrary GType - thus, this function will operate most reliably
+ * when you know the GType to originate from be from a loaded namespace.
+ *
+ * Returns: (transfer full): #GIBaseInfo representing metadata about @type, or %NULL
+ */
+GIBaseInfo *
+g_irepository_find_by_gtype (GIRepository *repository,
+ GType gtype)
+{
+ FindByGTypeData data;
+ GIBaseInfo *cached;
+ DirEntry *entry;
+
+ repository = get_repository (repository);
+
+ cached = g_hash_table_lookup (repository->priv->info_by_gtype,
+ (gpointer)gtype);
+
+ if (cached != NULL)
+ return g_base_info_ref (cached);
+
+ data.gtype_name = g_type_name (gtype);
+ data.result_typelib = NULL;
+
+ /* Inside each typelib, we include the "C prefix" which acts as
+ * a namespace mechanism. For GtkTreeView, the C prefix is Gtk.
+ * Given the assumption that GTypes for a library also use the
+ * C prefix, we know we can skip examining a typelib if our
+ * target type does not have this typelib's C prefix. Use this
+ * assumption as our first attempt at locating the DirEntry.
+ */
+ entry = find_by_gtype (repository->priv->typelibs, &data, TRUE);
+ if (entry == NULL)
+ entry = find_by_gtype (repository->priv->lazy_typelibs, &data, TRUE);
+
+ /* Not ever class library necessarily specifies a correct c_prefix,
+ * so take a second pass. This time we will try a global lookup,
+ * ignoring prefixes.
+ * See http://bugzilla.gnome.org/show_bug.cgi?id=564016
+ */
+ if (entry == NULL)
+ entry = find_by_gtype (repository->priv->typelibs, &data, FALSE);
+ if (entry == NULL)
+ entry = find_by_gtype (repository->priv->lazy_typelibs, &data, FALSE);
+
+ if (entry != NULL)
+ {
+ cached = _g_info_new_full (entry->blob_type,
+ repository,
+ NULL, data.result_typelib, entry->offset);
+
+ g_hash_table_insert (repository->priv->info_by_gtype,
+ (gpointer) gtype,
+ g_base_info_ref (cached));
+ return cached;
+ }
+ return NULL;
}
-GIBaseInfo *
+/**
+ * g_irepository_find_by_name:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace which will be searched
+ * @name: Entry name to find
+ *
+ * Searches for a particular entry in a namespace. Before calling
+ * this function for a particular namespace, you must call
+ * g_irepository_require() once to load the namespace, or otherwise
+ * ensure the namespace has already been loaded.
+ *
+ * Returns: (transfer full): #GIBaseInfo representing metadata about @name, or %NULL
+ */
+GIBaseInfo *
g_irepository_find_by_name (GIRepository *repository,
const gchar *namespace,
const gchar *name)
{
- IfaceData data;
+ GITypelib *typelib;
+ DirEntry *entry;
+
+ g_return_val_if_fail (namespace != NULL, NULL);
+
+ repository = get_repository (repository);
+ typelib = get_registered (repository, namespace, NULL);
+ g_return_val_if_fail (typelib != NULL, NULL);
+
+ entry = g_typelib_get_dir_entry_by_name (typelib, name);
+ if (entry == NULL)
+ return NULL;
+ return _g_info_new_full (entry->blob_type,
+ repository,
+ NULL, typelib, entry->offset);
+}
+
+typedef struct {
+ GIRepository *repository;
+ GQuark domain;
+
+ GITypelib *result_typelib;
+ DirEntry *result;
+} FindByErrorDomainData;
+
+static void
+find_by_error_domain_foreach (gpointer key,
+ gpointer value,
+ gpointer datap)
+{
+ GITypelib *typelib = (GITypelib*)value;
+ FindByErrorDomainData *data = datap;
- data.name = name;
- data.type = NULL;
- data.index = -1;
- data.iface = NULL;
+ if (data->result != NULL)
+ return;
+
+ data->result = g_typelib_get_dir_entry_by_error_domain (typelib, data->domain);
+ if (data->result)
+ data->result_typelib = typelib;
+}
- if (namespace)
+/**
+ * g_irepository_find_by_error_domain:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @domain: a #GError domain
+ *
+ * Searches for the enum type corresponding to the given #GError
+ * domain. Before calling this function for a particular namespace,
+ * you must call g_irepository_require() once to load the namespace, or
+ * otherwise ensure the namespace has already been loaded.
+ *
+ * Returns: (transfer full): #GIEnumInfo representing metadata about @domain's
+ * enum type, or %NULL
+ * Since: 1.29.17
+ */
+GIEnumInfo *
+g_irepository_find_by_error_domain (GIRepository *repository,
+ GQuark domain)
+{
+ FindByErrorDomainData data;
+ GIEnumInfo *cached;
+
+ repository = get_repository (repository);
+
+ cached = g_hash_table_lookup (repository->priv->info_by_error_domain,
+ GUINT_TO_POINTER (domain));
+
+ if (cached != NULL)
+ return g_base_info_ref ((GIBaseInfo *)cached);
+
+ data.repository = repository;
+ data.domain = domain;
+ data.result_typelib = NULL;
+ data.result = NULL;
+
+ g_hash_table_foreach (repository->priv->typelibs, find_by_error_domain_foreach, &data);
+ if (data.result == NULL)
+ g_hash_table_foreach (repository->priv->lazy_typelibs, find_by_error_domain_foreach, &data);
+
+ if (data.result != NULL)
{
- GTypelib *typelib;
-
- typelib = g_hash_table_lookup (repository->priv->typelib, namespace);
-
- if (typelib)
- find_interface ((void *)namespace, typelib, &data);
+ cached = _g_info_new_full (data.result->blob_type,
+ repository,
+ NULL, data.result_typelib, data.result->offset);
+
+ g_hash_table_insert (repository->priv->info_by_error_domain,
+ GUINT_TO_POINTER (domain),
+ g_base_info_ref (cached));
+ return cached;
}
- else
- g_hash_table_foreach (repository->priv->typelib, find_interface, &data);
-
- return data.iface;
+ return NULL;
}
static void
*list = g_list_append (*list, key);
}
-gchar **
-g_irepository_get_namespaces (GIRepository *repository)
+/**
+ * g_irepository_get_loaded_namespaces:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ *
+ * Return the list of currently loaded namespaces.
+ *
+ * Returns: (element-type utf8) (transfer full): List of namespaces
+ */
+gchar **
+g_irepository_get_loaded_namespaces (GIRepository *repository)
{
GList *l, *list = NULL;
gchar **names;
gint i;
- g_hash_table_foreach (repository->priv->typelib, collect_namespaces, &list);
+ repository = get_repository (repository);
+
+ g_hash_table_foreach (repository->priv->typelibs, collect_namespaces, &list);
+ g_hash_table_foreach (repository->priv->lazy_typelibs, collect_namespaces, &list);
names = g_malloc0 (sizeof (gchar *) * (g_list_length (list) + 1));
i = 0;
for (l = list; l; l = l->next)
- names[i++] = g_strdup (l->data);
+ names[i++] = g_strdup (l->data);
g_list_free (list);
return names;
}
+/**
+ * g_irepository_get_version:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace to inspect
+ *
+ * This function returns the loaded version associated with the given
+ * namespace @namespace_.
+ *
+ * Note: The namespace must have already been loaded using a function
+ * such as g_irepository_require() before calling this function.
+ *
+ * Returns: Loaded version
+ */
+const gchar *
+g_irepository_get_version (GIRepository *repository,
+ const gchar *namespace)
+{
+ GITypelib *typelib;
+ Header *header;
+
+ g_return_val_if_fail (namespace != NULL, NULL);
+
+ repository = get_repository (repository);
+
+ typelib = get_registered (repository, namespace, NULL);
+
+ g_return_val_if_fail (typelib != NULL, NULL);
+
+ header = (Header *) typelib->data;
+ return g_typelib_get_string (typelib, header->nsversion);
+}
+
+/**
+ * g_irepository_get_shared_library:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace to inspect
+ *
+ * This function returns a comma-separated list of paths to the
+ * shared C libraries associated with the given namespace @namespace_.
+ * There may be no shared library path associated, in which case this
+ * function will return %NULL.
+ *
+ * Note: The namespace must have already been loaded using a function
+ * such as g_irepository_require() before calling this function.
+ *
+ * Returns: Comma-separated list of paths to shared libraries,
+ * or %NULL if none are associated
+ */
const gchar *
g_irepository_get_shared_library (GIRepository *repository,
- const gchar *namespace)
+ const gchar *namespace)
{
- GTypelib *typelib;
+ GITypelib *typelib;
Header *header;
- typelib = g_hash_table_lookup (repository->priv->typelib, namespace);
- if (!typelib)
- return NULL;
+ g_return_val_if_fail (namespace != NULL, NULL);
+
+ repository = get_repository (repository);
+
+ typelib = get_registered (repository, namespace, NULL);
+
+ g_return_val_if_fail (typelib != NULL, NULL);
+
header = (Header *) typelib->data;
if (header->shared_library)
return g_typelib_get_string (typelib, header->shared_library);
return NULL;
}
-static inline void
-g_irepository_build_search_path (void)
+/**
+ * g_irepository_get_c_prefix:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: Namespace to inspect
+ *
+ * This function returns the "C prefix", or the C level namespace
+ * associated with the given introspection namespace. Each C symbol
+ * starts with this prefix, as well each #GType in the library.
+ *
+ * Note: The namespace must have already been loaded using a function
+ * such as g_irepository_require() before calling this function.
+ *
+ * Returns: C namespace prefix, or %NULL if none associated
+ */
+const gchar *
+g_irepository_get_c_prefix (GIRepository *repository,
+ const gchar *namespace_)
{
- gchar **dir;
- gchar **tokens;
+ GITypelib *typelib;
+ Header *header;
+
+ g_return_val_if_fail (namespace_ != NULL, NULL);
+
+ repository = get_repository (repository);
+
+ typelib = get_registered (repository, namespace_, NULL);
- if (g_getenv ("GIREPOPATH")) {
- gchar *path;
- path = g_strconcat (g_getenv ("GIREPOPATH"), ":", GIREPO_DEFAULT_SEARCH_PATH, NULL);
- tokens = g_strsplit (path, ":", 0);
- g_free (path);
- } else
- tokens = g_strsplit (GIREPO_DEFAULT_SEARCH_PATH, ":", 0);
+ g_return_val_if_fail (typelib != NULL, NULL);
- search_path = g_slist_prepend (search_path, ".");
- for (dir = tokens; *dir; ++dir)
- search_path = g_slist_prepend (search_path, *dir);
- search_path = g_slist_reverse (search_path);
- g_free (tokens);
+ header = (Header *) typelib->data;
+ if (header->c_prefix)
+ return g_typelib_get_string (typelib, header->c_prefix);
+ else
+ return NULL;
}
+/**
+ * g_irepository_get_typelib_path:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: GI namespace to use, e.g. "Gtk"
+ *
+ * If namespace @namespace_ is loaded, return the full path to the
+ * .typelib file it was loaded from. If the typelib for
+ * namespace @namespace_ was included in a shared library, return
+ * the special string "<builtin>".
+ *
+ * Returns: Filesystem path (or $lt;builtin$gt;) if successful, %NULL if namespace is not loaded
+ */
+
const gchar *
-g_irepository_register_file (GIRepository *repository,
- const gchar *namespace,
- GError **error)
+g_irepository_get_typelib_path (GIRepository *repository,
+ const gchar *namespace)
+{
+ gpointer orig_key, value;
+
+ repository = get_repository (repository);
+
+ if (!g_hash_table_lookup_extended (repository->priv->typelibs, namespace,
+ &orig_key, &value))
+ {
+ if (!g_hash_table_lookup_extended (repository->priv->lazy_typelibs, namespace,
+ &orig_key, &value))
+
+ return NULL;
+ }
+ return ((char*)orig_key) + strlen ((char *) orig_key) + 1;
+}
+
+/* This simple search function looks for a specified namespace-version;
+ it's faster than the full directory listing required for latest version. */
+static GMappedFile *
+find_namespace_version (const gchar *namespace,
+ const gchar *version,
+ GSList *search_path,
+ gchar **path_ret)
{
GSList *ldir;
- const char *dir;
- gchar *fname, *full_path;
+ GError *error = NULL;
+ GMappedFile *mfile = NULL;
+ char *fname;
+
+ fname = g_strdup_printf ("%s-%s.typelib", namespace, version);
+
+ for (ldir = search_path; ldir; ldir = ldir->next)
+ {
+ char *path = g_build_filename (ldir->data, fname, NULL);
+
+ mfile = g_mapped_file_new (path, FALSE, &error);
+ if (error)
+ {
+ g_free (path);
+ g_clear_error (&error);
+ continue;
+ }
+ *path_ret = path;
+ break;
+ }
+ g_free (fname);
+ return mfile;
+}
+
+static gboolean
+parse_version (const char *version,
+ int *major,
+ int *minor)
+{
+ const char *dot;
+ char *end;
+
+ *major = strtol (version, &end, 10);
+ dot = strchr (version, '.');
+ if (dot == NULL)
+ {
+ *minor = 0;
+ return TRUE;
+ }
+ if (dot != end)
+ return FALSE;
+ *minor = strtol (dot+1, &end, 10);
+ if (end != (version + strlen (version)))
+ return FALSE;
+ return TRUE;
+}
+
+static int
+compare_version (const char *v1,
+ const char *v2)
+{
+ gboolean success;
+ int v1_major, v1_minor;
+ int v2_major, v2_minor;
+
+ success = parse_version (v1, &v1_major, &v1_minor);
+ g_assert (success);
+
+ success = parse_version (v2, &v2_major, &v2_minor);
+ g_assert (success);
+
+ if (v1_major > v2_major)
+ return 1;
+ else if (v2_major > v1_major)
+ return -1;
+ else if (v1_minor > v2_minor)
+ return 1;
+ else if (v2_minor > v1_minor)
+ return -1;
+ return 0;
+}
+
+struct NamespaceVersionCandidadate
+{
GMappedFile *mfile;
- GError *error1 = NULL;
- GTypelib *typelib = NULL;
- const gchar *typelib_namespace, *shlib_fname;
- GModule *module;
- guint32 shlib;
- GHashTable *table;
+ int path_index;
+ char *path;
+ char *version;
+};
- if (repository != NULL)
- table = repository->priv->typelib;
+static int
+compare_candidate_reverse (struct NamespaceVersionCandidadate *c1,
+ struct NamespaceVersionCandidadate *c2)
+{
+ int result = compare_version (c1->version, c2->version);
+ /* First, check the version */
+ if (result > 0)
+ return -1;
+ else if (result < 0)
+ return 1;
else
- table = default_typelib;
+ {
+ /* Now check the path index, which says how early in the search path
+ * we found it. This ensures that of equal version targets, we
+ * pick the earlier one.
+ */
+ if (c1->path_index == c2->path_index)
+ return 0;
+ else if (c1->path_index > c2->path_index)
+ return 1;
+ else
+ return -1;
+ }
+}
- /* don't bother loading a namespace if already registered */
- if (g_hash_table_lookup (table, namespace))
- return NULL;
+static void
+free_candidate (struct NamespaceVersionCandidadate *candidate)
+{
+ g_mapped_file_unref (candidate->mfile);
+ g_free (candidate->path);
+ g_free (candidate->version);
+ g_slice_free (struct NamespaceVersionCandidadate, candidate);
+}
- if (search_path == NULL)
- g_irepository_build_search_path ();
-
- fname = g_strconcat (namespace, ".repo", NULL);
-
- for (ldir = search_path; ldir; ldir = ldir->next) {
- dir = ldir->data;
- full_path = g_build_filename (dir, fname, NULL);
- mfile = g_mapped_file_new (full_path, FALSE, &error1);
- if (error1) {
- g_debug ("Failed to mmap \"%s\": %s", full_path, error1->message);
- g_clear_error (&error1);
- g_free (full_path);
- continue;
+static GSList *
+enumerate_namespace_versions (const gchar *namespace,
+ GSList *search_path)
+{
+ GSList *candidates = NULL;
+ GHashTable *found_versions = g_hash_table_new (g_str_hash, g_str_equal);
+ char *namespace_dash;
+ char *namespace_typelib;
+ GSList *ldir;
+ GError *error = NULL;
+ int index;
+
+ namespace_dash = g_strdup_printf ("%s-", namespace);
+ namespace_typelib = g_strdup_printf ("%s.typelib", namespace);
+
+ index = 0;
+ for (ldir = search_path; ldir; ldir = ldir->next)
+ {
+ GDir *dir;
+ const char *dirname;
+ const char *entry;
+
+ dirname = (const char*)ldir->data;
+ dir = g_dir_open (dirname, 0, NULL);
+ if (dir == NULL)
+ continue;
+ while ((entry = g_dir_read_name (dir)) != NULL)
+ {
+ GMappedFile *mfile;
+ char *path, *version;
+ struct NamespaceVersionCandidadate *candidate;
+
+ if (!g_str_has_suffix (entry, ".typelib"))
+ continue;
+
+ if (g_str_has_prefix (entry, namespace_dash))
+ {
+ const char *last_dash;
+ const char *name_end;
+ int major, minor;
+
+ name_end = strrchr (entry, '.');
+ last_dash = strrchr (entry, '-');
+ version = g_strndup (last_dash+1, name_end-(last_dash+1));
+ if (!parse_version (version, &major, &minor))
+ {
+ g_free (version);
+ continue;
+ }
+ }
+ else
+ continue;
+
+ if (g_hash_table_lookup (found_versions, version) != NULL)
+ {
+ g_free (version);
+ continue;
+ }
+ g_hash_table_insert (found_versions, version, version);
+
+ path = g_build_filename (dirname, entry, NULL);
+ mfile = g_mapped_file_new (path, FALSE, &error);
+ if (mfile == NULL)
+ {
+ g_free (path);
+ g_free (version);
+ g_clear_error (&error);
+ continue;
+ }
+ candidate = g_slice_new0 (struct NamespaceVersionCandidadate);
+ candidate->mfile = mfile;
+ candidate->path_index = index;
+ candidate->path = path;
+ candidate->version = version;
+ candidates = g_slist_prepend (candidates, candidate);
+ }
+ g_dir_close (dir);
+ index++;
}
- g_free (full_path);
- typelib = g_typelib_new_from_mapped_file (mfile);
- typelib_namespace = g_typelib_get_string (typelib, ((Header *) typelib->data)->namespace);
- if (strcmp (typelib_namespace, namespace) != 0) {
- g_set_error (error, G_IREPOSITORY_ERROR,
- G_IREPOSITORY_ERROR_NAMESPACE_MISMATCH,
- "Typelib file %s for namespace '%s' contains namespace '%s'"
- " which doesn't match the file name",
- full_path, namespace, typelib_namespace);
- return NULL;
+
+ g_free (namespace_dash);
+ g_free (namespace_typelib);
+ g_hash_table_destroy (found_versions);
+
+ return candidates;
+}
+
+static GMappedFile *
+find_namespace_latest (const gchar *namespace,
+ GSList *search_path,
+ gchar **version_ret,
+ gchar **path_ret)
+{
+ GSList *candidates;
+ GMappedFile *result = NULL;
+
+ *version_ret = NULL;
+ *path_ret = NULL;
+
+ candidates = enumerate_namespace_versions (namespace, search_path);
+
+ if (candidates != NULL)
+ {
+ struct NamespaceVersionCandidadate *elected;
+ candidates = g_slist_sort (candidates, (GCompareFunc) compare_candidate_reverse);
+
+ elected = (struct NamespaceVersionCandidadate *) candidates->data;
+ /* Remove the elected one so we don't try to free its contents */
+ candidates = g_slist_delete_link (candidates, candidates);
+
+ result = elected->mfile;
+ *path_ret = elected->path;
+ *version_ret = elected->version;
+ g_slice_free (struct NamespaceVersionCandidadate, elected); /* just free the container */
+ g_slist_foreach (candidates, (GFunc) free_candidate, NULL);
+ g_slist_free (candidates);
}
- break;
- }
- g_free (fname);
- if (typelib == NULL) {
- g_set_error (error, G_IREPOSITORY_ERROR,
- G_IREPOSITORY_ERROR_TYPELIB_NOT_FOUND,
- "Typelib file for namespace '%s' was not found in search"
- " path or could not be openened", namespace);
- return NULL;
- }
- /* optionally load shared library and attach it to the typelib */
- shlib = ((Header *) typelib->data)->shared_library;
- if (shlib) {
- shlib_fname = g_typelib_get_string (typelib, shlib);
- module = g_module_open (shlib_fname, G_MODULE_BIND_LAZY|G_MODULE_BIND_LOCAL);
- if (module == NULL) {
+ return result;
+}
+
+/**
+ * g_irepository_enumerate_versions:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: GI namespace, e.g. "Gtk"
+ *
+ * Obtain an unordered list of versions (either currently loaded or
+ * available) for @namespace_ in this @repository.
+ *
+ * Returns: (element-type utf8) (transfer full): the array of versions.
+ */
+GList *
+g_irepository_enumerate_versions (GIRepository *repository,
+ const gchar *namespace_)
+{
+ GList *ret = NULL;
+ GSList *candidates, *link;
+ const gchar *loaded_version;
+
+ init_globals ();
+ candidates = enumerate_namespace_versions (namespace_, search_path);
+
+ for (link = candidates; link; link = link->next)
+ {
+ struct NamespaceVersionCandidadate *candidate = link->data;
+ ret = g_list_prepend (ret, g_strdup (candidate->version));
+ free_candidate (candidate);
+ }
+ g_slist_free (candidates);
+
+ /* The currently loaded version of a namespace is also part of the
+ * available versions, as it could have been loaded using
+ * require_private().
+ */
+ if (g_irepository_is_registered (repository, namespace_, NULL))
+ {
+ loaded_version = g_irepository_get_version (repository, namespace_);
+ if (loaded_version && !g_list_find_custom (ret, loaded_version, g_str_equal))
+ ret = g_list_prepend (ret, g_strdup (loaded_version));
+ }
+
+ return ret;
+}
+
+static GITypelib *
+require_internal (GIRepository *repository,
+ const gchar *namespace,
+ const gchar *version,
+ GIRepositoryLoadFlags flags,
+ GSList *search_path,
+ GError **error)
+{
+ GMappedFile *mfile;
+ GITypelib *ret = NULL;
+ Header *header;
+ GITypelib *typelib = NULL;
+ const gchar *typelib_namespace, *typelib_version;
+ gboolean allow_lazy = (flags & G_IREPOSITORY_LOAD_FLAG_LAZY) > 0;
+ gboolean is_lazy;
+ char *version_conflict = NULL;
+ char *path = NULL;
+ char *tmp_version = NULL;
+
+ g_return_val_if_fail (namespace != NULL, FALSE);
+
+ repository = get_repository (repository);
+
+ typelib = get_registered_status (repository, namespace, version, allow_lazy,
+ &is_lazy, &version_conflict);
+ if (typelib)
+ return typelib;
+
+ if (version_conflict != NULL)
+ {
g_set_error (error, G_IREPOSITORY_ERROR,
- G_IREPOSITORY_ERROR_TYPELIB_NOT_FOUND,
- "Typelib for namespace '%s' references shared library %s,"
- " but it could not be openened (%s)",
- namespace, shlib_fname, g_module_error ());
+ G_IREPOSITORY_ERROR_NAMESPACE_VERSION_CONFLICT,
+ "Requiring namespace '%s' version '%s', but '%s' is already loaded",
+ namespace, version, version_conflict);
return NULL;
}
+
+ if (version != NULL)
+ {
+ mfile = find_namespace_version (namespace, version,
+ search_path, &path);
+ tmp_version = g_strdup (version);
+ }
+ else
+ {
+ mfile = find_namespace_latest (namespace, search_path,
+ &tmp_version, &path);
+ }
+
+ if (mfile == NULL)
+ {
+ if (version != NULL)
+ g_set_error (error, G_IREPOSITORY_ERROR,
+ G_IREPOSITORY_ERROR_TYPELIB_NOT_FOUND,
+ "Typelib file for namespace '%s', version '%s' not found",
+ namespace, version);
+ else
+ g_set_error (error, G_IREPOSITORY_ERROR,
+ G_IREPOSITORY_ERROR_TYPELIB_NOT_FOUND,
+ "Typelib file for namespace '%s' (any version) not found",
+ namespace);
+ goto out;
+ }
+
+ {
+ GError *temp_error = NULL;
+ typelib = g_typelib_new_from_mapped_file (mfile, &temp_error);
+ if (!typelib)
+ {
+ g_set_error (error, G_IREPOSITORY_ERROR,
+ G_IREPOSITORY_ERROR_TYPELIB_NOT_FOUND,
+ "Failed to load typelib file '%s' for namespace '%s': %s",
+ path, namespace, temp_error->message);
+ g_clear_error (&temp_error);
+ goto out;
+ }
}
+ header = (Header *) typelib->data;
+ typelib_namespace = g_typelib_get_string (typelib, header->namespace);
+ typelib_version = g_typelib_get_string (typelib, header->nsversion);
- g_hash_table_remove (table, namespace);
- return g_irepository_register (repository, typelib);
+ if (strcmp (typelib_namespace, namespace) != 0)
+ {
+ g_set_error (error, G_IREPOSITORY_ERROR,
+ G_IREPOSITORY_ERROR_NAMESPACE_MISMATCH,
+ "Typelib file %s for namespace '%s' contains "
+ "namespace '%s' which doesn't match the file name",
+ path, namespace, typelib_namespace);
+ g_typelib_free (typelib);
+ goto out;
+ }
+ if (version != NULL && strcmp (typelib_version, version) != 0)
+ {
+ g_set_error (error, G_IREPOSITORY_ERROR,
+ G_IREPOSITORY_ERROR_NAMESPACE_MISMATCH,
+ "Typelib file %s for namespace '%s' contains "
+ "version '%s' which doesn't match the expected version '%s'",
+ path, namespace, typelib_version, version);
+ g_typelib_free (typelib);
+ goto out;
+ }
+
+ if (!register_internal (repository, path, allow_lazy,
+ typelib, error))
+ {
+ g_typelib_free (typelib);
+ goto out;
+ }
+ ret = typelib;
+ out:
+ g_free (tmp_version);
+ g_free (path);
+ return ret;
}
+/**
+ * g_irepository_require:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @namespace_: GI namespace to use, e.g. "Gtk"
+ * @version: (allow-none): Version of namespace, may be %NULL for latest
+ * @flags: Set of %GIRepositoryLoadFlags, may be 0
+ * @error: a #GError.
+ *
+ * Force the namespace @namespace_ to be loaded if it isn't already.
+ * If @namespace_ is not loaded, this function will search for a
+ * ".typelib" file using the repository search path. In addition, a
+ * version @version of namespace may be specified. If @version is
+ * not specified, the latest will be used.
+ *
+ * Returns: (transfer none): a pointer to the #GITypelib if successful, %NULL otherwise
+ */
+GITypelib *
+g_irepository_require (GIRepository *repository,
+ const gchar *namespace,
+ const gchar *version,
+ GIRepositoryLoadFlags flags,
+ GError **error)
+{
+ GITypelib *typelib;
+
+ init_globals ();
+ typelib = require_internal (repository, namespace, version, flags,
+ search_path, error);
+
+ return typelib;
+}
+
+/**
+ * g_irepository_require_private:
+ * @repository: (allow-none): A #GIRepository or %NULL for the singleton
+ * process-global default #GIRepository
+ * @typelib_dir: Private directory where to find the requested typelib
+ * @namespace_: GI namespace to use, e.g. "Gtk"
+ * @version: (allow-none): Version of namespace, may be %NULL for latest
+ * @flags: Set of %GIRepositoryLoadFlags, may be 0
+ * @error: a #GError.
+ *
+ * Force the namespace @namespace_ to be loaded if it isn't already.
+ * If @namespace_ is not loaded, this function will search for a
+ * ".typelib" file within the private directory only. In addition, a
+ * version @version of namespace should be specified. If @version is
+ * not specified, the latest will be used.
+ *
+ * Returns: (transfer none): a pointer to the #GITypelib if successful, %NULL otherwise
+ */
+GITypelib *
+g_irepository_require_private (GIRepository *repository,
+ const gchar *typelib_dir,
+ const gchar *namespace,
+ const gchar *version,
+ GIRepositoryLoadFlags flags,
+ GError **error)
+{
+ GSList search_path = { (gpointer) typelib_dir, NULL };
+
+ return require_internal (repository, namespace, version, flags,
+ &search_path, error);
+}
+
+static gboolean
+g_irepository_introspect_cb (const char *option_name,
+ const char *value,
+ gpointer data,
+ GError **error)
+{
+ GError *tmp_error = NULL;
+ gboolean ret = g_irepository_dump (value, &tmp_error);
+ if (!ret)
+ {
+ g_error ("Failed to extract GType data: %s",
+ tmp_error->message);
+ exit (1);
+ }
+ exit (0);
+}
+
+static const GOptionEntry introspection_args[] = {
+ { "introspect-dump", 0, G_OPTION_FLAG_HIDDEN, G_OPTION_ARG_CALLBACK,
+ g_irepository_introspect_cb, "Dump introspection information",
+ "infile.txt,outfile.xml" },
+ { NULL }
+};
+
+/**
+ * g_irepository_get_option_group: (skip)
+ *
+ * Obtain the option group for girepository, it's used
+ * by the dumper and for programs that wants to provide
+ * introspection information
+ *
+ * Returns: (transfer full): the option group
+ */
+GOptionGroup *
+g_irepository_get_option_group (void)
+{
+ GOptionGroup *group;
+ group = g_option_group_new ("girepository", "Introspection Options", "Show Introspection Options", NULL, NULL);
+
+ g_option_group_add_entries (group, introspection_args);
+ return group;
+}
GQuark
g_irepository_error_quark (void)
quark = g_quark_from_static_string ("g-irepository-error-quark");
return quark;
}
+
+/**
+ * g_type_tag_to_string:
+ * @type: the type_tag
+ *
+ * Obtain a string representation of @type
+ *
+ * Returns: the string
+ */
+const gchar*
+g_type_tag_to_string (GITypeTag type)
+{
+ switch (type)
+ {
+ case GI_TYPE_TAG_VOID:
+ return "void";
+ case GI_TYPE_TAG_BOOLEAN:
+ return "gboolean";
+ case GI_TYPE_TAG_INT8:
+ return "gint8";
+ case GI_TYPE_TAG_UINT8:
+ return "guint8";
+ case GI_TYPE_TAG_INT16:
+ return "gint16";
+ case GI_TYPE_TAG_UINT16:
+ return "guint16";
+ case GI_TYPE_TAG_INT32:
+ return "gint32";
+ case GI_TYPE_TAG_UINT32:
+ return "guint32";
+ case GI_TYPE_TAG_INT64:
+ return "gint64";
+ case GI_TYPE_TAG_UINT64:
+ return "guint64";
+ case GI_TYPE_TAG_FLOAT:
+ return "gfloat";
+ case GI_TYPE_TAG_DOUBLE:
+ return "gdouble";
+ case GI_TYPE_TAG_UNICHAR:
+ return "gunichar";
+ case GI_TYPE_TAG_GTYPE:
+ return "GType";
+ case GI_TYPE_TAG_UTF8:
+ return "utf8";
+ case GI_TYPE_TAG_FILENAME:
+ return "filename";
+ case GI_TYPE_TAG_ARRAY:
+ return "array";
+ case GI_TYPE_TAG_INTERFACE:
+ return "interface";
+ case GI_TYPE_TAG_GLIST:
+ return "glist";
+ case GI_TYPE_TAG_GSLIST:
+ return "gslist";
+ case GI_TYPE_TAG_GHASH:
+ return "ghash";
+ case GI_TYPE_TAG_ERROR:
+ return "error";
+ default:
+ return "unknown";
+ }
+}
+
+/**
+ * g_info_type_to_string:
+ * @type: the info type
+ *
+ * Obtain a string representation of @type
+ *
+ * Returns: the string
+ */
+const gchar*
+g_info_type_to_string (GIInfoType type)
+{
+ switch (type)
+ {
+ case GI_INFO_TYPE_INVALID:
+ return "invalid";
+ case GI_INFO_TYPE_FUNCTION:
+ return "function";
+ case GI_INFO_TYPE_CALLBACK:
+ return "callback";
+ case GI_INFO_TYPE_STRUCT:
+ return "struct";
+ case GI_INFO_TYPE_BOXED:
+ return "boxed";
+ case GI_INFO_TYPE_ENUM:
+ return "enum";
+ case GI_INFO_TYPE_FLAGS:
+ return "flags";
+ case GI_INFO_TYPE_OBJECT:
+ return "object";
+ case GI_INFO_TYPE_INTERFACE:
+ return "interface";
+ case GI_INFO_TYPE_CONSTANT:
+ return "constant";
+ case GI_INFO_TYPE_UNION:
+ return "union";
+ case GI_INFO_TYPE_VALUE:
+ return "value";
+ case GI_INFO_TYPE_SIGNAL:
+ return "signal";
+ case GI_INFO_TYPE_VFUNC:
+ return "vfunc";
+ case GI_INFO_TYPE_PROPERTY:
+ return "property";
+ case GI_INFO_TYPE_FIELD:
+ return "field";
+ case GI_INFO_TYPE_ARG:
+ return "arg";
+ case GI_INFO_TYPE_TYPE:
+ return "type";
+ case GI_INFO_TYPE_UNRESOLVED:
+ return "unresolved";
+ default:
+ return "unknown";
+ }
+}