Changeset 9 for trunk/Units

Timestamp:

May 18, 2015, 11:49:39 PM (10 years ago)

Author:

chronos

Message:

• Added: Simple Bazaar backend.\n* Added: Support for backends dynamic registration.\n* Added: Backend selection in checkout form.

Location:

trunk/Units

Files:

• UProject.pas (modified) (4 diffs)
• USubversion.pas (deleted)
• UVCS.pas (modified) (5 diffs)

trunk/Units/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UVCS;
+  Classes, SysUtils, UVCS, UBackend;
 
 type
-
-  TVCSType = (vtNone, vtSubversion, vtCVS, vtMercurial, vtBazaar, vzGit);
 
 { TProject }
@@ -16 +14 @@
   TProject = class
   private
-    FVCSType: TVCSType;
+    FBackend: TBackend;
     function GetDirectory: string;
     function GetRepositoryURL: string;
     procedure SetDirectory(AValue: string);
     procedure SetRepositoryURL(AValue: string);
-    procedure SetVCSType(AValue: TVCSType);
+    procedure SetBackend(AValue: TBackend);
   public
     WorkingCopy: TWorkingCopy;
@@ -27 +25 @@
     constructor Create;
     destructor Destroy; override;
-    property VCSType: TVCSType read FVCSType write SetVCSType;
+    property Backend: TBackend read FBackend write SetBackend;
     property Directory: string read GetDirectory write SetDirectory;
     property RepositoryURL: string read GetRepositoryURL write SetRepositoryURL;
@@ -40 +38 @@
 { TProject }
 
-procedure TProject.SetVCSType(AValue: TVCSType);
+procedure TProject.SetBackend(AValue: TBackend);
 begin
-  if FVCSType = AValue then Exit;
-  FVCSType := AValue;
+  if FBackend = AValue then Exit;
+  FBackend := AValue;
   FreeAndNil(WorkingCopy);
-  case AValue of
-    vtSubversion: WorkingCopy := TSubversion.Create;
-    else WorkingCopy := TWorkingCopy.Create;
-  end;
+  WorkingCopy := AValue.WorkingCopyClass.Create;
 end;
 

trunk/Units/UVCS.pas

@@ -19 +19 @@
     procedure SetRepositoryURL(AValue: string);
   protected
-    procedure ExecuteProcess(Command: string; Parameters: TStrings); virtual;
+    procedure ExecuteProcess(Command: string; Parameters: array of string); virtual;
   public
     procedure Checkout; virtual;
@@ -25 +25 @@
     procedure CleanUp; virtual;
     procedure Commit(Message: TStrings); virtual;
-    procedure Move; virtual;
+    procedure Move(Source, Dest: string); virtual;
     procedure Merge; virtual;
     procedure Refresh; virtual;
@@ -35 +35 @@
     Path: string;
   end;
+
 
 
@@ -57 +58 @@
 end;
 
-procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: TStrings);
+procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: array of string);
 begin
   FormConsole.Executable := Command;
-  FormConsole.Parameters.Assign(Parameters);
+  FormConsole.Parameters.Clear;
+  FormConsole.Parameters.AddStrings(Parameters);
   if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
     else FormConsole.WorkingDir := '';
@@ -86 +88 @@
 end;
 
-procedure TWorkingCopy.Move;
+procedure TWorkingCopy.Move(Source, Dest: string);
 begin