From c4b5b5d4d88dc60caad7a10b22c38cc796fdec08 Mon Sep 17 00:00:00 2001
From: Cyrille Bagard <nocbos@gmail.com>
Date: Mon, 6 Aug 2018 19:46:57 +0200
Subject: Introduced some extra kinds of objects to render disassembled code.

---
 src/arch/Makefile.am  |   4 +
 src/arch/feeder-int.h |  66 ++++++++
 src/arch/feeder.c     | 161 +++++++++++++++++++
 src/arch/feeder.h     |  70 +++++++++
 src/arch/meta.c       | 428 ++++++++++++++++++++++++++++++++++++++++++++++++++
 src/arch/meta.h       |  65 ++++++++
 src/arch/proxy.c      | 318 +++++++++++++++++++++++++++++++++++++
 src/arch/proxy.h      |  62 ++++++++
 src/format/strsym.c   | 172 +++++++++++++++++++-
 9 files changed, 1341 insertions(+), 5 deletions(-)
 create mode 100644 src/arch/feeder-int.h
 create mode 100644 src/arch/feeder.c
 create mode 100644 src/arch/feeder.h
 create mode 100644 src/arch/meta.c
 create mode 100644 src/arch/meta.h
 create mode 100644 src/arch/proxy.c
 create mode 100644 src/arch/proxy.h

diff --git a/src/arch/Makefile.am b/src/arch/Makefile.am
index b600557..4c15349 100644
--- a/src/arch/Makefile.am
+++ b/src/arch/Makefile.am
@@ -5,16 +5,20 @@ libarch_la_SOURCES =					\
 	archbase.h archbase.c				\
 	context-int.h						\
 	context.h context.c					\
+	feeder-int.h						\
+	feeder.h feeder.c					\
 	immediate.h immediate.c				\
 	instriter.h instriter.c				\
 	instruction-int.h					\
 	instruction.h instruction.c			\
 	link.h link.c						\
+	meta.h meta.c						\
 	operand-int.h						\
 	operand.h operand.c					\
 	post.h post.c						\
 	processor-int.h						\
 	processor.h processor.c				\
+	proxy.h proxy.c						\
 	raw.h raw.c							\
 	register-int.h						\
 	register.h register.c				\
diff --git a/src/arch/feeder-int.h b/src/arch/feeder-int.h
new file mode 100644
index 0000000..9312304
--- /dev/null
+++ b/src/arch/feeder-int.h
@@ -0,0 +1,66 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * feeder-int.h - définitions internes propres aux fournisseurs d'éléments non architecturaux
+ *
+ * Copyright (C) 2018 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 _ARCH_FEEDER_INT_H
+#define _ARCH_FEEDER_INT_H
+
+
+#include "feeder.h"
+
+
+
+/* Compare un fournisseur avec un autre. */
+typedef int (* compare_proxy_operand_fc) (const GProxyFeeder *, const GProxyFeeder *);
+
+/* Traduit un fournisseur en version humainement lisible. */
+typedef void (* print_proxy_feeder_fc) (const GProxyFeeder *, GBufferLine *);
+
+/* Charge un fournisseur depuis une mémoire tampon. */
+typedef bool (* unserialize_proxy_feeder_fc) (GProxyFeeder *, GBinFormat *, packed_buffer *);
+
+/* Sauvegarde un fournisseur dans une mémoire tampon. */
+typedef bool (* serialize_proxy_feeder_fc) (const GProxyFeeder *, packed_buffer *);
+
+
+
+/* Fournisseur d'élément non architectural (interface) */
+struct _GProxyFeederIface
+{
+    GTypeInterface base_iface;              /* A laisser en premier        */
+
+    compare_proxy_operand_fc compare;       /* Comparaison entre éléments  */
+
+    print_proxy_feeder_fc print;            /* Affichage sur une ligne     */
+
+    unserialize_proxy_feeder_fc unserialize;/* Restauration de l'élément   */
+    serialize_proxy_feeder_fc serialize;    /* Sauvegarder de l'élément    */
+
+};
+
+
+/* Redéfinition */
+typedef GProxyFeederIface GProxyFeederInterface;
+
+
+
+#endif  /* _ARCH_FEEDER_INT_H */
diff --git a/src/arch/feeder.c b/src/arch/feeder.c
new file mode 100644
index 0000000..6d24efc
--- /dev/null
+++ b/src/arch/feeder.c
@@ -0,0 +1,161 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * feeder.c - fourniture d'éléments non architecturaux
+ *
+ * Copyright (C) 2018 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 "feeder.h"
+
+
+#include "feeder-int.h"
+
+
+
+/* Procède à l'initialisation de l'interface de rassemblement. */
+static void g_proxy_feeder_default_init(GProxyFeederInterface *);
+
+
+
+/* Détermine le type d'une interface pour la Fourniture d'éléments non architecturaux. */
+G_DEFINE_INTERFACE(GProxyFeeder, g_proxy_feeder, G_TYPE_OBJECT)
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : iface = interface GLib à initialiser.                        *
+*                                                                             *
+*  Description : Procède à l'initialisation de l'interface de rassemblement.  *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_proxy_feeder_default_init(GProxyFeederInterface *iface)
+{
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : a = premier fournisseur à consulter.                         *
+*                b = second fournisseur à consulter.                          *
+*                                                                             *
+*  Description : Compare un fournisseur avec un autre.                        *
+*                                                                             *
+*  Retour      : Bilan de la comparaison.                                     *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+int g_proxy_feeder_compare(const GProxyFeeder *a, const GProxyFeeder *b)
+{
+    int result;                             /* Bilan à retourner           */
+    GProxyFeederIface *iface;               /* Interface utilisée          */
+
+    iface = G_PROXY_FEEDER_GET_IFACE(a);
+
+    result = iface->compare(a, b);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : feeder = fournisseur à traiter.                              *
+*                line   = ligne tampon où imprimer l'élément donné.           *
+*                                                                             *
+*  Description : Traduit un fournisseur en version humainement lisible.       *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void g_proxy_feeder_print(const GProxyFeeder *feeder, GBufferLine *line)
+{
+    GProxyFeederIface *iface;               /* Interface utilisée          */
+
+    iface = G_PROXY_FEEDER_GET_IFACE(feeder);
+
+    iface->print(feeder, line);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : feeder = fournisseur à constituer.                           *
+*                format = format binaire chargé associé à l'architecture.     *
+*                pbuf   = zone tampon à remplir.                              *
+*                                                                             *
+*  Description : Charge un fournisseur depuis une mémoire tampon.             *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_proxy_feeder_unserialize(GProxyFeeder *feeder, GBinFormat *format, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GProxyFeederIface *iface;               /* Interface utilisée          */
+
+    iface = G_PROXY_FEEDER_GET_IFACE(feeder);
+
+    result = iface->unserialize(feeder, format, pbuf);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : feeder = fournisseur à consulter.                            *
+*                pbuf   = zone tampon à remplir.                              *
+*                                                                             *
+*  Description : Sauvegarde un fournisseur dans une mémoire tampon.           *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_proxy_feeder_serialize(const GProxyFeeder *feeder, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GProxyFeederIface *iface;               /* Interface utilisée          */
+
+    iface = G_PROXY_FEEDER_GET_IFACE(feeder);
+
+    result = iface->serialize(feeder, pbuf);
+
+    return result;
+
+}
diff --git a/src/arch/feeder.h b/src/arch/feeder.h
new file mode 100644
index 0000000..b01ebf0
--- /dev/null
+++ b/src/arch/feeder.h
@@ -0,0 +1,70 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * feeder.h - prototypes pour la fourniture d'éléments non architecturaux
+ *
+ * Copyright (C) 2018 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 _ARCH_FEEDER_H
+#define _ARCH_FEEDER_H
+
+
+#include <glib-object.h>
+#include <stdbool.h>
+
+
+#include "../common/packed.h"
+#include "../format/format.h"
+#include "../glibext/gbufferline.h"
+
+
+
+#define G_TYPE_PROXY_FEEDER             (g_proxy_feeder_get_type())
+#define G_PROXY_FEEDER(obj)             (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_PROXY_FEEDER, GProxyFeeder))
+#define G_PROXY_FEEDER_CLASS(vtable)    (G_TYPE_CHECK_CLASS_CAST((vtable), G_TYPE_PROXY_FEEDER, GProxyFeederIface))
+#define G_IS_PROXY_FEEDER(obj)          (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_PROXY_FEEDER))
+#define G_IS_PROXY_FEEDER_CLASS(vtable) (G_TYPE_CHECK_CLASS_TYPE((vtable), G_TYPE_PROXY_FEEDER))
+#define G_PROXY_FEEDER_GET_IFACE(inst)  (G_TYPE_INSTANCE_GET_INTERFACE((inst), G_TYPE_PROXY_FEEDER, GProxyFeederIface))
+
+
+/* Fournisseur d'élément non architectural (coquille vide) */
+typedef struct _GProxyFeeder GProxyFeeder;
+
+/* Fournisseur d'élément non architectural (interface) */
+typedef struct _GProxyFeederIface GProxyFeederIface;
+
+
+/* Détermine le type d'une interface pour la Fourniture d'éléments non architecturaux. */
+GType g_proxy_feeder_get_type(void) G_GNUC_CONST;
+
+/* Compare un fournisseur avec un autre. */
+int g_proxy_feeder_compare(const GProxyFeeder *, const GProxyFeeder *);
+
+/* Traduit un fournisseur en version humainement lisible. */
+void g_proxy_feeder_print(const GProxyFeeder *, GBufferLine *);
+
+/* Charge un fournisseur depuis une mémoire tampon. */
+bool g_proxy_feeder_unserialize(GProxyFeeder *, GBinFormat *, packed_buffer *);
+
+/* Sauvegarde un fournisseur dans une mémoire tampon. */
+bool g_proxy_feeder_serialize(const GProxyFeeder *, packed_buffer *);
+
+
+
+#endif  /* _ARCH_FEEDER_H */
diff --git a/src/arch/meta.c b/src/arch/meta.c
new file mode 100644
index 0000000..b091008
--- /dev/null
+++ b/src/arch/meta.c
@@ -0,0 +1,428 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * artificial.c - instructions pures vues de l'esprit
+ *
+ * Copyright (C) 2014-2017 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 "meta.h"
+
+
+#include <malloc.h>
+
+
+#include "instruction-int.h"
+
+
+
+/* ------------------------- INSTRUCTION INCONNUE / DONNEES ------------------------- */
+
+
+/* Définition d'une instruction de rassemblement (instance) */
+struct _GMetaInstruction
+{
+    GArchInstruction parent;                /* A laisser en premier        */
+
+    GArchInstruction *fake;                 /* Instruction simulée         */
+
+    GArchInstruction **children;            /* Instructions représentées   */
+    size_t count;                           /* Taille de cette liste       */
+
+};
+
+/* Définition d'une instruction de rassemblement (classe) */
+struct _GMetaInstructionClass
+{
+    GArchInstructionClass parent;           /* A laisser en premier        */
+
+};
+
+
+/* Initialise la classe des instructions de rassemblement. */
+static void g_meta_instruction_class_init(GMetaInstructionClass *);
+
+/* Initialise une instance d'instruction de rassemblement. */
+static void g_meta_instruction_init(GMetaInstruction *);
+
+/* Supprime toutes les références externes. */
+static void g_meta_instruction_dispose(GMetaInstruction *);
+
+/* Procède à la libération totale de la mémoire. */
+static void g_meta_instruction_finalize(GMetaInstruction *);
+
+/* Indique l'encodage d'une instruction de façon détaillée. */
+static const char *g_meta_instruction_get_encoding(const GMetaInstruction *);
+
+/* Fournit le nom humain de l'instruction manipulée. */
+static const char *g_meta_instruction_get_keyword(const GMetaInstruction *);
+
+
+
+/* -------------------- CONSERVATION SUR DISQUE DES INSTRUCTIONS -------------------- */
+
+
+/* Charge une instruction depuis une mémoire tampon. */
+static bool g_meta_instruction_unserialize(GMetaInstruction *, GAsmStorage *, GBinFormat *, packed_buffer *);
+
+/* Sauvegarde une instruction dans une mémoire tampon. */
+static bool g_meta_instruction_serialize(GMetaInstruction *, GAsmStorage *, packed_buffer *);
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                           INSTRUCTION INCONNUE / DONNEES                           */
+/* ---------------------------------------------------------------------------------- */
+
+
+/* Indique le type défini pour une instruction inconnue d'architecture. */
+G_DEFINE_TYPE(GMetaInstruction, g_meta_instruction, G_TYPE_ARCH_INSTRUCTION);
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : klass = classe à initialiser.                                *
+*                                                                             *
+*  Description : Initialise la classe des instructions de rassemblement.      *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_meta_instruction_class_init(GMetaInstructionClass *klass)
+{
+    GObjectClass *object;                   /* Autre version de la classe  */
+    GArchInstructionClass *instr;           /* Encore une autre vision...  */
+
+    object = G_OBJECT_CLASS(klass);
+
+    object->dispose = (GObjectFinalizeFunc/* ! */)g_meta_instruction_dispose;
+    object->finalize = (GObjectFinalizeFunc)g_meta_instruction_finalize;
+
+    instr = G_ARCH_INSTRUCTION_CLASS(klass);
+
+    instr->get_encoding = (get_instruction_encoding_fc)g_meta_instruction_get_encoding;
+    instr->get_keyword = (get_instruction_keyword_fc)g_meta_instruction_get_keyword;
+
+    instr->unserialize = (unserialize_instruction_fc)g_meta_instruction_unserialize;
+    instr->serialize = (serialize_instruction_fc)g_meta_instruction_serialize;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr = instance à initialiser.                              *
+*                                                                             *
+*  Description : Initialise une instance d'instruction de rassemblement.      *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_meta_instruction_init(GMetaInstruction *instr)
+{
+    GArchInstruction *parent;               /* Version parente             */
+    vmpa2t invalid;                         /* Absence de position         */
+
+    parent = G_ARCH_INSTRUCTION(instr);
+
+    init_vmpa(&invalid, VMPA_NO_PHYSICAL, VMPA_NO_VIRTUAL);
+    init_mrange(&parent->range, &invalid, 0);
+
+    instr->fake = NULL;
+
+    instr->children = NULL;
+    instr->count = 0;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr = instance d'objet GLib à traiter.                     *
+*                                                                             *
+*  Description : Supprime toutes les références externes.                     *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_meta_instruction_dispose(GMetaInstruction *instr)
+{
+    size_t i;                               /* Boucle de parcours          */
+
+    if (instr->fake != NULL)
+        g_object_unref(G_OBJECT(instr->fake));
+
+    for (i = 0; i < instr->count; i++)
+        g_object_unref(G_OBJECT(instr->children[i]));
+
+    G_OBJECT_CLASS(g_meta_instruction_parent_class)->dispose(G_OBJECT(instr));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr = instance d'objet GLib à traiter.                     *
+*                                                                             *
+*  Description : Procède à la libération totale de la mémoire.                *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_meta_instruction_finalize(GMetaInstruction *instr)
+{
+    if (instr->children != NULL)
+        free(instr->children);
+
+    G_OBJECT_CLASS(g_meta_instruction_parent_class)->finalize(G_OBJECT(instr));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : fake = instruction à simuler.                                *
+*                                                                             *
+*  Description : Crée une instruction rassemblant d'autres instructions.      *
+*                                                                             *
+*  Retour      : Instruction mise en place.                                   *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GArchInstruction *g_meta_instruction_new(GArchInstruction *fake)
+{
+    GMetaInstruction *result;               /* Instruction à retourner     */
+
+    result = g_object_new(G_TYPE_META_INSTRUCTION, NULL);
+
+    result->fake = fake;
+
+    return G_ARCH_INSTRUCTION(result);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr = instruction quelconque à consulter.                  *
+*                                                                             *
+*  Description : Indique l'encodage d'une instruction de façon détaillée.     *
+*                                                                             *
+*  Retour      : Description humaine de l'encodage utilisé.                   *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static const char *g_meta_instruction_get_encoding(const GMetaInstruction *instr)
+{
+    const char *result;                     /* Description à retourner     */
+
+    result = g_arch_instruction_get_encoding(instr->fake);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr = instruction d'assemblage à consulter.                *
+*                                                                             *
+*  Description : Fournit le nom humain de l'instruction manipulée.            *
+*                                                                             *
+*  Retour      : Mot clef de bas niveau.                                      *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static const char *g_meta_instruction_get_keyword(const GMetaInstruction *instr)
+{
+    const char *result;                     /* Désignation à renvoyer      */
+
+    result = g_arch_instruction_get_keyword(instr->fake);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr = instruction d'assemblage à compléter.                *
+*                child = instruction à intégrer au rassemblement.             *
+*                last  = marque l'instruction comme étant la dernière du lot. *
+*                                                                             *
+*  Description : Intègre une nouvelle instruction dans un rassemblement.      *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void g_meta_instruction_add_child(GMetaInstruction *instr, GArchInstruction *child, bool last)
+{
+    GArchInstruction *parent;               /* Autre version de l'instruct°*/
+    const mrange_t *base;                   /* Base d'une couverture       */
+    vmpa2t start;                           /* Position de départ          */
+    vmpa2t end;                             /* Position d'arrivée          */
+    mrange_t range;                         /* Couverture nouvelle         */
+    instr_link_t *links;                    /* Liens présents à copier     */
+    size_t count;                           /* Quantité de ces liens       */
+    size_t i;                               /* Boucle de parcours          */
+
+    instr->children = (GArchInstruction **)realloc(instr->children,
+                                                   ++instr->count * sizeof(GArchInstruction *));
+
+    instr->children[instr->count - 1] = child;
+
+    parent = G_ARCH_INSTRUCTION(instr);
+
+    /* Mise à jour de la couverture totale */
+
+    if (last)
+    {
+        if (instr->count == 1)
+            g_arch_instruction_set_range(parent, g_arch_instruction_get_range(child));
+
+        else
+        {
+            base = g_arch_instruction_get_range(instr->children[0]);
+            copy_vmpa(&start, get_mrange_addr(base));
+
+            base = g_arch_instruction_get_range(child);
+            compute_mrange_end_addr(base, &end);
+
+            init_mrange(&range, &start, compute_vmpa_diff(&start, &end));
+
+            g_arch_instruction_set_range(parent, &range);
+
+        }
+
+    }
+
+    /* Appropriation des liens contenus */
+
+    links = g_arch_instruction_get_sources(child, &count);
+
+    for (i = 0; i < count; i++)
+    {
+        if (instr->count == 1 || links[i].type == ILT_REF)
+            g_arch_instruction_link_with(links[i].linked, parent, links[i].type);
+
+        unref_instr_link((&links[i]));
+
+    }
+
+    if (links != NULL)
+        free(links);
+
+    links = g_arch_instruction_get_destinations(child, &count);
+
+    for (i = 0; i < count; i++)
+    {
+        if (last || links[i].type == ILT_REF)
+            g_arch_instruction_link_with(parent, links[i].linked, links[i].type);
+
+        unref_instr_link((&links[i]));
+
+    }
+
+    if (links != NULL)
+        free(links);
+
+}
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                      CONSERVATION SUR DISQUE DES INSTRUCTIONS                      */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr   = instruction d'assemblage à consulter.              *
+*                storage = mécanisme de sauvegarde à manipuler.               *
+*                format  = format binaire chargé associé à l'architecture.    *
+*                pbuf    = zone tampon à remplir.                             *
+*                                                                             *
+*  Description : Charge une instruction depuis une mémoire tampon.            *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool g_meta_instruction_unserialize(GMetaInstruction *instr, GAsmStorage *storage, GBinFormat *format, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GArchInstructionClass *parent;          /* Classe parente à consulter  */
+
+    parent = G_ARCH_INSTRUCTION_CLASS(g_meta_instruction_parent_class);
+
+    result = parent->unserialize(G_ARCH_INSTRUCTION(instr), storage, format, pbuf);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : instr   = instruction d'assemblage à consulter.              *
+*                storage = mécanisme de sauvegarde à manipuler.               *
+*                pbuf    = zone tampon à remplir.                             *
+*                                                                             *
+*  Description : Sauvegarde une instruction dans une mémoire tampon.          *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool g_meta_instruction_serialize(GMetaInstruction *instr, GAsmStorage *storage, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GArchInstructionClass *parent;          /* Classe parente à consulter  */
+
+    parent = G_ARCH_INSTRUCTION_CLASS(g_meta_instruction_parent_class);
+
+    result = parent->serialize(G_ARCH_INSTRUCTION(instr), storage, pbuf);
+
+    return result;
+
+}
diff --git a/src/arch/meta.h b/src/arch/meta.h
new file mode 100644
index 0000000..6c62654
--- /dev/null
+++ b/src/arch/meta.h
@@ -0,0 +1,65 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * meta.h - prototypes pour les instructions qui en rassemblent d'autres
+ *
+ * Copyright (C) 2018 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 _ARCH_META_H
+#define _ARCH_META_H
+
+
+#include <glib-object.h>
+#include <stdbool.h>
+
+
+#include "instruction.h"
+
+
+
+/* ------------------------- INSTRUCTION INCONNUE / DONNEES ------------------------- */
+
+
+#define G_TYPE_META_INSTRUCTION            g_meta_instruction_get_type()
+#define G_META_INSTRUCTION(obj)            (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_META_INSTRUCTION, GMetaInstruction))
+#define G_IS_META_INSTRUCTION(obj)         (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_META_INSTRUCTION))
+#define G_META_INSTRUCTION_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_META_INSTRUCTION, GMetaInstructionClass))
+#define G_IS_META_INSTRUCTION_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_META_INSTRUCTION))
+#define G_META_INSTRUCTION_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_META_INSTRUCTION, GMetaInstructionClass))
+
+
+/* Définition d'une instruction de rassemblement (instance) */
+typedef struct _GMetaInstruction GMetaInstruction;
+
+/* Définition d'une instruction de rassemblement (classe) */
+typedef struct _GMetaInstructionClass GMetaInstructionClass;
+
+
+/* Indique le type défini pour une instruction inconnue d'architecture. */
+GType g_meta_instruction_get_type(void);
+
+/* Crée une instruction rassemblant d'autres instructions. */
+GArchInstruction *g_meta_instruction_new(GArchInstruction *);
+
+/* Intègre une nouvelle instruction dans un rassemblement. */
+void g_meta_instruction_add_child(GMetaInstruction *, GArchInstruction *, bool);
+
+
+
+#endif  /* _ARCH_META_H */
diff --git a/src/arch/proxy.c b/src/arch/proxy.c
new file mode 100644
index 0000000..4548ef6
--- /dev/null
+++ b/src/arch/proxy.c
@@ -0,0 +1,318 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * proxy.c - opérandes renvoyant vers des éléments non architecturaux
+ *
+ * Copyright (C) 2018 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 "proxy.h"
+
+
+#include "operand-int.h"
+
+
+
+/* ------------------ OPERANDES CONSTITUANT DE PURS INTERMEDIAIRES ------------------ */
+
+
+/* Définition d'un opérande renvoyant vers un élément (instance) */
+struct _GProxyOperand
+{
+    GArchOperand parent;                    /* Instance parente            */
+
+    GProxyFeeder *feeder;                   /* Fournisseur de contenu      */
+
+};
+
+/* Définition d'un opérande renvoyant vers un élément (classe) */
+struct _GProxyOperandClass
+{
+    GArchOperandClass parent;               /* Classe parente              */
+
+};
+
+
+/* Initialise la classe des opérandes renvoyant vers un élément. */
+static void g_proxy_operand_class_init(GProxyOperandClass *);
+
+/* Initialise une instance d'opérande renvoyant vers un élément. */
+static void g_proxy_operand_init(GProxyOperand *);
+
+/* Supprime toutes les références externes. */
+static void g_proxy_operand_dispose(GProxyOperand *);
+
+/* Procède à la libération totale de la mémoire. */
+static void g_proxy_operand_finalize(GProxyOperand *);
+
+/* Compare un opérande avec un autre. */
+static int g_proxy_operand_compare(const GProxyOperand *, const GProxyOperand *);
+
+/* Traduit un opérande en version humainement lisible. */
+static void g_proxy_operand_print(const GProxyOperand *, GBufferLine *);
+
+
+
+/* --------------------- TRANSPOSITIONS VIA CACHE DES OPERANDES --------------------- */
+
+
+/* Charge un opérande depuis une mémoire tampon. */
+static bool g_proxy_operand_unserialize(GProxyOperand *, GAsmStorage *, GBinFormat *, packed_buffer *);
+
+/* Sauvegarde un opérande dans une mémoire tampon. */
+static bool g_proxy_operand_serialize(const GProxyOperand *, GAsmStorage *, packed_buffer *);
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                    OPERANDES CONSTITUANT DE PURS INTERMEDIAIRES                    */
+/* ---------------------------------------------------------------------------------- */
+
+
+/* Indique le type défini pour un opérande de valeur numérique. */
+G_DEFINE_TYPE(GProxyOperand, g_proxy_operand, G_TYPE_ARCH_OPERAND);
+
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : klass = classe à initialiser.                                *
+*                                                                             *
+*  Description : Initialise la classe des opérandes renvoyant vers un élément.*
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_proxy_operand_class_init(GProxyOperandClass *klass)
+{
+    GObjectClass *object;                   /* Autre version de la classe  */
+    GArchOperandClass *operand;             /* Version de classe parente   */
+
+    object = G_OBJECT_CLASS(klass);
+    operand = G_ARCH_OPERAND_CLASS(klass);
+
+    object->dispose = (GObjectFinalizeFunc/* ! */)g_proxy_operand_dispose;
+    object->finalize = (GObjectFinalizeFunc)g_proxy_operand_finalize;
+
+    operand->compare = (operand_compare_fc)g_proxy_operand_compare;
+    operand->print = (operand_print_fc)g_proxy_operand_print;
+
+    operand->unserialize = (unserialize_operand_fc)g_proxy_operand_unserialize;
+    operand->serialize = (serialize_operand_fc)g_proxy_operand_serialize;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : operand = instance à initialiser.                            *
+*                                                                             *
+*  Description : Initialise une instance d'opérande renvoyant vers un élément.*
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_proxy_operand_init(GProxyOperand *operand)
+{
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : operand = instance d'objet GLib à traiter.                   *
+*                                                                             *
+*  Description : Supprime toutes les références externes.                     *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_proxy_operand_dispose(GProxyOperand *operand)
+{
+    if (operand->feeder != NULL)
+        g_object_unref(G_OBJECT(operand->feeder));
+
+    G_OBJECT_CLASS(g_proxy_operand_parent_class)->dispose(G_OBJECT(operand));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : operand = instance d'objet GLib à traiter.                   *
+*                                                                             *
+*  Description : Procède à la libération totale de la mémoire.                *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_proxy_operand_finalize(GProxyOperand *operand)
+{
+    G_OBJECT_CLASS(g_proxy_operand_parent_class)->finalize(G_OBJECT(operand));
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : feeder = fournisseur sur lequel s'appuyer.                   *
+*                                                                             *
+*  Description : Crée un opérande renvoyant vers un élément non architectural.*
+*                                                                             *
+*  Retour      : Opérande mis en place.                                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+GArchOperand *g_proxy_operand_new(GProxyFeeder *feeder)
+{
+    GProxyOperand *result;                    /* Opérande à retourner        */
+
+    result = g_object_new(G_TYPE_PROXY_OPERAND, NULL);
+
+    result->feeder = feeder;
+
+    return G_ARCH_OPERAND(result);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : a = premier opérande à consulter.                            *
+*                b = second opérande à consulter.                             *
+*                                                                             *
+*  Description : Compare un opérande avec un autre.                           *
+*                                                                             *
+*  Retour      : Bilan de la comparaison.                                     *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static int g_proxy_operand_compare(const GProxyOperand *a, const GProxyOperand *b)
+{
+    int result;                             /* Bilan à retourner           */
+
+    result = g_proxy_feeder_compare(a->feeder, b->feeder);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : operand = opérande à traiter.                                *
+*                line    = ligne tampon où imprimer l'opérande donné.         *
+*                                                                             *
+*  Description : Traduit un opérande en version humainement lisible.          *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_proxy_operand_print(const GProxyOperand *operand, GBufferLine *line)
+{
+    g_proxy_feeder_print(operand->feeder, line);
+
+}
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                       TRANSPOSITIONS VIA CACHE DES OPERANDES                       */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : operand = opérande d'assemblage à constituer.                *
+*                storage = mécanisme de sauvegarde à manipuler.               *
+*                format  = format binaire chargé associé à l'architecture.    *
+*                pbuf    = zone tampon à remplir.                             *
+*                                                                             *
+*  Description : Charge un opérande depuis une mémoire tampon.                *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool g_proxy_operand_unserialize(GProxyOperand *operand, GAsmStorage *storage, GBinFormat *format, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GArchOperandClass *parent;              /* Classe parente à consulter  */
+
+    parent = G_ARCH_OPERAND_CLASS(g_proxy_operand_parent_class);
+
+    result = parent->unserialize(G_ARCH_OPERAND(operand), storage, format, pbuf);
+
+    if (result)
+        result = g_proxy_feeder_unserialize(operand->feeder, format, pbuf);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : operand = opérande d'assemblage à consulter.                 *
+*                storage = mécanisme de sauvegarde à manipuler.               *
+*                pbuf    = zone tampon à remplir.                             *
+*                                                                             *
+*  Description : Sauvegarde un opérande dans une mémoire tampon.              *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static bool g_proxy_operand_serialize(const GProxyOperand *operand, GAsmStorage *storage, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    GArchOperandClass *parent;              /* Classe parente à consulter  */
+
+    parent = G_ARCH_OPERAND_CLASS(g_proxy_operand_parent_class);
+
+    result = parent->serialize(G_ARCH_OPERAND(operand), storage, pbuf);
+
+    if (result)
+        result = g_proxy_feeder_serialize(operand->feeder, pbuf);
+
+    return result;
+
+}
diff --git a/src/arch/proxy.h b/src/arch/proxy.h
new file mode 100644
index 0000000..3e4cde6
--- /dev/null
+++ b/src/arch/proxy.h
@@ -0,0 +1,62 @@
+
+/* Chrysalide - Outil d'analyse de fichiers binaires
+ * proxy.h - prototypes pour les opérandes renvoyant vers des éléments non architecturaux
+ *
+ * Copyright (C) 2018 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 _ARCH_PROXY_H
+#define _ARCH_PROXY_H
+
+
+#include <glib-object.h>
+
+
+#include "feeder.h"
+#include "operand.h"
+
+
+
+/* ------------------ OPERANDES CONSTITUANT DE PURS INTERMEDIAIRES ------------------ */
+
+
+#define G_TYPE_PROXY_OPERAND            g_proxy_operand_get_type()
+#define G_PROXY_OPERAND(obj)            (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_PROXY_OPERAND, GDynOperand))
+#define G_IS_PROXY_OPERAND(obj)         (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_PROXY_OPERAND))
+#define G_PROXY_OPERAND_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_PROXY_OPERAND, GDynOperandClass))
+#define G_IS_PROXY_OPERAND_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_PROXY_OPERAND))
+#define G_PROXY_OPERAND_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_PROXY_OPERAND, GDynOperandClass))
+
+
+/* Définition d'un opérande renvoyant vers un élément (instance) */
+typedef struct _GProxyOperand GProxyOperand;
+
+/* Définition d'un opérande renvoyant vers un élément (classe) */
+typedef struct _GProxyOperandClass GProxyOperandClass;
+
+
+/* Indique le type défini pour un opérande d'architecture. */
+GType g_proxy_operand_get_type(void);
+
+/* Crée un opérande renvoyant vers un élément non architectural. */
+GArchOperand *g_proxy_operand_new(GProxyFeeder *);
+
+
+
+#endif  /* _ARCH_PROXY_H */
diff --git a/src/format/strsym.c b/src/format/strsym.c
index 073e77f..d09995d 100644
--- a/src/format/strsym.c
+++ b/src/format/strsym.c
@@ -31,6 +31,7 @@
 
 
 #include "symbol-int.h"
+#include "../arch/feeder-int.h"
 #include "../common/alloc.h"
 
 
@@ -70,6 +71,9 @@ static void g_string_symbol_class_init(GStrSymbolClass *);
 /* Initialise une instance de chaîne de caractères. */
 static void g_string_symbol_init(GStrSymbol *);
 
+/* Procède à l'initialisation de l'interface de fourniture. */
+static void g_string_symbol_feeder_interface_init(GProxyFeederInterface *);
+
 /* Supprime toutes les références externes. */
 static void g_string_symbol_dispose(GStrSymbol *);
 
@@ -81,17 +85,31 @@ static void g_string_symbol_check_encoding(GStrSymbol *);
 
 
 
+/* ------------------------- FONCTIONNALITES DE FOURNITURES ------------------------- */
+
+
+/* Compare un fournisseur avec un autre. */
+int g_string_symbol_compare(const GStrSymbol *, const GStrSymbol *);
+
+/* Traduit un fournisseur en version humainement lisible. */
+void g_string_symbol_print(const GStrSymbol *, GBufferLine *);
+
+/* Charge un fournisseur depuis une mémoire tampon. */
+bool g_string_symbol_unserialize(GStrSymbol *, GBinFormat *, packed_buffer *);
+
+/* Sauvegarde un fournisseur dans une mémoire tampon. */
+bool g_string_symbol_serialize(const GStrSymbol *, packed_buffer *);
+
+
+
 /* ---------------------------------------------------------------------------------- */
 /*                         VITRINE POUR CHAINES DE CARACTERES                         */
 /* ---------------------------------------------------------------------------------- */
 
 
 /* Indique le type défini pour un symbole d'exécutable. */
-/*
-G_DEFINE_TYPE_WITH_CODE(GStrSymbol, g_string_symbol, G_TYPE_OBJECT,
-                        G_IMPLEMENT_INTERFACE(G_TYPE_LINE_GENERATOR, g_string_symbol_interface_init));
-*/
-G_DEFINE_TYPE(GStrSymbol, g_string_symbol, G_TYPE_BIN_SYMBOL);
+G_DEFINE_TYPE_WITH_CODE(GStrSymbol, g_string_symbol, G_TYPE_BIN_SYMBOL,
+                        G_IMPLEMENT_INTERFACE(G_TYPE_PROXY_FEEDER, g_string_symbol_feeder_interface_init));
 
 
 /******************************************************************************
@@ -138,6 +156,30 @@ static void g_string_symbol_init(GStrSymbol *symbol)
 
 /******************************************************************************
 *                                                                             *
+*  Paramètres  : iface = interface GLib à initialiser.                        *
+*                                                                             *
+*  Description : Procède à l'initialisation de l'interface de fourniture.     *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+static void g_string_symbol_feeder_interface_init(GProxyFeederInterface *iface)
+{
+    iface->compare = (compare_proxy_operand_fc)g_string_symbol_compare;
+
+    iface->print = (print_proxy_feeder_fc)g_string_symbol_print;
+
+    iface->unserialize = (unserialize_proxy_feeder_fc)g_string_symbol_unserialize;
+    iface->serialize = (serialize_proxy_feeder_fc)g_string_symbol_serialize;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
 *  Paramètres  : symbol = instance d'objet GLib à traiter.                    *
 *                                                                             *
 *  Description : Supprime toutes les références externes.                     *
@@ -555,3 +597,123 @@ bool g_string_symbol_build_label(GStrSymbol *symbol, GBinFormat *format)
     return true;
 
 }
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                           FONCTIONNALITES DE FOURNITURES                           */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : a = premier fournisseur à consulter.                         *
+*                b = second fournisseur à consulter.                          *
+*                                                                             *
+*  Description : Compare un fournisseur avec un autre.                        *
+*                                                                             *
+*  Retour      : Bilan de la comparaison.                                     *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+int g_string_symbol_compare(const GStrSymbol *a, const GStrSymbol *b)
+{
+    int result;                             /* Bilan à retourner           */
+    GBinSymbol *sa;                         /* Version parente pour A      */
+    GBinSymbol *sb;                         /* Version parente pour B      */
+
+    sa = G_BIN_SYMBOL(a);
+    sb = G_BIN_SYMBOL(b);
+
+    result = g_binary_symbol_cmp((const GBinSymbol * const *)&sa, (const GBinSymbol * const *)&sb);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : symbol = fournisseur à traiter.                              *
+*                line   = ligne tampon où imprimer l'élément donné.           *
+*                                                                             *
+*  Description : Traduit un fournisseur en version humainement lisible.       *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void g_string_symbol_print(const GStrSymbol *symbol, GBufferLine *line)
+{
+    const char *string;                     /* Chaîne de caractères        */
+    size_t len;                             /* Taille du texte à créer     */
+
+    string = g_string_symbol_get_utf8(symbol);
+
+    g_buffer_line_append_text(line, BLC_ASSEMBLY, "\"", 1, RTT_STRING, NULL);
+
+    len = strlen(string);
+
+    if (len > 0)
+        g_buffer_line_append_text(line, BLC_ASSEMBLY, string, len, RTT_STRING, NULL);
+
+    g_buffer_line_append_text(line, BLC_ASSEMBLY, "\"", 1, RTT_STRING, NULL);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : symbol = fournisseur à constituer.                           *
+*                format = format binaire chargé associé à l'architecture.     *
+*                pbuf   = zone tampon à remplir.                              *
+*                                                                             *
+*  Description : Charge un fournisseur depuis une mémoire tampon.             *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_string_symbol_unserialize(GStrSymbol *symbol, GBinFormat *format, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    vmpa2t addr;                            /* Adresse à cibler            */
+
+    result = unpack_vmpa(&addr, pbuf);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : symbol = fournisseur à consulter.                            *
+*                pbuf   = zone tampon à remplir.                              *
+*                                                                             *
+*  Description : Sauvegarde un fournisseur dans une mémoire tampon.           *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool g_string_symbol_serialize(const GStrSymbol *symbol, packed_buffer *pbuf)
+{
+    bool result;                            /* Bilan à retourner           */
+    const mrange_t *range;                  /* Emplacement du symbole      */
+
+    range = g_binary_symbol_get_range(G_BIN_SYMBOL(symbol));
+
+    result = pack_vmpa(get_mrange_addr(range), pbuf);
+
+    return result;
+
+}
-- 
cgit v0.11.2-87-g4458