Changeset 13 for trunk/Backends/Bazaar
- Timestamp:
- May 30, 2015, 1:02:36 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Backends/Bazaar/UBazaar.pas
r10 r13 20 20 21 21 TBazaar = class(TWorkingCopy) 22 private 22 23 protected 23 24 procedure Execute(Parameters: array of string); … … 30 31 procedure Merge; override; 31 32 procedure Add(FileName: string); override; 33 procedure Remove(FileName: string); override; 32 34 end; 33 35 36 { TRepositoryBazaar } 37 38 TRepositoryBazaar = class(TRepository) 39 protected 40 procedure Execute(Parameters: array of string); 41 public 42 procedure Init; override; 43 end; 44 45 34 46 implementation 47 48 { TRepositoryBazaar } 49 50 procedure TRepositoryBazaar.Execute(Parameters: array of string); 51 begin 52 ExecuteProcess('/usr/bin/bzr', Parameters); 53 end; 54 55 procedure TRepositoryBazaar.Init; 56 begin 57 Execute(['init', Path]); 58 end; 35 59 36 60 { TBazaar } … … 76 100 end; 77 101 102 procedure TBazaar.Remove(FileName: string); 103 begin 104 Execute(['remove', FileName]); 105 end; 106 78 107 { TBackendBazaar } 79 108 … … 81 110 begin 82 111 Name := 'Bazaar'; 112 HomePage := 'http://bazaar.canonical.com/'; 83 113 WorkingCopyClass := TBazaar; 84 114 end;
Note:
See TracChangeset
for help on using the changeset viewer.