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

codetools: scanfpcerrormsgfiles: added parameter -v to show details

Browse Source 
git-svn-id: trunk@45205 -
This commit is contained in:
mattias 2014-05-27 20:04:09 +00:00
parent 48e6a0844a
commit b0e716ec2b
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/codetools/examples/scanfpcerrormsgfiles.lpr
View File

@ -16,7 +16,9 @@ procedure WriteUsage;
begin begin
writeln('Usage:'); writeln('Usage:');
writeln; writeln;
writeln(' ',ParamStr(0),' <fpcsrcdirectory>/compiler/msg'); writeln(' ',ParamStr(0),' <fpcsrcdirectory>/compiler/msg [-v]');
writeln('');
writeln(' -v - verbose output, showing exactly what messages are missing and/or mismatched');
end; end;
type type
@ -43,7 +45,7 @@ begin
until false; until false;
end; end;
procedure ScanDir(Dir: string); procedure ScanDir(Dir: string; ShowVerbose: Boolean = false );
var var
Info: TSearchRec; Info: TSearchRec;
Filename: TFilename; Filename: TFilename;
@ -59,6 +61,7 @@ var
MismatchCount: Integer; MismatchCount: Integer;
EnglishParams, TranslatedParams: THaveParams; EnglishParams, TranslatedParams: THaveParams;
k: integer; k: integer;
msd: String;
begin begin
FPCMsgFileList:=TFilenameToPointerTree.Create(false); FPCMsgFileList:=TFilenameToPointerTree.Create(false);
FPCMsgFileList.FreeValues:=true; FPCMsgFileList.FreeValues:=true;
@ -99,12 +102,14 @@ begin
GoodCount:=0; GoodCount:=0;
MissingCount:=0; MissingCount:=0;
MismatchCount:=0; // id is there, but $ parameters don't fit MismatchCount:=0; // id is there, but $ parameters don't fit
msd:='';
for i:=0 to EnglishFile.Count-1 do begin for i:=0 to EnglishFile.Count-1 do begin
EnglishMsg:=EnglishFile[i]; EnglishMsg:=EnglishFile[i];
TranslatedMsg:=aFile.FindWithID(EnglishMsg.ID); TranslatedMsg:=aFile.FindWithID(EnglishMsg.ID);
if TranslatedMsg=nil then if TranslatedMsg=nil then begin
inc(MissingCount) inc(MissingCount);
else begin if ShowVerbose then msd:=msd+' missing: '+IntToStr(EnglishMsg.ID)+' '+EnglishMsg.Pattern+LineEnding;
end else begin
GetHaveParams(EnglishMsg.Pattern,EnglishParams); GetHaveParams(EnglishMsg.Pattern,EnglishParams);
GetHaveParams(TranslatedMsg.Pattern,TranslatedParams); GetHaveParams(TranslatedMsg.Pattern,TranslatedParams);
k:=9; k:=9;
@ -115,10 +120,16 @@ begin
else begin else begin
//writeln('Mismatch in ',Filename,' English="',EnglishMsg.Pattern,'" Translated="',TranslatedMsg.Pattern,'"'); //writeln('Mismatch in ',Filename,' English="',EnglishMsg.Pattern,'" Translated="',TranslatedMsg.Pattern,'"');
inc(MismatchCount); inc(MismatchCount);
if ShowVerbose then begin
msd:=msd+' mismatch: '+LineEnding;
msd:=msd+' eng: '+EnglishMsg.Pattern+LineEnding;
msd:=msd+' trn: '+TranslatedMsg.Pattern+LineEnding;
end;
end; end;
end; end;
end; end;
writeln(Filename,' Count=',aFile.Count,' Good=',GoodCount,' Missing=',MissingCount,' Mismatch=',MismatchCount); writeln(Filename,' Count=',aFile.Count,' Good=',GoodCount,' Missing=',MissingCount,' Mismatch=',MismatchCount);
if ShowVerbose then write(msd);
end; end;
finally finally
@ -128,8 +139,9 @@ end;
var var
MsgDir: String; MsgDir: String;
ShowVerbose: Boolean = false;
begin begin
if ParamCount<>1 then begin if ParamCount<1 then begin
WriteUsage; WriteUsage;
Halt(1); Halt(1);
end; end;
@ -138,6 +150,7 @@ begin
writeln('Error: directory not found: ',MsgDir); writeln('Error: directory not found: ',MsgDir);
Halt(2); Halt(2);
end; end;
ScanDir(MsgDir); ShowVerbose:=(ParamCount>1) and (LowerCase(ParamStr(2))='-v');
ScanDir(MsgDir, ShowVerbose);
end. end.