/* Chrysalide - Outil d'analyse de fichiers binaires
 * processors.c - enregistrement et fourniture des architectures supportées
 *
 * 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 Chrysalide.  If not, see <http://www.gnu.org/licenses/>.
 */


#include "processors.h"


#include <malloc.h>
#include <pthread.h>
#include <string.h>


#include "../arch/immediate.h"
#include "../arch/raw.h"
#include "../arch/target.h"
#include "../arch/undefined.h"
#include "../arch/operands/register.h"



/* Caractéristiques d'un processeur */
typedef struct _proc_t
{
    char *name;                             /* Clef pour un accès rapide   */
    char *desc;                             /* Désignation humaine         */
    GType instance;                         /* Type à manipuler en interne */

} proc_t;


/* Mémorisation des types de processeurs enregistrés */
static proc_t *_processors_definitions = NULL;
static size_t _processors_definitions_count = 0;

/* Verrou pour des accès atomiques */
G_LOCK_DEFINE_STATIC(_pdef_access);


/* Retrouve l'enregistrement correspondant à une architecture. */
static proc_t *find_processor_by_key(const char *);



/******************************************************************************
*                                                                             *
*  Paramètres  : -                                                            *
*                                                                             *
*  Description : Assure l'enregistrement de types pour les caches à charger.  *
*                                                                             *
*  Retour      : -                                                            *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

void register_arch_gtypes(void)
{
    g_type_ensure(G_TYPE_RAW_INSTRUCTION);
    g_type_ensure(G_TYPE_UNDEF_INSTRUCTION);

    g_type_ensure(G_TYPE_IMM_OPERAND);
    g_type_ensure(G_TYPE_REGISTER_OPERAND);

}


/******************************************************************************
*                                                                             *
*  Paramètres  : name     = désignation rapide et interne d'un processeur.    *
*                desc     = désignation humaine de l'architecture.            *
*                instance = type GLib représentant le type à instancier.      *
*                                                                             *
*  Description : Enregistre un processeur pour une architecture donnée.       *
*                                                                             *
*  Retour      : Bilan de l'opération.                                        *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

bool register_processor_type(const char *name, const char *desc, GType instance)
{
    bool result;                            /* Bilan à retourner           */
    proc_t *new;                            /* Nouvel élément à définir    */

    G_LOCK(_pdef_access);

    new = find_processor_by_key(name);

    result = (new == NULL);

    if (result)
    {
        _processors_definitions = (proc_t *)realloc(_processors_definitions,
                                                    ++_processors_definitions_count * sizeof(proc_t));

        new = &_processors_definitions[_processors_definitions_count - 1];

        new->name = strdup(name);
        new->desc = strdup(desc);
        new->instance = instance;

    }

    G_UNLOCK(_pdef_access);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : -                                                            *
*                                                                             *
*  Description : Décharge toutes les définitions de processeurs.              *
*                                                                             *
*  Retour      : -                                                            *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

void unload_processors_definitions(void)
{
    size_t i;                               /* Boucle de parcours          */

    G_LOCK(_pdef_access);

    for (i = 0; i < _processors_definitions_count; i++)
    {
        free(_processors_definitions[i].name);
        free(_processors_definitions[i].desc);
    }

    if (_processors_definitions != NULL)
        free(_processors_definitions);

    _processors_definitions = NULL;
    _processors_definitions_count = 0;

    G_UNLOCK(_pdef_access);

}


/******************************************************************************
*                                                                             *
*  Paramètres  : name = nom technique du processeur recherché.                *
*                                                                             *
*  Description : Retrouve l'enregistrement correspondant à une architecture.  *
*                                                                             *
*  Retour      : Définition trouvée ou NULL en cas d'échec.                   *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

static proc_t *find_processor_by_key(const char *name)
{
    proc_t *result;                         /* Trouvaille à retourner      */
    size_t i;                               /* Boucle de parcours          */

    /**
     * Le verrou d'accès global doit être posé !
     */

    result = NULL;

    if (name != NULL)
        for (i = 0; i < _processors_definitions_count; i++)
            if (strcmp(_processors_definitions[i].name, name) == 0)
                result = &_processors_definitions[i];

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : name = nom technique du processeur recherché.                *
*                                                                             *
*  Description : Fournit le nom humain de l'architecture visée.               *
*                                                                             *
*  Retour      : Désignation humaine trouvée ou NULL.                         *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

const char *get_arch_processor_description(const char *name)
{
    const char *result;                     /* Description à retourner     */
    proc_t *def;                            /* Définition d'architecture   */

    G_LOCK(_pdef_access);

    def = find_processor_by_key(name);

    if (def == NULL)
        result = NULL;
    else
        result = def->desc;

    G_UNLOCK(_pdef_access);

    return result;

}


/******************************************************************************
*                                                                             *
*  Paramètres  : name = nom technique du processeur recherché.                *
*                                                                             *
*  Description : Fournit le processeur d'architecture correspondant à un nom. *
*                                                                             *
*  Retour      : Processeur d'architecture trouvé.                            *
*                                                                             *
*  Remarques   : -                                                            *
*                                                                             *
******************************************************************************/

GArchProcessor *get_arch_processor_for_name(const char *name)
{
    GArchProcessor *result;                 /* Instance à retourner        */
    proc_t *def;                            /* Définition d'architecture   */

    G_LOCK(_pdef_access);

    def = find_processor_by_key(name);

    if (def == NULL)
        result = NULL;
    else
        result = g_object_new(def->instance, NULL);

    G_UNLOCK(_pdef_access);

    return result;

}