Changeset 13 for trunk/Backends/Subversion/USubversion.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/Backends/Subversion/USubversion.pas (modified) (3 diffs)

trunk/Backends/Subversion/USubversion.pas

@@ -31 +31 @@
     procedure Merge; override;
     procedure Add(FileName: string); override;
+    procedure Remove(FileName: string); override;
     procedure GetLog(FileName: string; Log: TLogList); override;
   end;
 
+  { TRepositorySubversion }
+
+  TRepositorySubversion = class(TRepository)
+  protected
+    procedure Execute(Parameters: array of string);
+  public
+    procedure Init; override;
+  end;
+
 implementation
+
+{ TRepositorySubversion }
+
+procedure TRepositorySubversion.Execute(Parameters: array of string);
+begin
+  ExecuteProcess('/usr/bin/svnadmin', Parameters);
+end;
+
+procedure TRepositorySubversion.Init;
+begin
+  Execute(['create', Path]);
+end;
 
 { TBackendSubversion }
@@ -41 +63 @@
 begin
   Name := 'Subversion';
+  HomePage := 'https://subversion.apache.org/';
   WorkingCopyClass := TSubversion;
+  RepositoryClass := TRepositorySubversion;
 end;
 
@@ -92 +116 @@
 end;
 
+procedure TSubversion.Remove(FileName: string);
+begin
+  Execute(['remove', FileName]);
+end;
+
 procedure TSubversion.GetLog(FileName: string; Log: TLogList);
 var