paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazdelphi: register parser

Browse Source
This commit is contained in:
mattias 2023-05-09 09:01:19 +02:00
parent 2bff2330c6
commit 5bcd4dfcc9
1 changed files with 30 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/compilers/delphi/lazdelphireg.pas
View File

@ -9,6 +9,7 @@ uses
const
SubToolDelphi = 'Delphi';
SubToolDelphiPriority = SubToolFPCPriority-10;
type
@ -23,13 +24,16 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure ReadLine(Line: string; OutputIndex: integer; IsStdErr: boolean;
var Handled: boolean); override;
var Handled: boolean); override; // (worker thread)
class function DefaultSubTool: string; override;
class function GetParserName: string; override;
class function GetLocalizedParserName: string; override;
class function Priority: integer; override;
end;
TDelphiCompilerParserClass = class of TDelphiCompilerParser;
var
IDEDelphiCompilerParser: TDelphiCompilerParserClass = nil;
IDEDelphiCompilerParserClass: TDelphiCompilerParserClass = nil;
procedure Register;
@ -37,7 +41,7 @@ implementation
procedure Register;
begin
ExternalToolList.RegisterParser(TDelphiCompilerParser);
end;
{ TDelphiCompilerParser }
@ -45,12 +49,16 @@ end;
constructor TDelphiCompilerParser.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
// filename(linenumber): E2003 Undeclared identifier: 'foo'
FRegExprFilenameLineIDMsg:=TRegExpr.Create;
FRegExprFilenameLineIDMsg.ModifierStr:='I';
// filename(linenumber): E2003 Undeclared identifier: 'foo'
FRegExprFilenameLineIDMsg.Expression:='^(.*)\([0-9]+)\): ([HNWEF])([0-9]+) (.*)$';
FRegExprFilenameLineIDMsg.Expression:='^(.*)\(([0-9]+)\): ([HNWEF])([0-9]+) (.*)$';
// filename(linenumber): Fatal: F2613 Unit 'Unit3' not found.
FRegExprFilenameLineUrgencyIDMsg.Expression:='^(.*)\([0-9]+)\) ([a-zA-Z]+): ([HNWEF])([0-9]+) (.*)$';
FRegExprFilenameLineUrgencyIDMsg:=TRegExpr.Create;
FRegExprFilenameLineUrgencyIDMsg.ModifierStr:='I';
FRegExprFilenameLineUrgencyIDMsg.Expression:='^(.*)\(([0-9]+)\) ([a-zA-Z]+): ([HNWEF])([0-9]+) (.*)$';
end;
destructor TDelphiCompilerParser.Destroy;
@ -152,7 +160,22 @@ end;
class function TDelphiCompilerParser.DefaultSubTool: string;
begin
Result:='dcc';
Result:='DCC';
end;
class function TDelphiCompilerParser.GetParserName: string;
begin
Result:='Delphi Compiler';
end;
class function TDelphiCompilerParser.GetLocalizedParserName: string;
begin
Result:='Delphi Compiler';
end;
class function TDelphiCompilerParser.Priority: integer;
begin
Result:=SubToolDelphiPriority;
end;
end.