Necessary changes because of changes to TPOEntry and TPOFile and remo…

…ved reports for PrevMsgid.
sigmdel · Jun 1, 2021 · 0e3b3b0 · 0e3b3b0
1 parent d1c9fc1
commit 0e3b3b0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 11 deletions.
diff --git a/poinfo.d/poinfo.lpi b/poinfo.d/poinfo.lpi
@@ -96,7 +96,7 @@
         </Mode0>
       </Modes>
     </RunParams>
-    <Units Count="4">
+    <Units Count="3">
       <Unit0>
         <Filename Value="poinfo.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -109,10 +109,6 @@
         <Filename Value="..\units\futils.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit2>
-      <Unit3>
-        <Filename Value="..\po-file-format-info.txt"/>
-        <IsPartOfProject Value="True"/>
-      </Unit3>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

diff --git a/poinfo.d/poinfo.lpr b/poinfo.d/poinfo.lpr
@@ -21,27 +21,24 @@
   end
   else begin
     PoFile := TPoFile.Create;
-    PoFile.ReportError := true;
     PoFile.Filename := ParamFilename(1);
     try
       if PoFile.ErrorCount > 0 then
         writeln;
       PoFile.WriteStatistics('Source');
       with PoFile do begin
         for i := 0 to Count-1 do with Entries[i] do begin
-          if IsFuzzy or HasPrevmsgid or HasDuplicateReference
+          if IsFuzzy {or HasPrevmsgid} or HasDuplicateReference
           or HasDuplicateMsgid or HasDuplicateMsgstr then
             writeln;
-          if IsAmbiguous then
-            writeln(Format('Entry %d (%s) is ambiguous', [i, Reference]));
           if HasDuplicateMsgid then
             writeln(Format('Entry %d (%s) has a duplicate msgid', [i, Reference]));
           if HasDuplicateMsgstr then
             writeln(Format('Entry %d (%s) has a duplicate msgstr', [i, Reference]));
           if IsFuzzy then
             writeln(Format('Entry %d (%s) is fuzzy', [i, Reference]));
-          if HasPrevmsgid then
-            writeln(Format('Entry %d (%s) has a previous msgid', [i, Reference]));
+          //if HasPrevmsgid then
+           // writeln(Format('Entry %d (%s) has a previous msgid', [i, Reference]));
           if HasDuplicateReference then
             writeln(Format('Entry %d (%s) has a duplicate reference', [i, Reference]));
         end;