Changeset 5 for trunk/Units/USubversion.pas

Timestamp:

Sep 1, 2014, 7:26:35 PM (10 years ago)

Author:

chronos

Message:

• Added: Form for console window. Working copy actions will call command line tool to perform operation.

File:

• trunk/Units/USubversion.pas (modified) (2 diffs)

trunk/Units/USubversion.pas

@@ -13 +13 @@
 
   TSubversion = class(TWorkingCopy)
+  protected
+    procedure Execute(Command: string); override;
+  public
     procedure Checkout; override;
     procedure Update; override;
@@ -25 +28 @@
 { TSubversion }
 
+procedure TSubversion.Execute(Command: string);
+begin
+  inherited Execute('svn ' + Command);
+end;
+
 procedure TSubversion.Checkout;
 begin
-
+  Execute('checkout');
 end;
 
 procedure TSubversion.Update;
 begin
-
+  Execute('update');
 end;
 
 procedure TSubversion.CleanUp;
 begin
-
+  Execute('cleanup');
 end;
 
 procedure TSubversion.Commit;
 begin
-
+  Execute('commit');
 end;
 
 procedure TSubversion.Move;
 begin
-
+  Execute('move');
 end;
 
 procedure TSubversion.Merge;
 begin
-
+  Execute('merge');
 end;