Prepare a new way to store objects.

8 files changed, 1754 insertions, 0 deletions

diff --git a/src/glibext/serialize-int.h b/src/glibext/serialize-int.h
new file mode 100644
index 0000000..de8d3e3
--- /dev/null
+++ b/src/glibext/serialize-int.h
@@ -0,0 +1,58 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * serialize-int.h - définitions internes propres aux objets entreposables dans un cache
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Chrysalide.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#ifndef _ANALYSIS_STORAGE_SERIALIZE_INT_H
+#define _ANALYSIS_STORAGE_SERIALIZE_INT_H
+
+
+#include "serialize.h"
+
+
+#include "storage.h"
+
+
+
+/* Charge un objet depuis une mémoire tampon. */
+typedef bool (* load_serializable_object_cb) (GSerializableObject *, GObjectStorage *, packed_buffer_t *);
+
+/* Sauvegarde un objet dans une mémoire tampon. */
+typedef bool (* store_serializable_object_cb) (const GSerializableObject *, GObjectStorage *, packed_buffer_t *);
+
+
+/* Intermédiaire pour la mise en cache d'objet (interface) */
+struct _GSerializableObjectIface
+{
+    GTypeInterface base_iface;              /* A laisser en premier        */
+
+    load_serializable_object_cb load;       /* Chargement                  */
+    store_serializable_object_cb store;     /* Enregistrement              */
+
+};
+
+
+/* Redéfinition */
+typedef GSerializableObjectIface GSerializableObjectInterface;
+
+
+
+#endif  /* _ANALYSIS_STORAGE_SERIALIZE_INT_H */
diff --git a/src/glibext/serialize.c b/src/glibext/serialize.c
new file mode 100644
index 0000000..d1b0502
--- /dev/null
+++ b/src/glibext/serialize.c
@@ -0,0 +1,111 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * serialize.h - objets entreposables dans un cache
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Chrysalide.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#include "serialize.h"
+
+
+#include "serialize-int.h"
+
+
+
+/* Procède à l'initialisation de l'interface de mise en cache. */
+static void g_serializable_object_default_init(GSerializableObjectInterface *);
+
+
+
+/* Détermine le type d'une interface pour la mise en cache d'objet. */
+G_DEFINE_INTERFACE(GSerializableObject, g_serializable_object, G_TYPE_OBJECT)
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : iface = interface GLib à initialiser.                        *
+*                                                                             *
+*  Description : Procède à l'initialisation de l'interface de mise en cache.  *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_serializable_object_default_init(GSerializableObjectInterface *iface)
+{
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : object  = élément GLib à constuire.                          *
+*                storage = conservateur de données à manipuler ou NULL.       *
+*                pbuf    = zone tampon à lire.                                *
+*                                                                             *
+*  Description : Charge un objet depuis une mémoire tampon.                   *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_serializable_object_load(GSerializableObject *object, GObjectStorage *storage, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GSerializableObjectIface *iface;        /* Interface utilisée          */
+
+    iface = G_SERIALIZABLE_OBJECT_GET_IFACE(object);
+
+    result = iface->load(object, storage, pbuf);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : object  = élément GLib à consulter.                          *
+*                storage = conservateur de données à manipuler ou NULL.       *
+*                pbuf    = zone tampon à remplir.                             *
+*                                                                             *
+*  Description : Sauvegarde un objet dans une mémoire tampon.                 *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_serializable_object_store(const GSerializableObject *object, GObjectStorage *storage, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GSerializableObjectIface *iface;        /* Interface utilisée          */
+
+    iface = G_SERIALIZABLE_OBJECT_GET_IFACE(object);
+
+    result = iface->store(object, storage, pbuf);
+
+    return result;
+
+}
diff --git a/src/glibext/serialize.h b/src/glibext/serialize.h
new file mode 100644
index 0000000..93a4496
--- /dev/null
+++ b/src/glibext/serialize.h
@@ -0,0 +1,64 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * serialize.h - prototypes pour les objets entreposables dans un cache
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Chrysalide.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#ifndef _ANALYSIS_STORAGE_SERIALIZE_H
+#define _ANALYSIS_STORAGE_SERIALIZE_H
+
+
+#include <glib-object.h>
+
+
+#include "../../common/packed.h"
+
+
+
+#define G_TYPE_SERIALIZABLE_OBJECT             g_serializable_object_get_type()
+#define G_SERIALIZABLE_OBJECT(obj)             (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_SERIALIZABLE_OBJECT, GSerializableObject))
+#define G_SERIALIZABLE_OBJECT_CLASS(vtable)    (G_TYPE_CHECK_CLASS_CAST((vtable), G_TYPE_SERIALIZABLE_OBJECT, GSerializableObjectIface))
+#define G_IS_SERIALIZABLE_OBJECT(obj)          (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_SERIALIZABLE_OBJECT))
+#define G_IS_SERIALIZABLE_OBJECT_CLASS(vtable) (G_TYPE_CHECK_CLASS_TYPE((vtable), G_TYPE_SERIALIZABLE_OBJECT))
+#define G_SERIALIZABLE_OBJECT_GET_IFACE(inst)  (G_TYPE_INSTANCE_GET_INTERFACE((inst), G_TYPE_SERIALIZABLE_OBJECT, GSerializableObjectIface))
+
+
+/* Intermédiaire pour la mise en cache d'objet (coquille vide) */
+typedef struct _GSerializableObject GSerializableObject;
+
+/* Intermédiaire pour la mise en cache d'objet (interface) */
+typedef struct _GSerializableObjectIface GSerializableObjectIface;
+
+
+/* Détermine le type d'une interface pour la mise en cache d'objet. */
+GType g_serializable_object_get_type(void) G_GNUC_CONST;
+
+/* storage.h : définition d'une conservation d'objets construits */
+typedef struct _GObjectStorage GObjectStorage;
+
+/* Charge un objet depuis une mémoire tampon. */
+bool g_serializable_object_load(GSerializableObject *, GObjectStorage *, packed_buffer_t *);
+
+/* Sauvegarde un objet dans une mémoire tampon. */
+bool g_serializable_object_store(const GSerializableObject *, GObjectStorage *, packed_buffer_t *);
+
+
+
+#endif  /* _ANALYSIS_STORAGE_SERIALIZE_H */
diff --git a/src/glibext/storage-int.h b/src/glibext/storage-int.h
new file mode 100644
index 0000000..4883aa8
--- /dev/null
+++ b/src/glibext/storage-int.h
@@ -0,0 +1,66 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * storage.h - prototypes internes pour la conservation sur disque d'objets construits
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#ifndef _ANALYSIS_STORAGE_STORAGE_INT_H
+#define _ANALYSIS_STORAGE_STORAGE_INT_H
+
+
+#include "storage.h"
+
+
+
+/* Gestion d'enregistrements spécifiques */
+typedef struct _storage_backend_t
+{
+    char *name;                             /* Désignation du groupe       */
+
+    char *filename;                         /* Nom du fichier associé      */
+    int fd;                                 /* Flux d'accès correspondant  */
+
+} storage_backend_t;
+
+/* Définition d'une conservation d'objets construits (instance) */
+struct _GObjectStorage
+{
+    GObject parent;                         /* A laisser en premier        */
+
+    GTypeMemory *tpmem;                     /* Mémorisation de types       */
+
+    char *hash;                             /* Empreinte du contenu        */
+
+    storage_backend_t *backends;            /* Gestionnaires existants     */
+    size_t count;                           /* Quantité de gestionnaires   */
+    GMutex mutex;                           /* Contrôle d'accès à la liste */
+
+};
+
+/* Définition d'une conservation d'objets construits (classe) */
+struct _GObjectStorageClass
+{
+    GObjectClass parent;                    /* A laisser en premier        */
+
+};
+
+
+
+#endif  /* _ANALYSIS_STORAGE_STORAGE_INT_H */
diff --git a/src/glibext/storage.c b/src/glibext/storage.c
new file mode 100644
index 0000000..610a0f6
--- /dev/null
+++ b/src/glibext/storage.c
@@ -0,0 +1,867 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * storage.c - conservation hors mémoire d'objets choisis
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#include "storage.h"
+
+
+#include <assert.h>
+#include <malloc.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdarg.h>
+
+
+#include "storage-int.h"
+#include "../db/misc/rlestr.h"
+#include "../../common/io.h"
+#include "../../common/leb128.h"
+#include "../../common/pathname.h"
+#include "../../core/logs.h"
+
+
+
+#define STORAGE_MAGIC "CSTR"
+#define STORAGE_NUMBER "\x00\x01"
+
+
+/* Initialise la classe des conservations d'objets en place. */
+static void g_object_storage_class_init(GObjectStorageClass *);
+
+/* Initialise une instance de conservation d'objets en place. */
+static void g_object_storage_init(GObjectStorage *);
+
+/* Supprime toutes les références externes. */
+static void g_object_storage_dispose(GObjectStorage *);
+
+/* Procède à la libération totale de la mémoire. */
+static void g_object_storage_finalize(GObjectStorage *);
+
+/* Retrouve l'encadrement pour un nouveau groupe d'objets. */
+static storage_backend_t *g_object_storage_find_backend(GObjectStorage *, const char *);
+
+/* Ajoute le support d'un nouveau groupe d'objets construits. */
+static bool g_object_storage_add_backend(GObjectStorage *, const char *, storage_backend_t **);
+
+/* Extrait d'un tampon des enregistrements spécifiques. */
+static bool g_object_storage_load_backend(GObjectStorage *, packed_buffer_t *);
+
+/* Place dans un tampon les données liées à des enregistrements. */
+static bool pack_storage_backend(const storage_backend_t *, packed_buffer_t *);
+
+
+
+/* Indique le type défini pour une conservation d'objets construits. */
+G_DEFINE_TYPE(GObjectStorage, g_object_storage, G_TYPE_OBJECT);
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : klass = classe à initialiser.                                *
+*                                                                             *
+*  Description : Initialise la classe des conservations d'objets en place.    *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_object_storage_class_init(GObjectStorageClass *klass)
+{
+    GObjectClass *object;                   /* Autre version de la classe  */
+
+    object = G_OBJECT_CLASS(klass);
+
+    object->dispose = (GObjectFinalizeFunc/* ! */)g_object_storage_dispose;
+    object->finalize = (GObjectFinalizeFunc)g_object_storage_finalize;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = instance à initialiser.                            *
+*                                                                             *
+*  Description : Initialise une instance de conservation d'objets en place.   *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_object_storage_init(GObjectStorage *storage)
+{
+    storage->tpmem = g_type_memory_new();
+
+    storage->hash = NULL;
+
+    storage->backends = NULL;
+    storage->count = 0;
+    g_mutex_init(&storage->mutex);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = instance d'objet GLib à traiter.                   *
+*                                                                             *
+*  Description : Supprime toutes les références externes.                     *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_object_storage_dispose(GObjectStorage *storage)
+{
+    g_clear_object(&storage->tpmem);
+
+    G_OBJECT_CLASS(g_object_storage_parent_class)->dispose(G_OBJECT(storage));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = instance d'objet GLib à traiter.                   *
+*                                                                             *
+*  Description : Procède à la libération totale de la mémoire.                *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_object_storage_finalize(GObjectStorage *storage)
+{
+    size_t i;                               /* Boucle de parcours          */
+    storage_backend_t *backend;             /* Gestionnaire à manipuler    */
+    int ret;                                /* Bilan d'un appel            */
+
+    g_mutex_lock(&storage->mutex);
+
+    for (i = 0; i < storage->count; i++)
+    {
+        backend = &storage->backends[i];
+
+        if (backend->fd != -1)
+            close(backend->fd);
+        else
+            assert(false);
+
+        ret = access(backend->filename, W_OK);
+        if (ret == 0)
+        {
+            ret = unlink(backend->filename);
+            if (ret != 0) LOG_ERROR_N("unlink");
+        }
+
+        free(backend->name);
+
+        free(backend->filename);
+
+    }
+
+    if (storage->backends != NULL)
+        free(storage->backends);
+
+    g_mutex_unlock(&storage->mutex);
+
+    g_mutex_clear(&storage->mutex);
+
+    if (storage->hash != NULL)
+        free(storage->hash);
+
+    G_OBJECT_CLASS(g_object_storage_parent_class)->finalize(G_OBJECT(storage));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : loaded = contenu binaire à associer.                         *
+*                                                                             *
+*  Description : Crée le support d'une conservation d'objets en place.        *
+*                                                                             *
+*  Retour      : Mécanismes mis en place.                                     *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GObjectStorage *g_object_storage_new(const char *hash)
+{
+    GObjectStorage *result;                 /* Structure à retourner       */
+
+    result = g_object_new(G_TYPE_OBJECT_STORAGE, NULL);
+
+    result->hash = strdup(hash);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : pbuf = zone tampon à lire.                                   *
+*                                                                             *
+*  Description : Charge le support d'une conservation d'objets en place.      *
+*                                                                             *
+*  Retour      : Gestionnaire de conservations construit ou NULL si erreur.   *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GObjectStorage *g_object_storage_load(packed_buffer_t *pbuf)
+{
+    GObjectStorage *result;                 /* Structure à retourner       */
+    char header[6];                         /* Entête attendue des données */
+    bool status;                            /* Bilan d'une extraction      */
+    rle_string str;                         /* Chaîne à conserver          */
+    uleb128_t count;                        /* Nombre de groupes à charger */
+    uleb128_t i;                            /* Boucle de parcours          */
+
+    result = NULL;
+
+    status = extract_packed_buffer(pbuf, header, 6, false);
+    if (!status) goto quick_exit;
+
+    if (strncmp(header, STORAGE_MAGIC STORAGE_NUMBER, 6) != 0)
+        goto quick_exit;
+
+    setup_empty_rle_string(&str);
+
+    status = unpack_rle_string(&str, pbuf);
+    if (!status) goto quick_exit;
+
+    if (get_rle_string(&str) == NULL)
+    {
+        exit_rle_string(&str);
+        goto quick_exit;
+    }
+
+    result = g_object_new(G_TYPE_OBJECT_STORAGE, NULL);
+
+    result->hash = strdup(get_rle_string(&str));
+
+    exit_rle_string(&str);
+
+    status = g_type_memory_load_types(result->tpmem, pbuf);
+    if (!status) goto exit_while_loading;
+
+    status = unpack_uleb128(&count, pbuf);
+
+    for (i = 0; i < count && status; i++)
+        status = g_object_storage_load_backend(result, pbuf);
+
+ exit_while_loading:
+
+    if (!status)
+    {
+        g_object_unref(G_OBJECT(result));
+        result = NULL;
+    }
+
+ quick_exit:
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire de conservations à manipuler.         *
+*                pbuf    = zone tampon à remplir. [OUT]                       *
+*                                                                             *
+*  Description : Sauvegarde le support d'une conservation d'objets en place.  *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_object_storage_store(GObjectStorage *storage, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    rle_string str;                         /* Chaîne à conserver          */
+    size_t i;                               /* Boucle de parcours          */
+
+    result = extend_packed_buffer(pbuf, STORAGE_MAGIC STORAGE_NUMBER, 6, false);
+
+    if (result)
+    {
+        init_static_rle_string(&str, storage->hash);
+
+        result = pack_rle_string(&str, pbuf);
+
+        exit_rle_string(&str);
+
+    }
+
+    g_mutex_lock(&storage->mutex);
+
+    if (result)
+        result = g_type_memory_store_types(storage->tpmem, pbuf);
+
+    if (result)
+        result = pack_uleb128((uleb128_t []){ storage->count }, pbuf);
+
+    for (i = 0; i < storage->count && result; i++)
+        result = pack_storage_backend(&storage->backends[i], pbuf);
+
+    g_mutex_unlock(&storage->mutex);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire de conservations à compléter.         *
+*                name    = désignation d'un nouveau groupe d'objets.          *
+*                                                                             *
+*  Description : Retrouve l'encadrement pour un nouveau groupe d'objets.      *
+*                                                                             *
+*  Retour      : Informations liées à un groupe ou NULL en cas d'échec.       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static storage_backend_t *g_object_storage_find_backend(GObjectStorage *storage, const char *name)
+{
+    storage_backend_t *result;              /* Encadrement à retourner     */
+    size_t i;                               /* Boucle de parcours          */
+
+    assert(!g_mutex_trylock(&storage->mutex));
+
+    for (i = 0; i < storage->count; i++)
+        if (strcmp(storage->backends[i].name, name) == 0)
+            break;
+
+    if (i == storage->count)
+        result = NULL;
+    else
+        result = &storage->backends[i];
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire de conservations à compléter.         *
+*                name    = désignation d'un nouveau groupe d'objets.          *
+*                backend = support mis en place pour les enregistrements.     *
+*                                                                             *
+*  Description : Ajoute le support d'un nouveau groupe d'objets construits.   *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool g_object_storage_add_backend(GObjectStorage *storage, const char *name, storage_backend_t **backend)
+{
+    bool result;                            /* Bilan à retourner           */
+    char *prefix;                           /* Début de nom de fichier     */
+    char *filename;                         /* Chemin d'accès aux données  */
+    int fd;                                 /* Descripteur de flux ouvert  */
+
+    result = false;
+
+    *backend = NULL;
+
+    assert(!g_mutex_trylock(&storage->mutex));
+
+    if (g_object_storage_find_backend(storage, name) != NULL)
+        goto exit;
+
+    /* Préparatifs */
+
+    asprintf(&prefix, "%s-%s", storage->hash, name);
+
+    fd = make_tmp_file(prefix, "cache", &filename);
+
+    free(prefix);
+
+    if (fd == -1)
+        goto exit;
+
+    /* Inscription en bonne et due forme */
+
+    storage->backends = realloc(storage->backends, ++storage->count * sizeof(storage_backend_t));
+
+    *backend = &storage->backends[storage->count - 1];
+
+    (*backend)->name = strdup(name);
+
+    (*backend)->filename = filename;
+    (*backend)->fd = fd;
+
+    result = true;
+
+ exit:
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire de conservations à compléter.         *
+*                pbuf    = zone tampon à lire.                                *
+*                                                                             *
+*  Description : Extrait d'un tampon des enregistrements spécifiques.         *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool g_object_storage_load_backend(GObjectStorage *storage, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    rle_string str;                         /* Chaîne à conserver          */
+    bool status;                            /* Bilan de lecture de contenu */
+    storage_backend_t *backend;             /* Informations à intégrer     */
+    uleb128_t length;                       /* Taille des données à charger*/
+    off_t moved;                            /* Nouvelle position établie   */
+
+    result = false;
+
+    g_mutex_lock(&storage->mutex);
+
+    /* Récupération du nom et création du support */
+
+    setup_empty_rle_string(&str);
+
+    status = unpack_rle_string(&str, pbuf);
+    if (!status) goto exit;
+
+    if (get_rle_string(&str) == NULL)
+    {
+        exit_rle_string(&str);
+        goto exit;
+    }
+
+    status = g_object_storage_add_backend(storage, get_rle_string(&str), &backend);
+
+    exit_rle_string(&str);
+
+    if (!status) goto exit;
+
+    /* Récupération du contenu */
+
+    status = unpack_uleb128(&length, pbuf);
+    if (!status) goto exit;
+
+    status = safe_write(backend->fd, pbuf->data + pbuf->pos, length);
+    if (!status) goto exit;
+
+    advance_packed_buffer(pbuf, length);
+
+    moved = lseek(backend->fd, 0, SEEK_SET);
+    if (moved == ((off_t)-1))
+    {
+        LOG_ERROR_N("lseek");
+        goto exit;
+    }
+
+    result = true;
+
+ exit:
+
+    g_mutex_unlock(&storage->mutex);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : backend = stockage des enregistrements spécifiques.          *
+*                pbuf    = zone tampon à remplir. [OUT]                       *
+*                                                                             *
+*  Description : Place dans un tampon les données liées à des enregistrements.*
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool pack_storage_backend(const storage_backend_t *backend, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    rle_string str;                         /* Chaîne à conserver          */
+    bool status;                            /* Bilan de lecture de contenu */
+    off_t current;                          /* Position courante           */
+    off_t moved;                            /* Nouvelle position établie   */
+    void *data;                             /* Données à transférer        */
+
+    result = false;
+
+    /* Inscription du nom */
+
+    init_static_rle_string(&str, backend->name);
+
+    status = pack_rle_string(&str, pbuf);
+
+    exit_rle_string(&str);
+
+    if (!status) goto exit;
+
+    /* Inscription du contenu */
+
+    current = lseek(backend->fd, 0, SEEK_CUR);
+    if (current == ((off_t)-1))
+    {
+        LOG_ERROR_N("lseek");
+        goto exit;
+    }
+
+    moved = lseek(backend->fd, 0, SEEK_SET);
+    if (moved == ((off_t)-1))
+    {
+        LOG_ERROR_N("lseek");
+        goto exit;
+    }
+
+    data = malloc(current);
+    if (data == NULL)
+    {
+        LOG_ERROR_N("malloc");
+        goto restore;
+    }
+
+    status = safe_read(backend->fd, data, current);
+    if (!status) goto free_mem;
+
+    status = pack_uleb128((uleb128_t []){ current }, pbuf);
+    if (!status) goto free_mem;
+
+    status = extend_packed_buffer(pbuf, data, current, false);
+
+ free_mem:
+
+    free(data);
+
+ restore:
+
+    moved = lseek(backend->fd, current, SEEK_SET);
+    if (moved == ((off_t)-1))
+    {
+        LOG_ERROR_N("lseek");
+        goto exit;
+    }
+
+    result = status;
+
+ exit:
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire à manipuler.                          *
+*                name    = désignation d'un nouveau groupe d'objets.          *
+*                pos     = tête de lecture avant écriture.                    *
+*                                                                             *
+*  Description : Charge un objet à partir de données rassemblées.             *
+*                                                                             *
+*  Retour      : Objet restauré en mémoire ou NULL en cas d'échec.            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GSerializableObject *g_object_storage_load_object(GObjectStorage *storage, const char *name, off64_t pos)
+{
+    GSerializableObject *result;            /* Instance à retourner        */
+    bool status;                            /* Bilan d'une opération       */
+    storage_backend_t *backend;             /* Informations à consulter    */
+    packed_buffer_t pbuf;                   /* Tampon des données à lire   */
+    off64_t new;                            /* Nouvelle position de lecture*/
+
+    result = NULL;
+
+    /* Chargement */
+
+    status = false;
+
+    g_mutex_lock(&storage->mutex);
+
+    backend = g_object_storage_find_backend(storage, name);
+
+    if (backend != NULL)
+    {
+        new = lseek64(backend->fd, pos, SEEK_SET);
+
+        if (new == pos)
+        {
+            init_packed_buffer(&pbuf);
+            status = read_packed_buffer(&pbuf, backend->fd);
+        }
+
+    }
+
+    g_mutex_unlock(&storage->mutex);
+
+    if (!status)
+        goto exit;
+
+    /* Phase de conversion */
+
+    result = G_SERIALIZABLE_OBJECT(g_type_memory_create_object(storage->tpmem, &pbuf));
+
+    if (result)
+    {
+        status = g_serializable_object_load(result, storage, &pbuf);
+
+        if (!status)
+            g_clear_object(&result);
+
+    }
+
+    exit_packed_buffer(&pbuf);
+
+ exit:
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire à manipuler.                          *
+*                name    = désignation d'un nouveau groupe d'objets.          *
+*                pbuf    = zone tampon à parcourir.                           *
+*                                                                             *
+*  Description : Charge un objet interne à partir de données rassemblées.     *
+*                                                                             *
+*  Retour      : Objet restauré en mémoire ou NULL en cas d'échec.            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GSerializableObject *g_object_storage_unpack_object(GObjectStorage *storage, const char *name, packed_buffer_t *pbuf)
+{
+    GSerializableObject *result;            /* Instance à retourner        */
+    uint64_t pos;                           /* Localisation des données    */
+    bool status;                            /* Bilan d'une opération       */
+
+    result = NULL;
+
+    status = extract_packed_buffer(pbuf, &pos, sizeof(uint64_t), true);
+
+    if (status)
+        result = g_object_storage_load_object(storage, name, pos);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage  = gestionnaire à manipuler.                         *
+*                name     = désignation d'un nouveau groupe d'objets.         *
+*                pbuf     = zone tampon à parcourir.                          *
+*                expected = type d'objet attendu.                             *
+*                ...      = élément restauré ou NULL en cas d'échec. [OUT]    *
+*                                                                             *
+*  Description : Charge un objet interne à partir de données rassemblées.     *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_object_storage_unpack_object_2(GObjectStorage *storage, const char *name, packed_buffer_t *pbuf, GType expected, ...)
+{
+    bool result;                            /* Bilan d'une opération       */
+    uint64_t pos;                           /* Localisation des données    */
+    GSerializableObject *instance;          /* Objet rechargé à valider    */
+    va_list ap;                             /* Liste d'arguments variables */
+    void **object;                          /* Lieu d'enregistrement final */
+
+    result = extract_packed_buffer(pbuf, &pos, sizeof(uint64_t), true);
+
+    if (result)
+    {
+        if (pos == 0)
+            *object = NULL;
+
+        else
+        {
+            instance = g_object_storage_load_object(storage, name, pos);
+
+            result = G_TYPE_CHECK_INSTANCE_TYPE(instance, expected);
+
+            if (result)
+            {
+                va_start(ap, expected);
+
+                object = va_arg(ap, void **);
+
+                *object = instance;
+
+                va_end(ap);
+
+            }
+
+            else
+                g_clear_object(&instance);
+
+        }
+
+    }
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire à manipuler.                          *
+*                name    = désignation d'un nouveau groupe d'objets.          *
+*                object  = objet sérialisable à traiter.                      *
+*                pos     = tête de lecture avant écriture. [OUT]              *
+*                                                                             *
+*  Description : Sauvegarde un object sous forme de données rassemblées.      *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_object_storage_store_object(GObjectStorage *storage, const char *name, const GSerializableObject *object, off64_t *pos)
+{
+    bool result;                            /* Bilan à retourner           */
+    packed_buffer_t pbuf;                   /* Tampon des données à écrire */
+    storage_backend_t *backend;             /* Informations à consulter    */
+    off64_t tmp;                            /* Conservation éphémère       */
+
+    /* Phase de conversion */
+
+    init_packed_buffer(&pbuf);
+
+    result = g_type_memory_store_object_gtype(storage->tpmem, G_OBJECT(object), &pbuf);
+    if (!result) goto exit;
+
+    result = g_serializable_object_store(object, storage, &pbuf);
+    if (!result) goto exit;
+
+    /* Enregistrement */
+
+    result = false;
+
+    g_mutex_lock(&storage->mutex);
+
+    backend = g_object_storage_find_backend(storage, name);
+
+    if (backend == NULL)
+        g_object_storage_add_backend(storage, name, &backend);
+
+    if (backend != NULL)
+    {
+        if (pos == NULL)
+            pos = &tmp;
+
+        *pos = lseek64(backend->fd, 0, SEEK_CUR);
+
+        if (*pos != (off64_t)-1)
+            result = write_packed_buffer(&pbuf, backend->fd);
+
+    }
+
+    g_mutex_unlock(&storage->mutex);
+
+    /* Sortie propre */
+
+ exit:
+
+    exit_packed_buffer(&pbuf);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : storage = gestionnaire à manipuler.                          *
+*                name    = désignation d'un nouveau groupe d'objets.          *
+*                pbuf    = zone tampon à remplir.                             *
+*                                                                             *
+*  Description : Sauvegarde un object interne sous forme de données.          *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_object_storage_pack_object(GObjectStorage *storage, const char *name, const GSerializableObject *object, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    off64_t pos;                            /* Localisation des données    */
+
+    if (object == NULL)
+        result = extend_packed_buffer(pbuf, (uint64_t []){ 0 }, sizeof(uint64_t), true);
+
+    else
+    {
+        result = g_object_storage_store_object(storage, name, object, &pos);
+
+        if (result)
+            result = extend_packed_buffer(pbuf, (uint64_t []){ pos }, sizeof(uint64_t), true);
+
+    }
+
+    return result;
+
+}
diff --git a/src/glibext/storage.h b/src/glibext/storage.h
new file mode 100644
index 0000000..cc0caad
--- /dev/null
+++ b/src/glibext/storage.h
@@ -0,0 +1,89 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * storage.h - prototypes pour la conservation sur disque d'objets construits
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#ifndef _ANALYSIS_STORAGE_STORAGE_H
+#define _ANALYSIS_STORAGE_STORAGE_H
+
+
+#include <glib-object.h>
+#include <stdbool.h>
+
+
+#include "serialize.h"
+#include "tpmem.h"
+
+
+
+#define G_TYPE_OBJECT_STORAGE            g_object_storage_get_type()
+#define G_OBJECT_STORAGE(obj)            (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_OBJECT_STORAGE, GObjectStorage))
+#define G_IS_OBJECT_STORAGE(obj)         (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_OBJECT_STORAGE))
+#define G_OBJECT_STORAGE_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_OBJECT_STORAGE, GObjectStorageClass))
+#define G_IS_OBJECT_STORAGE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_OBJECT_STORAGE))
+#define G_OBJECT_STORAGE_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_OBJECT_STORAGE, GObjectStorageClass))
+
+
+/* Définition d'une conservation d'objets construits (instance) */
+typedef struct _GObjectStorage GObjectStorage;
+
+/* Définition d'une conservation d'objets construits (classe) */
+typedef struct _GObjectStorageClass GObjectStorageClass;
+
+
+/* Indique le type défini pour une conservation d'objets construits. */
+GType g_object_storage_get_type(void);
+
+/* Crée le support d'une conservation d'objets en place. */
+GObjectStorage *g_object_storage_new(const char *);
+
+#define get_storage_linked_format(s)                            \
+    ({                                                          \
+        void*__result;                                          \
+        __result = g_object_get_data(G_OBJECT(s), "format");    \
+        g_object_ref(G_OBJECT(__result));                       \
+        __result;                                               \
+    })
+
+/* Charge le support d'une conservation d'objets en place. */
+GObjectStorage *g_object_storage_load(packed_buffer_t *);
+
+/* Sauvegarde le support d'une conservation d'objets en place. */
+bool g_object_storage_store(GObjectStorage *, packed_buffer_t *);
+
+/* Charge un objet à partir de données rassemblées. */
+GSerializableObject *g_object_storage_load_object(GObjectStorage *, const char *, off64_t);
+
+/* Charge un objet interne à partir de données rassemblées. */
+GSerializableObject *g_object_storage_unpack_object(GObjectStorage *, const char *, packed_buffer_t *);
+
+/* Sauvegarde un object sous forme de données rassemblées. */
+bool g_object_storage_store_object(GObjectStorage *, const char *, const GSerializableObject *, off64_t *);
+
+/* Charge un objet interne à partir de données rassemblées. */
+bool g_object_storage_unpack_object_2(GObjectStorage *, const char *, packed_buffer_t *, GType, ...);
+
+/* Sauvegarde un object interne sous forme de données. */
+bool g_object_storage_pack_object(GObjectStorage *, const char *, const GSerializableObject *, packed_buffer_t *);
+
+
+
+#endif  /* _ANALYSIS_STORAGE_STORAGE_H */
diff --git a/src/glibext/tpmem.c b/src/glibext/tpmem.c
new file mode 100644
index 0000000..0703aeb
--- /dev/null
+++ b/src/glibext/tpmem.c
@@ -0,0 +1,429 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * tpmem.c - mémorisation des types d'objets mis en cache
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#include "tpmem.h"
+
+
+#include <assert.h>
+#include <stdint.h>
+
+
+#include "../db/misc/rlestr.h"
+#include "../../arch/operands/target.h"
+#include "../../core/logs.h"
+
+
+
+/* Conservation d'une référence sur un type */
+typedef struct _gtype_ref_info_t
+{
+    GType gtype;                            /* Type pour la GLib           */
+    gpointer gclass;                        /* Lien vers sa classe         */
+
+    /**
+     * La GLib n'est pas très claire sur la taille de GType :
+     *
+     *    #if     GLIB_SIZEOF_SIZE_T != GLIB_SIZEOF_LONG || !defined __cplusplus
+     *    typedef gsize                           GType;
+     *    #else   // for historic reasons, C++ links against gulong GTypes
+     *    typedef gulong                          GType;
+     *    #endif
+     *
+     * Et :
+     *
+     *    typedef unsigned $glib_size_type_define gsize;
+     *
+     * On prend donc le parti de conserver ces types sous forme de valeurs 64 bits
+     * lors des enregistrements.
+     */
+
+} gtype_ref_info_t;
+
+/* Définition d'une mémoire de types d'objets (instance) */
+struct _GTypeMemory
+{
+    GObject parent;                         /* A laisser en premier        */
+
+    gtype_ref_info_t *gtypes;               /* Types des objets reconnus   */
+    size_t count;                           /* Quantité de ces objets      */
+    GMutex mutex;                           /* Contrôle d'accès à la liste */
+
+};
+
+/* Définition d'une mémoire de types d'objets (classe) */
+struct _GTypeMemoryClass
+{
+    GObjectClass parent;                    /* A laisser en premier        */
+
+};
+
+
+/* Initialise la classe des mémoires de types d'objets. */
+static void g_type_memory_class_init(GTypeMemoryClass *);
+
+/* Initialise une instance de mémoire de types d'objets. */
+static void g_type_memory_init(GTypeMemory *);
+
+/* Supprime toutes les références externes. */
+static void g_type_memory_dispose(GTypeMemory *);
+
+/* Procède à la libération totale de la mémoire. */
+static void g_type_memory_finalize(GTypeMemory *);
+
+
+
+/* Indique le type défini pour une mémoire de types d'objets. */
+G_DEFINE_TYPE(GTypeMemory, g_type_memory, G_TYPE_OBJECT);
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : klass = classe à initialiser.                                *
+*                                                                             *
+*  Description : Initialise la classe des mémoires de types d'objets.         *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_type_memory_class_init(GTypeMemoryClass *klass)
+{
+    GObjectClass *object;                   /* Autre version de la classe  */
+
+    object = G_OBJECT_CLASS(klass);
+
+    object->dispose = (GObjectFinalizeFunc/* ! */)g_type_memory_dispose;
+    object->finalize = (GObjectFinalizeFunc)g_type_memory_finalize;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : tpmem = instance à initialiser.                              *
+*                                                                             *
+*  Description : Initialise une instance de mémoire de types d'objets.        *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_type_memory_init(GTypeMemory *tpmem)
+{
+    tpmem->gtypes = NULL;
+    tpmem->count = 0;
+    g_mutex_init(&tpmem->mutex);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : tpmem = instance d'objet GLib à traiter.                     *
+*                                                                             *
+*  Description : Supprime toutes les références externes.                     *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_type_memory_dispose(GTypeMemory *tpmem)
+{
+    uint64_t i;                             /* Boucle de parcours          */
+
+    g_mutex_lock(&tpmem->mutex);
+
+    for (i = 0; i < tpmem->count; i++)
+        if (tpmem->gtypes[i].gclass != NULL)
+            g_type_class_unref(tpmem->gtypes[i].gclass);
+
+    g_mutex_unlock(&tpmem->mutex);
+
+    g_mutex_clear(&tpmem->mutex);
+
+    G_OBJECT_CLASS(g_type_memory_parent_class)->dispose(G_OBJECT(tpmem));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : tpmem = instance d'objet GLib à traiter.                     *
+*                                                                             *
+*  Description : Procède à la libération totale de la mémoire.                *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_type_memory_finalize(GTypeMemory *tpmem)
+{
+    if (tpmem->gtypes != NULL)
+        free(tpmem->gtypes);
+
+    G_OBJECT_CLASS(g_type_memory_parent_class)->finalize(G_OBJECT(tpmem));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : -                                                            *
+*                                                                             *
+*  Description : Crée une mémoire pour types d'objets.                        *
+*                                                                             *
+*  Retour      : Instance mise en place.                                      *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GTypeMemory *g_type_memory_new(void)
+{
+    GTypeMemory *result;                    /* Structure à retourner       */
+
+    result = g_object_new(G_TYPE_TYPE_MEMORY, NULL);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : tpmem = mémoire à compléter.                                 *
+*                pbuf  = zone tampon à lire.                                  *
+*                                                                             *
+*  Description : Apprend tous les types mémorisés dans un tampon.             *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_type_memory_load_types(GTypeMemory *tpmem, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à enregistrer         */
+    uleb128_t count;                        /* Nombre d'éléments détectés  */
+    uleb128_t i;                            /* Boucle de parcours          */
+    rle_string str;                         /* Chaîne à charger            */
+
+    result = unpack_uleb128(&count, pbuf);
+
+    if (result)
+    {
+        g_mutex_lock(&tpmem->mutex);
+
+        tpmem->count = count;
+
+        assert(tpmem->gtypes == NULL);
+        tpmem->gtypes = calloc(count, sizeof(gtype_ref_info_t));
+
+        setup_empty_rle_string(&str);
+
+        for (i = 0; i < tpmem->count && result; i++)
+        {
+            result = unpack_rle_string(&str, pbuf);
+            if (!result) break;
+
+            if (get_rle_string(&str) == NULL)
+            {
+                exit_rle_string(&str);
+                break;
+            }
+
+            tpmem->gtypes[i].gtype = g_type_from_name(get_rle_string(&str));
+            result = (tpmem->gtypes[i].gtype != 0);
+
+            if (!result)
+                log_variadic_message(LMT_ERROR, "Unknown type: '%s'", get_rle_string(&str));
+
+            else
+                tpmem->gtypes[i].gclass = g_type_class_ref(tpmem->gtypes[i].gtype);
+
+            exit_rle_string(&str);
+
+        }
+
+    }
+
+    g_mutex_unlock(&tpmem->mutex);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : tpmem = mémoire à manipuler.                                 *
+*                pbuf  = zone tampon à venir lire.                            *
+*                                                                             *
+*  Description : Crée une nouvelle instance d'objet à partir de son type.     *
+*                                                                             *
+*  Retour      : Instance issue de l'opération ou NULL.                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GObject *g_type_memory_create_object(GTypeMemory *tpmem, packed_buffer_t *pbuf)
+{
+    GObject *result;                        /* Nouvelle instance à renvoyer*/
+    uleb128_t index;                        /* Indice du point d'insertion */
+    bool status;                            /* Bilan d'une récupération    */
+
+    result = NULL;
+
+    status = unpack_uleb128(&index, pbuf);
+
+    if (status)
+    {
+        g_mutex_lock(&tpmem->mutex);
+
+        if (index < tpmem->count)
+            result = g_object_new(tpmem->gtypes[index].gtype, NULL);
+
+        g_mutex_unlock(&tpmem->mutex);
+
+    }
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : tpmem = mémoire à manipuler.                                 *
+*                obj   = instance dont le type est à mémoriser.               *
+*                pbuf  = zone tampon à remplir. [OUT]                         *
+*                                                                             *
+*  Description : Sauvegarde le type d'un objet instancié.                     *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_type_memory_store_object_gtype(GTypeMemory *tpmem, GObject *obj, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GType gtype;                            /* Type à enregistrer          */
+    size_t index;                           /* Indice du point d'insertion */
+
+    gtype = G_TYPE_FROM_INSTANCE(obj);
+
+    /**
+     * Pour quelques explications sur l'esquive suivante, se rapporter aux
+     * commentaires de g_target_operand_unserialize().
+     *
+     * Dans la situation présente, on ne doit pas enregistrer le type dans le tampon,
+     * car l'opérande va relancer l'opération entière (avec un opérande temporaire),
+     * ce qui conduirait à l'enregistrement de deux types successifs dans les données.
+     */
+
+    if (gtype == G_TYPE_TARGET_OPERAND)
+        result = true;
+
+    else
+    {
+        g_mutex_lock(&tpmem->mutex);
+
+        for (index = 0; index < tpmem->count; index++)
+            if (tpmem->gtypes[index].gtype == gtype)
+                break;
+
+        if (index == tpmem->count)
+        {
+            tpmem->gtypes = realloc(tpmem->gtypes, ++tpmem->count * sizeof(gtype_ref_info_t));
+
+            assert(tpmem->count > 0);
+
+            tpmem->gtypes[index].gtype = gtype;
+            tpmem->gtypes[index].gclass = g_type_class_ref(gtype);
+
+        }
+
+        g_mutex_unlock(&tpmem->mutex);
+
+        result = pack_uleb128((uleb128_t []){ index }, pbuf);
+
+    }
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : tpmem = mémoire à consulter.                                 *
+*                pbuf  = zone tampon à remplir. [OUT]                         *
+*                                                                             *
+*  Description : Enregistre tous les types mémorisés dans un tampon.          *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_type_memory_store_types(GTypeMemory *tpmem, packed_buffer_t *pbuf)
+{
+    bool result;                            /* Bilan à enregistrer         */
+    uint64_t i;                             /* Boucle de parcours          */
+    const gchar *name;                      /* Désignation d'un type       */
+    rle_string str;                         /* Chaîne à conserver          */
+
+    g_mutex_lock(&tpmem->mutex);
+
+    result = pack_uleb128((uleb128_t []){ tpmem->count }, pbuf);
+
+    for (i = 0; i < tpmem->count && result; i++)
+    {
+        name = g_type_name(tpmem->gtypes[i].gtype);
+
+        init_static_rle_string(&str, name);
+
+        result = pack_rle_string(&str, pbuf);
+
+        exit_rle_string(&str);
+
+    }
+
+    g_mutex_unlock(&tpmem->mutex);
+
+    return result;
+
+}
diff --git a/src/glibext/tpmem.h b/src/glibext/tpmem.h
new file mode 100644
index 0000000..34cbde6
--- /dev/null
+++ b/src/glibext/tpmem.h
@@ -0,0 +1,70 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * tpmem.h - prototypes pour la mémorisation des types d'objets mis en cache
+ *
+ * Copyright (C) 2020 Cyrille Bagard
+ *
+ *  This file is part of Chrysalide.
+ *
+ *  Chrysalide is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 3 of the License, or
+ *  (at your option) any later version.
+ *
+ *  Chrysalide is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+
+#ifndef _ANALYSIS_STORAGE_TPMEM_H
+#define _ANALYSIS_STORAGE_TPMEM_H
+
+
+#include <glib-object.h>
+
+
+#include "../../common/packed.h"
+
+
+
+#define G_TYPE_TYPE_MEMORY            g_type_memory_get_type()
+#define G_TYPE_MEMORY(obj)            (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_TYPE_MEMORY, GTypeMemory))
+#define G_IS_TYPE_MEMORY(obj)         (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_TYPE_MEMORY))
+#define G_TYPE_MEMORY_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_TYPE_MEMORY, GTypeMemoryClass))
+#define G_IS_TYPE_MEMORY_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_TYPE_MEMORY))
+#define G_TYPE_MEMORY_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_TYPE_MEMORY, GTypeMemoryClass))
+
+
+/* Définition d'une mémoire de types d'objets (instance) */
+typedef struct _GTypeMemory GTypeMemory;
+
+/* Définition d'une mémoire de types d'objets (classe) */
+typedef struct _GTypeMemoryClass GTypeMemoryClass;
+
+
+/* Indique le type défini pour une mémoire de types d'objets. */
+GType g_type_memory_get_type(void);
+
+/* Crée une mémoire pour types d'objets. */
+GTypeMemory *g_type_memory_new(void);
+
+/* Apprend tous les types mémorisés dans un tampon. */
+bool g_type_memory_load_types(GTypeMemory *, packed_buffer_t *);
+
+/* Crée une nouvelle instance d'objet à partir de son type. */
+GObject *g_type_memory_create_object(GTypeMemory *, packed_buffer_t *);
+
+/* Sauvegarde le type d'un objet instancié. */
+bool g_type_memory_store_object_gtype(GTypeMemory *, GObject *, packed_buffer_t *);
+
+/* Enregistre tous les types mémorisés dans un tampon. */
+bool g_type_memory_store_types(GTypeMemory *, packed_buffer_t *);
+
+
+
+#endif  /* _ANALYSIS_STORAGE_TPMEM_H */