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

POChecker: fixed "Ignore fuzzy translations" option.

Browse Source 
Previously all translations with bad formatting arguments were 
considered fuzzy, so these errors were not shown even for non-fuzzy 
translations if this option was enabled.

git-svn-id: trunk@52471 -
This commit is contained in:
maxim 2016-06-10 16:49:49 +00:00
parent fade2507eb
commit 1f30e1af51
2 changed files with 23 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/pochecker/pofamilies.pp
View File

@ -448,7 +448,7 @@ begin
FMaster.Free;
FMaster := nil;
FMasterName := '';
if (AValue <> '') then FMaster := TPOFile.Create(AValue, True);
if (AValue <> '') then FMaster := TPOFile.Create(AValue, True, False);
FMasterName := AValue;
end;
@ -479,7 +479,7 @@ begin
FChild.Free;
FChild := nil;
FChildName := '';
if (AValue <> '') then FChild := TPOFile.Create(AValue, True);
if (AValue <> '') then FChild := TPOFile.Create(AValue, True, False);
FChildName := AValue;
end;
@ -497,13 +497,13 @@ constructor TPoFamily.Create(const AMasterName, AChildName: String);
begin
if (AMasterName <> '') then
begin
FMaster := TPOFile.Create(AMasterName, True);
FMaster := TPOFile.Create(AMasterName, True, False);
FMasterName := AMasterName;
//debugln('TPoFamily.Create: created ',FMasterName);
end;
if (AChildName <> '') then
begin
FChild := TPOFile.Create(AChildName, True);
FChild := TPOFile.Create(AChildName, True, False);
FChildName := AChildName;
//debugln('TPoFamily.Create: created ',FChildName);
end;

29
lcl/translations.pas
View File

@ -150,8 +150,8 @@ type
procedure ReadPOText(AStream: TStream);
public
constructor Create(Full:Boolean=True); //when loading from internal resource Full needs to be False
constructor Create(const AFilename: String; Full:boolean=false);
constructor Create(AStream: TStream; Full:boolean=false);
constructor Create(const AFilename: String; Full: boolean=false; AllowChangeFuzzyFlag: boolean=true);
constructor Create(AStream: TStream; Full: boolean=false; AllowChangeFuzzyFlag: boolean=true);
destructor Destroy; override;
procedure ReadPOText(const Txt: string);
procedure Add(const Identifier, OriginalValue, TranslatedValue, Comments,
@ -181,7 +181,7 @@ type
property Items: TFPList read FItems;
// used by pochecker /pohelper
public
procedure CheckFormatArguments;
procedure CheckFormatArguments(AllowChangeFuzzyFlag: boolean=true);
procedure CleanUp; { removes previous ID from non-fuzzy entries
and badformat flags if appropriate }
property PoName: String read FPoName;
@ -761,14 +761,14 @@ begin
FOriginalToItem:=TStringHashList.Create(true);
end;
constructor TPOFile.Create(const AFilename: String; Full:boolean=False);
constructor TPOFile.Create(const AFilename: String; Full: boolean=false; AllowChangeFuzzyFlag: boolean=true);
var
f: TStream;
begin
FPoName := AFilename;
f := TFileStreamUTF8.Create(AFilename, fmOpenRead or fmShareDenyNone);
try
Create(f, Full);
Create(f, Full, AllowChangeFuzzyFlag);
if FHeader=nil then
CreateHeader;
finally
@ -776,7 +776,7 @@ begin
end;
end;
constructor TPOFile.Create(AStream: TStream; Full:boolean=false);
constructor TPOFile.Create(AStream: TStream; Full: boolean=false; AllowChangeFuzzyFlag: boolean=true);
begin
Create;
@ -785,8 +785,11 @@ begin
ReadPOText(AStream);
{$IFDEF CHECK_FORMAT}
CheckFormatArguments; // Verify that translation will not generate crashes
CleanUp; // Remove leftover badformat flags and keep only real ones
//AllowChangeFuzzyFlag allows not to change fuzzy flag for items with bad format arguments,
//so there can be arguments with only badformat flag set. This is needed for POChecker.
CheckFormatArguments(AllowChangeFuzzyFlag); // Verify that translation will not generate crashes
if AllowChangeFuzzyFlag then
CleanUp; // Remove leftover badformat flags and keep only real ones
{$ENDIF}
end;
@ -1709,7 +1712,7 @@ begin
end;
end;
procedure TPOFile.CheckFormatArguments;
procedure TPOFile.CheckFormatArguments(AllowChangeFuzzyFlag: boolean=true);
var
I: Integer;
aPoItem: TPOFileItem;
@ -1725,7 +1728,7 @@ begin
if (pos('%',aPoItem.Original) <> 0) or (pos('%',aPoItem.Translation) <> 0) then begin
if not CompareFormatArgs(aPoItem.Original,aPoItem.Translation) then begin
inc(FNrErrors);
if not isFuzzy then begin
if (not isFuzzy) and AllowChangeFuzzyFlag then begin
aPoItem.ModifyFlag(sFuzzyFlag,true);
inc(FNrFuzzy);
dec(FNrTranslated);
@ -1735,6 +1738,12 @@ begin
aPoItem.ModifyFlag(sBadFormatFlag,true);
FModified := true;
end;
end
else begin //remove badformat flag (if present) from correct item
if isBadFormat then begin
aPoItem.ModifyFlag(sBadFormatFlag,False);
FModified := true;
end;
end;
end
else begin // possibly an offending string has been removed