gcc/m2/gm2-libs/gdbif.mod

   1 (* gdbif.mod enable interactive connectivity with gdb.
   2
   3 Copyright (C) 2011-2024 Free Software Foundation, Inc.
   4 Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
   5
   6 This file is part of GNU Modula-2.
   7
   8 GNU Modula-2 is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 3, or (at your option)
  11 any later version.
  12
  13 GNU Modula-2 is distributed in the hope that it will be useful, but
  14 WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 General Public License for more details.
  17
  18 Under Section 7 of GPL version 3, you are granted additional
  19 permissions described in the GCC Runtime Library Exception, version
  20 3.1, as published by the Free Software Foundation.
  21
  22 You should have received a copy of the GNU General Public License and
  23 a copy of the GCC Runtime Library Exception along with this program;
  24 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  25 <http://www.gnu.org/licenses/>.  *)
  26
  27 IMPLEMENTATION MODULE gdbif ;
  28
  29
  30 FROM libc IMPORT printf, getpid, sleep ;
  31 FROM FIO IMPORT File, WriteString, WriteLine, OpenToWrite, Close, IsNoError ;
  32 FROM StringConvert IMPORT itos ;
  33 FROM DynamicStrings IMPORT String, KillString ;
  34 IMPORT SFIO ;
  35
  36 VAR
  37    invoked,
  38    mustWait: BOOLEAN ;
  39
  40
  41 (*
  42    connectSpin - breakpoint placeholder.
  43 *)
  44
  45 PROCEDURE connectSpin ;
  46 BEGIN
  47    (* do nothing, its purpose is to allow gdb to set breakpoints here.  *)
  48 END connectSpin ;
  49
  50
  51 (*
  52    sleepSpin - waits for the boolean variable mustWait to become FALSE.
  53                It sleeps for a second between each test of the variable.
  54 *)
  55
  56 PROCEDURE sleepSpin ;
  57 BEGIN
  58    IF mustWait
  59    THEN
  60       printf ("process %d is waiting for you to:\n", getpid ());
  61       printf ("(gdb) attach %d\n", getpid ());
  62       printf ("(gdb) break connectSpin\n");
  63       printf ("(gdb) print finishSpin()\n");
  64       REPEAT
  65          sleep (1);
  66          printf (".")
  67       UNTIL NOT mustWait ;
  68       printf ("ok continuing\n");
  69       connectSpin
  70    END
  71 END sleepSpin ;
  72
  73
  74 (*
  75    finishSpin - sets boolean mustWait to FALSE.
  76 *)
  77
  78 PROCEDURE finishSpin ;
  79 BEGIN
  80    mustWait := FALSE
  81 END finishSpin ;
  82
  83
  84 (*
  85    gdbinit -
  86 *)
  87
  88 PROCEDURE gdbinit ;
  89 VAR
  90    file: File ;
  91    s   : String ;
  92 BEGIN
  93    file := OpenToWrite (".gdbinit") ;
  94    IF IsNoError (file)
  95    THEN
  96       WriteString (file, "attach ") ;
  97       s := SFIO.WriteS (file, itos (getpid (), 6, " ", FALSE)) ;
  98       WriteString (file, "break connectSpin") ; WriteLine (file) ;
  99       WriteString (file, "print finishSpin()") ; WriteLine (file) ;
 100       s := KillString (s) ;
 101       Close (file) ;
 102       sleepSpin
 103    END
 104 END gdbinit ;
 105
 106
 107 BEGIN
 108    mustWait := TRUE
 109 END gdbif.