diff options
Diffstat (limited to 'src/debug/gdbrsp/support.c')
| -rw-r--r-- | src/debug/gdbrsp/support.c | 598 |
1 files changed, 0 insertions, 598 deletions
diff --git a/src/debug/gdbrsp/support.c b/src/debug/gdbrsp/support.c deleted file mode 100644 index 3d27c06..0000000 --- a/src/debug/gdbrsp/support.c +++ /dev/null @@ -1,598 +0,0 @@ - -/* Chrysalide - Outil d'analyse de fichiers binaires - * support.c - conformité dans l'interfaçage client/serveur - * - * Copyright (C) 2016 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 "support.h" - - -#include <stdlib.h> -#include <string.h> - - - -/* Indications quant à l'interfaçage client/serveur GDB (instance) */ -struct _GGdbSupport -{ - GObject parent; /* A laisser en premier */ - - unsigned long packet_size; /* Taille maximale d'un paquet */ - - bool os_data; - - - bool extended_mode; /* Mode étendu présent & actif */ - - - char *id; - -}; - -/* Indications quant à l'interfaçage client/serveur GDB (classe) */ -struct _GGdbSupportClass -{ - GObjectClass parent; /* A laisser en premier */ - -}; - - -/* Initialise la classe des détails d'interfaçage GDB. */ -static void g_gdb_support_class_init(GGdbSupportClass *); - -/* Procède à l'initialisation des détails d'interfaçage GDB. */ -static void g_gdb_support_init(GGdbSupport *); - -/* Supprime toutes les références externes. */ -static void g_gdb_support_dispose(GGdbSupport *); - -/* Procède à la libération totale de la mémoire. */ -static void g_gdb_support_finalize(GGdbSupport *); - -/* Lit une valeur booléenne à partir des détails du serveur. */ -static bool g_gdb_support_read_bool(GGdbSupport *, const char *, const char *, bool *); - -/* Lit une valeur longue à partir des détails du serveur. */ -static bool g_gdb_support_read_ulong(GGdbSupport *, const char *, const char *, unsigned long *); - - - -/* Indique le type défini par la GLib pour les détails d'interfaçage GDB. */ -G_DEFINE_TYPE(GGdbSupport, g_gdb_support, G_TYPE_OBJECT); - - -/****************************************************************************** -* * -* Paramètres : klass = classe de débogueur à initialiser. * -* * -* Description : Initialise la classe des détails d'interfaçage GDB. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_gdb_support_class_init(GGdbSupportClass *klass) -{ - GObjectClass *object; /* Autre version de la classe */ - - object = G_OBJECT_CLASS(klass); - - object->dispose = (GObjectFinalizeFunc/* ! */)g_gdb_support_dispose; - object->finalize = (GObjectFinalizeFunc)g_gdb_support_finalize; - -} - - -/****************************************************************************** -* * -* Paramètres : support = instance de débogueur à préparer. * -* * -* Description : Procède à l'initialisation des détails d'interfaçage GDB. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_gdb_support_init(GGdbSupport *support) -{ - -} - - -/****************************************************************************** -* * -* Paramètres : support = instance d'objet GLib à traiter. * -* * -* Description : Supprime toutes les références externes. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_gdb_support_dispose(GGdbSupport *support) -{ - G_OBJECT_CLASS(g_gdb_support_parent_class)->dispose(G_OBJECT(support)); - -} - - -/****************************************************************************** -* * -* Paramètres : support = instance d'objet GLib à traiter. * -* * -* Description : Procède à la libération totale de la mémoire. * -* * -* Retour : - * -* * -* Remarques : - * -* * -******************************************************************************/ - -static void g_gdb_support_finalize(GGdbSupport *support) -{ - G_OBJECT_CLASS(g_gdb_support_parent_class)->finalize(G_OBJECT(support)); - -} - - - - - - - - - - - - - - -#include <string.h> - -static char *build_id(GGdbStream *stream) -{ - char *result; /* Identifiant à renvoyer */ - GGdbPacket *packet; /* Paquet de communication */ - bool status; /* Bilan d'une communication */ - const char *data; /* Données reçues à analyser */ - const char *start; /* Début d'identification */ - const char *end; /* Fin d'identification */ - - result = NULL; - - /* Envoi de la requête */ - - packet = g_gdb_stream_get_free_packet(stream); - - g_gdb_packet_start_new_command(packet); - g_gdb_packet_append(packet, "?"); - - status = g_gdb_stream_send_packet(stream, packet); - - if (!status) - goto ggdgat_exit; - - /* Réception de la réponse */ - - packet = g_gdb_stream_recv_packet(stream); - - g_gdb_packet_get_data(packet, &data, NULL, NULL); - - start = strstr(data, "thread:"); - if (start == NULL) goto ggdgat_exit; - - start += sizeof("thread:") - 1 /* '\0' */; - - end = strstr(start, ";"); - if (end == NULL) goto ggdgat_exit; - - result = strndup(start, end - start); - - ggdgat_exit: - - g_gdb_stream_mark_packet_as_free(stream, packet); - - return result; - -} - - - - - - - -/****************************************************************************** -* * -* Paramètres : stream = flux de communication ouvert avec le débogueur. * -* * -* Description : Crée une définition des détails d'interfaçage GDB. * -* * -* Retour : Instance de détails mise en place ou NULL. * -* * -* Remarques : - * -* * -******************************************************************************/ - -GGdbSupport *g_gdb_support_new(GGdbStream *stream) -{ - GGdbSupport *result; /* Débogueur à retourner */ - GGdbPacket *packet; /* Paquet de communication GDB */ - - - //goto end; - - //goto skip; - - packet = g_gdb_stream_get_free_packet(stream); - - g_gdb_packet_start_new_command(packet); - //g_gdb_packet_append(packet, "qSupported:multiprocess+;xmlRegisters"); - g_gdb_packet_append(packet, "qSupported"); - - g_gdb_packet_append(packet, "qSupported:multiprocess+;swbreak+;hwbreak+;qRelocInsn+;fork-events+;vfork-events+;exec-events+;vContSupported+;QThreadEvents+;no-resumed+"); - - - bool test; - - const char *data; /* Données reçues à analyser */ - size_t len; - - test = g_gdb_stream_send_packet(stream, packet); - - - - printf(" >> Paquet '%s' bien envoyé ? %s\n", "qSupported", test ? "oui" : "non"); - - - - g_gdb_stream_mark_packet_as_free(stream, packet); - - packet = g_gdb_stream_recv_packet(stream); - - g_gdb_packet_get_data(packet, &data, &len, NULL); - - printf(" << Réception de '%s'\n", data); - - - - - result = g_object_new(G_TYPE_GDB_SUPPORT, NULL); - - - - /* Découpage des éléments de réponse */ - - char *answer; /* Réponse modifiable */ - char *save; /* Sauvegarde de position */ - char *token; /* Elément de réponse cerné */ - - answer = strdup(data); - - for (token = strtok_r(answer, ";", &save); - token != NULL; - token = strtok_r(NULL, ";", &save)) - { - - - printf("TOKEN :: %s\n", token); - - if (g_gdb_support_read_ulong(result, token, "PacketSize", &result->packet_size)) - continue; - - if (g_gdb_support_read_bool(result, token, "qXfer:osdata:read", &result->os_data)) - { - printf(" -->> %d\n", result->os_data); - continue; - } - - - - - } - - free(answer); - - - - /** - * Première chose : plus d'acquitement ! - * - * Dans les faits, c'est impossible à gérer en asynchrone. Par exemple : - * - * C> vCont;c - * C> g Txx... <S - * - * Si le client envoie une commande en même temps que le serveur envoie - * quelque chose, le serveur attend dans tous les cas un acquitement. - * Donc il va consommer les données envoyées par le client jusqu'à y - * trouver ce qu'il cherche. - */ - - /* Envoi de la requête */ - - packet = g_gdb_stream_get_free_packet(stream); - - g_gdb_packet_start_new_command(packet); - g_gdb_packet_append(packet, "QStartNoAckMode"); - - test = g_gdb_stream_send_packet(stream, packet); - - g_gdb_stream_mark_packet_as_free(stream, packet); - - if (!test) - goto ggsn_error; - - /* Réception de la réponse */ - - packet = g_gdb_stream_recv_packet(stream); - - g_gdb_packet_get_data(packet, &data, NULL, NULL); - - if (strcmp(data, "OK") != 0) - goto ggsn_error; - - g_gdb_stream_mark_packet_as_free(stream, packet); - - /* Désactivation des acquitements */ - - g_gdb_stream_do_not_ack(stream); - - /** - * Passage en mode étendu. C'est obligatoire pour pouvoir redémarrer un - * programme débogué. - */ - - /* Envoi de la requête */ - - packet = g_gdb_stream_get_free_packet(stream); - - g_gdb_packet_start_new_command(packet); - g_gdb_packet_append(packet, "!"); - - test = g_gdb_stream_send_packet(stream, packet); - - g_gdb_stream_mark_packet_as_free(stream, packet); - - if (!test) - goto ggsn_error; - - /* Réception de la réponse */ - - packet = g_gdb_stream_recv_packet(stream); - - g_gdb_packet_get_data(packet, &data, NULL, NULL); - - result->extended_mode = (strcmp(data, "OK") == 0); - - g_gdb_stream_mark_packet_as_free(stream, packet); - - - - - result->id = build_id(stream); - - - -#if 0 - //end: - -#define CMD "?" - - - packet = g_gdb_stream_get_free_packet(stream); - - g_gdb_packet_start_new_command(packet); - //g_gdb_packet_append(packet, "qSupported:multiprocess+;xmlRegisters"); - g_gdb_packet_append(packet, CMD); - - - test = g_gdb_stream_send_packet(stream, packet); - - - - printf(" >> Paquet '%s' bien envoyé ? %s\n", CMD, test ? "oui" : "non"); - - - - g_gdb_stream_mark_packet_as_free(stream, packet); - - packet = g_gdb_stream_recv_packet(stream); - - g_gdb_packet_get_data(packet, &data, &len, NULL); - - printf(" << [pkt = %p ] Réception de '%s' (len=%d)\n", packet, data, (int)len); - - -#endif - - - - // qfThreadInfo - - -#undef CMD - - //#define CMD "qXfer:threads:read::0,1fff" - //#define CMD "qXfer:btrace:read:all:0,1fff" - //#define CMD "g" - //#define CMD "m400000,8" -#define CMD "qsThreadInfo" - - packet = g_gdb_stream_get_free_packet(stream); - - g_gdb_packet_start_new_command(packet); - //g_gdb_packet_append(packet, "qSupported:multiprocess+;xmlRegisters"); - g_gdb_packet_append(packet, CMD); - - - test = g_gdb_stream_send_packet(stream, packet); - - - - printf(" >> Paquet '%s' bien envoyé ? %s\n", CMD, test ? "oui" : "non"); - - - - g_gdb_stream_mark_packet_as_free(stream, packet); - - packet = g_gdb_stream_recv_packet(stream); - - g_gdb_packet_get_data(packet, &data, &len, NULL); - - printf(" << [pkt = %p ] Réception de '%s' (len=%d)\n", packet, data, (int)len); - - - - - - - - - - - - return result; - - ggsn_error: - - - - return NULL; - -} - - -/****************************************************************************** -* * -* Paramètres : support = ensemble de détails à préciser. * -* raw = données brutes à parcourir. * -* name = désignation de la valeur recherchée. * -* value = emplacement de la valeur à inscrire. * -* * -* Description : Lit une valeur booléenne à partir des détails du serveur. * -* * -* Retour : true en cas d'affectation, false dans tous les autres cas. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static bool g_gdb_support_read_bool(GGdbSupport *support, const char *raw, const char *name, bool *value) -{ - bool result; /* Bilan à retourner */ - size_t rlen; /* Taille de l'ensemble */ - size_t nlen; /* Taille du nom */ - - rlen = strlen(raw); - nlen = strlen(name); - - if ((nlen + 1) != rlen) - return false; - - if (strncmp(raw, name, nlen) != 0) - return false; - - switch (raw[nlen]) - { - case '+': - *value = true; - result = true; - break; - - case '-': - case '?': - *value = false; - result = true; - break; - - default: - result = false; - break; - - } - - return result; - -} - - -/****************************************************************************** -* * -* Paramètres : support = ensemble de détails à préciser. * -* raw = données brutes à parcourir. * -* name = désignation de la valeur recherchée. * -* value = emplacement de la valeur à inscrire. * -* * -* Description : Lit une valeur longue à partir des détails du serveur. * -* * -* Retour : true en cas d'affectation, false dans tous les autres cas. * -* * -* Remarques : - * -* * -******************************************************************************/ - -static bool g_gdb_support_read_ulong(GGdbSupport *support, const char *raw, const char *name, unsigned long *value) -{ - size_t rlen; /* Taille de l'ensemble */ - size_t nlen; /* Taille du nom */ - unsigned long v; /* Valeur récupérée à assigner */ - - rlen = strlen(raw); - nlen = strlen(name); - - if (strncmp(raw, name, nlen) != 0) - return false; - - if (raw[nlen] != '=') - return false; - - v = strtoul(raw + nlen + 1, NULL, 16); - - if (v == ULONG_MAX/* && errno == ERANGE*/) - return false; - - *value = v; - - return true; - -} - - - - - - -char *g_gdb_support_get_id(const GGdbSupport *support) -{ - return support->id; - -} - - - - - |