Changeset 9 for trunk/USubversion.pas

Timestamp:

Aug 21, 2022, 7:07:10 PM (2 years ago)

Author:

chronos

Message:

• Modified: Restore pristine files for deleted files with using information from subversion SQLite3 database.

File:

• trunk/USubversion.pas (modified) (4 diffs)

trunk/USubversion.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Process, FileUtil
+  Classes, SysUtils, Process, FileUtil, UExecute
   {$IFDEF UNIX}, baseunix{$ENDIF};
 
@@ -15 +15 @@
   end;
 
-  { TExecute }
-
-  TExecute = class
-  protected
-    function GetExecutable: string; virtual;
-  public
-    StandardOutput: string;
-    ErrorOutput: string;
-    procedure Execute(Parameters: array of string); virtual;
-    procedure ExecuteOutput(Parameters: array of string);
-    function GetInfo(Text: string): TSubversionInfo;
-  end;
-
   { TSubversion }
 
@@ -35 +22 @@
     function GetExecutable: string; override;
   public
+    function GetInfo(Text: string): TSubversionInfo;
   end;
 
@@ -50 +38 @@
 implementation
 
-{ TExecute }
-
-function TExecute.GetExecutable: string;
-begin
-  Result := '';
-end;
-
-procedure TExecute.Execute(Parameters: array of string);
-var
-  Process: TProcess;
-  I: Integer;
-  Buffer: string;
-  Count: Integer;
-begin
-  StandardOutput := '';
-  ErrorOutput := '';
-  Buffer := '';
-  try
-    Process := TProcess.Create(nil);
-    Process.Executable := GetExecutable;
-    for I := 0 to Length(Parameters) - 1 do
-      Process.Parameters.Add(Parameters[I]);
-    Process.Options := [poUsePipes, poNoConsole];
-    Process.Execute;
-    while Process.Running or (Process.Output.NumBytesAvailable > 0) or
-    (Process.Stderr.NumBytesAvailable > 0) do
-    begin
-      if Process.Output.NumBytesAvailable > 0 then begin
-        SetLength(Buffer, 1000);
-        Count := Process.Output.Read(Buffer[1], Length(Buffer));
-        SetLength(Buffer, Count);
-        StandardOutput := StandardOutput + Buffer;
-      end;
-      if Process.Stderr.NumBytesAvailable > 0 then begin
-        SetLength(Buffer, 1000);
-        Count := Process.Stderr.Read(Buffer[1], Length(Buffer));
-        SetLength(Buffer, Count);
-        ErrorOutput := ErrorOutput + Buffer;
-      end;
-      Sleep(1);
-    end;
-  finally
-    Process.Free;
-  end;
-end;
-
-procedure TExecute.ExecuteOutput(Parameters: array of string);
-begin
-  Execute(Parameters);
-  if StandardOutput <> '' then Write(StandardOutput);
-  if ErrorOutput <> '' then Write(ErrorOutput);
-end;
-
-function TExecute.GetInfo(Text: string): TSubversionInfo;
+function TSubversion.GetInfo(Text: string): TSubversionInfo;
 var
   Index: Integer;