mirror of https://gitlab.com/basile.b/dexed.git
sdsdg
This commit is contained in:
Basile Burg
parent
60c81b5e34
commit
8bee2dc308
307
src/ce_gdb.pas
307
src/ce_gdb.pas
|
|
@ -11,7 +11,8 @@ uses
|
|||
ObjectInspector,
|
||||
ce_common, ce_interfaces, ce_widget, ce_processes, ce_observer, ce_synmemo,
|
||||
ce_sharedres, ce_stringrange, ce_dsgncontrols, ce_dialogs, ce_dbgitf,
|
||||
ce_ddemangle, ce_writableComponent, EditBtn, strutils, ce_controls;
|
||||
ce_ddemangle, ce_writableComponent, EditBtn, strutils, ce_controls,
|
||||
ce_gdbmi2json;
|
||||
|
||||
type
|
||||
|
||||
|
|
@ -472,7 +473,6 @@ type
|
|||
fDoc: TCESynMemo;
|
||||
fDbgRunnable: boolean;
|
||||
fProj: ICECommonProject;
|
||||
fJson: TJsonObject;
|
||||
fLog: TStringList;
|
||||
fDocHandler: ICEMultiDocHandler;
|
||||
fMsg: ICEMessagesDisplay;
|
||||
|
|
@ -509,7 +509,7 @@ type
|
|||
// GDB output processors
|
||||
procedure gdboutQuiet(sender: TObject);
|
||||
procedure gdboutJsonize(sender: TObject);
|
||||
procedure interpretJson;
|
||||
procedure interpret(json: TJSONObject);
|
||||
// GDB commands & actions
|
||||
procedure gdbCommand(aCommand: string; gdbOutProcessor: TNotifyEvent = nil);
|
||||
procedure infoRegs;
|
||||
|
|
@ -1194,7 +1194,6 @@ begin
|
|||
fMsg:= getMessageDisplay;
|
||||
fLog := TStringList.Create;
|
||||
fInspState := TInspectableCPU.Create(@setGpr, @setSsr, @setFlag, @setFpr);
|
||||
fJson := TJsonObject.Create;
|
||||
fStackItems := TStackItems.create;
|
||||
fSubj:= TCEDebugObserverSubject.Create;
|
||||
fOptions:= TCEDebugOptions.create(self);
|
||||
|
|
@ -1244,7 +1243,6 @@ begin
|
|||
fLog.Free;
|
||||
killGdb;
|
||||
fInspState.Free;
|
||||
fJson.Free;
|
||||
fStackItems.Free;
|
||||
fSynchronizedDocuments.Free;
|
||||
EntitiesConnector.removeObserver(self);
|
||||
|
|
@ -1875,211 +1873,7 @@ end;
|
|||
{$ENDREGION}
|
||||
|
||||
{$REGION GDB output processors -------------------------------------------------}
|
||||
procedure parseGdbout(const str: string; var json: TJSONObject);
|
||||
|
||||
procedure parseProperty(node: TJSONObject; r: PStringRange); forward;
|
||||
procedure parseProperty(node: TJSONArray; r: PStringRange); forward;
|
||||
|
||||
procedure parseCLI(node: TJSONObject; r: PStringRange);
|
||||
var
|
||||
lne: TStringRange;
|
||||
msg: string = '';
|
||||
begin
|
||||
if r^.front = '"' then
|
||||
r^.popFront;
|
||||
while true do
|
||||
begin
|
||||
lne := r^.takeUntil(['\', '"']);
|
||||
if (r^.empty) then
|
||||
break
|
||||
else if r^.front = '\' then
|
||||
begin
|
||||
r^.popFront;
|
||||
if r^.front = 'n' then
|
||||
begin
|
||||
r^.popFront;
|
||||
node.Arrays['CLI'].Add(msg + lne.yield);
|
||||
msg := '';
|
||||
end else
|
||||
msg += lne.yield;
|
||||
end
|
||||
else if r^.front = '"' then
|
||||
begin
|
||||
r^.popFront;
|
||||
if r^.front = #10 then
|
||||
begin
|
||||
r^.popFront;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure parseProperty(node: TJSONArray; r: PStringRange);
|
||||
var
|
||||
c: char;
|
||||
begin
|
||||
while true do
|
||||
begin
|
||||
if r^.empty then
|
||||
exit;
|
||||
c := r^.front;
|
||||
case c of
|
||||
'a'..'z':
|
||||
begin
|
||||
r^.takeUntil('=').yield;
|
||||
r^.popFront;
|
||||
end;
|
||||
'"':
|
||||
begin
|
||||
r^.popFront;
|
||||
node.Strings[node.Count] := r^.takeUntil('"').yield;
|
||||
r^.popFront;
|
||||
end;
|
||||
'{':
|
||||
begin
|
||||
r^.popFront;
|
||||
node.Objects[node.Count] := TJSONObject.Create;
|
||||
parseProperty(node.Objects[node.Count-1], r);
|
||||
end;
|
||||
']':
|
||||
begin
|
||||
r^.popFront;
|
||||
exit;
|
||||
end;
|
||||
',': r^.popFront;
|
||||
#10:
|
||||
begin
|
||||
r^.popFront;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure parseProperty(node: TJSONObject; r: PStringRange);
|
||||
var
|
||||
idt: string = '';
|
||||
v: string;
|
||||
c: char;
|
||||
begin
|
||||
while true do
|
||||
begin
|
||||
if r^.empty then
|
||||
exit;
|
||||
c := r^.front;
|
||||
case c of
|
||||
',':
|
||||
begin
|
||||
r^.popFront;
|
||||
end;
|
||||
'a'..'z':
|
||||
begin
|
||||
idt := r^.takeUntil('=').yield;
|
||||
r^.popFront;
|
||||
end;
|
||||
'"':
|
||||
begin
|
||||
v := '';
|
||||
r^.popFront;
|
||||
while true do
|
||||
begin
|
||||
v += r^.takeUntil(['"','\']).yield;
|
||||
if r^.front = '\' then
|
||||
begin
|
||||
v += '\';
|
||||
r^.popFront;
|
||||
if r^.front = '"' then
|
||||
begin
|
||||
r^.popFront;
|
||||
v += '"';
|
||||
end;
|
||||
end else
|
||||
break;
|
||||
end;
|
||||
node.Strings[idt] := v;
|
||||
r^.popFront;
|
||||
end;
|
||||
'{':
|
||||
begin
|
||||
r^.popFront;
|
||||
node.Objects[idt] := TJSONObject.Create;
|
||||
parseProperty(node.Objects[idt], r);
|
||||
end;
|
||||
'[':
|
||||
begin
|
||||
r^.popFront;
|
||||
node.Arrays[idt] := TJSONArray.Create;
|
||||
parseProperty(node.Arrays[idt], r);
|
||||
end;
|
||||
'}', ']':
|
||||
begin
|
||||
r^.popFront;
|
||||
exit;
|
||||
end;
|
||||
' ', #9:
|
||||
r^.popFront;
|
||||
#10:
|
||||
begin
|
||||
r^.popFront;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
rng: TStringRange = (ptr: nil; pos: 0; len: 0);
|
||||
begin
|
||||
json.Clear;
|
||||
if str.length = 0 then
|
||||
exit;
|
||||
rng.init(str);
|
||||
json.Arrays['OUT'] := TJSONArray.Create;
|
||||
json.Arrays['CLI'] := TJSONArray.Create;
|
||||
while true do
|
||||
begin
|
||||
if rng.empty then
|
||||
exit;
|
||||
case rng.front of
|
||||
// event
|
||||
'*':
|
||||
begin
|
||||
parseProperty(json, rng.popUntil(',')^.popFront);
|
||||
end;
|
||||
// command answer (can be a simple '^done')
|
||||
'^':
|
||||
begin
|
||||
parseProperty(json, rng.popUntil([',', #10]));
|
||||
end;
|
||||
// what would be output in a console by gdb
|
||||
'~':
|
||||
begin
|
||||
parseCLI(json, rng.popFront);
|
||||
end;
|
||||
// internal gdb messages
|
||||
'&':
|
||||
begin
|
||||
parseCLI(json, rng.popFront);
|
||||
end;
|
||||
// async notify / status / out stream when remote (@)
|
||||
'=', '+','@':
|
||||
begin
|
||||
rng.popUntil(#10);
|
||||
if not rng.empty then
|
||||
rng.popFront;
|
||||
end
|
||||
else
|
||||
begin
|
||||
rng.popUntil(#10);
|
||||
if not rng.empty then
|
||||
rng.popFront;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCEGdbWidget.interpretJson;
|
||||
procedure TCEGdbWidget.interpret(json: TJSONObject);
|
||||
|
||||
procedure selectAsmInstr;
|
||||
var
|
||||
|
|
@ -2107,7 +1901,7 @@ procedure TCEGdbWidget.interpretJson;
|
|||
|
||||
var
|
||||
r: shortint;
|
||||
i,j: integer;
|
||||
i,j, wx: integer;
|
||||
val: TJSONData;
|
||||
obj: TJSONObject;
|
||||
arr: TJSONArray;
|
||||
|
|
@ -2128,9 +1922,26 @@ var
|
|||
fpustr: string;
|
||||
fFpuExtended: extended;
|
||||
fFpuRaw: array[0..9] of Byte absolute fFpuExtended;
|
||||
|
||||
a: TJSONArray;
|
||||
o: TJSONObject;
|
||||
s: TJSONData;
|
||||
|
||||
result_class: string = '';
|
||||
|
||||
|
||||
begin
|
||||
|
||||
if fJson.findAny('reason', val) then
|
||||
// "done" | "running" | "connected" | "error" | "exit"
|
||||
if json.findArray('out-of-band-records', a) then
|
||||
for wx:= 0 to a.Count -1 do
|
||||
begin
|
||||
if not assigned(a.Objects[wx]) then
|
||||
continue;
|
||||
o := a.Objects[wx];
|
||||
if not assigned(o) then
|
||||
continue;
|
||||
if o.findAny('reason', val) then
|
||||
begin
|
||||
reason := val.AsString;
|
||||
r := stopReasons.match(reason);
|
||||
|
|
@ -2146,7 +1957,7 @@ begin
|
|||
end;
|
||||
if brkreason = dbWatch then
|
||||
begin
|
||||
if fJson.findObject('wpt', obj) and obj.findAny('exp', val) then
|
||||
if o.findObject('wpt', obj) and obj.findAny('exp', val) then
|
||||
begin
|
||||
if lstVariables.items.findCaption(val.AsString, k) then
|
||||
begin
|
||||
|
|
@ -2155,7 +1966,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
end;
|
||||
if fJson.findObject('frame', obj) then
|
||||
if o.findObject('frame', obj) then
|
||||
begin
|
||||
if obj.FindAny('addr', val) then
|
||||
fLastOffset:=val.AsString;
|
||||
|
|
@ -2191,7 +2002,7 @@ begin
|
|||
begin
|
||||
signame := 'unknown signal';
|
||||
sigmean := 'unknown meaning';
|
||||
if fJson.findAny('signal-name', val) then
|
||||
if o.findAny('signal-name', val) then
|
||||
signame := val.AsString;
|
||||
if (fOptions.ignoredSignals.Count <> 0) and
|
||||
(fOptions.ignoredSignals.IndexOf(signame) <> -1) then
|
||||
|
|
@ -2199,9 +2010,9 @@ begin
|
|||
continueDebugging;
|
||||
exit;
|
||||
end;
|
||||
if fJson.findAny('signal-meaning', val) then
|
||||
if o.findAny('signal-meaning', val) then
|
||||
sigmean := val.AsString;
|
||||
if fJson.findObject('frame', obj) then
|
||||
if o.findObject('frame', obj) then
|
||||
begin
|
||||
if obj.findAny('addr', val) then
|
||||
fLastOffset:=val.AsString;
|
||||
|
|
@ -2261,12 +2072,13 @@ begin
|
|||
updateDebugeeOptionsEditor;
|
||||
killGdb;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if fJson.findAny('msg', val) then
|
||||
if o.findAny('msg', val) then
|
||||
fMsg.message(val.AsString, nil, amcMisc, amkAuto);
|
||||
|
||||
if fJson.findArray('register-values', arr) then
|
||||
if o.findArray('register-values', arr) then
|
||||
begin
|
||||
for i := 0 to arr.Count-1 do
|
||||
begin
|
||||
|
|
@ -2317,7 +2129,7 @@ begin
|
|||
cpuViewer.RefreshPropertyValues;
|
||||
end;
|
||||
|
||||
if fJson.findArray('stack', arr) then
|
||||
if o.findArray('stack', arr) then
|
||||
begin
|
||||
fStackItems.clear;
|
||||
lstCallStack.Clear;
|
||||
|
|
@ -2348,9 +2160,9 @@ begin
|
|||
fStackItems.assignToList(lstCallStack);
|
||||
end;
|
||||
|
||||
val := fJson.Find('variables');
|
||||
val := o.Find('variables');
|
||||
if val.isNil then
|
||||
val := fJson.Find('locals');
|
||||
val := o.Find('locals');
|
||||
if val.isNotNil and (val.JSONType = jtArray) then
|
||||
begin
|
||||
j := lstVariables.ItemIndex;
|
||||
|
|
@ -2379,7 +2191,7 @@ begin
|
|||
lstVariables.EndUpdate;
|
||||
end;
|
||||
|
||||
if fJson.findArray('asm_insns', arr) then
|
||||
if o.findArray('asm_insns', arr) then
|
||||
begin
|
||||
lstAsm.BeginUpdate;
|
||||
lstAsm.Clear;
|
||||
|
|
@ -2409,7 +2221,7 @@ begin
|
|||
selectAsmInstr;
|
||||
end;
|
||||
|
||||
if fJson.findArray('threads', arr) then
|
||||
if o.findArray('threads', arr) then
|
||||
begin
|
||||
lstThreads.BeginUpdate;
|
||||
lstThreads.Clear;
|
||||
|
|
@ -2445,19 +2257,24 @@ begin
|
|||
lstThreads.EndUpdate;
|
||||
end;
|
||||
|
||||
if fOptions.showGdbOutput or fShowFromCustomCommand then
|
||||
begin
|
||||
fShowFromCustomCommand := false;
|
||||
if fJson.findArray('CLI', arr) then
|
||||
for i := 0 to arr.Count-1 do
|
||||
fMsg.message(arr.Strings[i], nil, amcMisc, amkAuto);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
//if fOptions.showGdbOutput or fShowFromCustomCommand then
|
||||
//begin
|
||||
// fShowFromCustomCommand := false;
|
||||
// if json.findArray('CLI', arr) then
|
||||
// for i := 0 to arr.Count-1 do
|
||||
// fMsg.message(arr.Strings[i], nil, amcMisc, amkAuto);
|
||||
//end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TCEGdbWidget.gdboutJsonize(sender: TObject);
|
||||
var
|
||||
str: string;
|
||||
s: string;
|
||||
o: TJSONObject;
|
||||
m: TMemoryStream;
|
||||
begin
|
||||
if fMsg = nil then
|
||||
exit;
|
||||
|
|
@ -2465,16 +2282,34 @@ begin
|
|||
fLog.Clear;
|
||||
fGdb.getFullLines(fLog);
|
||||
if fOptions.showRawMiOutput then
|
||||
for str in fLog do
|
||||
fMsg.message(str, nil, amcMisc, amkAuto);
|
||||
for s in fLog do
|
||||
fMsg.message(s, nil, amcMisc, amkAuto);
|
||||
|
||||
fCommandProcessed := true;
|
||||
|
||||
if flog.Text.isEmpty then
|
||||
exit;
|
||||
|
||||
parseGdbout(fLog.Text, fJson);
|
||||
interpretJson;
|
||||
fLog.SaveToFile('/home/basile/b.txt');
|
||||
|
||||
o := gdbmi2json(fLog.Text);
|
||||
|
||||
s := o.FormatJSON();
|
||||
m := TMemoryStream.Create;
|
||||
try
|
||||
m.Write(s[1], length(s));
|
||||
m.SaveToFile('/home/basile/a.txt');
|
||||
finally
|
||||
m.Free;
|
||||
end;
|
||||
|
||||
try
|
||||
if assigned(o) then
|
||||
interpret(o);
|
||||
finally
|
||||
o.free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TCEGdbWidget.readOutput;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,5 @@
|
|||
unit ce_gdbmi2json;
|
||||
|
||||
{$I ce_defines.inc}
|
||||
|
||||
interface
|
||||
|
|
@ -48,7 +49,10 @@ type
|
|||
TGdbMiNodeKind = (
|
||||
gnkLogStreamOutput,
|
||||
gnkTargetStreamOutput,
|
||||
gnkConsoleStreamOutput
|
||||
gnkConsoleStreamOutput,
|
||||
gnkExecAsyncOutput,
|
||||
gnkStatusAsyncOutput,
|
||||
gnkNotifyAsyncOutput
|
||||
);
|
||||
|
||||
(**
|
||||
|
|
@ -68,7 +72,7 @@ var
|
|||
|
||||
procedure TTokenList.popFront();
|
||||
begin
|
||||
dispose(Items[0]);
|
||||
//dispose(Items[0]);
|
||||
Delete(0);
|
||||
end;
|
||||
|
||||
|
|
@ -288,7 +292,7 @@ begin
|
|||
if tokens[0]^.kind <> TTokenKind.tkAnd then
|
||||
exit(nil);
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> TTokenKind.tkToken then
|
||||
if tokens[0]^.kind <> TTokenKind.tkString then
|
||||
exit(nil);
|
||||
s := tokens[0]^.text();
|
||||
tokens.popFront();
|
||||
|
|
@ -310,7 +314,7 @@ begin
|
|||
if tokens[0]^.kind <> TTokenKind.tkAt then
|
||||
exit(nil);
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> TTokenKind.tkToken then
|
||||
if tokens[0]^.kind <> TTokenKind.tkString then
|
||||
exit(nil);
|
||||
s := tokens[0]^.text();
|
||||
tokens.popFront();
|
||||
|
|
@ -332,7 +336,7 @@ begin
|
|||
if tokens[0]^.kind <> TTokenKind.tkTiddle then
|
||||
exit(nil);
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> TTokenKind.tkToken then
|
||||
if tokens[0]^.kind <> TTokenKind.tkString then
|
||||
exit(nil);
|
||||
s := tokens[0]^.text();
|
||||
tokens.popFront();
|
||||
|
|
@ -368,6 +372,7 @@ begin
|
|||
begin
|
||||
result := parseListValue(tokens);
|
||||
end;
|
||||
else assert(false);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -391,8 +396,7 @@ begin
|
|||
r := parseValue(tokens);
|
||||
if r = nil then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
result.Items[0] := r;
|
||||
|
|
@ -402,16 +406,15 @@ begin
|
|||
r := parseValue(tokens);
|
||||
if r = nil then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
result.Items[result.Count] := r;
|
||||
end;
|
||||
if tokens[0]^.kind <> tkRightSquare then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
tokens.popFront();
|
||||
end;
|
||||
|
|
@ -433,8 +436,7 @@ begin
|
|||
end;
|
||||
if not parseResult(tokens, result) then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
while tokens[0]^.kind = tkComma do
|
||||
|
|
@ -442,15 +444,14 @@ begin
|
|||
tokens.popFront();
|
||||
if not parseResult(tokens, result) then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
if tokens[0]^.kind <> tkRightCurly then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
tokens.popFront();
|
||||
end;
|
||||
|
|
@ -461,17 +462,15 @@ end;
|
|||
function parseResult(tokens: TTokenList; obj: TJSONObject): boolean;
|
||||
var
|
||||
v: TJSONData;
|
||||
s: string;
|
||||
s: ansistring;
|
||||
begin
|
||||
result := false;
|
||||
if tokens[0]^.kind <> TTokenKind.tkToken then
|
||||
exit;
|
||||
|
||||
s := tokens[0]^.text();
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> TTokenKind.tkAss then
|
||||
exit;
|
||||
|
||||
tokens.popFront();
|
||||
v := parseValue(tokens);
|
||||
if v = nil then
|
||||
|
|
@ -496,14 +495,14 @@ begin
|
|||
end;
|
||||
if tokens[0]^.kind <> TTokenKind.tkHat then
|
||||
begin
|
||||
result.free;
|
||||
exit(nil);
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> TTokenKind.tkToken then
|
||||
begin
|
||||
result.free;
|
||||
exit(nil);
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
result['result-class'] := TJSONString.Create(tokens[0]^.text());
|
||||
tokens.popFront();
|
||||
|
|
@ -515,22 +514,56 @@ begin
|
|||
tokens.popFront();
|
||||
if not parseResult(tokens, r) then
|
||||
begin
|
||||
result.free;
|
||||
result := nil;
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
(**
|
||||
* BNF: async-record → exec-async-output | status-async-output | notify-async-output
|
||||
* BNF: async-record → [ token ] ("*" | "+" | "=") async-class ( "," result )* nl
|
||||
*)
|
||||
function parseAsyncRecord(tokens: TTokenList): TJSonObject;
|
||||
function parseAsyncRecord(tokens: TTokenList): TJSONObject;
|
||||
var
|
||||
r: TJSONObject;
|
||||
begin
|
||||
//TODO-cGDB: parse async records
|
||||
while tokens[0]^.kind <> tkNl do
|
||||
result := TJSONObject.Create;
|
||||
if tokens[0]^.kind = TTokenKind.tkToken then
|
||||
begin
|
||||
result['token'] := TJSONString.Create(tokens[0]^.text());
|
||||
tokens.popFront();
|
||||
result := nil;
|
||||
end;
|
||||
case tokens[0]^.kind of
|
||||
tkStar: result['type'] := TJSONIntegerNumber.Create(integer(gnkExecAsyncOutput));
|
||||
tkPlus: result['type'] := TJSONIntegerNumber.Create(integer(gnkStatusAsyncOutput));
|
||||
tkAss: result['type'] := TJSONIntegerNumber.Create(integer(gnkNotifyAsyncOutput));
|
||||
end;
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> TTokenKind.tkToken then
|
||||
begin
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
result['async-class'] := TJSONString.Create(tokens[0]^.text());
|
||||
tokens.popFront();
|
||||
|
||||
r := TJSONObject.Create();
|
||||
while tokens[0]^.kind = TTokenKind.tkComma do
|
||||
begin
|
||||
tokens.popFront();
|
||||
if not parseResult(tokens, r) then
|
||||
begin
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
if tokens[0]^.kind <> TTokenKind.tkNl then
|
||||
begin
|
||||
freeAndNil(result);
|
||||
exit;
|
||||
end;
|
||||
tokens.popFront();
|
||||
result['results'] := r;
|
||||
end;
|
||||
|
||||
(**
|
||||
|
|
@ -580,7 +613,8 @@ end;
|
|||
*)
|
||||
function parseOutput(tokens: TTokenList): TJSonObject;
|
||||
var
|
||||
a: TJSonArray;
|
||||
a: TJSONArray;
|
||||
o: TJSONObject;
|
||||
begin
|
||||
result := TJSonObject.Create;
|
||||
if outOfBandRecordBegins(tokens) then
|
||||
|
|
@ -588,7 +622,11 @@ begin
|
|||
a := TJSONArray.Create;
|
||||
result['out-of-band-records'] := a;
|
||||
while outOfBandRecordBegins(tokens) do
|
||||
a.Items[a.Count] := parseOutOfBandRecord(tokens);
|
||||
begin
|
||||
o := parseOutOfBandRecord(tokens);
|
||||
if assigned(o) then
|
||||
a.Add(o);
|
||||
end;
|
||||
end;
|
||||
if tokens[0]^.kind <> tkGdb then
|
||||
begin
|
||||
|
|
@ -596,21 +634,23 @@ begin
|
|||
end;
|
||||
if tokens[0]^.kind <> tkGdb then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
//result.Free;
|
||||
//result := nil;
|
||||
end;
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> tkNl then
|
||||
//assert(tokens.Count > 0);
|
||||
//if tokens[0]^.kind <> tkNl then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
end;
|
||||
tokens.popFront();
|
||||
if tokens[0]^.kind <> tkEOF then
|
||||
begin
|
||||
result.Free;
|
||||
result := nil;
|
||||
//result.Free;
|
||||
//result := nil;
|
||||
end;
|
||||
//tokens.popFront();
|
||||
//assert(tokens.Count > 0);
|
||||
//if tokens[0]^.kind <> tkEOF then
|
||||
//begin
|
||||
// result.Free;
|
||||
// result := nil;
|
||||
//end;
|
||||
end;
|
||||
|
||||
function gdbmi2json(const str: string): TJSONObject;
|
||||
|
|
|
|||
Loading…
Reference in New Issue