Changeset 8 for trunk/Units

Timestamp:

May 18, 2015, 12:15:30 AM (10 years ago)

Author:

chronos

Message:

• Added: Checkout form and ability to checkout new working copy.

Location:

trunk/Units

Files:

• UProject.pas (modified) (4 diffs)
• USubversion.pas (modified) (2 diffs)
• UVCS.pas (modified) (4 diffs)

trunk/Units/UProject.pas

@@ -18 +18 @@
     FVCSType: TVCSType;
     function GetDirectory: string;
+    function GetRepositoryURL: string;
     procedure SetDirectory(AValue: string);
+    procedure SetRepositoryURL(AValue: string);
     procedure SetVCSType(AValue: TVCSType);
   public
@@ -27 +29 @@
     property VCSType: TVCSType read FVCSType write SetVCSType;
     property Directory: string read GetDirectory write SetDirectory;
+    property RepositoryURL: string read GetRepositoryURL write SetRepositoryURL;
   end;
 
@@ -41 +44 @@
   if FVCSType = AValue then Exit;
   FVCSType := AValue;
-  WorkingCopy.Free;
+  FreeAndNil(WorkingCopy);
   case AValue of
     vtSubversion: WorkingCopy := TSubversion.Create;
@@ -53 +56 @@
 end;
 
+function TProject.GetRepositoryURL: string;
+begin
+  Result := WorkingCopy.RepositoryURL;
+end;
+
 procedure TProject.SetDirectory(AValue: string);
 begin
   WorkingCopy.Path := AValue;
+end;
+
+procedure TProject.SetRepositoryURL(AValue: string);
+begin
+  WorkingCopy.RepositoryURL := AValue;
 end;
 

trunk/Units/USubversion.pas

@@ -35 +35 @@
   try
     Params.AddStrings(Parameters);
-    ExecuteProcess('svn', Params);
+    ExecuteProcess('/usr/bin/svn', Params);
   finally
     Params.Free;
@@ -43 +43 @@
 procedure TSubversion.Checkout;
 begin
-  Execute(['checkout']);
+  Execute(['checkout', RepositoryURL, Path]);
 end;
 

trunk/Units/UVCS.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, FileUtil;
 
 type
@@ -15 +15 @@
   private
     FPath: string;
+    FRepositoryURL: string;
     procedure SetPath(AValue: string);
+    procedure SetRepositoryURL(AValue: string);
   protected
     procedure ExecuteProcess(Command: string; Parameters: TStrings); virtual;
@@ -26 +28 @@
     procedure Merge; virtual;
     procedure Refresh; virtual;
+    property RepositoryURL: string read FRepositoryURL write SetRepositoryURL;
     property Path: string read FPath write SetPath;
   end;
@@ -48 +51 @@
 end;
 
+procedure TWorkingCopy.SetRepositoryURL(AValue: string);
+begin
+  if FRepositoryURL=AValue then Exit;
+  FRepositoryURL:=AValue;
+end;
+
 procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: TStrings);
 begin
   FormConsole.Executable := Command;
   FormConsole.Parameters.Assign(Parameters);
-  FormConsole.WorkingDir := Path;
+  if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
+    else FormConsole.WorkingDir := '';
   FormConsole.ShowModal;
 end;