From c0cc928bfab0af2cdbf16e9a04d41983f4732b93 Mon Sep 17 00:00:00 2001
From: Cyrille Bagard <nocbos@gmail.com>
Date: Sun, 8 Aug 2021 20:24:21 +0200
Subject: Introduce singletons for operands.
---
plugins/pychrysalide/arch/operand.c | 4 +
plugins/pychrysalide/glibext/singleton.c | 4 +-
src/arch/operand-int.h | 15 ++
src/arch/operand.c | 227 ++++++++++++++++++++++++++++++-
src/arch/operands/immediate.c | 29 ++++
src/glibext/singleton-int.h | 2 +-
src/glibext/singleton.c | 2 +-
src/glibext/singleton.h | 2 +-
8 files changed, 276 insertions(+), 9 deletions(-)
diff --git a/plugins/pychrysalide/arch/operand.c b/plugins/pychrysalide/arch/operand.c
index 7fa5118..f3eaa27 100644
--- a/plugins/pychrysalide/arch/operand.c
+++ b/plugins/pychrysalide/arch/operand.c
@@ -35,6 +35,7 @@
#include "../access.h"
#include "../helpers.h"
+#include "../glibext/singleton.h"
@@ -768,6 +769,9 @@ bool ensure_python_arch_operand_is_registered(void)
dict = PyModule_GetDict(module);
+ if (!ensure_python_singleton_candidate_is_registered())
+ return false;
+
if (!register_class_for_pygobject(dict, G_TYPE_ARCH_OPERAND, type, &PyGObject_Type))
return false;
diff --git a/plugins/pychrysalide/glibext/singleton.c b/plugins/pychrysalide/glibext/singleton.c
index c4592ac..d00648c 100644
--- a/plugins/pychrysalide/glibext/singleton.c
+++ b/plugins/pychrysalide/glibext/singleton.c
@@ -60,7 +60,7 @@ static gboolean py_singleton_candidate___eq__wrapper(const GSingletonCandidate *
static void py_singleton_candidate_set_ro_wrapper(GSingletonCandidate *);
/* Indique si le candidat est figé. */
-static bool py_singleton_candidate_is_ro_wrapper(GSingletonCandidate *);
+static bool py_singleton_candidate_is_ro_wrapper(const GSingletonCandidate *);
/* Fournit l'empreinte d'un candidat à une centralisation. */
static PyObject *py_singleton_candidate_hash(PyObject *, PyObject *);
@@ -499,7 +499,7 @@ static void py_singleton_candidate_set_ro_wrapper(GSingletonCandidate *candidate
* *
******************************************************************************/
-static bool py_singleton_candidate_is_ro_wrapper(GSingletonCandidate *candidate)
+static bool py_singleton_candidate_is_ro_wrapper(const GSingletonCandidate *candidate)
{
bool result; /* Etat à retourner */
PyGILState_STATE gstate; /* Sauvegarde d'environnement */
diff --git a/src/arch/operand-int.h b/src/arch/operand-int.h
index a50ec73..ca5204c 100644
--- a/src/arch/operand-int.h
+++ b/src/arch/operand-int.h
@@ -44,6 +44,15 @@ typedef void (* operand_print_fc) (const GArchOperand *, GBufferLine *);
/* Construit un petit résumé concis de l'opérande. */
typedef char * (* operand_build_tooltip_fc) (const GArchOperand *, const GLoadedBinary *);
+/* Fournit une liste de candidats embarqués par un candidat. */
+typedef GArchOperand ** (* operand_list_inners_fc) (const GArchOperand *, size_t *);
+
+/* Met à jour une liste de candidats embarqués par un candidat. */
+typedef void (* operand_update_inners_fc) (GArchOperand *, GArchOperand **, size_t);
+
+/* Fournit l'empreinte d'un candidat à une centralisation. */
+typedef guint (* operand_hash_fc) (const GArchOperand *);
+
/* Charge un opérande depuis une mémoire tampon. */
typedef bool (* unserialize_operand_fc) (GArchOperand *, GAsmStorage *, GBinFormat *, packed_buffer_t *);
@@ -56,6 +65,8 @@ struct _GArchOperand
{
GObject parent; /* A laisser en premier */
+ bool read_only; /* Verrouillage du contenu */
+
};
@@ -71,6 +82,10 @@ struct _GArchOperandClass
operand_print_fc print; /* Texte humain équivalent */
operand_build_tooltip_fc build_tooltip; /* Construction de description */
+ operand_list_inners_fc list_inner; /* Récupération d'internes */
+ operand_update_inners_fc update_inner; /* Mise à jour des éléments */
+ operand_hash_fc hash; /* Prise d'empreinte */
+
unserialize_operand_fc unserialize; /* Chargement depuis un tampon */
serialize_operand_fc serialize; /* Conservation dans un tampon */
diff --git a/src/arch/operand.c b/src/arch/operand.c
index 3758d7f..66af6d2 100644
--- a/src/arch/operand.c
+++ b/src/arch/operand.c
@@ -33,12 +33,11 @@
#include "storage.h"
#include "../common/sort.h"
#include "../core/logs.h"
+#include "../glibext/singleton-int.h"
-/* ---------------------------------------------------------------------------------- */
-/* DEFINITION D'OPERANDE QUELCONQUE */
-/* ---------------------------------------------------------------------------------- */
+/* ------------------------ DEFINITION D'OPERANDE QUELCONQUE ------------------------ */
/* Initialise la classe générique des opérandes. */
@@ -47,6 +46,9 @@ static void g_arch_operand_class_init(GArchOperandClass *);
/* Initialise une instance d'opérande d'architecture. */
static void g_arch_operand_init(GArchOperand *);
+/* Procède à l'initialisation de l'interface de singleton. */
+static void g_arch_operand_singleton_interface_init(GSingletonCandidateInterface *);
+
/* Supprime toutes les références externes. */
static void g_arch_operand_dispose(GArchOperand *);
@@ -55,6 +57,29 @@ static void g_arch_operand_finalize(GArchOperand *);
+/* ------------------------ CONTROLE DU VOLUME DES INSTANCES ------------------------ */
+
+
+/* Fournit une liste de candidats embarqués par un candidat. */
+static GArchOperand **g_arch_operand_list_inner_instances(const GArchOperand *, size_t *);
+
+/* Met à jour une liste de candidats embarqués par un candidat. */
+static void g_arch_operand_update_inner_instances(GArchOperand *, GArchOperand **, size_t);
+
+/* Fournit l'empreinte d'un candidat à une centralisation. */
+static guint g_arch_operand_hash(const GArchOperand *);
+
+/* Détermine si deux candidats à l'unicité sont identiques. */
+static gboolean g_arch_operand_is_equal(const GArchOperand *, const GArchOperand *);
+
+/* Marque un candidat comme figé. */
+static void g_arch_operand_set_read_only(GArchOperand *);
+
+/* Indique si le candidat est figé. */
+static bool g_arch_operand_is_read_only(GArchOperand *);
+
+
+
/* --------------------- TRANSPOSITIONS VIA CACHE DES OPERANDES --------------------- */
@@ -67,7 +92,8 @@ static bool g_arch_operand_serialize(const GArchOperand *, GAsmStorage *, packed
/* Indique le type défini pour un opérande d'architecture. */
-G_DEFINE_TYPE(GArchOperand, g_arch_operand, G_TYPE_OBJECT);
+G_DEFINE_TYPE_WITH_CODE(GArchOperand, g_arch_operand, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE(G_TYPE_SINGLETON_CANDIDATE, g_arch_operand_singleton_interface_init));
@@ -121,6 +147,32 @@ static void g_arch_operand_init(GArchOperand *operand)
/******************************************************************************
* *
+* Paramètres : iface = interface GLib à initialiser. *
+* *
+* Description : Procède à l'initialisation de l'interface de singleton. *
+* *
+* Retour : - *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static void g_arch_operand_singleton_interface_init(GSingletonCandidateInterface *iface)
+{
+ iface->list_inner = (list_inner_instances_fc)g_arch_operand_list_inner_instances;
+ iface->update_inner = (update_inner_instances_fc)g_arch_operand_update_inner_instances;
+
+ iface->hash = (hash_candidate_fc)g_arch_operand_hash;
+ iface->is_equal = (is_candidate_equal_fc)g_arch_operand_is_equal;
+
+ iface->set_ro = (set_candidate_ro_fc)g_arch_operand_set_read_only;
+ iface->is_ro = (is_candidate_ro_fc)g_arch_operand_is_read_only;
+
+}
+
+
+/******************************************************************************
+* *
* Paramètres : operand = instance d'objet GLib à traiter. *
* *
* Description : Supprime toutes les références externes. *
@@ -305,6 +357,173 @@ char *g_arch_operand_build_tooltip(const GArchOperand *operand, const GLoadedBin
/* ---------------------------------------------------------------------------------- */
+/* CONTROLE DU VOLUME DES INSTANCES */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+* *
+* Paramètres : operand = objet dont l'instance se veut unique. *
+* count = quantité d'instances à l'unicité internes. *
+* *
+* Description : Fournit une liste de candidats embarqués par un candidat. *
+* *
+* Retour : Liste de candidats internes ou NULL si aucun. *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static GArchOperand **g_arch_operand_list_inner_instances(const GArchOperand *operand, size_t *count)
+{
+ GArchOperand **result; /* Instances à retourner */
+ GArchOperandClass *class; /* Classe associée à l'objet */
+
+ class = G_ARCH_OPERAND_GET_CLASS(operand);
+
+ if (class->list_inner == NULL)
+ {
+ *count = 0;
+ result = NULL;
+ }
+
+ else
+ result = class->list_inner(operand, count);
+
+ return result;
+
+}
+
+
+/******************************************************************************
+* *
+* Paramètres : operand = objet dont l'instance se veut unique. *
+* instances = liste de candidats internes devenus singletons. *
+* count = quantité d'instances à l'unicité internes. *
+* *
+* Description : Met à jour une liste de candidats embarqués par un candidat. *
+* *
+* Retour : - *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static void g_arch_operand_update_inner_instances(GArchOperand *operand, GArchOperand **instances, size_t count)
+{
+ GArchOperandClass *class; /* Classe associée à l'objet */
+
+ class = G_ARCH_OPERAND_GET_CLASS(operand);
+
+ if (class->update_inner == NULL)
+ assert(class->list_inner == NULL);
+
+ else
+ {
+ assert(class->list_inner != NULL);
+ class->update_inner(operand, instances, count);
+ }
+
+}
+
+
+/******************************************************************************
+* *
+* Paramètres : operand = objet dont l'instance se veut unique. *
+* *
+* Description : Fournit l'empreinte d'un candidat à une centralisation. *
+* *
+* Retour : Empreinte de l'élément représenté. *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static guint g_arch_operand_hash(const GArchOperand *operand)
+{
+ guint result; /* Valeur à retourner */
+ GArchOperandClass *class; /* Classe associée à l'objet */
+
+ class = G_ARCH_OPERAND_GET_CLASS(operand);
+
+ result = class->hash(operand);
+
+ return result;
+
+}
+
+
+/******************************************************************************
+* *
+* Paramètres : operand = objet dont l'instance se veut unique. *
+* other = second élément à analyser. *
+* *
+* Description : Détermine si deux candidats à l'unicité sont identiques. *
+* *
+* Retour : Bilan de la comparaison. *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static gboolean g_arch_operand_is_equal(const GArchOperand *operand, const GArchOperand *other)
+{
+ gboolean result; /* Bilan à renvoyer */
+ int ret; /* Bilan d'une comparaison */
+
+ ret = g_arch_operand_compare(operand, other);
+
+ result = (ret == 0);
+
+ return result;
+
+}
+
+
+/******************************************************************************
+* *
+* Paramètres : operand = objet dont l'instance se veut unique. *
+* *
+* Description : Marque un candidat comme figé. *
+* *
+* Retour : - *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static void g_arch_operand_set_read_only(GArchOperand *operand)
+{
+ operand->read_only = true;
+
+}
+
+
+/******************************************************************************
+* *
+* Paramètres : operand = objet dont l'instance se veut unique. *
+* *
+* Description : Indique si le candidat est figé. *
+* *
+* Retour : true si le contenu du candidat ne peut plus être modifié. *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static bool g_arch_operand_is_read_only(GArchOperand *operand)
+{
+ bool result; /* Etat à retourner */
+
+ result = operand->read_only;
+
+ return result;
+
+}
+
+
+
+/* ---------------------------------------------------------------------------------- */
/* TRANSPOSITIONS VIA CACHE DES OPERANDES */
/* ---------------------------------------------------------------------------------- */
diff --git a/src/arch/operands/immediate.c b/src/arch/operands/immediate.c
index cb39fce..6e6925c 100644
--- a/src/arch/operands/immediate.c
+++ b/src/arch/operands/immediate.c
@@ -155,6 +155,9 @@ static void g_imm_operand_print(const GImmOperand *, GBufferLine *);
/* Construit un petit résumé concis de l'opérande. */
static char *g_imm_operand_build_tooltip(const GImmOperand *, const GLoadedBinary *);
+/* Fournit l'empreinte d'un candidat à une centralisation. */
+static guint g_arch_operand_hash(const GImmOperand *);
+
/* Charge un opérande depuis une mémoire tampon. */
static bool g_imm_operand_unserialize(GImmOperand *, GAsmStorage *, GBinFormat *, packed_buffer_t *);
@@ -259,6 +262,8 @@ static void g_imm_operand_class_init(GImmOperandClass *klass)
operand->print = (operand_print_fc)g_imm_operand_print;
operand->build_tooltip = (operand_build_tooltip_fc)g_imm_operand_build_tooltip;
+ operand->hash = (operand_hash_fc)g_arch_operand_hash;
+
operand->unserialize = (unserialize_operand_fc)g_imm_operand_unserialize;
operand->serialize = (serialize_operand_fc)g_imm_operand_serialize;
@@ -1573,6 +1578,30 @@ void g_imm_operand_as_uleb128(const GImmOperand *operand, uleb128_t *val)
/******************************************************************************
* *
+* Paramètres : operand = objet dont l'instance se veut unique. *
+* *
+* Description : Fournit l'empreinte d'un candidat à une centralisation. *
+* *
+* Retour : Empreinte de l'élément représenté. *
+* *
+* Remarques : - *
+* *
+******************************************************************************/
+
+static guint g_arch_operand_hash(const GImmOperand *operand)
+{
+ guint result; /* Valeur à retourner */
+
+ result = (operand->raw & 0xffffffff);
+ result ^= (operand->raw >> 32);
+
+ return result;
+
+}
+
+
+/******************************************************************************
+* *
* Paramètres : operand = opérande d'assemblage à constituer. *
* storage = mécanisme de sauvegarde à manipuler. *
* format = format binaire chargé associé à l'architecture. *
diff --git a/src/glibext/singleton-int.h b/src/glibext/singleton-int.h
index 49cfecd..3db17f9 100644
--- a/src/glibext/singleton-int.h
+++ b/src/glibext/singleton-int.h
@@ -45,7 +45,7 @@ typedef gboolean (* is_candidate_equal_fc) (const GSingletonCandidate *, const G
typedef void (* set_candidate_ro_fc) (GSingletonCandidate *);
/* Indique si le candidat est figé. */
-typedef bool (* is_candidate_ro_fc) (GSingletonCandidate *);
+typedef bool (* is_candidate_ro_fc) (const GSingletonCandidate *);
/* Instance d'objet visant à être unique (interface) */
diff --git a/src/glibext/singleton.c b/src/glibext/singleton.c
index bcd5580..78a3ad4 100644
--- a/src/glibext/singleton.c
+++ b/src/glibext/singleton.c
@@ -466,7 +466,7 @@ void g_singleton_candidate_set_read_only(GSingletonCandidate *candidate)
* *
******************************************************************************/
-bool g_singleton_candidate_is_read_only(GSingletonCandidate *candidate)
+bool g_singleton_candidate_is_read_only(const GSingletonCandidate *candidate)
{
bool result; /* Etat à retourner */
GSingletonCandidateIface *iface; /* Interface utilisée */
diff --git a/src/glibext/singleton.h b/src/glibext/singleton.h
index 0561f80..629687a 100644
--- a/src/glibext/singleton.h
+++ b/src/glibext/singleton.h
@@ -69,7 +69,7 @@ gboolean g_singleton_candidate_is_equal(GSingletonCandidate *, GSingletonCandida
void g_singleton_candidate_set_read_only(GSingletonCandidate *);
/* Indique si le candidat est figé. */
-bool g_singleton_candidate_is_read_only(GSingletonCandidate *);
+bool g_singleton_candidate_is_read_only(const GSingletonCandidate *);
--
cgit v0.11.2-87-g4458