diff options
Diffstat (limited to 'src')
33 files changed, 1163 insertions, 742 deletions
diff --git a/src/analysis/routine.c b/src/analysis/routine.c index 557e9aa..bf2b589 100644 --- a/src/analysis/routine.c +++ b/src/analysis/routine.c @@ -857,6 +857,7 @@ char *_g_binary_routine_to_string(const GBinRoutine *routine, Routine2StringOpti { char *result; /* Chaîne à renvoyer */ char *namespace; /* Groupe d'appartenance */ + const char *name; /* Désignation de la routine */ size_t i; /* Boucle de parcours */ char *typestr; /* Stockage de nom temporaire */ @@ -900,7 +901,10 @@ char *_g_binary_routine_to_string(const GBinRoutine *routine, Routine2StringOpti } - result = stradd(result, g_binary_routine_get_name(routine)); + name = g_binary_routine_get_name(routine); + + if (name != NULL) + result = stradd(result, name); /* Liste des arguments */ diff --git a/src/analysis/types/cse.c b/src/analysis/types/cse.c index 1421112..8e2e021 100644 --- a/src/analysis/types/cse.c +++ b/src/analysis/types/cse.c @@ -102,14 +102,14 @@ static void g_class_enum_type_init(GClassEnumType *type) * * ******************************************************************************/ -GDataType *g_class_enum_type_new(ClassEnumType type, const char *name) +GDataType *g_class_enum_type_new(ClassEnumType type, char *name) { GClassEnumType *result; /* Structure à retourner */ result = g_object_new(G_TYPE_CLASS_ENUM_TYPE, NULL); result->type = type; - result->name = strdup(name); + result->name = name; return G_DATA_TYPE(result); diff --git a/src/analysis/types/cse.h b/src/analysis/types/cse.h index dde91a2..0d59743 100644 --- a/src/analysis/types/cse.h +++ b/src/analysis/types/cse.h @@ -62,7 +62,7 @@ typedef enum _ClassEnumType GType g_class_enum_type_get_type(void); /* Crée une représentation de classe, structure ou énumération. */ -GDataType *g_class_enum_type_new(ClassEnumType, const char *); +GDataType *g_class_enum_type_new(ClassEnumType, char *); diff --git a/src/analysis/types/encaps.c b/src/analysis/types/encaps.c index c3cf3ce..0dfc3af 100644 --- a/src/analysis/types/encaps.c +++ b/src/analysis/types/encaps.c @@ -39,6 +39,8 @@ struct _GEncapsulatedType GDataType *child; /* Sous-type encadré */ GBinRoutine *routine; /* Routine pointée */ + size_t dimension; /* Dimension quand applicable */ + }; /* Description de type encapsulé (classe) */ @@ -208,6 +210,7 @@ static GDataType *g_encapsulated_type_dup(const GEncapsulatedType *type) static char *g_encapsulated_type_to_string(const GEncapsulatedType *type) { char *result; /* Chaîne finale à renvoyer */ + size_t i; /* Boucle de parcours */ switch (type->type) { @@ -234,6 +237,11 @@ static char *g_encapsulated_type_to_string(const GEncapsulatedType *type) break; + case ECT_ARRAY: + result = stradd(result, " "); + for (i = 0; i < type->dimension; i++) + result = stradd(result, "[]"); + break; case ECT_REFERENCE: result = stradd(result, " &"); break; @@ -339,3 +347,42 @@ void g_encapsulated_type_get_item(const GEncapsulatedType *type, ...) va_end(ap); } + + +/****************************************************************************** +* * +* Paramètres : type = type à consulter. * +* * +* Description : Fournit la dimension éventuellement associée au type. * +* * +* Retour : Dimension positive ou nulle. * +* * +* Remarques : - * +* * +******************************************************************************/ + +size_t g_encapsulated_type_get_dimension(const GEncapsulatedType *type) +{ + return type->dimension; + +} + + +/****************************************************************************** +* * +* Paramètres : type = type à consulter. * +* dim = dimension positive ou nulle. * +* * +* Description : Définit la dimension éventuellement associée au type. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +void g_encapsulated_type_set_dimension(GEncapsulatedType *type, size_t dim) +{ + type->dimension = dim; + +} diff --git a/src/analysis/types/encaps.h b/src/analysis/types/encaps.h index d677e56..4cd74d2 100644 --- a/src/analysis/types/encaps.h +++ b/src/analysis/types/encaps.h @@ -51,6 +51,7 @@ typedef struct _GEncapsulatedTypeClass GEncapsulatedTypeClass; typedef enum _EncapsulationType { ECT_POINTER, /* Pointeur */ + ECT_ARRAY, /* Tableau */ ECT_REFERENCE, /* Référence */ ECT_RVALUE_REF, /* Référence ?? (C++0x) */ ECT_COMPLEX, /* Complexe (C 2000) */ @@ -73,6 +74,12 @@ EncapsulationType g_encapsulated_type_get_etype(const GEncapsulatedType *); /* Fournit la routine encapsulée dans le type. */ void g_encapsulated_type_get_item(const GEncapsulatedType *, ...); +/* Fournit la dimension éventuellement associée au type. */ +size_t g_encapsulated_type_get_dimension(const GEncapsulatedType *); + +/* Définit la dimension éventuellement associée au type. */ +void g_encapsulated_type_set_dimension(GEncapsulatedType *, size_t); + #endif /* _ANALYSIS_TYPES_ENCAPS_H */ diff --git a/src/common/Makefile.am b/src/common/Makefile.am index 94faa59..d2f6186 100755 --- a/src/common/Makefile.am +++ b/src/common/Makefile.am @@ -11,6 +11,7 @@ libcommon_la_SOURCES = \ endianness.h endianness.c \ environment.h environment.c \ extstr.h extstr.c \ + ibuf.h ibuf.c \ io.h io.c \ fnv1a.h fnv1a.c \ leb128.h leb128.c \ @@ -21,6 +22,7 @@ libcommon_la_SOURCES = \ shuffle.h shuffle.c \ sort.h sort.c \ sqlite.h sqlite.c \ + utf8.h utf8.c \ xdg.h xdg.c \ xml.h xml.c diff --git a/src/common/ibuf.c b/src/common/ibuf.c new file mode 100644 index 0000000..6eb04e6 --- /dev/null +++ b/src/common/ibuf.c @@ -0,0 +1,173 @@ + +/* Chrysalide - Outil d'analyse de fichiers binaires + * ibuf.c - lecture progressive d'un tampon de données + * + * 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 Foobar. If not, see <http://www.gnu.org/licenses/>. + */ + + +#include "ibuf.h" + + +#include <assert.h> +#include <string.h> + + + +/****************************************************************************** +* * +* Paramètres : ibuf = tampon de données à initialiser. [OUT] * +* * +* Description : Initialise un contenu textuel pour une lecture ultérieure. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +void init_text_input_buffer(input_buffer *ibuf, const char *text) +{ + ibuf->text = text; + + ibuf->len = strlen(text); + ibuf->pos = 0; + +} + + +/****************************************************************************** +* * +* Paramètres : ibuf = tampon de données à consulter. * +* * +* Description : Compte le nombre d'octets encore non lus. * +* * +* Retour : Nombre d'octets encore disponibles pour un traitement. * +* * +* Remarques : - * +* * +******************************************************************************/ + +size_t count_input_buffer_remaining(const input_buffer *ibuf) +{ + return ibuf->len - ibuf->pos; + +} + +/****************************************************************************** +* * +* Paramètres : ibuf = tampon de données à modifier. * +* count = progression de la tête de lecture à marquer. * +* * +* Description : Avance la tête de lecture dans le tampon de données. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +void advance_input_buffer(input_buffer *ibuf, size_t count) +{ + assert((ibuf->pos + count) <= ibuf->len); + + ibuf->pos += count; + +} + + +/****************************************************************************** +* * +* Paramètres : ibuf = tampon de données à consulter. * +* * +* Description : Fournit un accès brut au niveau de la tête de lecture. * +* * +* Retour : Référence au texte brut courant. * +* * +* Remarques : - * +* * +******************************************************************************/ + +const char *get_input_buffer_text_access(const input_buffer *ibuf) +{ + return ibuf->text + ibuf->pos; + +} + + +/****************************************************************************** +* * +* Paramètres : ibuf = tampon de données à parcourir. * +* * +* Description : Fournit et avance la tête de lecture courante. * +* * +* Retour : Caractère courant. * +* * +* Remarques : - * +* * +******************************************************************************/ + +char text_input_buffer_next_char(input_buffer *ibuf) +{ + assert(ibuf->pos <= ibuf->len); + + return *(ibuf->text + ibuf->pos++); + +} + + +/****************************************************************************** +* * +* Paramètres : ibuf = tampon de données à consulter. * +* pos = sauvegarde de la tête de lecture. [OUT] * +* * +* Description : Note la position courante de la tête de lecture. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +void save_input_buffer_pos(const input_buffer *ibuf, size_t *pos) +{ + *pos = ibuf->pos; + +} + + +/****************************************************************************** +* * +* Paramètres : ibuf = tampon de données à consulter. * +* pos = tête de lecture à définir pour le tampon courant. * +* * +* Description : Restaure la position de la tête de lecture. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +void restore_input_buffer_pos(input_buffer *ibuf, size_t pos) +{ + assert(pos <= ibuf->len); + + ibuf->pos = pos; + +} diff --git a/src/common/ibuf.h b/src/common/ibuf.h new file mode 100644 index 0000000..b57e374 --- /dev/null +++ b/src/common/ibuf.h @@ -0,0 +1,71 @@ + +/* Chrysalide - Outil d'analyse de fichiers binaires + * ibuf.h - prototypes pour la lecture progressive d'un tampon de données + * + * 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 Foobar. If not, see <http://www.gnu.org/licenses/>. + */ + + +#ifndef _COMMON_IBUF_H +#define _COMMON_IBUF_H + + +#include <stdint.h> +#include <sys/types.h> + + + +/* Rassemblement de données d'un tampon */ +typedef struct _input_buffer +{ + union + { + const char *text; /* Contenu textuel disponible */ + const uint8_t *data; /* Données brutes à traiter */ + }; + + size_t len; /* Quantité d'octets présents */ + size_t pos; /* Position de tête de lecture */ + +} input_buffer; + + +/* Initialise un contenu textuel pour une lecture ultérieure. */ +void init_text_input_buffer(input_buffer *, const char *); + +/* Compte le nombre d'octets encore non lus. */ +size_t count_input_buffer_remaining(const input_buffer *); + +/* Avance la tête de lecture dans le tampon de données. */ +void advance_input_buffer(input_buffer *, size_t); + +/* Fournit un accès brut au niveau de la tête de lecture. */ +const char *get_input_buffer_text_access(const input_buffer *); + +/* Fournit et avance la tête de lecture courante. */ +char text_input_buffer_next_char(input_buffer *); + +/* Note la position courante de la tête de lecture. */ +void save_input_buffer_pos(const input_buffer *, size_t *); + +/* Restaure la position de la tête de lecture. */ +void restore_input_buffer_pos(input_buffer *, size_t); + + + +#endif /* _COMMON_IBUF_H */ diff --git a/src/common/packed.c b/src/common/packed.c index 03796b1..d09feea 100644 --- a/src/common/packed.c +++ b/src/common/packed.c @@ -40,7 +40,7 @@ * * * Paramètres : pbuf = paquet de données à initialiser. [OUT] * * * -* Description : Intialise un paquet réseau pour une constitution. * +* Description : Initialise un paquet réseau pour une constitution. * * * * Retour : - * * * diff --git a/src/common/packed.h b/src/common/packed.h index bb12a1f..b1f9d73 100644 --- a/src/common/packed.h +++ b/src/common/packed.h @@ -46,7 +46,7 @@ typedef struct _packed_buffer } packed_buffer; -/* Intialise un paquet réseau pour une constitution. */ +/* Initialise un paquet réseau pour une constitution. */ void init_packed_buffer(packed_buffer *); /* Efface les données contenues par un paquet réseau. */ diff --git a/src/common/utf8.c b/src/common/utf8.c new file mode 100644 index 0000000..401b0a3 --- /dev/null +++ b/src/common/utf8.c @@ -0,0 +1,150 @@ + +/* Chrysalide - Outil d'analyse de fichiers binaires + * utf8.c - support minimaliste mais adapté de l'encodage UTF-8 + * + * 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 Foobar. If not, see <http://www.gnu.org/licenses/>. + */ + + +#include "utf8.h" + + + +/****************************************************************************** +* * +* Paramètres : text = position courante dans une chaîne de caractères. * +* len = nombre d'octets de cette même chaîne. * +* consumed = nombre d'octets lus pendant l'opération. [OUT] * +* * +* Description : Procède à la lecture d'un caractère dans une chaîne en UTF-8.* +* * +* Retour : Caractère sur 32 bits lu ou code d'erreur en cas de soucis. * +* * +* Remarques : - * +* * +******************************************************************************/ + +unichar_t decode_utf8_char(const char *text, size_t len, size_t *consumed) +{ + unichar_t result; /* Valeur à retourner */ + size_t expected; /* Quantité à traiter */ + unichar_t minval; /* Valeur codée minimale */ + size_t i; /* Boucle de parcours */ + + result = text[0]; + + /** + * ASCII ? + */ + if (result < 0x80) + { + *consumed = 1; + goto duc_done; + } + + /** + * Deux caractères (au moins) doivent être présents. + * Le premier mot doit donc au moins commencer par 0b1100 = 0xc. + */ + else if (result < 0xc0) + { + result = UTF8_ERROR_MALFORMED; + goto duc_done; + } + + /** + * Valeur inférieure à 0xe, donc taille inférieure à 3 (0b1110). + */ + else if (result < 0xe0) + { + expected = 2; + result &= 0x1f; + minval = 1 << 7; + } + + /** + * Valeur inférieure à 0xf0, donc taille inférieure à 4 (0b11110000). + */ + else if (result < 0xf0) + { + expected = 3; + result &= 0x0f; + minval = 1 << 11; + } + + /** + * Valeur inférieure à 0xf8, donc taille inférieure à 5 (0b11111000). + */ + else if (result < 0xf8) + { + expected = 4; + result &= 0x07; + minval = 1 << 16; + } + + /** + * Erreur : l'encodage UTF-8 ne dépasse pas 4 octets. + */ + else + { + result = UTF8_ERROR_TOO_LONG; + goto duc_done; + } + + /** + * Erreur : pas assez de données. + */ + if (expected > len) + { + result = UTF8_ERROR_TOO_LONG; + goto duc_done; + } + + /** + * Intégration des octets restants, avec vérifications qu'ils participent + * bien à la constitution de la valeur finale. + */ + for (i = 1; i < expected; i++) + { + if ((text[i] & 0xc0) != 0x80) + { + result = UTF8_ERROR_MISSING; + goto duc_done; + } + + result <<= 6; + result |= (text[i] & 0x3f); + + } + + /** + * Validation finale. + */ + if (result < minval) + { + result = UTF8_ERROR_WASTING; + goto duc_done; + } + + *consumed = expected; + + duc_done: + + return result; + +} diff --git a/src/common/utf8.h b/src/common/utf8.h new file mode 100644 index 0000000..b312cd5 --- /dev/null +++ b/src/common/utf8.h @@ -0,0 +1,55 @@ + +/* Chrysalide - Outil d'analyse de fichiers binaires + * utf8.h - prototypes pour un support minimaliste mais adapté de l'encodage UTF-8 + * + * 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 Foobar. If not, see <http://www.gnu.org/licenses/>. + */ + + +#ifndef _COMMON_UTF8_H +#define _COMMON_UTF8_H + + +#include <stdint.h> +#include <sys/types.h> + + + +/* Représentation d'un caractère */ +typedef uint32_t unichar_t; + + +/** + * Erreurs qu'il est possible de rencontrer. + */ + +#define UTF8_ERROR_MALFORMED ((unichar_t)-1) +#define UTF8_ERROR_TOO_LONG ((unichar_t)-2) +#define UTF8_ERROR_TRUNCATED ((unichar_t)-3) +#define UTF8_ERROR_MISSING ((unichar_t)-4) +#define UTF8_ERROR_WASTING ((unichar_t)-5) + +#define IS_UTF8_ERROR(v) (v & (1u << 31)) + + +/* Procède à la lecture d'un caractère dans une chaîne en UTF-8. */ +unichar_t decode_utf8_char(const char *, size_t, size_t *); + + + +#endif /* _COMMON_UTF8_H */ diff --git a/src/core/Makefile.am b/src/core/Makefile.am index c7700a6..e1dade0 100755 --- a/src/core/Makefile.am +++ b/src/core/Makefile.am @@ -4,6 +4,7 @@ noinst_LTLIBRARIES = libcore.la libcore_la_SOURCES = \ collections.h collections.c \ core.h core.c \ + demanglers.h demanglers.c \ formats.h formats.c \ global.h global.c \ logs.h logs.c \ diff --git a/src/core/core.c b/src/core/core.c index 5b60384..1d01c7c 100644 --- a/src/core/core.c +++ b/src/core/core.c @@ -34,6 +34,7 @@ #include "collections.h" +#include "demanglers.h" #include "formats.h" #include "global.h" #include "params.h" @@ -127,6 +128,8 @@ void unload_all_basic_components(void) { unload_collection_definitions(); + unload_demanglers_definitions(); + unload_formats_definitions(); unload_processors_definitions(); diff --git a/src/core/demanglers.c b/src/core/demanglers.c new file mode 100644 index 0000000..409018e --- /dev/null +++ b/src/core/demanglers.c @@ -0,0 +1,191 @@ + +/* Chrysalide - Outil d'analyse de fichiers binaires + * demanglers.c - enregistrement et fourniture des décodeurs proprosés + * + * 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 Foobar. If not, see <http://www.gnu.org/licenses/>. + */ + + +#include "demanglers.h" + + +#include <string.h> + + + +/* Caractéristiques d'un processeur */ +typedef struct _demangler_t +{ + char *key; /* Clef pour un accès rapide */ + GType instance; /* Type à manipuler en interne */ + +} demangler_t; + + +/* Mémorisation des types de décodeurs enregistrés */ +static demangler_t *_demanglers_definitions = NULL; +static size_t _demanglers_definitions_count = 0; + +/* Verrou pour des accès atomiques */ +G_LOCK_DEFINE_STATIC(_ddef_access); + + +/* Retrouve l'enregistrement correspondant à un décodeur. */ +static demangler_t *find_demangler_by_key(const char *); + + + +/****************************************************************************** +* * +* Paramètres : key = désignation rapide et interne d'un décodeur. * +* instance = type GLib représentant le type à instancier. * +* * +* Description : Enregistre un décodeur répondant à une appellation donnée. * +* * +* Retour : Bilan de l'opération. * +* * +* Remarques : - * +* * +******************************************************************************/ + +bool register_demangler_type(const char *key, GType instance) +{ + bool result; /* Bilan à retourner */ + demangler_t *new; /* Nouvel élément à définir */ + + G_LOCK(_ddef_access); + + new = find_demangler_by_key(key); + + result = (new == NULL); + + if (result) + { + _demanglers_definitions = (demangler_t *)realloc(_demanglers_definitions, + ++_demanglers_definitions_count * sizeof(demangler_t)); + + new = &_demanglers_definitions[_demanglers_definitions_count - 1]; + + new->key = strdup(key); + new->instance = instance; + + } + + G_UNLOCK(_ddef_access); + + return result; + +} + + +/****************************************************************************** +* * +* Paramètres : - * +* * +* Description : Décharge toutes les définitions de décodeurs. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +void unload_demanglers_definitions(void) +{ + size_t i; /* Boucle de parcours */ + + G_LOCK(_ddef_access); + + for (i = 0; i < _demanglers_definitions_count; i++) + free(_demanglers_definitions[i].key); + + if (_demanglers_definitions != NULL) + free(_demanglers_definitions); + + _demanglers_definitions = NULL; + _demanglers_definitions_count = 0; + + G_UNLOCK(_ddef_access); + +} + + +/****************************************************************************** +* * +* Paramètres : key = nom technique du décodeur recherché. * +* * +* Description : Retrouve l'enregistrement correspondant à un décodeur. * +* * +* Retour : Définition trouvée ou NULL en cas d'échec. * +* * +* Remarques : - * +* * +******************************************************************************/ + +static demangler_t *find_demangler_by_key(const char *key) +{ + demangler_t *result; /* Trouvaille à retourner */ + size_t i; /* Boucle de parcours */ + + /** + * Le verrou d'accès global doit être posé ! + */ + + result = NULL; + + if (key != NULL) + for (i = 0; i < _demanglers_definitions_count; i++) + if (strcmp(_demanglers_definitions[i].key, key) == 0) + result = &_demanglers_definitions[i]; + + return result; + +} + + +/****************************************************************************** +* * +* Paramètres : key = nom technique du décodeur recherché. * +* * +* Description : Fournit le décodeur de désignations correspondant à un type. * +* * +* Retour : Décodeur trouvé et mis en place ou NULL. * +* * +* Remarques : - * +* * +******************************************************************************/ + +GCompDemangler *get_compiler_demangler_for_type(const char *key) +{ + GCompDemangler *result; /* Instance à retourner */ + demangler_t *def; /* Définition de décodeur */ + + G_LOCK(_ddef_access); + + def = find_demangler_by_key(key); + + if (def == NULL) + result = NULL; + else + result = g_object_new(def->instance, NULL); + + G_UNLOCK(_ddef_access); + + return result; + +} diff --git a/src/core/demanglers.h b/src/core/demanglers.h new file mode 100644 index 0000000..b3ff985 --- /dev/null +++ b/src/core/demanglers.h @@ -0,0 +1,46 @@ + +/* Chrysalide - Outil d'analyse de fichiers binaires + * demanglers.h - prototypes pour l'enregistrement et la fourniture des décodeurs proprosés + * + * 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 Foobar. If not, see <http://www.gnu.org/licenses/>. + */ + + +#ifndef _CORE_DEMANGLERS_H +#define _CORE_DEMANGLERS_H + + +#include <stdbool.h> + + +#include "../mangling/demangler.h" + + + +/* Enregistre un décodeur répondant à une appellation donnée. */ +bool register_demangler_type(const char *, GType); + +/* Décharge toutes les définitions de décodeurs. */ +void unload_demanglers_definitions(void); + +/* Fournit le décodeur de désignations correspondant à un type. */ +GCompDemangler *get_compiler_demangler_for_type(const char *); + + + +#endif /* _CORE_DEMANGLERS_H */ diff --git a/src/core/processors.h b/src/core/processors.h index 83f7466..0b4841a 100644 --- a/src/core/processors.h +++ b/src/core/processors.h @@ -57,4 +57,4 @@ GArchProcessor *get_arch_processor_for_type(const char *); -#endif /* _ANALYSIS_DB_COLLECTION_H */ +#endif /* _CORE_PROCESSORS_H */ diff --git a/src/format/format-int.h b/src/format/format-int.h index 5c1ae07..e01b597 100644 --- a/src/format/format-int.h +++ b/src/format/format-int.h @@ -30,6 +30,7 @@ #include "preload.h" #include "../gtkext/gtkstatusstack.h" +#include "../mangling/demangler.h" @@ -68,6 +69,8 @@ struct _GBinFormat GBinContent *content; /* Contenu binaire à étudier */ + GCompDemangler *demangler; /* Décodage de noms privilégié */ + virt_t *entry_points; /* Points d'entrée du code */ size_t ep_count; /* Nombre de ces points */ diff --git a/src/format/format.c b/src/format/format.c index 89db51d..f71cc8f 100644 --- a/src/format/format.c +++ b/src/format/format.c @@ -144,6 +144,9 @@ static void g_binary_format_init(GBinFormat *format) static void g_binary_format_dispose(GBinFormat *format) { + if (format->demangler != NULL) + g_object_unref(format->demangler); + g_object_unref(format->info); g_rw_lock_clear(&format->syms_lock); diff --git a/src/mangling/Makefile.am b/src/mangling/Makefile.am index 63b25c7..075a634 100644 --- a/src/mangling/Makefile.am +++ b/src/mangling/Makefile.am @@ -8,13 +8,13 @@ noinst_LTLIBRARIES = libjavamangling.la libmangling.la libmangling_la_SOURCES = \ context-int.h \ context.h context.c \ + demangler-int.h \ demangler.h demangler.c libmangling_la_LDFLAGS = libmangling_la_LIBADD = \ libjavamangling.la \ - dex/libmanglingdex.la \ itanium/libmanglingitanium.la @@ -40,4 +40,4 @@ AM_CFLAGS = $(DEBUG_CFLAGS) $(WARNING_FLAGS) $(COMPLIANCE_FLAGS) # Automake fait les choses à moitié CLEANFILES = java_gram.h java_gram.c libjavamangling_la-java_tok.c -SUBDIRS = dex itanium +SUBDIRS = itanium diff --git a/src/mangling/context-int.h b/src/mangling/context-int.h index d361ff7..e34842c 100644 --- a/src/mangling/context-int.h +++ b/src/mangling/context-int.h @@ -21,23 +21,34 @@ */ -#ifndef _FORMAT_MANGLING_CONTEXT_INT_H -#define _FORMAT_MANGLING_CONTEXT_INT_H +#ifndef _MANGLING_CONTEXT_INT_H +#define _MANGLING_CONTEXT_INT_H #include "context.h" +#include "../common/ibuf.h" + + /* Procède au décodage d'une chaîne de caractères. */ typedef bool (* demangle_fc) (GDemanglingContext *, const char *); +/* Décode une définition de routine. */ +typedef GBinRoutine * (* decode_routine_fc) (GDemanglingContext *); + +/* Décode une définition de type. */ +typedef GDataType * (* decode_type_fc) (GDemanglingContext *); + /* Contexte de décodage (instance) */ struct _GDemanglingContext { GObject parent; /* A laisser en premier */ + input_buffer buffer; /* Tampon de lecture */ + union { GObject *gobj; /* Utile pour le nettoyage ! */ @@ -55,8 +66,11 @@ struct _GDemanglingContextClass demangle_fc demangle_type; /* Décodage de type */ demangle_fc demangle_routine; /* Décodage de routine */ + decode_type_fc decode_type; /* Décodage de type */ + decode_routine_fc decode_routine; /* Décodage de routine */ + }; -#endif /* _FORMAT_MANGLING_CONTEXT_INT_H */ +#endif /* _MANGLING_CONTEXT_INT_H */ diff --git a/src/mangling/context.c b/src/mangling/context.c index 7a798ac..65a8874 100644 --- a/src/mangling/context.c +++ b/src/mangling/context.c @@ -24,6 +24,9 @@ #include "context.h" +#include <assert.h> + + #include "context-int.h" @@ -165,6 +168,7 @@ GBinRoutine *g_demangling_context_get_decoded_routine(GDemanglingContext *contex /****************************************************************************** * * * Paramètres : context = instance à consulter. * +* desc = chaîne de caractères à décoder. * * * * Description : Fournit le type créé à l'issue du codage. * * * @@ -190,3 +194,85 @@ GDataType *g_demangling_context_get_decoded_type(GDemanglingContext *context, co return result; } + + +/****************************************************************************** +* * +* Paramètres : context = environnement de décodage à manipuler. * +* desc = chaîne de caractères à décoder. * +* * +* Description : Décode une définition de type. * +* * +* Retour : Nouvelle instance créée ou NULL en cas d'erreur fatale. * +* * +* Remarques : - * +* * +******************************************************************************/ + +GDataType *g_demangling_context_decode_type(GDemanglingContext *context, const char *desc) +{ + GDataType *result; /* Construction à remonter */ + + if (context->type != NULL) + result = context->type; + + else + { + assert(context->buffer.text == NULL); + + init_text_input_buffer(&context->buffer, desc); + + result = G_DEMANGLING_CONTEXT_GET_CLASS(context)->decode_type(context); + + if (result != NULL) + context->type = result; + + } + + if (result != NULL) + g_object_ref(G_OBJECT(result)); + + return result; + +} + + +/****************************************************************************** +* * +* Paramètres : context = environnement de décodage à manipuler. * +* desc = chaîne de caractères à décoder. * +* * +* Description : Décode une définition de routine. * +* * +* Retour : Nouvelle instance créée ou NULL en cas d'erreur fatale. * +* * +* Remarques : - * +* * +******************************************************************************/ + +GBinRoutine *g_demangling_context_decode_routine(GDemanglingContext *context, const char *desc) +{ + GBinRoutine *result; /* Construction à remonter */ + + if (context->routine != NULL) + result = context->routine; + + else + { + assert(context->buffer.text == NULL); + + init_text_input_buffer(&context->buffer, desc); + + result = G_DEMANGLING_CONTEXT_GET_CLASS(context)->decode_routine(context); + + if (result != NULL) + context->routine = result; + + } + + if (result != NULL) + g_object_ref(G_OBJECT(result)); + + return result; + +} diff --git a/src/mangling/context.h b/src/mangling/context.h index 705ef83..1f516d3 100644 --- a/src/mangling/context.h +++ b/src/mangling/context.h @@ -56,6 +56,12 @@ GBinRoutine *g_demangling_context_get_decoded_routine(GDemanglingContext *, cons /* Fournit le type créé à l'issue du codage. */ GDataType *g_demangling_context_get_decoded_type(GDemanglingContext *, const char *); +/* Décode une définition de type. */ +GDataType *g_demangling_context_decode_type(GDemanglingContext *, const char *); + +/* Décode une définition de routine. */ +GBinRoutine *g_demangling_context_decode_routine(GDemanglingContext *, const char *); + #endif /* _FORMAT_MANGLING_CONTEXT_H */ diff --git a/src/mangling/demangler-int.h b/src/mangling/demangler-int.h new file mode 100644 index 0000000..55fb27d --- /dev/null +++ b/src/mangling/demangler-int.h @@ -0,0 +1,57 @@ + +/* Chrysalide - Outil d'analyse de fichiers binaires + * demangler-int.h - prototypes internes utiles aux décodeurs de désignations de symboles + * + * Copyright (C) 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 Foobar. If not, see <http://www.gnu.org/licenses/>. + */ + + +#ifndef _MANGLING_DEMANGLER_INT_H +#define _MANGLING_DEMANGLER_INT_H + + +#include "context.h" +#include "demangler.h" + + + +/* Indique si une chaîne peut être traitée par le décodeur. */ +typedef bool (* can_be_demangled_fc) (const char *); + + +/* Décodeur de désignations générique (instance) */ +struct _GCompDemangler +{ + GObject parent; /* A laisser en premier */ + +}; + +/* Décodeur de désignations générique (classe) */ +struct _GCompDemanglerClass +{ + GObjectClass parent; /* A laisser en premier */ + + can_be_demangled_fc can_demangle; /* Possibilité de traitement */ + + GType context_type; /* Contexte de décodage */ + +}; + + + +#endif /* _FORMAT_MANGLING_DEMANGLER_H */ diff --git a/src/mangling/demangler.c b/src/mangling/demangler.c index f673a01..299da9c 100644 --- a/src/mangling/demangler.c +++ b/src/mangling/demangler.c @@ -24,6 +24,195 @@ #include "demangler.h" +#include "demangler-int.h" + + + +/* Initialise la classe des décodeurs de désignations. */ +static void g_compiler_demangler_class_init(GCompDemanglerClass *); + +/* Initialise une instance de décodeur de désignations. */ +static void g_compiler_demangler_init(GCompDemangler *); + +/* Supprime toutes les références externes. */ +static void g_compiler_demangler_dispose(GCompDemangler *); + +/* Procède à la libération totale de la mémoire. */ +static void g_compiler_demangler_finalize(GCompDemangler *); + + + +/* Indique le type défini pour un décodeur de désignations. */ +G_DEFINE_TYPE(GCompDemangler, g_compiler_demangler, G_TYPE_OBJECT); + + +/****************************************************************************** +* * +* Paramètres : klass = classe à initialiser. * +* * +* Description : Initialise la classe des décodeurs de désignations. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +static void g_compiler_demangler_class_init(GCompDemanglerClass *klass) +{ + GObjectClass *object; /* Autre version de la classe */ + + object = G_OBJECT_CLASS(klass); + + object->dispose = (GObjectFinalizeFunc/* ! */)g_compiler_demangler_dispose; + object->finalize = (GObjectFinalizeFunc)g_compiler_demangler_finalize; + +} + + +/****************************************************************************** +* * +* Paramètres : demangler = instance à initialiser. * +* * +* Description : Initialise une instance de décodeur de désignations. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +static void g_compiler_demangler_init(GCompDemangler *demangler) +{ + +} + + +/****************************************************************************** +* * +* Paramètres : demangler = instance d'objet GLib à traiter. * +* * +* Description : Supprime toutes les références externes. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +static void g_compiler_demangler_dispose(GCompDemangler *demangler) +{ + G_OBJECT_CLASS(g_compiler_demangler_parent_class)->dispose(G_OBJECT(demangler)); + +} + + +/****************************************************************************** +* * +* Paramètres : demangler = instance d'objet GLib à traiter. * +* * +* Description : Procède à la libération totale de la mémoire. * +* * +* Retour : - * +* * +* Remarques : - * +* * +******************************************************************************/ + +static void g_compiler_demangler_finalize(GCompDemangler *demangler) +{ + G_OBJECT_CLASS(g_compiler_demangler_parent_class)->finalize(G_OBJECT(demangler)); + +} + + +/****************************************************************************** +* * +* Paramètres : demangler = décodeur à solliciter pour l'opération. * +* desc = chaîne de caractères à décoder. * +* * +* Description : Tente de décoder une chaîne de caractères donnée en type. * +* * +* Retour : Instance obtenue ou NULL en cas d'échec. * +* * +* Remarques : - * +* * +******************************************************************************/ + +GDataType *g_compiler_demangler_decode_type(const GCompDemangler *demangler, const char *desc) +{ + GDataType *result; /* Construction à remonter */ + GType ctx_type; /* Type de contexte adapté */ + GDemanglingContext *context; /* Espace de travail dédié */ + + ctx_type = G_COMP_DEMANGLER_GET_CLASS(demangler)->context_type; + + context = g_object_new(ctx_type, NULL); + + result = g_demangling_context_decode_type(context, desc); + + g_object_unref(G_OBJECT(context)); + + return result; + +} + + +/****************************************************************************** +* * +* Paramètres : demangler = décodeur à solliciter pour l'opération. * +* desc = chaîne de caractères à décoder. * +* * +* Description : Tente de décoder une chaîne de caractères donnée en routine. * +* * +* Retour : Instance obtenue ou NULL en cas d'échec. * +* * +* Remarques : - * +* * +******************************************************************************/ + +GBinRoutine *g_compiler_demangler_decode_routine(const GCompDemangler *demangler, const char *desc) +{ + GBinRoutine *result; /* Construction à remonter */ + GType ctx_type; /* Type de contexte adapté */ + GDemanglingContext *context; /* Espace de travail dédié */ + + ctx_type = G_COMP_DEMANGLER_GET_CLASS(demangler)->context_type; + + context = g_object_new(ctx_type, NULL); + + result = g_demangling_context_decode_routine(context, desc); + + g_object_unref(G_OBJECT(context)); + + return result; + +} + + + + + + + + + + + + + + + + +///////////////////////////////////////////////////////////////////// +///////////////////////////////////////////////////////////////////// +///////////////////////////////////////////////////////////////////// +///////////////////////////////////////////////////////////////////// + + + + + #include <malloc.h> #include <string.h> diff --git a/src/mangling/demangler.h b/src/mangling/demangler.h index 00218e4..4a4b9fa 100644 --- a/src/mangling/demangler.h +++ b/src/mangling/demangler.h @@ -21,14 +21,54 @@ */ -#ifndef _FORMAT_MANGLING_DEMANGLER_H -#define _FORMAT_MANGLING_DEMANGLER_H +#ifndef _MANGLING_DEMANGLER_H +#define _MANGLING_DEMANGLER_H #include "../analysis/routine.h" +#define G_TYPE_COMP_DEMANGLER g_compiler_demangler_get_type() +#define G_COMP_DEMANGLER(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), G_TYPE_COMP_DEMANGLER, GCompDemangler)) +#define G_IS_COMP_DEMANGLER(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), G_TYPE_COMP_DEMANGLER)) +#define G_COMP_DEMANGLER_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_COMP_DEMANGLER, GCompDemanglerClass)) +#define G_IS_COMP_DEMANGLER_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_COMP_DEMANGLER)) +#define G_COMP_DEMANGLER_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_COMP_DEMANGLER, GCompDemanglerClass)) + + +/* Décodeur de désignations générique (instance) */ +typedef struct _GCompDemangler GCompDemangler; + +/* Décodeur de désignations générique (classe) */ +typedef struct _GCompDemanglerClass GCompDemanglerClass; + + +/* Indique le type défini pour un décodeur de désignations. */ +GType g_compiler_demangler_get_type(void); + +/* Tente de décoder une chaîne de caractères donnée en type. */ +GDataType *g_compiler_demangler_decode_type(const GCompDemangler *, const char *); + +/* Tente de décoder une chaîne de caractères donnée en routine. */ +GBinRoutine *g_compiler_demangler_decode_routine(const GCompDemangler *, const char *); + + + + + + + + + + + +///////////////////////////////////////////////////////////////////// +///////////////////////////////////////////////////////////////////// +///////////////////////////////////////////////////////////////////// +///////////////////////////////////////////////////////////////////// + + /* Tente de décoder une chaîne de caractères donnée. */ GBinRoutine *try_to_demangle_routine(const char *); @@ -47,4 +87,4 @@ void test_itanium_demangling(void); -#endif /* _FORMAT_MANGLING_DEMANGLER_H */ +#endif /* _MANGLING_DEMANGLER_H */ diff --git a/src/mangling/dex/Makefile.am b/src/mangling/dex/Makefile.am deleted file mode 100644 index 547d686..0000000 --- a/src/mangling/dex/Makefile.am +++ /dev/null @@ -1,46 +0,0 @@ - -BUILT_SOURCES = libmanglingdexshorty_la-shorty_gram.h libmanglingdextype_la-type_gram.h - -AM_YFLAGS = -d - -noinst_LTLIBRARIES = libmanglingdex.la libmanglingdexshorty.la libmanglingdextype.la - -libmanglingdex_la_SOURCES = \ - context.h context.c - -libmanglingdex_la_LDFLAGS = - -libmanglingdex_la_LIBADD = \ - libmanglingdexshorty.la \ - libmanglingdextype.la - - -libmanglingdexshorty_la_SOURCES = \ - shorty_gram.y \ - shorty_tok.l - -libmanglingdexshorty_la_YFLAGS = -d -p shorty_ -o y.tab.c - -libmanglingdexshorty_la_LFLAGS = -P shorty_ -o lex.yy.c - - -libmanglingdextype_la_SOURCES = \ - type_gram.y \ - type_tok.l - -libmanglingdextype_la_YFLAGS = -d -p type_ -o y.tab.c - -libmanglingdextype_la_LFLAGS = -P type_ -o lex.yy.c - - -AM_CPPFLAGS = $(LIBGTK_CFLAGS) $(LIBXML_CFLAGS) - -AM_CFLAGS = $(DEBUG_CFLAGS) $(WARNING_FLAGS) $(COMPLIANCE_FLAGS) - - -# Automake fait les choses à moitié -CLEANFILES = \ - libmanglingdexshorty_la-shorty_gram.h libmanglingdexshorty_la-shorty_gram.c \ - libmanglingdexshorty_la-shorty_tok.c \ - libmanglingdextype_la-type_gram.h libmanglingdextype_la-type_gram.c \ - libmanglingdextype_la-type_tok.c diff --git a/src/mangling/dex/context.c b/src/mangling/dex/context.c deleted file mode 100644 index 9dd9b9c..0000000 --- a/src/mangling/dex/context.c +++ /dev/null @@ -1,154 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * context.c - contextes de décodage DEX - * - * Copyright (C) 2015-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 Foobar. If not, see <http://www.gnu.org/licenses/>. - */ - - -#include "context.h" - - -#include "../context-int.h" - - - -/* Contexte de décodage DEX (instance) */ -struct _GDexDemangler -{ - GDemanglingContext parent; /* A laisser en premier */ - -}; - -/* Contexte de décodage DEX (classe) */ -struct _GDexDemanglerClass -{ - GDemanglingContextClass parent; /* A laisser en premier */ - -}; - - -/* Initialise la classe des contextes de décodage DEX. */ -static void g_dex_demangler_class_init(GDexDemanglerClass *); - -/* Initialise une instance de contexte pour décodage DEX. */ -static void g_dex_demangler_init(GDexDemangler *); - -/* Supprime toutes les références externes. */ -static void g_dex_demangler_dispose(GDexDemangler *); - -/* Procède à la libération totale de la mémoire. */ -static void g_dex_demangler_finalize(GDexDemangler *); - - -/* Procède au décodage d'une chaîne de caractères. */ -extern bool demangle_dex_routine(GDexDemangler *, const char *); - -/* Procède au décodage d'une chaîne de caractères. */ -extern bool demangle_dex_type(GDexDemangler *, const char *); - - - -/* Indique le type défini pour un contexte de décodage DEX. */ -G_DEFINE_TYPE(GDexDemangler, g_dex_demangler, G_TYPE_DEMANGLING_CONTEXT); - - -/****************************************************************************** -* * -* Paramètres : klass = classe à initialiser. * -* * -* Description : Initialise la classe des contextes de décodage DEX. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_dex_demangler_class_init(GDexDemanglerClass *klass) -{ - GObjectClass *object; /* Autre version de la classe */ - GDemanglingContextClass *context; /* Version parente */ - - object = G_OBJECT_CLASS(klass); - - object->dispose = (GObjectFinalizeFunc/* ! */)g_dex_demangler_dispose; - object->finalize = (GObjectFinalizeFunc)g_dex_demangler_finalize; - - context = G_DEMANGLING_CONTEXT_CLASS(klass); - - context->demangle_type = (demangle_fc)demangle_dex_type; - context->demangle_routine = (demangle_fc)demangle_dex_routine; - -} - - -/****************************************************************************** -* * -* Paramètres : demangler = instance à initialiser. * -* * -* Description : Initialise une instance de contexte pour décodage DEX. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_dex_demangler_init(GDexDemangler *demangler) -{ - -} - - -/****************************************************************************** -* * -* Paramètres : demangler = instance d'objet GLib à traiter. * -* * -* Description : Supprime toutes les références externes. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_dex_demangler_dispose(GDexDemangler *demangler) -{ - G_OBJECT_CLASS(g_dex_demangler_parent_class)->dispose(G_OBJECT(demangler)); - -} - - -/****************************************************************************** -* * -* Paramètres : demangler = instance d'objet GLib à traiter. * -* * -* Description : Procède à la libération totale de la mémoire. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_dex_demangler_finalize(GDexDemangler *demangler) -{ - G_OBJECT_CLASS(g_dex_demangler_parent_class)->finalize(G_OBJECT(demangler)); - -} diff --git a/src/mangling/dex/context.h b/src/mangling/dex/context.h deleted file mode 100644 index 1af7a9d..0000000 --- a/src/mangling/dex/context.h +++ /dev/null @@ -1,52 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * context.h - prototypes internes liés aux contextes de décodage DEX - * - * Copyright (C) 2015-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 Foobar. If not, see <http://www.gnu.org/licenses/>. - */ - - -#ifndef _FORMAT_MANGLING_DEX_CONTEXT_H -#define _FORMAT_MANGLING_DEX_CONTEXT_H - - -#include <glib-object.h> - - - -#define G_TYPE_DEX_DEMANGLER g_dex_demangler_get_type() -#define G_DEX_DEMANGLER(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), g_dex_demangler_get_type(), GDexDemangler)) -#define G_IS_DEX_DEMANGLER(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), g_dex_demangler_get_type())) -#define G_DEX_DEMANGLER_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_DEX_DEMANGLER, GDexDemanglerClass)) -#define G_IS_DEX_DEMANGLER_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_DEX_DEMANGLER)) -#define G_DEX_DEMANGLER_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_DEX_DEMANGLER, GDexDemanglerClass)) - - -/* Contexte de décodage DEX (instance) */ -typedef struct _GDexDemangler GDexDemangler; - -/* Contexte de décodage DEX (classe) */ -typedef struct _GDexDemanglerClass GDexDemanglerClass; - - -/* Indique le type défini pour un contexte de décodage DEX. */ -GType g_dex_demangler_get_type(void); - - - -#endif /* _FORMAT_MANGLING_DEX_CONTEXT_H */ diff --git a/src/mangling/dex/shorty_gram.y b/src/mangling/dex/shorty_gram.y deleted file mode 100644 index b688896..0000000 --- a/src/mangling/dex/shorty_gram.y +++ /dev/null @@ -1,138 +0,0 @@ - -%{ - -#include <stdbool.h> - - -#include "context.h" -#include "../context-int.h" - - - -/* Affiche un message d'erreur concernant l'analyse. */ -static int shorty_error(GDexDemangler *, char *); - -/* Procède au décodage d'une chaîne de caractères. */ -bool demangle_dex_routine(GDexDemangler *, const char *); - - -%} - - -%code requires { - -#include "../../analysis/types/basic.h" -#include "../../analysis/types/cse.h" - -} - -%union { - - GDataType *type; /* Type reconstruit */ - -} - - -%parse-param { GDexDemangler *demangler } - -%token V Z B S C I J F D L - -%type <type> shorty_return_type shorty_field_type - - -%{ - -/* Déclarations issues de l'analyseur syntaxique... */ - -typedef struct yy_buffer_state *YY_BUFFER_STATE; - -extern YY_BUFFER_STATE shorty__scan_string(const char *); -extern void shorty__delete_buffer(YY_BUFFER_STATE); -extern int shorty_lex(void); - -%} - - -%% - - -shorty_descriptor: - shorty_return_type shorty_field_type_list { - GBinRoutine *routine; - routine = G_DEMANGLING_CONTEXT(demangler)->routine; - g_binary_routine_set_return_type(routine, $1); - } - -shorty_field_type_list: - /* empty */ - | shorty_field_type shorty_field_type_list { - GBinRoutine *routine; - GBinVariable *var; - routine = G_DEMANGLING_CONTEXT(demangler)->routine; - var = g_binary_variable_new($1); - g_binary_routine_add_arg(routine, var); - } - -shorty_return_type: - V { $$ = g_basic_type_new(BTP_VOID); } - | shorty_field_type { $$ = $1; } - -shorty_field_type: - Z { $$ = g_basic_type_new(BTP_BOOL); } - | B { $$ = g_basic_type_new(BTP_UCHAR); } - | S { $$ = g_basic_type_new(BTP_SHORT); } - | C { $$ = g_basic_type_new(BTP_CHAR); } - | I { $$ = g_basic_type_new(BTP_INT); } - | J { $$ = g_basic_type_new(BTP_LONG); } - | F { $$ = g_basic_type_new(BTP_FLOAT); } - | D { $$ = g_basic_type_new(BTP_DOUBLE); } - | L { $$ = g_class_enum_type_new(CET_CLASS, ""); } - - -%% - - -/****************************************************************************** -* * -* Paramètres : demangler = contexte associé à la procédure de décodage. * -* msg = indications humaines sur l'événement. * -* * -* Description : Affiche un message d'erreur concernant l'analyse. * -* * -* Retour : Valeur historique, ignorée. * -* * -* Remarques : - * -* * -******************************************************************************/ -static int shorty_error(GDexDemangler *demangler, char *msg) -{ - return -1; - -} - - -/****************************************************************************** -* * -* Paramètres : demangler = contexte de décodage à utiliser. * -* desc = chaîne de caractères à décoder. * -* * -* Description : Procède au décodage d'une chaîne de caractères. * -* * -* Retour : Bilan de l'opération. * -* * -* Remarques : - * -* * -******************************************************************************/ - -bool demangle_dex_routine(GDexDemangler *demangler, const char *desc) -{ - YY_BUFFER_STATE buffer; /* Tampon pour bison */ - int ret; /* Bilan de l'appel */ - - buffer = shorty__scan_string(desc); - ret = yyparse(demangler); - shorty__delete_buffer(buffer); - - return (ret == 0); - -} diff --git a/src/mangling/dex/shorty_tok.l b/src/mangling/dex/shorty_tok.l deleted file mode 100644 index a3545a2..0000000 --- a/src/mangling/dex/shorty_tok.l +++ /dev/null @@ -1,28 +0,0 @@ - -%{ - -#include "context.h" -#include "libmanglingdexshorty_la-shorty_gram.h" - -%} - - -%option noyywrap -%option yylineno -%option nounput -%option noinput - -%% - -"V" { return V; } -"Z" { return Z; } -"B" { return B; } -"S" { return S; } -"C" { return C; } -"I" { return I; } -"J" { return J; } -"F" { return F; } -"D" { return D; } -"L" { return L; } - -%% diff --git a/src/mangling/dex/type_gram.y b/src/mangling/dex/type_gram.y deleted file mode 100644 index 79c9320..0000000 --- a/src/mangling/dex/type_gram.y +++ /dev/null @@ -1,159 +0,0 @@ - -%{ - -#include <stdbool.h> - - -#include "context.h" -#include "../context-int.h" - -typedef void *yyscan_t; - -/* Affiche un message d'erreur concernant l'analyse. */ -static int type_error(GDexDemangler *, yyscan_t, char *); - -/* Procède au décodage d'une chaîne de caractères. */ -bool demangle_dex_type(GDexDemangler *, const char *); - - -%} - - -%code requires { - -#include "../../analysis/types/basic.h" -#include "../../analysis/types/cse.h" -#include "../../common/extstr.h" - -} - -%union { - - GDataType *type; /* Type reconstruit */ - size_t adeep; /* Dimension d'un tableau */ - char *text; /* Chaîne de caractères */ - -} - - - -%define api.pure full -%parse-param { GDexDemangler *demangler } { yyscan_t scanner } -%lex-param { yyscan_t scanner } - - -%token V Z B S C I J F D -%token ARRAY -%token L SEMICOLON -%token SLASH DOLLAR -%token TEXT - -%type <type> type_descriptor field_type_descriptor non_array_field_type_descriptor full_class_name - -%type <text> TEXT simple_name - - -%{ - -/* Déclarations issues de l'analyseur syntaxique... */ - -typedef struct yy_buffer_state *YY_BUFFER_STATE; - -extern int type_lex_init(yyscan_t *scanner); -extern YY_BUFFER_STATE type__scan_string(const char *, yyscan_t); -extern void type__delete_buffer(YY_BUFFER_STATE, yyscan_t); -extern int type_lex(YYSTYPE *, yyscan_t); -extern int type_lex_destroy(yyscan_t); - -%} - - -%% - - -input: - type_descriptor { G_DEMANGLING_CONTEXT(demangler)->type = $1; } - -type_descriptor: - V { $$ = g_basic_type_new(BTP_VOID); } - | field_type_descriptor { $$ = $1; } - -field_type_descriptor: - non_array_field_type_descriptor { $$ = $1; } - | ARRAY non_array_field_type_descriptor { $$ = $2; } - -non_array_field_type_descriptor: - Z { $$ = g_basic_type_new(BTP_BOOL); } - | B { $$ = g_basic_type_new(BTP_UCHAR); } - | S { $$ = g_basic_type_new(BTP_SHORT); } - | C { $$ = g_basic_type_new(BTP_CHAR); } - | I { $$ = g_basic_type_new(BTP_INT); } - | J { $$ = g_basic_type_new(BTP_LONG); } - | F { $$ = g_basic_type_new(BTP_FLOAT); } - | D { $$ = g_basic_type_new(BTP_DOUBLE); } - | L full_class_name SEMICOLON { $$ = $2; } - -full_class_name: - simple_name { $$ = g_class_enum_type_new(CET_CLASS, $1); } - | full_class_name SLASH simple_name { - $$ = g_class_enum_type_new(CET_CLASS, $3); - g_data_type_set_namespace($$, $1); - g_object_unref($1); - } -simple_name: - TEXT { $$ = strdup($1); } - | simple_name TEXT { $$ = stradd($1, $2); } - -%% - - -/****************************************************************************** -* * -* Paramètres : demangler = contexte associé à la procédure de décodage. * -* scanner = données internes aux analyseurs. * -* msg = indications humaines sur l'événement. * -* * -* Description : Affiche un message d'erreur concernant l'analyse. * -* * -* Retour : Valeur historique, ignorée. * -* * -* Remarques : - * -* * -******************************************************************************/ -static int type_error(GDexDemangler *demangler, yyscan_t scanner, char *msg) -{ - return -1; - -} - - -/****************************************************************************** -* * -* Paramètres : demangler = contexte de décodage à utiliser. * -* desc = chaîne de caractères à décoder. * -* * -* Description : Procède au décodage d'une chaîne de caractères. * -* * -* Retour : Bilan de l'opération. * -* * -* Remarques : - * -* * -******************************************************************************/ - -bool demangle_dex_type(GDexDemangler *demangler, const char *desc) -{ - yyscan_t scanner; /* Données internes */ - YY_BUFFER_STATE buffer; /* Tampon pour bison */ - int ret; /* Bilan de l'appel */ - - type_lex_init(&scanner); - - buffer = type__scan_string(desc, scanner); - ret = yyparse(demangler, scanner); - type__delete_buffer(buffer, scanner); - - type_lex_destroy(scanner); - - return (ret == 0); - -} diff --git a/src/mangling/dex/type_tok.l b/src/mangling/dex/type_tok.l deleted file mode 100644 index 7e85d43..0000000 --- a/src/mangling/dex/type_tok.l +++ /dev/null @@ -1,150 +0,0 @@ - -%{ - -#include "context.h" -#include "libmanglingdextype_la-type_gram.h" - -/* See lemoda.net/c/reentrant-parser */ - -%} - - -%option noyywrap -%option yylineno -%option nounput -/*%option noinput*/ -%option reentrant -%option bison-bridge - -%x string - -ASCII [A-Za-z0-9] -SIMPLE {ASCII}|"$"|"-"|"_" - -%% - -"V" { return V; } -"Z" { return Z; } -"B" { return B; } -"S" { return S; } -"C" { return C; } -"I" { return I; } -"J" { return J; } -"F" { return F; } -"D" { return D; } -"L" { BEGIN(string); return L; } -"["* { yylval->adeep = strlen(yytext); return ARRAY; } -<string>"/" { return SLASH; } -<string>";" { BEGIN(INITIAL); return SEMICOLON; } - -<string>{SIMPLE}* { yylval->text = yytext; return TEXT; } - -<string>. { - unsigned char next; - char mutf8[4]; - - switch ((unsigned char)yytext[0]) - { - /* U+00a1 ... U+1fff */ - case 0x00 ... 0x1f: - - next = input(yyscanner); - - if (yytext[0] == 0x00 && next < 0xa1) - { - REJECT; - } - - else - { - mutf8[0] = yytext[0]; - mutf8[1] = next; - mutf8[2] = '\0'; - - strcpy(yylval->text, mutf8); return TEXT; - - } - - break; - - /* U+2010 ... U+2027 / U+2030 ... U+d7ff */ - case 0x20: - - next = input(yyscanner); - - switch (next) - { - case 0x10 ... 0x27: - case 0x30 ... 0xff: - - mutf8[0] = yytext[0]; - mutf8[1] = next; - mutf8[2] = '\0'; - - strcpy(yylval->text, mutf8); return TEXT; - break; - - default: - REJECT; - break; - - } - - break; - - /* ~ U+2030 ... U+d7ff */ - case 0x21 ... 0xd7: - - next = input(yyscanner); - - mutf8[0] = yytext[0]; - mutf8[1] = next; - mutf8[2] = '\0'; - - strcpy(yylval->text, mutf8); return TEXT; - break; - - /* U+e000 ... U+ffef */ - case 0xe0 ... 0xff: - - next = input(yyscanner); - - if (yytext[0] == 0xff && next > 0xef) - { - REJECT; - } - - else - { - mutf8[0] = yytext[0]; - mutf8[1] = next; - mutf8[2] = '\0'; - - strcpy(yylval->text, mutf8); return TEXT; - - } - - break; - - /* U+10000 ... U+10ffff */ - /* - case 0x10: - - mutf8[0] = yytext[0]; - mutf8[1] = input(yyscanner); - mutf8[2] = input(yyscanner); - mutf8[3] = '\0'; - - strcpy(yylval->text, mutf8); return TEXT; - break; - */ - - default: - REJECT; - break; - - } - - } - -%% |