Changeset 13 for trunk/Units/UProject.pas

Timestamp:

May 30, 2015, 1:02:36 PM (9 years ago)

Author:

chronos

Message:

• Added: New test form where general functionality of selected backend can be tested.
• Added: Basic git backend implementation.
• Added: Project group form and ability to open/save group of projects as configuration to XML file.

File:

• trunk/Units/UProject.pas (modified) (7 diffs)

trunk/Units/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UVCS, UBackend;
+  Classes, SysUtils, UVCS, UBackend, Contnrs, DOM, XMLRead, XMLWrite, UXMLUtils,
+  FileUtil;
 
 type
@@ -22 +23 @@
   public
     WorkingCopy: TWorkingCopy;
+    Repository: TRepository;
     procedure Open(Directory: string);
     constructor Create;
     destructor Destroy; override;
+    procedure LoadXMLNOde(Node: TDOMNode);
+    procedure SaveXMLNOde(Node: TDOMNode);
     property Backend: TBackend read FBackend write SetBackend;
     property Directory: string read GetDirectory write SetDirectory;
@@ -30 +34 @@
   end;
 
+  { TProjects }
+
+  TProjects = class(TObjectList)
+    procedure LoadXMLNode(Node: TDOMNode);
+    procedure SaveXMLNode(Node: TDOMNode);
+  end;
+
+  { TProjectGroup }
+
+  TProjectGroup = class
+    FileName: string;
+    Projects: TProjects;
+    constructor Create;
+    destructor Destroy; override;
+    procedure LoadFromFile(FileName: string);
+    procedure SaveToFile(FileName: string);
+  end;
+
 
 implementation
 
-uses
-  USubversion;
+resourcestring
+  SWrongFileFormat = 'Wrong file format';
+
+{ TProjects }
+
+procedure TProjects.LoadXMLNode(Node: TDOMNode);
+var
+  NewProject: TProject;
+  Node2: TDOMNode;
+begin
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Project') do begin
+    NewProject := TProject.Create;
+    NewProject.LoadXMLNode(Node2);
+    Add(NewProject);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TProjects.SaveXMLNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
+begin
+  for I := 0 to Count - 1 do begin;
+    NewNode := Node.OwnerDocument.CreateElement('Project');
+    Node.AppendChild(NewNode);
+    TProject(Items[I]).SaveXMLNode(NewNode);
+  end;
+end;
+
+
+{ TProjectGroup }
+
+constructor TProjectGroup.Create;
+begin
+  Projects := TProjects.Create;
+end;
+
+destructor TProjectGroup.Destroy;
+begin
+  Projects.Free;
+  inherited Destroy;
+end;
+
+procedure TProjectGroup.LoadFromFile(FileName: string);
+var
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+  Node: TDOMNode;
+  Node2: TDOMNode;
+begin
+  Self.FileName := FileName;
+  ReadXMLFile(Doc, UTF8Decode(FileName));
+  with Doc do try
+    if Doc.DocumentElement.NodeName <> 'ProjectGroup' then
+      raise Exception.Create(SWrongFileFormat);
+    RootNode := Doc.DocumentElement;
+    with RootNode do begin
+      Node := FindNode('Projects');
+      if Assigned(Node) then Projects.LoadXMLNode(Node);
+    end;
+  finally
+    Doc.Free;
+  end;
+end;
+
+procedure TProjectGroup.SaveToFile(FileName: string);
+var
+  NewNode: TDOMNode;
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
+begin
+  if FileName = '' then Exit;
+  Self.FileName := FileName;
+  Doc := TXMLDocument.Create;
+  with Doc do try
+    RootNode := CreateElement('ProjectGroup');
+    AppendChild(RootNode);
+    with RootNode do begin
+      NewNode := OwnerDocument.CreateElement('Projects');
+      AppendChild(NewNode);
+      Projects.SaveXMLNode(NewNode);
+    end;
+    ForceDirectoriesUTF8(ExtractFileDir(FileName));
+    WriteXMLFile(Doc, UTF8Decode(FileName));
+  finally
+    Doc.Free;
+  end;
+end;
 
 { TProject }
@@ -44 +154 @@
   FreeAndNil(WorkingCopy);
   WorkingCopy := AValue.WorkingCopyClass.Create;
+  FreeAndNil(Repository);
+  Repository := AValue.RepositoryClass.Create;
 end;
 
@@ -64 +176 @@
 begin
   WorkingCopy.RepositoryURL := AValue;
+  Repository.Path := AValue;
 end;
 
@@ -74 +187 @@
 begin
   WorkingCopy := TWorkingCopy.Create;
+  Repository := TRepository.Create;
 end;
 
@@ -79 +193 @@
 begin
   WorkingCopy.Free;
+  Repository.Free;
   inherited Destroy;
 end;
 
+procedure TProject.LoadXMLNOde(Node: TDOMNode);
+begin
+  RepositoryURL := ReadString(Node, 'RepositoryURL', '');
+  Directory := ReadString(Node, 'Directory', '');
+end;
+
+procedure TProject.SaveXMLNOde(Node: TDOMNode);
+begin
+  WriteString(Node, 'RepositoryURL', RepositoryURL);
+  WriteString(Node, 'Directory', Directory);
+end;
+
 end.