Changeset 13 for trunk/Backends/Subversion
- Timestamp:
- May 30, 2015, 1:02:36 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Backends/Subversion/USubversion.pas
r11 r13 31 31 procedure Merge; override; 32 32 procedure Add(FileName: string); override; 33 procedure Remove(FileName: string); override; 33 34 procedure GetLog(FileName: string; Log: TLogList); override; 34 35 end; 35 36 37 { TRepositorySubversion } 38 39 TRepositorySubversion = class(TRepository) 40 protected 41 procedure Execute(Parameters: array of string); 42 public 43 procedure Init; override; 44 end; 45 36 46 implementation 47 48 { TRepositorySubversion } 49 50 procedure TRepositorySubversion.Execute(Parameters: array of string); 51 begin 52 ExecuteProcess('/usr/bin/svnadmin', Parameters); 53 end; 54 55 procedure TRepositorySubversion.Init; 56 begin 57 Execute(['create', Path]); 58 end; 37 59 38 60 { TBackendSubversion } … … 41 63 begin 42 64 Name := 'Subversion'; 65 HomePage := 'https://subversion.apache.org/'; 43 66 WorkingCopyClass := TSubversion; 67 RepositoryClass := TRepositorySubversion; 44 68 end; 45 69 … … 92 116 end; 93 117 118 procedure TSubversion.Remove(FileName: string); 119 begin 120 Execute(['remove', FileName]); 121 end; 122 94 123 procedure TSubversion.GetLog(FileName: string; Log: TLogList); 95 124 var
Note:
See TracChangeset
for help on using the changeset viewer.