1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

{
    $Id: testgdb.pp,v 1.3 2005/02/14 17:13:19 peter Exp $
    Copyright (c) 1998 by Peter Vreman
 
    Small example program to the GDB 
    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.
 
    This program 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.
 
 **********************************************************************}
program testgdb;uses gdbcon;
var
  last,s,parafile : string;
  gdb : tgdbcontroller;
begin  gdb.init;
  if paramcount=1 then
    parafile:=paramstr(1)
  else
    parafile:='test';  gdb.loadfile(parafile);
  Writeln('Welcome to the pascal GDB...');
  Writeln('Type "q" to exit...');
  last:='';
  repeat    write('>');
    readln(s);
    if (s='a') then
     gdb.starttrace
    else     if (s='s') then
      gdb.tracestep
    else
     if (s='n') then
      gdb.tracenext    else
     if (s='q') then
      break
    else
     begin       if s='' then
         s:=last;
       GDB.Command(s);
       GDB.WriteErrorBuf;
       GDB.WriteOutputBuf;       last:=s;
     end;
  until false;
  Writeln('End of pascal GDB...');
end.{
  $Log: testgdb.pp,v $
  Revision 1.3  2005/02/14 17:13:19  peter
    * truncate log
 }