Changeset 4 for trunk/USubversion.pas

Timestamp:

Mar 2, 2022, 11:00:51 PM (3 years ago)

Author:

chronos

Message:

• Modified: Generalized svn info parsing.
• Added: Language files for translation of text strings.

Location:

trunk

Files:

• . (modified) (1 prop)
• USubversion.pas (modified) (3 diffs)

trunk/USubversion.pas

@@ -10 +10 @@
 
 type
+  TSubversionInfo = record
+    Checksum: string;
+    Revision: string;
+    URL: string;
+    Path: string;
+  end;
 
   { TExecute }
@@ -21 +27 @@
     procedure Execute(Parameters: array of string); virtual;
     procedure ExecuteOutput(Parameters: array of string);
+    function GetInfo(Text: string): TSubversionInfo;
   end;
 
@@ -97 +104 @@
 end;
 
+function TExecute.GetInfo(Text: string): TSubversionInfo;
+var
+  Index: Integer;
+  Lines: TStringList;
+  I: Integer;
+  Line: string;
+  Name: string;
+  Value: string;
+begin
+  Lines := TStringList.Create;
+  try
+    Lines.Text := Text;
+    for I := 0 to Lines.Count - 1 do begin
+      Line := Trim(Lines[I]);
+      Index := Pos(':', Line);
+      if Index > 0 then begin
+        Name := Trim(Copy(Line, 1, Index - 1));
+        Value := Trim(Copy(Line, Index + 1, MaxInt));
+        if Name = 'Checksum' then Result.Checksum := Value
+        else if Name = 'Revision' then Result.Revision := Value
+        else if Name = 'Path' then Result.Path := Value
+        else if Name = 'URL' then Result.URL := Value;
+      end;
+    end;
+  finally
+    Lines.Free;
+  end;
+end;
+
 { TSubversionAdmin }