paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 07:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazc: cleaned up

Browse Source 
git-svn-id: trunk@45356 -
This commit is contained in:
mattias 2014-06-05 11:55:30 +00:00
parent 467c14c162
commit c6344b436c
1 changed files with 0 additions and 48 deletions

48
components/compilers/c/lazcutil.pas
View File

@ -38,22 +38,6 @@ uses
type
{ TGCCMessageScanner }
TGCCMessageScanner = class(TIDEMsgScanner)
public
function ParseLine(MsgLine: TIDEMessageLine; var Show: boolean): boolean; override;// true if line was handled
end;
{ TGCCMsgScannerType }
TGCCMsgScannerType = class(TIDEMsgScannerType)
public
function ShortDescription: string; override;
function Description: string; override;
function StartScan(Lines: TIDEMessageLineList): TIDEMsgScanner; override;
end;
{ TCSrcEditCompletion }
TCSrcEditCompletion = class(TSourceEditorCompletionPlugin)
@ -92,43 +76,11 @@ procedure Register;
implementation
procedure Register;
var
Scanner: TGCCMsgScannerType;
begin
Scanner:=TGCCMsgScannerType.Create(nil);
Scanner.Name:='GCC';
IDEMsgScanners.RegisterType(Scanner);
CSrcEditCompletion:=TCSrcEditCompletion.Create(nil);
SourceEditorManagerIntf.RegisterCompletionPlugin(CSrcEditCompletion);
end;
{ TGCCMessageScanner }
function TGCCMessageScanner.ParseLine(MsgLine: TIDEMessageLine;
var Show: boolean): boolean;
begin
DebugLn(['TGCCMessageScanner.ParseLine "',MsgLine.Msg,'"']);
Result:=false;
end;
{ TGCCMsgScannerType }
function TGCCMsgScannerType.ShortDescription: string;
begin
Result:=lcGNUProjectCAndCCompiler;
end;
function TGCCMsgScannerType.Description: string;
begin
Result:=ShortDescription;
end;
function TGCCMsgScannerType.StartScan(Lines: TIDEMessageLineList
): TIDEMsgScanner;
begin
Result:=TGCCMessageScanner.Create(Self,Lines);
end;
{ TCSrcEditCompletion }
procedure TCSrcEditCompletion.SetLastPrefix(const AValue: string);