From 4132223466dcabc19a1b6f0178adf1c1a35b07ad Mon Sep 17 00:00:00 2001 From: Cyrille Bagard Date: Tue, 30 Jan 2018 21:53:24 +0100 Subject: Moved the mangling related code. --- ChangeLog | 38 + configure.ac | 6 +- plugins/dex/pool.c | 4 +- plugins/elf/symbols.c | 2 +- plugins/mobicore/symbols.c | 2 +- src/Makefile.am | 5 +- src/format/Makefile.am | 3 +- src/format/dwarf/symbols.c | 2 +- src/format/mangling/Makefile.am | 43 - src/format/mangling/context-int.h | 62 - src/format/mangling/context.c | 192 --- src/format/mangling/context.h | 61 - src/format/mangling/demangler.c | 336 ---- src/format/mangling/demangler.h | 50 - src/format/mangling/dex/Makefile.am | 46 - src/format/mangling/dex/context.c | 154 -- src/format/mangling/dex/context.h | 52 - src/format/mangling/dex/shorty_gram.y | 138 -- src/format/mangling/dex/shorty_tok.l | 28 - src/format/mangling/dex/type_gram.y | 159 -- src/format/mangling/dex/type_tok.l | 150 -- src/format/mangling/itanium/Makefile.am | 19 - src/format/mangling/itanium/abi.c | 2444 --------------------------- src/format/mangling/itanium/abi.h | 38 - src/format/mangling/itanium/component-int.h | 79 - src/format/mangling/itanium/component.c | 717 -------- src/format/mangling/itanium/component.h | 213 --- src/format/mangling/itanium/context.c | 571 ------- src/format/mangling/itanium/context.h | 117 -- src/format/mangling/java.h | 59 - src/format/mangling/java_gram.y | 281 --- src/format/mangling/java_tok.l | 37 - src/mangling/Makefile.am | 43 + src/mangling/context-int.h | 62 + src/mangling/context.c | 192 +++ src/mangling/context.h | 61 + src/mangling/demangler.c | 336 ++++ src/mangling/demangler.h | 50 + src/mangling/dex/Makefile.am | 46 + src/mangling/dex/context.c | 154 ++ src/mangling/dex/context.h | 52 + src/mangling/dex/shorty_gram.y | 138 ++ src/mangling/dex/shorty_tok.l | 28 + src/mangling/dex/type_gram.y | 159 ++ src/mangling/dex/type_tok.l | 150 ++ src/mangling/itanium/Makefile.am | 19 + src/mangling/itanium/abi.c | 2444 +++++++++++++++++++++++++++ src/mangling/itanium/abi.h | 38 + src/mangling/itanium/component-int.h | 79 + src/mangling/itanium/component.c | 717 ++++++++ src/mangling/itanium/component.h | 213 +++ src/mangling/itanium/context.c | 571 +++++++ src/mangling/itanium/context.h | 117 ++ src/mangling/java.h | 59 + src/mangling/java_gram.y | 281 +++ src/mangling/java_tok.l | 37 + 56 files changed, 6096 insertions(+), 6058 deletions(-) delete mode 100644 src/format/mangling/Makefile.am delete mode 100644 src/format/mangling/context-int.h delete mode 100644 src/format/mangling/context.c delete mode 100644 src/format/mangling/context.h delete mode 100644 src/format/mangling/demangler.c delete mode 100644 src/format/mangling/demangler.h delete mode 100644 src/format/mangling/dex/Makefile.am delete mode 100644 src/format/mangling/dex/context.c delete mode 100644 src/format/mangling/dex/context.h delete mode 100644 src/format/mangling/dex/shorty_gram.y delete mode 100644 src/format/mangling/dex/shorty_tok.l delete mode 100644 src/format/mangling/dex/type_gram.y delete mode 100644 src/format/mangling/dex/type_tok.l delete mode 100755 src/format/mangling/itanium/Makefile.am delete mode 100644 src/format/mangling/itanium/abi.c delete mode 100644 src/format/mangling/itanium/abi.h delete mode 100644 src/format/mangling/itanium/component-int.h delete mode 100644 src/format/mangling/itanium/component.c delete mode 100644 src/format/mangling/itanium/component.h delete mode 100644 src/format/mangling/itanium/context.c delete mode 100644 src/format/mangling/itanium/context.h delete mode 100644 src/format/mangling/java.h delete mode 100644 src/format/mangling/java_gram.y delete mode 100644 src/format/mangling/java_tok.l create mode 100644 src/mangling/Makefile.am create mode 100644 src/mangling/context-int.h create mode 100644 src/mangling/context.c create mode 100644 src/mangling/context.h create mode 100644 src/mangling/demangler.c create mode 100644 src/mangling/demangler.h create mode 100644 src/mangling/dex/Makefile.am create mode 100644 src/mangling/dex/context.c create mode 100644 src/mangling/dex/context.h create mode 100644 src/mangling/dex/shorty_gram.y create mode 100644 src/mangling/dex/shorty_tok.l create mode 100644 src/mangling/dex/type_gram.y create mode 100644 src/mangling/dex/type_tok.l create mode 100755 src/mangling/itanium/Makefile.am create mode 100644 src/mangling/itanium/abi.c create mode 100644 src/mangling/itanium/abi.h create mode 100644 src/mangling/itanium/component-int.h create mode 100644 src/mangling/itanium/component.c create mode 100644 src/mangling/itanium/component.h create mode 100644 src/mangling/itanium/context.c create mode 100644 src/mangling/itanium/context.h create mode 100644 src/mangling/java.h create mode 100644 src/mangling/java_gram.y create mode 100644 src/mangling/java_tok.l diff --git a/ChangeLog b/ChangeLog index c1443d2..893f455 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,41 @@ +18-01-30 Cyrille Bagard + + * configure.ac: + * plugins/dex/pool.c: + * plugins/elf/symbols.c: + * plugins/mobicore/symbols.c: + * src/Makefile.am: + * src/format/Makefile.am: + * src/format/dwarf/symbols.c: + * src/format/mangling/dex/Makefile.am: + Update code. + + * src/mangling/Makefile.am: + * src/mangling/context-int.h: + * src/mangling/context.c: + * src/mangling/context.h: + * src/mangling/demangler.c: + * src/mangling/demangler.h: + * src/mangling/dex/Makefile.am: + * src/mangling/dex/context.c: + * src/mangling/dex/context.h: + * src/mangling/dex/shorty_gram.y: + * src/mangling/dex/shorty_tok.l: + * src/mangling/dex/type_gram.y: + * src/mangling/dex/type_tok.l: + * src/mangling/itanium/Makefile.am: + * src/mangling/itanium/abi.c: + * src/mangling/itanium/abi.h: + * src/mangling/itanium/component-int.h: + * src/mangling/itanium/component.c: + * src/mangling/itanium/component.h: + * src/mangling/itanium/context.c: + * src/mangling/itanium/context.h: + * src/mangling/java.h: + * src/mangling/java_gram.y: + * src/mangling/java_tok.l: + Moved entries: move the mangling related code. + 18-01-29 Cyrille Bagard * plugins/elf/elf-int.h: diff --git a/configure.ac b/configure.ac index b6d2fdf..96d05ed 100644 --- a/configure.ac +++ b/configure.ac @@ -382,9 +382,6 @@ AC_CONFIG_FILES([Makefile src/format/dwarf/v3/Makefile src/format/dwarf/v4/Makefile src/format/java/Makefile - src/format/mangling/Makefile - src/format/mangling/dex/Makefile - src/format/mangling/itanium/Makefile src/format/pe/Makefile src/glibext/Makefile src/glibext/generators/Makefile @@ -396,6 +393,9 @@ AC_CONFIG_FILES([Makefile src/gui/menus/Makefile src/gui/panels/Makefile src/gui/tb/Makefile + src/mangling/Makefile + src/mangling/dex/Makefile + src/mangling/itanium/Makefile src/plugins/Makefile tools/Makefile tools/d2c/Makefile diff --git a/plugins/dex/pool.c b/plugins/dex/pool.c index 3c97da3..19e9e36 100644 --- a/plugins/dex/pool.c +++ b/plugins/dex/pool.c @@ -30,8 +30,8 @@ #include #include -#include -#include +#include +#include #include "dex-int.h" diff --git a/plugins/elf/symbols.c b/plugins/elf/symbols.c index dbf3305..de4d21a 100644 --- a/plugins/elf/symbols.c +++ b/plugins/elf/symbols.c @@ -37,7 +37,7 @@ #include #include #include -#include +#include #include "dynamic.h" diff --git a/plugins/mobicore/symbols.c b/plugins/mobicore/symbols.c index ec2dd34..36128d2 100644 --- a/plugins/mobicore/symbols.c +++ b/plugins/mobicore/symbols.c @@ -27,7 +27,7 @@ #include -#include +#include #include "mclf-int.h" diff --git a/src/Makefile.am b/src/Makefile.am index 4b66cfb..d50aedf 100644 --- a/src/Makefile.am +++ b/src/Makefile.am @@ -33,7 +33,8 @@ libchrysadisass_la_LIBADD = \ analysis/libanalysis.la \ arch/libarch.la \ debug/libdebug.la \ - format/libformat.la + format/libformat.la \ + mangling/libmangling.la #--- libchrysaglibext @@ -121,6 +122,6 @@ csrvmng_LDFLAGS = $(LIBXML_LIBS) -Lcommon/.libs -lcommon # glibext doit être traité en premier, à cause des marshals GLib -SUBDIRS = core glibext gtkext analysis arch format common debug gui plugins +SUBDIRS = core glibext gtkext analysis arch format common debug gui mangling plugins # TODO: rm -rf panels diff --git a/src/format/Makefile.am b/src/format/Makefile.am index 9b42ab0..0407dd7 100644 --- a/src/format/Makefile.am +++ b/src/format/Makefile.am @@ -17,7 +17,6 @@ libformat_la_SOURCES = \ libformat_la_LIBADD = \ dwarf/libformatdwarf.la \ java/libformatjava.la \ - mangling/libformatmangling.la \ pe/libformatpe.la libformat_la_LDFLAGS = @@ -27,4 +26,4 @@ AM_CPPFLAGS = $(LIBGTK_CFLAGS) $(LIBXML_CFLAGS) AM_CFLAGS = $(DEBUG_CFLAGS) $(WARNING_FLAGS) $(COMPLIANCE_FLAGS) -SUBDIRS = dwarf java mangling pe +SUBDIRS = dwarf java pe diff --git a/src/format/dwarf/symbols.c b/src/format/dwarf/symbols.c index d26cc3e..da30816 100644 --- a/src/format/dwarf/symbols.c +++ b/src/format/dwarf/symbols.c @@ -27,8 +27,8 @@ #include "die.h" #include "dwarf-int.h" #include "form.h" -#include "../mangling/demangler.h" #include "../../core/params.h" +#include "../../mangling/demangler.h" diff --git a/src/format/mangling/Makefile.am b/src/format/mangling/Makefile.am deleted file mode 100644 index e92deb2..0000000 --- a/src/format/mangling/Makefile.am +++ /dev/null @@ -1,43 +0,0 @@ - -BUILT_SOURCES = libjavamangling_la-java_gram.h - -AM_YFLAGS = -d - -noinst_LTLIBRARIES = libjavamangling.la libformatmangling.la - -libformatmangling_la_SOURCES = \ - context-int.h \ - context.h context.c \ - demangler.h demangler.c - -libformatmangling_la_LDFLAGS = - -libformatmangling_la_LIBADD = \ - libjavamangling.la \ - dex/libformatmanglingdex.la \ - itanium/libformatmanglingitanium.la - - -# Partie Java - -libjavamangling_la_SOURCES = \ - java.h \ - java_gram.y \ - java_tok.l - -libjavamangling_la_YFLAGS = -d -p java_ -o y.tab.c - -libjavamangling_la_LFLAGS = -P java_ -o lex.yy.c - - - - -AM_CPPFLAGS = $(LIBGTK_CFLAGS) $(LIBXML_CFLAGS) - -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 diff --git a/src/format/mangling/context-int.h b/src/format/mangling/context-int.h deleted file mode 100644 index d361ff7..0000000 --- a/src/format/mangling/context-int.h +++ /dev/null @@ -1,62 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * context.h - prototypes internes liés aux contextes de décodage - * - * Copyright (C) 2010-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 . - */ - - -#ifndef _FORMAT_MANGLING_CONTEXT_INT_H -#define _FORMAT_MANGLING_CONTEXT_INT_H - - -#include "context.h" - - - -/* Procède au décodage d'une chaîne de caractères. */ -typedef bool (* demangle_fc) (GDemanglingContext *, const char *); - - -/* Contexte de décodage (instance) */ -struct _GDemanglingContext -{ - GObject parent; /* A laisser en premier */ - - union - { - GObject *gobj; /* Utile pour le nettoyage ! */ - GBinRoutine *routine; /* Routine décodée */ - GDataType *type; /* Type décodé */ - }; - -}; - -/* Contexte de décodage (classe) */ -struct _GDemanglingContextClass -{ - GObjectClass parent; /* A laisser en premier */ - - demangle_fc demangle_type; /* Décodage de type */ - demangle_fc demangle_routine; /* Décodage de routine */ - -}; - - - -#endif /* _FORMAT_MANGLING_CONTEXT_INT_H */ diff --git a/src/format/mangling/context.c b/src/format/mangling/context.c deleted file mode 100644 index 7a798ac..0000000 --- a/src/format/mangling/context.c +++ /dev/null @@ -1,192 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * context.c - fourniture de contexte aux phases de décodage - * - * Copyright (C) 2010-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 . - */ - - -#include "context.h" - - -#include "context-int.h" - - - -/* Initialise la classe des contextes de décodage. */ -static void g_demangling_context_class_init(GDemanglingContextClass *); - -/* Initialise une instance de contexte pour décodage. */ -static void g_demangling_context_init(GDemanglingContext *); - -/* Supprime toutes les références externes. */ -static void g_demangling_context_dispose(GDemanglingContext *); - -/* Procède à la libération totale de la mémoire. */ -static void g_demangling_context_finalize(GDemanglingContext *); - - - -/* Indique le type défini pour un contexte de décodage. */ -G_DEFINE_TYPE(GDemanglingContext, g_demangling_context, G_TYPE_OBJECT); - - -/****************************************************************************** -* * -* Paramètres : klass = classe à initialiser. * -* * -* Description : Initialise la classe des contextes de décodage. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_demangling_context_class_init(GDemanglingContextClass *klass) -{ - GObjectClass *object; /* Autre version de la classe */ - - object = G_OBJECT_CLASS(klass); - - object->dispose = (GObjectFinalizeFunc/* ! */)g_demangling_context_dispose; - object->finalize = (GObjectFinalizeFunc)g_demangling_context_finalize; - -} - - -/****************************************************************************** -* * -* Paramètres : context = instance à initialiser. * -* * -* Description : Initialise une instance de contexte pour décodage. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_demangling_context_init(GDemanglingContext *context) -{ - -} - - -/****************************************************************************** -* * -* Paramètres : demangler = instance d'objet GLib à traiter. * -* * -* Description : Supprime toutes les références externes. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_demangling_context_dispose(GDemanglingContext *context) -{ - if (context->gobj != NULL) - g_object_unref(context->gobj); - - G_OBJECT_CLASS(g_demangling_context_parent_class)->dispose(G_OBJECT(context)); - -} - - -/****************************************************************************** -* * -* Paramètres : demangler = instance d'objet GLib à traiter. * -* * -* Description : Procède à la libération totale de la mémoire. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_demangling_context_finalize(GDemanglingContext *context) -{ - G_OBJECT_CLASS(g_demangling_context_parent_class)->finalize(G_OBJECT(context)); - -} - - -/****************************************************************************** -* * -* Paramètres : context = instance à consulter. * -* desc = chaîne de caractères à décoder. * -* * -* Description : Fournit la routine créée à l'issue du codage. * -* * -* Retour : Bilan de l'opération. * -* * -* Remarques : - * -* * -******************************************************************************/ - -GBinRoutine *g_demangling_context_get_decoded_routine(GDemanglingContext *context, const char *desc) -{ - GBinRoutine *result; /* Construction à remonter */ - - context->routine = g_binary_routine_new(); - - if (G_DEMANGLING_CONTEXT_GET_CLASS(context)->demangle_routine(context, desc)) - { - g_object_ref(context->routine); - result = context->routine; - } - - else - result = NULL; - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : context = instance à consulter. * -* * -* Description : Fournit le type créé à l'issue du codage. * -* * -* Retour : Instance en place ou NULL en cas d'erreur fatale. * -* * -* Remarques : - * -* * -******************************************************************************/ - -GDataType *g_demangling_context_get_decoded_type(GDemanglingContext *context, const char *desc) -{ - GBinRoutine *result; /* Construction à remonter */ - - if (G_DEMANGLING_CONTEXT_GET_CLASS(context)->demangle_type(context, desc)) - { - g_object_ref(context->type); - result = context->type; - } - - else - result = NULL; - - return result; - -} diff --git a/src/format/mangling/context.h b/src/format/mangling/context.h deleted file mode 100644 index a9528e8..0000000 --- a/src/format/mangling/context.h +++ /dev/null @@ -1,61 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * context.h - prototypes pour la fourniture de contexte aux phases de décodage - * - * Copyright (C) 2010-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 . - */ - - -#ifndef _FORMAT_MANGLING_CONTEXT_H -#define _FORMAT_MANGLING_CONTEXT_H - - -#include - - -#include "../../analysis/routine.h" - - - -#define G_TYPE_DEMANGLING_CONTEXT g_demangling_context_get_type() -#define G_DEMANGLING_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), g_demangling_context_get_type(), GDemanglingContext)) -#define G_IS_DEMANGLING_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), g_demangling_context_get_type())) -#define G_DEMANGLING_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), G_TYPE_DEMANGLING_CONTEXT, GDemanglingContextClass)) -#define G_IS_DEMANGLING_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), G_TYPE_DEMANGLING_CONTEXT)) -#define G_DEMANGLING_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), G_TYPE_DEMANGLING_CONTEXT, GDemanglingContextClass)) - - -/* Contexte de décodage (instance) */ -typedef struct _GDemanglingContext GDemanglingContext; - -/* Contexte de décodage (classe) */ -typedef struct _GDemanglingContextClass GDemanglingContextClass; - - -/* Indique le type défini pour un contexte de décodage. */ -GType g_demangling_context_get_type(void); - -/* Fournit la routine créée à l'issue du codage. */ -GBinRoutine *g_demangling_context_get_decoded_routine(GDemanglingContext *, const char *); - -/* Fournit le type créé à l'issue du codage. */ -GDataType *g_demangling_context_get_decoded_type(GDemanglingContext *, const char *); - - - -#endif /* _FORMAT_MANGLING_CONTEXT_H */ diff --git a/src/format/mangling/demangler.c b/src/format/mangling/demangler.c deleted file mode 100644 index f673a01..0000000 --- a/src/format/mangling/demangler.c +++ /dev/null @@ -1,336 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * demangler.c - décodage des noms d'éléments - * - * Copyright (C) 2009-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 . - */ - - -#include "demangler.h" - - -#include -#include - - -//#include "itanium.h" -#include "java.h" - - - -/* Indique si une chaîne peut être traitée par le décodeur. */ -typedef bool (* can_be_demangled_fc) (const char *); - -/* Prépare de quoi effectuer un décodage. */ -typedef GDemanglingContext * (* create_context_fc) (void); - -/* Procède au décodage d'une chaîne de caractères. */ -typedef bool (* demangle_fc) (GDemanglingContext *, const char *); - - - -/* Appels liés à un décodeur */ -typedef struct _demangling_properties -{ - can_be_demangled_fc can_demangle; /* Possibilité de traitement */ - - create_context_fc create_context; /* Création de contextes */ - - demangle_fc demangle_routine; /* Décodage d'une routine */ - demangle_fc demangle_type; /* Décodage d'un type */ - -} demangling_properties; - - -/* Liste des décodeurs */ -static demangling_properties demanglers[/*DGT_COUNT*/] = { - - /* - [DGT_ITANIUM] = { - .can_demangle = (can_be_demangled_fc)can_be_itanium_demangled, - .create_context = (create_context_fc)g_itanium_dcontext_new, - .demangle_routine = (demangle_fc)demangle_itanium_routine, - .demangle_type = (demangle_fc)NULL - }, - */ - /* - [DGT_JAVA] = { - .can_demangle = (can_be_demangled_fc)NULL, - .create_context = (create_context_fc)g_java_dcontext_new, - .demangle_routine = (demangle_fc)NULL, - .demangle_type = (demangle_fc)demangle_java_type - } - */ -}; - - - -/****************************************************************************** -* * -* Paramètres : desc = chaîne de caractères à décoder. * -* * -* Description : Tente de décoder une chaîne de caractères donnée. * -* * -* Retour : Bilan de l'opération. * -* * -* Remarques : - * -* * -******************************************************************************/ - -GBinRoutine *try_to_demangle_routine(const char *desc) -{ - GBinRoutine *result; /* Construction à remonter */ - - result = g_binary_routine_new(); - g_binary_routine_set_name(result, strdup(desc)); - - return result; - - -#if 0 - GBinRoutine *result; /* Construction à remonter */ - DemanglerType i; /* Boucle de parcours */ - - static int counter = 0; - - result = NULL; - - if (strcmp(desc, "_ZN21IUDFSettingsValidator15IdNotIllegalStdEN13UDFParameters12UDF_STANDARDES1_") == 0 - || strcmp(desc, "_ZSt12partial_sortIN9__gnu_cxx17__normal_iteratorIP28CPR_MAI_ADPTY_SectorSequenceSt6vectorIS2_SaIS2_EEEEEvT_S8_S8_") == 0 - || strcmp(desc, "_ZSt22__merge_without_bufferIN9__gnu_cxx17__normal_iteratorIP15CProfStringListSt6vectorIS2_SaIS2_EEEEiEvT_S8_S8_T0_S9_") == 0 - || strcmp(desc, "_ZSt11__push_heapIN9__gnu_cxx17__normal_iteratorIP8DRIVE_IDSt6vectorIS2_SaIS2_EEEEiS2_EvT_T0_S9_T1_") == 0 // Intéressant - //|| strcmp(desc, "") == 0 - ) - goto exit; - - for (i = 0; i < DGT_COUNT; i++) - { - if (demanglers[i].can_demangle == NULL) - continue; - - if (!demanglers[i].can_demangle(desc)) - continue; - - printf("++ [%d] routine :: %s\n", ++counter, desc); - fflush(NULL); - - result = demangle_routine(i, desc); - - /* FIXME : à supprimer quand mature */ - if (result == NULL) - { - printf("++failed :: %s\n", desc); - - if (strcmp(desc, "_ZN21IUDFSettingsValidator15IdNotIllegalStdEN13UDFParameters12UDF_STANDARDES1_") != 0 - && strcmp(desc, "_ZSt12partial_sortIN9__gnu_cxx17__normal_iteratorIP28CPR_MAI_ADPTY_SectorSequenceSt6vectorIS2_SaIS2_EEEEEvT_S8_S8_") != 0 - ) - exit(-1); - - } - else printf(" -->> '%s'\n\n", g_binary_routine_get_name(result)); - - if (result != NULL) break; - - } - - exit: - - if (result == NULL) - { - result = g_binary_routine_new(); - g_binary_routine_set_name(result, strdup(desc)); - } - - return result; -#endif - - return NULL; - -} - - -/****************************************************************************** -* * -* Paramètres : type = type de décodeur à utiliser. * -* desc = chaîne de caractères à décoder. * -* * -* Description : Tente de décoder une chaîne de caractères donnée. * -* * -* Retour : Bilan de l'opération. * -* * -* Remarques : - * -* * -******************************************************************************/ - -GBinRoutine *demangle_routine(GType type, const char *desc) -{ - GBinRoutine *result; /* Construction à remonter */ - GDemanglingContext *context; /* Contexte pour le décodage */ - - context = g_object_new(type, NULL); - - result = g_demangling_context_get_decoded_routine(context, desc); - - g_object_unref(context); - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : type = type de décodeur à utiliser. * -* desc = chaîne de caractères à décoder. * -* * -* Description : Tente de décoder une chaîne de caractères donnée. * -* * -* Retour : Bilan de l'opération. * -* * -* Remarques : - * -* * -******************************************************************************/ - -GDataType *demangle_type(GType type, const char *desc) -{ - GBinRoutine *result; /* Construction à remonter */ - GDemanglingContext *context; /* Contexte pour le décodage */ - - context = g_object_new(type, NULL); - - result = g_demangling_context_get_decoded_type(context, desc); - - g_object_unref(context); - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : - * -* * -* Description : Procède au test de décodages de chaînes de caractères. * -* * -* Retour : Bilan de l'opération. * -* * -* Remarques : - * -* * -******************************************************************************/ -#if 0 -void test_itanium_demangling(void) -{ - GBinRoutine *routine; - char *human; - char stop; - -#define TEST_ITANIUM_MANGLING(name, ref) \ - do \ - { \ - printf(" >> %s\n", name); \ - routine = demangle_routine(DGT_ITANIUM, name); \ - if (routine == NULL) \ - { \ - printf("Error with %s\n", name); \ - stop = true; \ - } \ - else \ - { \ - human = g_binary_routine_to_string(routine); \ - printf(" >> %s\n", human); \ - stop = (strcmp(ref, human) != 0); \ - printf(" >> ok ? %s\n", (!stop ? "oui" : "non")); \ - if (stop) printf(" >> expected '%s'\n", ref); \ - free(human); \ - } \ - if (stop) goto end_of_test; \ - else printf("\n"); \ - } \ - while (0) - - //goto last; - - /** - * Tests de : - * http://www.codesourcery.com/public/cxx-abi/abi-examples.html#mangling - */ - - TEST_ITANIUM_MANGLING("_Z1fv", "??? f(void)"); - - TEST_ITANIUM_MANGLING("_Z1fi", "??? f(int)"); - - TEST_ITANIUM_MANGLING("_Z3foo3bar", "??? foo(bar)"); - - TEST_ITANIUM_MANGLING("_Zrm1XS_", "??? %(X, X)"); - - TEST_ITANIUM_MANGLING("_ZplR1XS0_", "??? +(X &, X &)"); - - TEST_ITANIUM_MANGLING("_ZlsRK1XS1_", "??? <<(const X &, const X &)"); - - TEST_ITANIUM_MANGLING("_Z1fIiEvi", "void f(int)"); - - TEST_ITANIUM_MANGLING("_Z5firstI3DuoEvS0_", "void first(Duo)"); - - TEST_ITANIUM_MANGLING("_Z5firstI3DuoEvT_", "void first(Duo)"); - - TEST_ITANIUM_MANGLING("_Z3fooIiPFidEiEvv", "void foo(void)"); - - TEST_ITANIUM_MANGLING("_ZN6System5Sound4beepEv", "??? System::Sound::beep(void)"); - - TEST_ITANIUM_MANGLING("_Z1fI1XE vPV N1AIT_E1TE", "void f(volatile A::T *)"); - - //// TODO :: TEST_ITANIUM_MANGLING("_ZngILi42EE v N1A I XplT_Li2EE E 1TE", ""); - - TEST_ITANIUM_MANGLING("_Z4makeI7FactoryiE T_IT0_E v", "Factory make(void)"); - - TEST_ITANIUM_MANGLING("_ZlsRSoRKSs", "??? <<(std::ostream &, const std::string &)"); - - //TEST_ITANIUM_MANGLING("", ""); - - /** - * Tests de : - * http://www.codesourcery.com/public/cxx-abi/abi.html#mangling - */ - - TEST_ITANIUM_MANGLING("_ZN1N1TIiiE2mfES0_IddE", "??? N::T::mf(N::T)"); - - /** - * Tests de : - * (nero.so). - */ - - TEST_ITANIUM_MANGLING("_ZNSt6vectorItSaItEE6insertEN9__gnu_cxx17__normal_iteratorIPtS1_EERKt", "??? std::vector>::insert(__gnu_cxx::__normal_iterator>>, const unsigned short &)"); - - TEST_ITANIUM_MANGLING("_ZSt26__uninitialized_fill_n_auxIP15CProfStringListiS0_ET_S2_T0_RKT1_12__false_type", "CProfStringList *std::__uninitialized_fill_n_aux(CProfStringList *, int, const CProfStringList &, __false_type)"); - - // TODO TEST_ITANIUM_MANGLING("_ZN21IUDFSettingsValidator15IdNotIllegalStdEN13UDFParameters12UDF_STANDARDES1_", ""); - - TEST_ITANIUM_MANGLING("_ZNSbI26NeroMediumFeatureSpecifierSt11char_traitsIS_ESaIS_EE4_Rep10_M_destroyERKS2_", "??? std::basic_string, std::allocator>::_Rep::_M_destroy(const std::allocator &)"); - - last: - - /* 80 */ - TEST_ITANIUM_MANGLING("_ZNSt6vectorIlSaIlEE6insertEN9__gnu_cxx17__normal_iteratorIPlS1_EERKl", "??? std::vector>::insert(__gnu_cxx::__normal_iterator>>, const long &)"); - - end_of_test: - - ; - -} -#endif diff --git a/src/format/mangling/demangler.h b/src/format/mangling/demangler.h deleted file mode 100644 index 3215095..0000000 --- a/src/format/mangling/demangler.h +++ /dev/null @@ -1,50 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * demangler.h - prototypes pour le décodage des noms d'éléments - * - * Copyright (C) 2009-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 . - */ - - -#ifndef _FORMAT_MANGLING_DEMANGLER_H -#define _FORMAT_MANGLING_DEMANGLER_H - - -#include "../../analysis/routine.h" - - - -/* Tente de décoder une chaîne de caractères donnée. */ -GBinRoutine *try_to_demangle_routine(const char *); - -/* Tente de décoder une chaîne de caractères donnée. */ -GBinRoutine *demangle_routine(GType, const char *); - -/* Tente de décoder une chaîne de caractères donnée. */ -GDataType *demangle_type(GType, const char *); - - - -/* Procède au test de décodages de chaînes de caractères. */ -#ifdef DEBUG -void test_itanium_demangling(void); -#endif - - - -#endif /* _FORMAT_MANGLING_DEMANGLER_H */ diff --git a/src/format/mangling/dex/Makefile.am b/src/format/mangling/dex/Makefile.am deleted file mode 100644 index bdcbf8c..0000000 --- a/src/format/mangling/dex/Makefile.am +++ /dev/null @@ -1,46 +0,0 @@ - -BUILT_SOURCES = libformatmanglingdexshorty_la-shorty_gram.h libformatmanglingdextype_la-type_gram.h - -AM_YFLAGS = -d - -noinst_LTLIBRARIES = libformatmanglingdex.la libformatmanglingdexshorty.la libformatmanglingdextype.la - -libformatmanglingdex_la_SOURCES = \ - context.h context.c - -libformatmanglingdex_la_LDFLAGS = - -libformatmanglingdex_la_LIBADD = \ - libformatmanglingdexshorty.la \ - libformatmanglingdextype.la - - -libformatmanglingdexshorty_la_SOURCES = \ - shorty_gram.y \ - shorty_tok.l - -libformatmanglingdexshorty_la_YFLAGS = -d -p shorty_ -o y.tab.c - -libformatmanglingdexshorty_la_LFLAGS = -P shorty_ -o lex.yy.c - - -libformatmanglingdextype_la_SOURCES = \ - type_gram.y \ - type_tok.l - -libformatmanglingdextype_la_YFLAGS = -d -p type_ -o y.tab.c - -libformatmanglingdextype_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 = \ - libformatmanglingdexshorty_la-shorty_gram.h libformatmanglingdexshorty_la-shorty_gram.c \ - libformatmanglingdexshorty_la-shorty_tok.c \ - libformatmanglingdextype_la-type_gram.h libformatmanglingdextype_la-type_gram.c \ - libformatmanglingdextype_la-type_tok.c diff --git a/src/format/mangling/dex/context.c b/src/format/mangling/dex/context.c deleted file mode 100644 index 9dd9b9c..0000000 --- a/src/format/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 . - */ - - -#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/format/mangling/dex/context.h b/src/format/mangling/dex/context.h deleted file mode 100644 index 1af7a9d..0000000 --- a/src/format/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 . - */ - - -#ifndef _FORMAT_MANGLING_DEX_CONTEXT_H -#define _FORMAT_MANGLING_DEX_CONTEXT_H - - -#include - - - -#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/format/mangling/dex/shorty_gram.y b/src/format/mangling/dex/shorty_gram.y deleted file mode 100644 index 55d849d..0000000 --- a/src/format/mangling/dex/shorty_gram.y +++ /dev/null @@ -1,138 +0,0 @@ - -%{ - -#include - - -#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 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/format/mangling/dex/shorty_tok.l b/src/format/mangling/dex/shorty_tok.l deleted file mode 100644 index 92c264a..0000000 --- a/src/format/mangling/dex/shorty_tok.l +++ /dev/null @@ -1,28 +0,0 @@ - -%{ - -#include "context.h" -#include "libformatmanglingdexshorty_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/format/mangling/dex/type_gram.y b/src/format/mangling/dex/type_gram.y deleted file mode 100644 index 506eb9b..0000000 --- a/src/format/mangling/dex/type_gram.y +++ /dev/null @@ -1,159 +0,0 @@ - -%{ - -#include - - -#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_descriptor field_type_descriptor non_array_field_type_descriptor full_class_name - -%type 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/format/mangling/dex/type_tok.l b/src/format/mangling/dex/type_tok.l deleted file mode 100644 index 918846a..0000000 --- a/src/format/mangling/dex/type_tok.l +++ /dev/null @@ -1,150 +0,0 @@ - -%{ - -#include "context.h" -#include "libformatmanglingdextype_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; } -"/" { return SLASH; } -";" { BEGIN(INITIAL); return SEMICOLON; } - -{SIMPLE}* { yylval->text = yytext; return TEXT; } - -. { - 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; - - } - - } - -%% diff --git a/src/format/mangling/itanium/Makefile.am b/src/format/mangling/itanium/Makefile.am deleted file mode 100755 index 21a62c0..0000000 --- a/src/format/mangling/itanium/Makefile.am +++ /dev/null @@ -1,19 +0,0 @@ - -noinst_LTLIBRARIES = libformatmanglingitanium.la - -libformatmanglingitanium_la_SOURCES = \ - abi.h abi.c \ - component-int.h \ - component.h component.c \ - context.h context.c - -libformatmanglingitanium_la_LIBADD = - -libformatmanglingitanium_la_LDFLAGS = - - -AM_CPPFLAGS = $(LIBGTK_CFLAGS) $(LIBXML_CFLAGS) - -AM_CFLAGS = $(DEBUG_CFLAGS) $(WARNING_FLAGS) $(COMPLIANCE_FLAGS) - -SUBDIRS = diff --git a/src/format/mangling/itanium/abi.c b/src/format/mangling/itanium/abi.c deleted file mode 100644 index 5645a05..0000000 --- a/src/format/mangling/itanium/abi.c +++ /dev/null @@ -1,2444 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * abi.c - décodage des noms d'éléments selon l'ABI C++ Itanium - * - * Copyright (C) 2013-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 . - */ - - -#include "abi.h" - - -#include -#include - - - -#include "../../../analysis/types/basic.h" -#include "../../../common/cpp.h" - - - -/* Liste des opérateurs reconnus */ - -#define IDT_NL(s) s, sizeof(s) - 1 - -const itanium_operator_info itanium_demangle_operators[] = { - - { "aN", IDT_NL("&="), 2 }, - { "aS", IDT_NL("="), 2 }, - { "aa", IDT_NL("&&"), 2 }, - { "ad", IDT_NL("&"), 1 }, - { "an", IDT_NL("&"), 2 }, - { "at", IDT_NL("alignof "), 1 }, - { "az", IDT_NL("alignof "), 1 }, - { "cc", IDT_NL("const_cast"), 2 }, - { "cl", IDT_NL("()"), 2 }, - { "cm", IDT_NL(","), 2 }, - { "co", IDT_NL("~"), 1 }, - { "dV", IDT_NL("/="), 2 }, - { "da", IDT_NL("delete[] "), 1 }, - { "dc", IDT_NL("dynamic_cast"), 2 }, - { "de", IDT_NL("*"), 1 }, - { "dl", IDT_NL("delete "), 1 }, - { "ds", IDT_NL(".*"), 2 }, - { "dt", IDT_NL("."), 2 }, - { "dv", IDT_NL("/"), 2 }, - { "eO", IDT_NL("^="), 2 }, - { "eo", IDT_NL("^"), 2 }, - { "eq", IDT_NL("=="), 2 }, - { "ge", IDT_NL(">="), 2 }, - { "gs", IDT_NL("::"), 1 }, - { "gt", IDT_NL(">"), 2 }, - { "ix", IDT_NL("[]"), 2 }, - { "lS", IDT_NL("<<="), 2 }, - { "le", IDT_NL("<="), 2 }, - { "li", IDT_NL("operator\"\" "), 1 }, - { "ls", IDT_NL("<<"), 2 }, - { "lt", IDT_NL("<"), 2 }, - { "mI", IDT_NL("-="), 2 }, - { "mL", IDT_NL("*="), 2 }, - { "mi", IDT_NL("-"), 2 }, - { "ml", IDT_NL("*"), 2 }, - { "mm", IDT_NL("--"), 1 }, - { "na", IDT_NL("new[]"), 3 }, - { "ne", IDT_NL("!="), 2 }, - { "ng", IDT_NL("-"), 1 }, - { "nt", IDT_NL("!"), 1 }, - { "nw", IDT_NL("new"), 3 }, - { "oR", IDT_NL("|="), 2 }, - { "oo", IDT_NL("||"), 2 }, - { "or", IDT_NL("|"), 2 }, - { "pL", IDT_NL("+="), 2 }, - { "pl", IDT_NL("+"), 2 }, - { "pm", IDT_NL("->*"), 2 }, - { "pp", IDT_NL("++"), 1 }, - { "ps", IDT_NL("+"), 1 }, - { "pt", IDT_NL("->"), 2 }, - { "qu", IDT_NL("?"), 3 }, - { "rM", IDT_NL("%="), 2 }, - { "rS", IDT_NL(">>="), 2 }, - { "rc", IDT_NL("reinterpret_cast"), 2 }, - { "rm", IDT_NL("%"), 2 }, - { "rs", IDT_NL(">>"), 2 }, - { "sc", IDT_NL("static_cast"), 2 }, - { "st", IDT_NL("sizeof "), 1 }, - { "sz", IDT_NL("sizeof "), 1 }, - { "tr", IDT_NL("throw"), 0 }, - { "tw", IDT_NL("throw "), 1 } -}; - -/* Substitutions standards */ - -typedef struct _itanium_std_subst_info -{ - char code; /* Identifiant associé */ - - const char *simple; /* Représentation simple */ - size_t simple_len; /* Taille de cette représentat°*/ - - const char *full; /* Représentation complète */ - size_t full_len; /* Taille de cette représentat°*/ - - const char *last_name; /* Pour les (con|de)structeurs */ - size_t last_name_len; /* Taille de cette indication */ - -} itanium_std_subst_info; - -const itanium_std_subst_info itanium_standard_substitutions[] = { - - { - 't', - IDT_NL("std"), - IDT_NL("std"), - NULL, - 0 - }, - { - 'a', - IDT_NL("std::allocator"), - IDT_NL("std::allocator"), - IDT_NL("allocator") - }, - { - 'b', - IDT_NL("std::basic_string"), - IDT_NL("std::basic_string"), - IDT_NL("basic_string") - }, - { - 's', - IDT_NL("std::string"), - IDT_NL("std::basic_string, std::allocator>"), - IDT_NL("basic_string") - }, - { - 'i', - IDT_NL("std::istream"), - IDT_NL("std::basic_istream>"), - IDT_NL("basic_istream") - }, - { - 'o', - IDT_NL("std::ostream"), - IDT_NL("std::basic_ostream>"), - IDT_NL("basic_ostream") - }, - { - 'd', - IDT_NL("std::iostream"), - IDT_NL("std::basic_iostream>"), - IDT_NL("basic_iostream") - } - -}; - - - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_encoding(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_unscoped_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_unscoped_template_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_nested_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_prefix(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_template_prefix(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_unqualified_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_source_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static bool itd_number(GItaniumDContext *, ssize_t *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_identifier(GItaniumDContext *, size_t); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_operator_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_special_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_call_offset(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_nv_offset(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_v_offset(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_ctor_dtor_name(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_type(GItaniumDContext *); - -/* Extrait une propriété de composant pour un contexte Itanium. */ -static TypeQualifier itd_cv_qualifiers(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_builtin_type(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_bare_function_type(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_class_enum_type(GItaniumDContext *); - - - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_template_args(GItaniumDContext *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_template_arg(GItaniumDContext *); - - - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_value_to_string(GItaniumDContext *, bool); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_expr_primary(GItaniumDContext *); - - - - -/* Extrait un composant dans un contexte Itanium. */ -static bool itd_seq_id(GItaniumDContext *, char, size_t *); - -/* Extrait un composant dans un contexte Itanium. */ -static itanium_component *itd_substitution(GItaniumDContext *); - - - - - - -#define itd_template_param(ctx) NULL - - -#define itd_local_name(ctx) NULL - - - - -#define itd_expression(ctx) NULL - - - - -/****************************************************************************** -* * -* Paramètres : context = contexte de décodage à utiliser. * -* * -* Description : Extrait un composant dans un contexte Itanium. * -* * -* Retour : Composant extrait ou NULL en cas d'échec. * -* * -* Remarques : - * -* * -******************************************************************************/ - -itanium_component *itd_mangled_name(GItaniumDContext *context) -{ - itanium_component *result; /* Construction à retourner */ - - /** - * La règle traitée ici est la suivante : - * - * ::= _Z - * - */ - - if (!g_itanium_dcontext_check_char(context, '_')) - return NULL; - - if (!g_itanium_dcontext_check_char(context, 'Z')) - return NULL; - - result = itd_encoding(context); - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : context = contexte de décodage à utiliser. * -* * -* Description : Extrait un composant dans un contexte Itanium. * -* * -* Retour : Composant extrait ou NULL en cas d'échec. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static itanium_component *itd_encoding(GItaniumDContext *context) -{ - itanium_component *result; /* Construction à retourner */ - itd_state saved; /* Position d'analyse courante */ - itanium_component *func; /* Composant 'function name' */ - itanium_component *types; /* Composant 'bare-function...'*/ - - /** - * La règle traitée ici est la suivante : - * - * ::= - * ::= - * ::= - * - */ - - result = NULL; - g_itanium_dcontext_push_state(context, &saved); - - func = itd_name(context); - - if (func != NULL) - { - types = itd_bare_function_type(context); - - if (types != NULL) - result = itd_make_binary(context, ICT_FUNCTION_ENCODING, func, types); - else - itd_unref_comp(func); - - } - /* - if (result == NULL) - { - g_itanium_dcontext_pop_state(context, &saved); - result = itd_name(context); - } - */ - if (result == NULL) - { - g_itanium_dcontext_pop_state(context, &saved); - result = itd_special_name(context); - } - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : context = contexte de décodage à utiliser. * -* * -* Description : Extrait un composant dans un contexte Itanium. * -* * -* Retour : Composant extrait ou NULL en cas d'échec. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static itanium_component *itd_name(GItaniumDContext *context) -{ - itanium_component *result; /* Construction à retourner */ - itd_state saved; /* Position d'analyse courante */ - itanium_component *tname; /* Composant '...template-name'*/ - itanium_component *targs; /* Composant 'template-args' */ - - /** - * La règle traitée ici est la suivante : - * - * ::= - * ::= - * ::= - * ::= - * - */ - - g_itanium_dcontext_push_state(context, &saved); - - result = itd_nested_name(context); - - if (result == NULL) - { - g_itanium_dcontext_pop_state(context, &saved); - - tname = itd_unscoped_template_name(context); - - if (tname != NULL) - { - targs = itd_template_args(context); - - if (targs != NULL) - { - g_itanium_dcontext_add_substitution(context, tname); - result = itd_make_binary(context, ICT_TEMPLATE_NAME_ARGS, tname, targs); - } - - else - itd_unref_comp(tname); - - } - - } - - /** - * La règle doit être traitée après , - * car ces deux dernières ont une base commune et la seconde peut avoir besoin - * d'aller plus loin avec la règle . - * - * On termine donc par moins gourmand si la règle la plus complexe n'a pas abouti. - */ - - if (result == NULL) - { - g_itanium_dcontext_pop_state(context, &saved); - result = itd_unscoped_name(context); - } - - if (result == NULL) - { - g_itanium_dcontext_pop_state(context, &saved); - result = itd_local_name(context); - } - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : context = contexte de décodage à utiliser. * -* * -* Description : Extrait un composant dans un contexte Itanium. * -* * -* Retour : Composant extrait ou NULL en cas d'échec. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static itanium_component *itd_unscoped_name(GItaniumDContext *context) -{ - itanium_component *result; /* Construction à retourner */ - - /** - * La règle traitée ici est la suivante : - * - * ::= - * ::= St # ::std:: - * - */ - - - /* TODO : 'St' */ - - - result = itd_unqualified_name(context); - - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : context = contexte de décodage à utiliser. * -* * -* Description : Extrait un composant dans un contexte Itanium. * -* * -* Retour : Composant extrait ou NULL en cas d'échec. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static itanium_component *itd_unscoped_template_name(GItaniumDContext *context) -{ - itanium_component *result; /* Construction à retourner */ - itd_state saved; /* Position d'analyse courante */ - - /** - * La règle traitée ici est la suivante : - * - * ::= - * ::= - * - */ - - g_itanium_dcontext_push_state(context, &saved); - - result = itd_unscoped_name(context); - - if (result == NULL) - { - g_itanium_dcontext_pop_state(context, &saved); - result = itd_substitution(context); - } - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : context = contexte de décodage à utiliser. * -* * -* Description : Extrait un composant dans un contexte Itanium. * -* * -* Retour : Composant extrait ou NULL en cas d'échec. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static itanium_component *itd_nested_name(GItaniumDContext *context) -{ - itanium_component *result; /* Construction à retourner */ - TypeQualifier qualifier; /* Propriétés supplémentaires */ - itd_state saved; /* Position d'analyse courante */ - itanium_component *left; /* Première partie */ - itanium_component *right; /* Seconde partie */ - - static int inner = 0; - - int val = inner++; - - printf("\n ### (%d) NESTED>> '%s'\n", val, - g_itanium_dcontext_get_string(context, (size_t []){ 0 })); - - /** - * La règle traitée ici est la suivante : - * - * ::= N [] E - * ::= N [] E - * - */ - - if (!g_itanium_dcontext_check_char(context, 'N')) - return NULL; - - qualifier = itd_cv_qualifiers(context); - - result = NULL; - - g_itanium_dcontext_push_state(context, &saved); - - - printf("\n ----- (%d) nested prefix '%s'\n", val, g_itanium_dcontext_get_string(context, (size_t []){ 0 })); - - - - left = itd_prefix(context); - - if (left != NULL) - { - if (itd_get_component_type(left) != ICT_EMPTY) - g_itanium_dcontext_add_substitution(context, left); - - right = itd_unqualified_name(context); - - if (right != NULL) - { - if (g_itanium_dcontext_check_char(context, 'E')) - result = itd_make_binary(context, ICT_NESTED_NAME, left, right); - else - printf("=== (%d) nested/prefix : BAD E\n\n", val); - - //result = itd_make_binary(context, ICT_NESTED_NAME, left, right); - - } - else - itd_unref_comp(left); - - printf(" ---- (%d) nested prefix --> %p\n\n", val, result); - - } - - - if (result == NULL) - { - printf("\n ----- (%d) nested template_arg '%s'\n", val, g_itanium_dcontext_get_string(context, (size_t []){ 0 })); - - g_itanium_dcontext_pop_state(context, &saved); - - left = itd_template_prefix(context); - - if (left != NULL) - { - g_itanium_dcontext_add_substitution(context, left); - - right = itd_template_args(context); - - if (right != NULL) - { - if (g_itanium_dcontext_check_char(context, 'E')) - result = itd_make_binary(context, ICT_NESTED_NAME, left, right); - else - printf("=== (%d) nested/prefix : BAD E\n\n", val); - } - else - itd_unref_comp(left); - - } - - printf(" ---- (%d) nested template_arg --> %p\n\n", val, result); - - } - - - - printf("(%d) nested/E >> '%s'\n", val, g_itanium_dcontext_get_string(context, (size_t []){ 0 })); - - /* - if (!g_itanium_dcontext_check_char(context, 'E')) - { - printf("=== (%d) NESTED : BAD E\n\n", val); - - if (result != NULL) - itd_unref_comp(result); - return NULL; - } - */ - - if (result != NULL) - printf("=== (%d) NESTED OK (%p)\n\n", val, result); - - inner--; - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : context = contexte de décodage à utiliser. * -* * -* Description : Extrait un composant dans un contexte Itanium. * -* * -* Retour : Composant extrait ou NULL en cas d'échec. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static itanium_component *itd_prefix(GItaniumDContext *context) -{ - itanium_component *result; /* Construction à retourner */ - itanium_component *looping_rule; /* Extraction d'une boucle */ - itd_state saved; /* Position d'analyse courante */ - itanium_component *left; /* Première partie */ - itanium_component *right; /* Seconde partie */ - - itd_state next_name_saved; /* Position d'analyse courante */ - itanium_component *next_name; /* Eventuel complément #1 */ - itd_state next_targs_saved; /* Position d'analyse courante */ - itanium_component *next_targs; /* Eventuel complément #2 */ - - - - itd_state expected_saved; /* Position d'analyse suivante */ - itanium_component *expected; /* Nom non-qualifié en réserve */ - - - - /** - * Les deux règles traitées ici sont les suivantes : - * - * ::= - * ::= - * ::= - * ::= # empty - * ::= - * - * ::=