forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add support for GNU style messages, close #1

This commit is contained in:
Basile Burg 2020-01-31 18:43:05 +01:00
parent 70e85ed84e
commit c7911f778a
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/u_messages.pas
View File

@ -1146,6 +1146,7 @@ var
rng: TStringRange = (ptr:nil; pos:0; len: 0);
lne: string;
col: string = '';
gnuStyle: boolean;
begin
Result := Point(-1,-1);
if aMessage.isEmpty then
@ -1155,10 +1156,20 @@ begin
if (aMessage.length > 3) and (aMessage[2..3] = ':\') then
rng.popFrontN(3);
{$ENDIF}
rng.popUntil(['(', ':'])^.popWhile(['(', ':']);
lne := rng.takeUntil([',', ':', ')', ' ']).yield;
if rng.front in [',', ':'] then
col := rng.popWhile([',', ':'])^.takeUntil(')').yield;
rng.popUntil(['(', ':']);
gnuStyle := (rng.front = ':') and (not rng.empty) and (rng.popFront^.front in ['1'..'9']);
if gnuStyle then
begin
lne := rng.takeUntil(':').yield;
if rng.front = ':' then
col := rng.popWhile(':')^.takeUntil(' ').yield;
end else
begin
rng.popWhile(['(', ':']);
lne := rng.takeUntil([',', ':', ')', ' ']).yield;
if rng.front in [',', ':'] then
col := rng.popWhile([',', ':'])^.takeUntil(')').yield;
end;
result.y := strToIntDef(lne, -1);
result.x := strToIntDef(col, -1);
end;