Changeset 13 for trunk/Units/UBackend.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/Units/UBackend.pas (modified) (3 diffs)

trunk/Units/UBackend.pas

@@ -10 +10 @@
 type
   TWorkingCopyClass = class of TWorkingCopy;
+  TRepositoryClass = class of TRepository;
 
   { TBackend }
@@ -15 +16 @@
   TBackend = class
     Name: string;
+    HomePage: string;
     WorkingCopyClass: TWorkingCopyClass;
+    RepositoryClass: TRepositoryClass;
+    function IsRepository(Directory: string): Boolean; virtual;
     function IsWorkingCopy(Directory: string): Boolean; virtual;
   end;
@@ -22 +26 @@
 
 { TBackend }
+
+function TBackend.IsRepository(Directory: string): Boolean;
+begin
+  Result := False;
+end;
 
 function TBackend.IsWorkingCopy(Directory: string): Boolean;