Changeset 9 for trunk/UCore.pas

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.

File:

• trunk/UCore.pas (modified) (9 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, UVCS, UProject,
-  ULastOpenedList, Forms, Dialogs;
+  ULastOpenedList, Forms, Dialogs, Contnrs, UBackend;
 
 type
@@ -47 +47 @@
   private
     procedure UpdateInterface;
+    procedure RegisterBackends;
+    procedure RegisterBackend(Backend: TBackend);
+    function DetectBackend(Directory: string): TBackend;
   public
+    Backends: TObjectList; // TList<TBackend>
     Project: TProject;
     procedure LoadConfig;
@@ -64 +68 @@
 
 uses
-  UFormMain, UFormBrowse, UFormSettings, UFormCommit, UFormCheckout;
+  UFormMain, UFormBrowse, UFormSettings, UFormCommit, UFormCheckout,
+  USubversion, UBazaar;
 
 { TCore }
@@ -80 +85 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  Backends := TObjectList.Create;
   UpdateInterface;
 end;
@@ -85 +91 @@
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  Project.Free;
+  FreeAndNil(Project);
+  FreeAndNil(Backends);
 end;
 
@@ -97 +104 @@
   AProjectClose.Enabled := Assigned(Project);
   FormMain.UpdateInterface;
+end;
+
+procedure TCore.RegisterBackends;
+begin
+  RegisterBackend(TBackendSubversion.Create);
+  RegisterBackend(TBackendBazaar.Create);
+end;
+
+procedure TCore.RegisterBackend(Backend: TBackend);
+begin
+  Backends.Add(Backend);
+end;
+
+function TCore.DetectBackend(Directory: string): TBackend;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Backends.Count) and (not TBackend(Backends[I]).IsWorkingCopy(Directory)) do Inc(I);
+  if I < Backends.Count then Result := TBackend(Backends[I])
+    else Result := nil;
 end;
 
@@ -115 +143 @@
 procedure TCore.Init;
 begin
+  RegisterBackends;
   LoadConfig;
   if (LastOpenedList1.Items.Count > 0) and DirectoryExistsUTF8(LastOpenedList1.Items[0]) then
@@ -129 +158 @@
   AProjectClose.Execute;
   Project := TProject.Create;
-  Project.VCSType := vtSubversion;
-  Project.Directory := Directory;
-  UpdateInterface;
-  FormBrowse.Directory := Project.Directory;
-  FormBrowse.ReloadList;
-  LastOpenedList1.AddItem(Project.Directory);
+  Project.Backend := DetectBackend(Directory);
+  if Assigned(Project.Backend) then begin
+    Project.Directory := Directory;
+    UpdateInterface;
+    FormBrowse.Directory := Project.Directory;
+    FormBrowse.ReloadList;
+    LastOpenedList1.AddItem(Project.Directory);
+  end else ShowMessage('Directory not recognized as working copy of any of supported VCS systems');
 end;
 
@@ -175 +206 @@
     TempProject := TProject.Create;
     try
-      TempProject.VCSType := vtSubversion;
+      TempProject.Backend := TBackend(FormCheckout.ComboBox1.Items.Objects[FormCheckout.ComboBox1.ItemIndex]);
       TempProject.Directory := FormCheckout.EditDir.Text;
       TempProject.RepositoryURL := FormCheckout.EditURL.Text;