Changeset 13 for trunk/Backends

Timestamp:

May 30, 2015, 1:02:36 PM (10 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.

Location:

trunk/Backends

Files:

• Bazaar/UBazaar.pas (modified) (4 diffs)
• CVS/UCVS.pas (modified) (4 diffs)
• Git (added)
• Git/UGit.pas (added)
• Subversion/USubversion.pas (modified) (3 diffs)

trunk/Backends/Bazaar/UBazaar.pas

@@ -20 +20 @@
 
   TBazaar = class(TWorkingCopy)
+  private
   protected
     procedure Execute(Parameters: array of string);
@@ -30 +31 @@
     procedure Merge; override;
     procedure Add(FileName: string); override;
+    procedure Remove(FileName: string); override;
   end;
 
+  { TRepositoryBazaar }
+
+  TRepositoryBazaar = class(TRepository)
+  protected
+    procedure Execute(Parameters: array of string);
+  public
+    procedure Init; override;
+  end;
+
+
 implementation
+
+{ TRepositoryBazaar }
+
+procedure TRepositoryBazaar.Execute(Parameters: array of string);
+begin
+  ExecuteProcess('/usr/bin/bzr', Parameters);
+end;
+
+procedure TRepositoryBazaar.Init;
+begin
+  Execute(['init', Path]);
+end;
 
 { TBazaar }
@@ -76 +100 @@
 end;
 
+procedure TBazaar.Remove(FileName: string);
+begin
+  Execute(['remove', FileName]);
+end;
+
 { TBackendBazaar }
 
@@ -81 +110 @@
 begin
   Name := 'Bazaar';
+  HomePage := 'http://bazaar.canonical.com/';
   WorkingCopyClass := TBazaar;
 end;

trunk/Backends/CVS/UCVS.pas

@@ -31 +31 @@
     procedure Merge; override;
     procedure Add(FileName: string); override;
+    procedure Remove(FileName: string); override;
   end;
 
+  { TRepositoryCVS }
+
+  TRepositoryCVS = class(TRepository)
+  protected
+    procedure Execute(Parameters: array of string);
+  public
+    procedure Init; override;
+  end;
+
+
 implementation
+
+{ TRepositoryCVS }
+
+procedure TRepositoryCVS.Execute(Parameters: array of string);
+begin
+  ExecuteProcess('/usr/bin/cvs', Parameters);
+end;
+
+procedure TRepositoryCVS.Init;
+begin
+  Execute(['-d ' + GetCurrentDir + DirectorySeparator + Path, 'init']);
+end;
 
 { TBackendCVS }
@@ -40 +63 @@
 begin
   Name := 'CVS';
+  HomePage := 'http://www.nongnu.org/cvs/';
   WorkingCopyClass := TCVS;
+  RepositoryClass := TRepositoryCVS;
 end;
 
@@ -52 +77 @@
 procedure TCVS.Execute(Parameters: array of string);
 begin
+  EnvVars.Values['CVSROOT'] := GetCurrentDir + DirectorySeparator + Path;
   ExecuteProcess('/usr/bin/cvs', Parameters);
 end;
@@ -93 +119 @@
 end;
 
+procedure TCVS.Remove(FileName: string);
+begin
+  DeleteFile(FileName);
+  Execute(['rm', FileName]);
+end;
+
 end.
 

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