diff options
author | Cyrille Bagard <nocbos@gmail.com> | 2017-03-19 13:02:54 (GMT) |
---|---|---|
committer | Cyrille Bagard <nocbos@gmail.com> | 2017-03-19 13:02:54 (GMT) |
commit | 94fd405bb0c2e6dfa43324b04a336ffb611c58ce (patch) | |
tree | f3170587b4006fa358665a6bbfa301731503d3b3 /src/debug/gdbrsp/support.c | |
parent | 499f00977cd7f50ce0c4cf24dd59b1e920e5b180 (diff) |
Provided initial features for debugging using GDB.
Diffstat (limited to 'src/debug/gdbrsp/support.c')
-rw-r--r-- | src/debug/gdbrsp/support.c | 598 |
1 files changed, 598 insertions, 0 deletions
diff --git a/src/debug/gdbrsp/support.c b/src/debug/gdbrsp/support.c new file mode 100644 index 0000000..5086540 --- /dev/null +++ b/src/debug/gdbrsp/support.c @@ -0,0 +1,598 @@ + +/* 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 Foobar. 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; + +} + + + + + |