Added a partial support of the Itanium C++ ABI mangling.

git-svn-id: svn://svn.gna.org/svn/chrysalide/trunk@52 abbe820e-26c8-41b2-8c08-b7b2b41f8b0a

1 files changed, 728 insertions, 0 deletions

diff --git a/src/analysis/variable.c b/src/analysis/variable.c
new file mode 100644
index 0000000..058c152
--- /dev/null
+++ b/src/analysis/variable.c
@@ -0,0 +1,728 @@
+
+/* OpenIDA - Outil d'analyse de fichiers binaires
+ * variable.c - manipulation des variables en tout genre
+ *
+ * Copyright (C) 2008 Cyrille Bagard
+ *
+ *  This file is part of OpenIDA.
+ *
+ *  OpenIDA 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.
+ *
+ *  OpenIDA 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 "variable.h"
+
+
+#include <malloc.h>
+#include <stdbool.h>
+#include <string.h>
+
+
+#include "../common/extstr.h"
+
+
+
+/* ---------------------------- TYPES DE DONNEES SIMPLES ---------------------------- */
+
+
+/* Variable représentant un argument ou un type de retour */
+struct _simple_variable
+{
+    BaseType type;                          /* Type représenté             */
+
+};
+
+
+/* Décrit la variable simple sous forme de caractères. */
+char *simple_var_to_string(const simple_variable *);
+
+/* Supprime de la mémoire une variable de type simple. */
+void delete_simple_var(simple_variable *);
+
+
+
+/* --------------------- ENCAPSULATIONS DES VARIABLES COMPLEXES --------------------- */
+
+
+/* Supprime de la mémoire une variable de type complexe. */
+typedef void (* delete_complex_fc) (complex_variable *);
+
+/* Décrit la variable complexe sous forme de caractères. */
+typedef char * (* complex_to_string_fc) (const complex_variable *);
+
+
+/* Représentation d'une variable complexe */
+struct _complex_variable
+{
+    delete_complex_fc delete;               /* Procédure de suppression    */
+    complex_to_string_fc to_string;         /* Conversion en chaîne        */
+
+};
+
+
+/* Initialise une représentation de variable complexe. */
+void init_complex_var(complex_variable *);
+
+/* Supprime de la mémoire une variable de type complexe. */
+void delete_complex_var(complex_variable *);
+
+/* Décrit la variable simple sous forme de caractères. */
+char *complex_var_to_string(const complex_variable *);
+
+
+
+/* ---------------------- VARIABLES DE CLASSES ET ENUMERATIONS ---------------------- */
+
+
+/* Représentation des classes et des énumérations */
+struct _class_enum_variable
+{
+    complex_variable complex;               /* A laisser en premier        */
+
+    ClassEnumType type;                     /* Type représenté si connu    */
+
+    char *desc;                             /* Description humaine         */
+
+};
+
+
+/* Supprime de la mémoire une variable de classe/enumération. */
+void delete_class_enum_var(class_enum_variable *);
+
+/* Décrit la variable complexe sous forme de caractères. */
+char *class_enum_var_to_string(const class_enum_variable *);
+
+
+
+/* -------------------------- VARIABLES DEPENDANT D'AUTRES -------------------------- */
+
+
+/* Représentation des variables dérivées */
+struct _encapsulated_variable
+{
+    complex_variable complex;               /* A laisser en premier        */
+
+    EncapsulationType type;                 /* Encapsulation utilisée      */
+    variable *child;                        /* Sous-type encadré           */
+
+};
+
+
+/* Supprime de la mémoire une variable dérivée. */
+void delete_encapsulated_var(encapsulated_variable *);
+
+/* Décrit la variable dérivée sous forme de caractères. */
+char *encapsulated_var_to_string(const encapsulated_variable *);
+
+
+
+/* ---------------------- MANIPULATION GENERIQUE DES VARIABLES ---------------------- */
+
+
+/* Variable représentant un argument ou un type de retour */
+struct _variable
+{
+    union
+    {
+        simple_variable *simple;            /* Variable simple             */
+        complex_variable *complex;          /* Variable plus compliquée    */
+
+    } value;
+
+    bool is_simple;                         /* Choix du champ valide       */
+
+    VariableQualifier qualifiers;           /* Eventuels qualificatifs     */
+
+};
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                              TYPES DE DONNEES SIMPLES                              */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : -                                                            *
+*                                                                             *
+*  Description : Crée une représentation de variable.                         *
+*                                                                             *
+*  Retour      : Adresse de la structure mise en place.                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+simple_variable *create_simple_var(void)
+{
+    simple_variable *result;                /* Structure à retourner       */
+
+    result = (simple_variable *)calloc(1, sizeof(simple_variable));
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : type = type de base à représenter.                           *
+*                                                                             *
+*  Description : Crée une représentation de variable à type connu.            *
+*                                                                             *
+*  Retour      : Adresse de la structure mise en place.                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+simple_variable *create_typed_simple_var(BaseType type)
+{
+    simple_variable *result;                /* Structure à retourner       */
+
+    result = create_simple_var();
+
+    set_simple_var_type(result, type);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à effacer.                                    *
+*                                                                             *
+*  Description : Supprime de la mémoire une variable de type simple.          *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void delete_simple_var(simple_variable *var)
+{
+    free(var);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var  = variable à mettre à jour.                             *
+*                type = type de base à représenter.                           *
+*                                                                             *
+*  Description : Définit le type d'une variable simple.                       *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void set_simple_var_type(simple_variable *var, BaseType type)
+{
+    var->type = type;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à consulter.                                  *
+*                                                                             *
+*  Description : Décrit la variable simple sous forme de caractères.          *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+char *simple_var_to_string(const simple_variable *var)
+{
+    char *result;                           /* Chaîne à renvoyer           */
+
+    switch (var->type)
+    {
+        case BTP_VOID:
+            result = "void";
+            break;
+        case BTP_WCHAR_T:
+            result = "wchar_t";
+            break;
+        case BTP_BOOL:
+            result = "bool";
+            break;
+        case BTP_CHAR:
+            result = "char";
+            break;
+        case BTP_SCHAR:
+            result = "signed char";
+            break;
+        case BTP_UCHAR:
+            result = "unsigned char";
+            break;
+        case BTP_SHORT:
+            result = "short";
+            break;
+        case BTP_USHORT:
+            result = "unsigned short";
+            break;
+        case BTP_INT:
+            result = "int";
+            break;
+        case BTP_UINT:
+            result = "unsigned int";
+            break;
+        case BTP_LONG:
+            result = "long";
+            break;
+        case BTP_ULONG:
+            result = "unsigned long";
+            break;
+        case BTP_LONG_LONG:
+            result = "long long";
+            break;
+        case BTP_ULONG_LONG:
+            result = "unsigned long long";
+            break;
+        case BTP_INT128:
+            result = "__int128";
+            break;
+        case BTP_UINT128:
+             result = "__uint128";
+            break;
+        case BTP_FLOAT:
+            result = "float";
+            break;
+        case BTP_DOUBLE:
+            result = "double";
+            break;
+        case BTP_LONG_DOUBLE:
+            result = "__float80";
+            break;
+        case BTP_FLOAT128:
+            result = "__float128";
+            break;
+        case BTP_ELLIPSIS:
+             result = "...";
+            break;
+        case BTP_754R_64:
+            result = "754r_float64";
+            break;
+        case BTP_754R_128:
+            result = "754r_float128";
+            break;
+        case BTP_754R_32:
+            result = "754r_float32";
+            break;
+        case BTP_754R_16:
+            result = "754r_float16";
+            break;
+        case BTP_CHAR32_T:
+            result = "char32_t";
+            break;
+        case BTP_CHAR16_T:
+            result = "char16_t";
+            break;
+        case BTP_OTHER:
+            result = "[toto]"; /* FIXME */
+            break;
+        default:
+            result = "/* pour gcc */";
+            break;
+    }
+
+    result = strdup(result);
+
+    return result;
+
+}
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                       ENCAPSULATIONS DES VARIABLES COMPLEXES                       */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = structure vierge à préparer.                           *
+*                                                                             *
+*  Description : Initialise une représentation de variable complexe.          *
+*                                                                             *
+*  Retour      : Adresse de la structure mise en place.                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void init_complex_var(complex_variable *var)
+{
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à effacer.                                    *
+*                                                                             *
+*  Description : Supprime de la mémoire une variable de type complexe.        *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void delete_complex_var(complex_variable *var)
+{
+    var->delete(var);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à consulter.                                  *
+*                                                                             *
+*  Description : Décrit la variable complexe sous forme de caractères.        *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+char *complex_var_to_string(const complex_variable *var)
+{
+    return var->to_string(var);
+
+}
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                        VARIABLES DE CLASSES ET ENUMERATIONS                        */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : type = type de base à représenter.                           *
+*                desc = description humaine de la variable.                   *
+*                                                                             *
+*  Description : Crée une représentation de variable de classe/enumération.   *
+*                                                                             *
+*  Retour      : Adresse de la structure mise en place.                       *
+*                                                                             *
+*  Remarques   : La description ne doit pas être libérée par l'appelant !     *
+*                                                                             *
+******************************************************************************/
+
+complex_variable *create_class_enum_var(char *desc)
+{
+    class_enum_variable *result;            /* Structure à retourner       */
+
+    result = (class_enum_variable *)calloc(1, sizeof(class_enum_variable));
+
+    init_complex_var(COMPLEX_VAR(result));
+
+    COMPLEX_VAR(result)->delete = (delete_complex_fc)delete_class_enum_var;
+    COMPLEX_VAR(result)->to_string = (complex_to_string_fc)class_enum_var_to_string;
+
+    result->desc = desc;
+
+    return COMPLEX_VAR(result);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à effacer.                                    *
+*                                                                             *
+*  Description : Supprime de la mémoire une variable de classe/enumération.   *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void delete_class_enum_var(class_enum_variable *var)
+{
+    free(var->desc);
+
+    free(var);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à consulter.                                  *
+*                                                                             *
+*  Description : Décrit la variable complexe sous forme de caractères.        *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+char *class_enum_var_to_string(const class_enum_variable *var)
+{
+    return strdup(var->desc);
+
+}
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                            VARIABLES DEPENDANT D'AUTRES                            */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : type  = type d'extension à représenter.                      *
+*                child = variable dont on doit dériver.                       *
+*                                                                             *
+*  Description : Crée une représentation de variable dérivée.                 *
+*                                                                             *
+*  Retour      : Adresse de la structure mise en place.                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+complex_variable *create_encapsulated_var(EncapsulationType type, variable *child)
+{
+    encapsulated_variable *result;          /* Structure à retourner       */
+
+    result = (encapsulated_variable *)calloc(1, sizeof(encapsulated_variable));
+
+    init_complex_var(COMPLEX_VAR(result));
+
+    COMPLEX_VAR(result)->delete = (delete_complex_fc)delete_encapsulated_var;
+    COMPLEX_VAR(result)->to_string = (complex_to_string_fc)encapsulated_var_to_string;
+
+    result->type = type;
+    result->child = child;
+
+    return COMPLEX_VAR(result);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à effacer.                                    *
+*                                                                             *
+*  Description : Supprime de la mémoire une variable dérivée.                 *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void delete_encapsulated_var(encapsulated_variable *var)
+{
+    delete_var(var->child);
+
+    free(var);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à consulter.                                  *
+*                                                                             *
+*  Description : Décrit la variable dérivée sous forme de caractères.         *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+char *encapsulated_var_to_string(const encapsulated_variable *var)
+{
+    char *result;                           /* Chaîne finale à renvoyer    */
+
+    result = var_to_string(var->child);
+
+    switch (var->type)
+    {
+        case ECT_POINTER:
+            if (result[strlen(result) - 1] == '*') result = stradd(result, "*");
+            else result = stradd(result, " *");
+            break;
+        case ECT_REFERENCE:
+            result = stradd(result, " &");
+            break;
+        case ECT_RVALUE_REF:
+            result = stradd(result, " [[rval ???]]")    /* FIXME */;
+            break;
+        case ECT_COMPLEX:
+            result = stradd(result, " complex");
+            break;
+        case ECT_IMAGINARY:
+            result = stradd(result, " imaginary");
+            break;
+    }
+
+    return result;
+
+}
+
+
+
+/* ---------------------------------------------------------------------------------- */
+/*                        MANIPULATION GENERIQUE DES VARIABLES                        */
+/* ---------------------------------------------------------------------------------- */
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à emballer.                                   *
+*                                                                             *
+*  Description : Crée une représentation de variable (simple).                *
+*                                                                             *
+*  Retour      : Adresse de la structure mise en place.                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+variable *create_var_from_simple_one(simple_variable *var)
+{
+    variable *result;                       /* Structure à retourner       */
+
+    result = (variable *)calloc(1, sizeof(variable));
+
+    result->value.simple = var;
+    result->is_simple = true;
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à emballer.                                   *
+*                                                                             *
+*  Description : Crée une représentation de variable (complexe).              *
+*                                                                             *
+*  Retour      : Adresse de la structure mise en place.                       *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+variable *create_var_from_complex_one(complex_variable *var)
+{
+    variable *result;                       /* Structure à retourner       */
+
+    result = (variable *)calloc(1, sizeof(variable));
+
+    result->value.complex = var;
+    result->is_simple = false;
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à effecer.                                    *
+*                                                                             *
+*  Description : Supprime la représentation de variable de la mémoire.        *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void delete_var(variable *var)
+{
+    if (var->is_simple) delete_simple_var(var->value.simple);
+    else delete_complex_var(var->value.complex);
+
+    free(var);
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var       = variable à mettre à jour.                        *
+*                qualifier = nouveau qualificatif pour la variable.           *
+*                                                                             *
+*  Description : Ajoute un qualificatif à la variable.                        *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+void add_qualifier_to_var(variable *var, VariableQualifier qualifier)
+{
+    var->qualifiers |= qualifier;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : var = variable à consulter.                                  *
+*                                                                             *
+*  Description : Décrit la variable sous forme de caractères.                 *
+*                                                                             *
+*  Retour      : -                                                            *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+char *var_to_string(const variable *var)
+{
+    char *result;                           /* Chaîne à renvoyer           */
+
+    if (var->is_simple) result = simple_var_to_string(var->value.simple);
+    else result = complex_var_to_string(var->value.complex);
+
+    if (var->qualifiers & VQF_RESTRICT)
+        strprep(result, "restrict ");
+
+    if (var->qualifiers & VQF_VOLATILE)
+        strprep(result, "volatile ");
+
+    if (var->qualifiers & VQF_CONST)
+        strprep(result, "const ");
+
+    return result;
+
+}