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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.
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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.
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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.
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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.
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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.
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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.
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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.
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}']

procedureAddBreakpoint(const FileName: string; const LineNumber: Integer);
functionRemoveBreakpoint(const FileName: string; const LineNumber: Integer): Boolean;
functionRemoveAllBreakpoints: Integer;
functionListBreakpoints: TArray<TToolsApiBreakpointInfo>;

functionState: TToolsApiProcessState;
functionHasProcess: Boolean;
procedureContinue;
procedureStep(const Mode: TToolsApiStepMode);
procedurePause;
procedureTerminate;

functionEvaluate(const Expression: string): string;
functionCallStack: TArray<TToolsApiStackFrame>;
functionTryGetCurrentLocation(out FileName: string; out LineNumber: Integer): Boolean;

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

implementation

end.