PoChecker: forgot to add pofamilylists.pp in previous commit.

git-svn-id: trunk@46477 -

.gitattributes

@@ -2941,6 +2941,7 @@ components/pochecker/pocheckermain.pp svneol=native#text/plain
 components/pochecker/pocheckersettings.pp svneol=native#text/pascal
 components/pochecker/pocheckerxmlconfig.pp svneol=native#text/pascal
 components/pochecker/pofamilies.pp svneol=native#text/plain
+components/pochecker/pofamilylists.pp svneol=native#text/pascal
 components/pochecker/resultdlg.lfm svneol=native#text/plain
 components/pochecker/resultdlg.pp svneol=native#text/plain
 components/pochecker/simplepofiles.pp svneol=native#text/plain

components/pochecker/pofamilylists.pp

@@ -0,0 +1,153 @@
+unit PoFamilyLists;
+
+{$mode objfpc}{$H+}
+
+interface
+
+Uses
+  Classes, SysUtils, LCLProc, FileUtil, StringHashList, ContNrs,
+  //{$IFDEF UNIX}{$IFNDEF DisableCWString}, cwstring{$ENDIF}{$ENDIF},
+  PoFamilies;
+
+const
+  langAll = '*';
+
+
+type
+
+  { TPoFamilyList }
+
+  TPoFamilyList = class
+  private
+    FLang: String;
+    FList: TFPObjectList;
+    FOnTestEnd: TTestEndEvent;
+    FOnTestStart: TTestStartEvent;
+    FPoFamilyStats: TPoFamilyStats;
+    function GetItem(Index: Integer): TPoFamily;
+    //procedure SetItem(Index: Integer; AValue: TPoFamily);
+  protected
+    procedure DoTestStart(const ATestName, APoFileName: String);
+    procedure DoTestEnd(const ATestName: String; const ErrorCount: Integer);
+  public
+    constructor Create(AMasterList: TStrings; ALang: String; out Msg: String);
+    destructor Destroy; override;
+    procedure Add(PoFamily: TPofamily);
+    function Count: Integer;
+    procedure RunTests(const TestTypes: TPoTestTypes; TestOptions: TPoTestOptions;
+                       out ErrorCount, WarningCount: Integer; ErrorLog: TStrings);
+    property Items[Index: Integer]: TPoFamily read GetItem; // write SetItem;
+    property PoFamilyStats: TPoFamilyStats read FPoFamilyStats;
+    property OnTestStart: TTestStartEvent read FOnTestStart write FOnTestStart;
+    property OnTestEnd: TTestEndEvent read FOnTestEnd write FOnTestEnd;
+  end;
+
+implementation
+
+{ TPoFamilyList }
+
+function TPoFamilyList.GetItem(Index: Integer): TPoFamily;
+begin
+  Result := TPoFamily(FList.Items[Index]);
+end;
+
+
+procedure TPoFamilyList.DoTestStart(const ATestName, APoFileName: String);
+begin
+  if Assigned(FOnTestStart) then FOnTestStart(ATestName, APoFileName);
+end;
+
+procedure TPoFamilyList.DoTestEnd(const ATestName: String; const ErrorCount: Integer);
+begin
+  if Assigned(FOnTestEnd) then FOnTestEnd(ATestName, ErrorCount);
+end;
+
+constructor TPoFamilyList.Create(AMasterList: TStrings; ALang: String; out Msg: String);
+var
+  i: Integer;
+  MasterName, ChildName: String;
+  APoFamily: TPoFamily;
+begin
+  FList := TFPObjectList.Create(True);
+  Msg := '';
+  FPoFamilyStats := TPoFamilyStats.Create;
+  FLang := ALang;
+  for i :=  0 to AMasterList.Count - 1 do
+  begin
+    MasterName := AMasterList[i];
+    ChildName := '';
+    if FileExistsUtf8(MasterName) then
+    begin
+      if (ALang <> langAll) then
+        ChildName := ChangeFileExt(MasterName, '.' + ALang + '.po');
+      debugln('TPoFamilyList.Create: i = ',DbgS(i),' Adding TPoFamily.Create(''',ExtractFileName(MasterName),
+              ''',',ExtractFileName(ChildName),''')');
+      if (ALang = langAll) or FileExistsUtf8(ChildName) then
+      begin
+        APoFamily := TPoFamily.Create(MasterName, ChildName);
+        Add(APoFamily);
+      end
+      else
+        Msg := Msg + LineEnding +  Format('"%s"',[ChildName]);
+    end
+    else
+      Msg := Msg + LineEnding +  Format('"%s"',[MasterName]);
+  end;
+end;
+
+destructor TPoFamilyList.Destroy;
+begin
+  debugln('TPoFamilyList.Destroy: FList.Count = ',DbgS(FList.Count));
+  PoFamilyStats.Free;
+  FList.Free;
+  inherited Destroy;
+end;
+
+procedure TPoFamilyList.Add(PoFamily: TPofamily);
+begin
+  FList.Add(PoFamily);
+end;
+
+function TPoFamilyList.Count: Integer;
+begin
+  Result := FList.Count;
+end;
+
+procedure TPoFamilyList.RunTests(const TestTypes: TPoTestTypes;
+  TestOptions: TPoTestOptions; out ErrorCount, WarningCount: Integer;
+  ErrorLog: TStrings);
+var
+  Index, ThisErrorCount, ThisWarningCount: Integer;
+  PoFamily: TPoFamily;
+  //ThisLog: TStringList;
+begin
+  if (FLang = langAll) then
+    Include(TestOptions,ptoFindAllChildren)
+  else
+    Exclude(TestOptions,ptoFindAllChildren);
+  ErrorLog.Clear;
+  //ThisLog := TStringList.Create;
+  ErrorCount := NoError;
+  WarningCount := NoError;
+  FPoFamilyStats.Clear;
+  try
+    for Index := 0 to FList.Count - 1 do
+    begin
+      PoFamily := GetItem(Index);
+      PoFamily.OnTestStart := FOnTestStart;
+      PoFamily.OnTestEnd := FOnTestEnd;
+      PoFamily.RunTests(TestTypes, TestOptions, ThisErrorCount, ThisWarningCount, ErrorLog);
+      PoFamily.PoFamilyStats.AddItemsTo(FPoFamilyStats);
+      ErrorCount := ErrorCount + ThisErrorCount;
+      WarningCount := WarningCount + ThisWarningCount;
+      //ThisLog.AddStrings(ErrorLog)
+
+    end;
+
+  finally
+    //ThisLog.Free;
+  end;
+end;
+
+end.
+