Changeset 13 for trunk/Backends/Bazaar/UBazaar.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/Bazaar/UBazaar.pas (modified) (4 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;