paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Prepare for different line endings. Issue #0021834

Browse Source 
git-svn-id: trunk@37026 -
This commit is contained in:
martin 2012-04-25 19:46:21 +00:00
parent 0a86a3e9d4
commit 9baa5f827c
1 changed files with 25 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
debugger/cmdlinedebugger.pp
View File

@ -64,6 +64,7 @@ type
function CreateDebugProcess(const AOptions: String): Boolean; virtual;
procedure Flush; // Flushes output buffer
function GetWaiting: Boolean; override;
function LineEndPos(const s: string; out LineEndLen: integer): integer; virtual;
function ReadLine(ATimeOut: Integer = -1): String; overload;
function ReadLine(const APeek: Boolean; ATimeOut: Integer = -1): String; virtual; overload;
procedure SendCmdLn(const ACommand: String); virtual; overload;
@ -358,6 +359,23 @@ begin
Result := FReading;
end;
function TCmdLineDebugger.LineEndPos(const s: string; out LineEndLen: integer): integer;
var
n, idx: Integer;
begin
Result := 0;
LineEndLen := 0;
for n := Low(FLineEnds) to High(FLineEnds) do
begin
idx := Pos(FLineEnds[n], FOutputBuf);
if (idx > 0) and ( (idx < Result) or (Result = 0) )
then begin
Result := idx;
LineEndLen := length(FLineEnds[n]);
end;
end;
end;
function TCmdLineDebugger.ReadLine(ATimeOut: Integer = -1): String;
begin
Result := ReadLine(False, ATimeOut);
@ -381,7 +399,7 @@ function TCmdLineDebugger.ReadLine(const APeek: Boolean; ATimeOut: Integer = -1)
var
WaitSet: Integer;
LineEndMatch: String;
n, Idx, MinIdx, PeekCount: Integer;
LineEndIdx, LineEndLen, PeekCount: Integer;
begin
// WriteLN('[TCmdLineDebugger.GetOutput] Enter');
@ -397,21 +415,12 @@ begin
repeat
if FOutputBuf <> ''
then begin
MinIdx := MaxInt;
for n := Low(FLineEnds) to High(FLineEnds) do
begin
idx := Pos(FLineEnds[n], FOutputBuf);
if (idx > 0) and (idx < MinIdx)
then begin
MinIdx := idx;
LineEndMatch := FLineEnds[n];
end;
end;
if MinIdx < MaxInt
LineEndIdx := LineEndPos(FOutputBuf, LineEndLen);
if LineEndIdx > 0
then begin
Dec(MinIdx);
Result := Copy(FOutputBuf, 1, MinIdx);
Dec(LineEndIdx);
Result := Copy(FOutputBuf, 1, LineEndIdx);
if APeek
then begin
if PeekCount = FPeekOffset
@ -421,7 +430,7 @@ begin
Continue;
end;
end
else Delete(FOutputBuf, 1, MinIdx + Length(LineEndMatch));
else Delete(FOutputBuf, 1, LineEndIdx + LineEndLen);
DoDbgOutput(Result);
Break;