ToolsAPI-helper/GDK.ToolsAPI.Debugger.Interfaces.pas at main · GDKsoftware/ToolsAPI-helper · GitHub

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
unit GDK.ToolsAPI.Debugger.Interfaces;

interface

uses
  System.SysUtils;

type
  EToolsApiNoDebuggerServices = class(Exception);
  EToolsApiEvaluateFailed = class(Exception);

  {$SCOPEDENUMS ON}
  TToolsApiProcessState = (Nothing, Running, Stopping, Stopped, Fault,
    ResFault, Terminated, Exception, NoProcess);

  TToolsApiStepMode = (StepOver, StepInto, RunUntilReturn);
  {$SCOPEDENUMS OFF}

  TToolsApiBreakpointInfo = record
    FileName: string;
    LineNumber: Integer;
    Enabled: Boolean;
    Expression: string;
    Valid: Boolean;
  end;

  TToolsApiStackFrame = record
    Index: Integer;
    Header: string;
    FileName: string;
    LineNumber: Integer;
  end;

  IToolsApiDebugger = interface
    ['{A6A8EF47-CEC7-43BB-8F88-A0A6A12F4E47}']

    procedure AddBreakpoint(const FileName: string; const LineNumber: Integer);
    function RemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
    function RemoveAllBreakpoints: Integer;
    function ListBreakpoints: TArray<TToolsApiBreakpointInfo>;

    function State: TToolsApiProcessState;
    function HasProcess: Boolean;
    procedure Continue;
    procedure Step(const Mode: TToolsApiStepMode);
    procedure Pause;
    procedure Terminate;

    function Evaluate(const Expression: string): string;
    function CallStack: TArray<TToolsApiStackFrame>;
    function TryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

    // Pumps pending debug events; required while waiting for a deferred evaluate.
    procedure ProcessDebugEvents;
  end;

implementation

end.