summaryrefslogtreecommitdiff
path: root/plugins/gdbrsp/support.c
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/gdbrsp/support.c')
-rw-r--r--plugins/gdbrsp/support.c598
1 files changed, 598 insertions, 0 deletions
diff --git a/plugins/gdbrsp/support.c b/plugins/gdbrsp/support.c
new file mode 100644
index 0000000..3d27c06
--- /dev/null
+++ b/plugins/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 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;
+
+}
+
+
+
+
+
generated by cgit v0.11.2-87-g4458 at 2024-05-03 07:45:48 (GMT)