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

IDEIntf: added TFPCParser.UseTranslationUrgency

Browse Source
This commit is contained in:
mattias 2022-04-19 21:10:08 +02:00
parent eb35a68284
commit 38080d1dd1
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/buildintf/ideexterntoolintf.pas
View File

@ -326,6 +326,7 @@ type
FHideHintsSenderNotUsed: boolean; FHideHintsSenderNotUsed: boolean;
FHideHintsUnitNotUsedInMainSource: boolean; FHideHintsUnitNotUsedInMainSource: boolean;
FShowLinesCompiled: boolean; FShowLinesCompiled: boolean;
FUseTranslationUrgency: boolean;
protected protected
FFilesToIgnoreUnitNotUsed: TStrings; FFilesToIgnoreUnitNotUsed: TStrings;
public public
@ -345,6 +346,7 @@ type
property HideHintsUnitNotUsedInMainSource: boolean property HideHintsUnitNotUsedInMainSource: boolean
read FHideHintsUnitNotUsedInMainSource read FHideHintsUnitNotUsedInMainSource
write FHideHintsUnitNotUsedInMainSource default true; write FHideHintsUnitNotUsedInMainSource default true;
property UseTranslationUrgency: boolean read FUseTranslationUrgency write FUseTranslationUrgency default true;
end; end;
TFPCParserClass = class of TFPCParser; TFPCParserClass = class of TFPCParser;
var var

19
ide/etfpcmsgparser.pas
View File

@ -212,7 +212,7 @@ type
function FindSrcViaPPU(aPhase: TExtToolParserSyncPhase; MsgLine: TMessageLine; function FindSrcViaPPU(aPhase: TExtToolParserSyncPhase; MsgLine: TMessageLine;
const PPUFilename: string): boolean; const PPUFilename: string): boolean;
procedure Translate(p: PChar; MsgItem, TranslatedItem: TFPCMsgItem; procedure Translate(p: PChar; MsgItem, TranslatedItem: TFPCMsgItem;
out TranslatedMsg: String; out MsgType: TMessageLineUrgency); out TranslatedMsg: String; var MsgType: TMessageLineUrgency);
function ReverseInstantFPCCacheDir(var aFilename: string; aSynchronized: boolean): boolean; function ReverseInstantFPCCacheDir(var aFilename: string; aSynchronized: boolean): boolean;
function ReverseTestBuildDir(MsgLine: TMessageLine; var aFilename: string): boolean; function ReverseTestBuildDir(MsgLine: TMessageLine; var aFilename: string): boolean;
function LongenFilename(MsgLine: TMessageLine; aFilename: string): string; // (worker thread) function LongenFilename(MsgLine: TMessageLine; aFilename: string): string; // (worker thread)
@ -1279,7 +1279,6 @@ begin
MsgLine:=CreateMsgLine; MsgLine:=CreateMsgLine;
MsgLine.Urgency:=mluProgress; MsgLine.Urgency:=mluProgress;
MsgLine.SubTool:=DefaultSubTool; MsgLine.SubTool:=DefaultSubTool;
MsgLine.Urgency:=mluProgress;
MsgLine.Msg:=OldP; MsgLine.Msg:=OldP;
inherited AddMsgLine(MsgLine); inherited AddMsgLine(MsgLine);
Result:=true; Result:=true;
@ -2575,14 +2574,15 @@ begin
end; end;
procedure TIDEFPCParser.Translate(p: PChar; MsgItem, TranslatedItem: TFPCMsgItem; procedure TIDEFPCParser.Translate(p: PChar; MsgItem, TranslatedItem: TFPCMsgItem;
out TranslatedMsg: String; out MsgType: TMessageLineUrgency); out TranslatedMsg: String; var MsgType: TMessageLineUrgency);
begin begin
TranslatedMsg:=''; TranslatedMsg:='';
MsgType:=mluNone; if (MsgType=mluNone) or UseTranslationUrgency then begin
if TranslatedItem<>nil then if (TranslatedItem<>nil) then
MsgType:=FPCMsgToMsgUrgency(TranslatedItem); MsgType:=FPCMsgToMsgUrgency(TranslatedItem);
if (MsgType=mluNone) and (MsgItem<>nil) then if (MsgType=mluNone) and (MsgItem<>nil) then
MsgType:=FPCMsgToMsgUrgency(MsgItem); MsgType:=FPCMsgToMsgUrgency(MsgItem);
end;
if TranslatedItem<>nil then begin if TranslatedItem<>nil then begin
if System.Pos('$',TranslatedItem.Pattern)<1 then begin if System.Pos('$',TranslatedItem.Pattern)<1 then begin
TranslatedMsg:=TranslatedItem.Pattern; TranslatedMsg:=TranslatedItem.Pattern;
@ -2640,6 +2640,7 @@ begin
FFilesToIgnoreUnitNotUsed:=TStringList.Create; FFilesToIgnoreUnitNotUsed:=TStringList.Create;
HideHintsSenderNotUsed:=true; HideHintsSenderNotUsed:=true;
HideHintsUnitNotUsedInMainSource:=true; HideHintsUnitNotUsedInMainSource:=true;
UseTranslationUrgency:=true;
PC_FullVersion:=GetCompiledFPCVersion; PC_FullVersion:=GetCompiledFPCVersion;
end; end;
@ -2730,6 +2731,7 @@ begin
TranslatedItem:=nil; TranslatedItem:=nil;
if (TranslationFile<>nil) then if (TranslationFile<>nil) then
TranslatedItem:=TranslationFile.GetMsg(fMsgID); TranslatedItem:=TranslationFile.GetMsg(fMsgID);
MsgUrgency:=mluNone;
Translate(p,MsgItem,TranslatedItem,TranslatedMsg,MsgUrgency); Translate(p,MsgItem,TranslatedItem,TranslatedMsg,MsgUrgency);
Msg:=p; Msg:=p;
case fMsgID of case fMsgID of
@ -2851,6 +2853,7 @@ begin
p:=p2+1; p:=p2+1;
end; end;
end; end;
while p^ in [' ',#9] do inc(p); while p^ in [' ',#9] do inc(p);
Result:=true; Result:=true;
TranslatedMsg:=''; TranslatedMsg:='';