Changeset 11 for trunk/Backends

Timestamp:

May 19, 2015, 11:33:02 PM (10 years ago)

Author:

chronos

Message:

• Added: Log form to show history of object. Implemented for Subversion partialy.

File:

• trunk/Backends/Subversion/USubversion.pas (modified) (2 diffs)

trunk/Backends/Subversion/USubversion.pas

@@ -31 +31 @@
     procedure Merge; override;
     procedure Add(FileName: string); override;
+    procedure GetLog(FileName: string; Log: TLogList); override;
   end;
 
@@ -91 +92 @@
 end;
 
+procedure TSubversion.GetLog(FileName: string; Log: TLogList);
+var
+  NewItem: TLogItem;
+  I: Integer;
+  Line: string;
+  ChangedFiles: Boolean;
+  Action: string;
+begin
+  NewItem := nil;
+  Log.Clear;
+  Execute(['log', FileName, '-v']);
+  for I := 0 to ExecutionOutput.Count - 1 do begin
+    Line := Trim(ExecutionOutput[I]);
+    if Line = '------------------------------------------------------------------------' then begin
+      if Assigned(NewItem) then Log.Add(NewItem);
+      NewItem := TLogItem.Create;
+    end else
+    if Pos('|', Line) > 0 then begin
+      NewItem.Revision := Trim(GetNext(Line, '|'));
+      NewItem.Author := Trim(GetNext(Line, '|'));
+      GetNext(Line, '|');
+      //NewItem.Time := StrToDateTime(Trim(GetNext(Line, '|')));
+    end else
+    if Line = 'Changed paths:' then begin
+      ChangedFiles := True;
+    end else
+    if ChangedFiles then begin
+      if (Line <> '') and (Copy(ExecutionOutput[I], 1, 3) = '   ') then begin
+        Action := GetNext(Line, ' ');
+        NewItem.Actions := NewItem.Actions + Action;
+        NewItem.ChangedFiles.Add(Line);
+      end else
+      if Line = '' then begin
+        ChangedFiles := False;
+      end;
+    end else
+      NewItem.Messages.Add(Line);
+  end;
+  if Assigned(NewItem) then Log.Add(NewItem);
+end;
+
 end.