Changeset 13 for trunk/Backends/CVS

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.

File:

• trunk/Backends/CVS/UCVS.pas (modified) (4 diffs)

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.