Context Navigation

UBackend.pas

Last change on this file was 13, checked in by chronos, 9 years ago
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 size: 681 bytes

Line
1	unit UBackend;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, UVCS;
9
10	type
11	TWorkingCopyClass = class of TWorkingCopy;
12	TRepositoryClass = class of TRepository;
13
14	{ TBackend }
15
16	TBackend = class
17	Name: string;
18	HomePage: string;
19	WorkingCopyClass: TWorkingCopyClass;
20	RepositoryClass: TRepositoryClass;
21	function IsRepository(Directory: string): Boolean; virtual;
22	function IsWorkingCopy(Directory: string): Boolean; virtual;
23	end;
24
25	implementation
26
27	{ TBackend }
28
29	function TBackend.IsRepository(Directory: string): Boolean;
30	begin
31	Result := False;
32	end;
33
34	function TBackend.IsWorkingCopy(Directory: string): Boolean;
35	begin
36	Result := False;
37	end;
38
39	end.
40

Note: See TracBrowser for help on using the repository browser.