Changeset 15 for trunk/Backends

Timestamp:

Jul 13, 2015, 11:44:23 AM (9 years ago)

Author:

chronos

Message:

• Added: Support for reading file status from working copy.

Location:

trunk/Backends

Files:

• CVS/UCVS.pas (modified) (2 diffs)
• Subversion/USubversion.pas (modified) (3 diffs)

trunk/Backends/CVS/UCVS.pas

@@ -32 +32 @@
     procedure Add(FileName: string); override;
     procedure Remove(FileName: string); override;
+    procedure GetStatus(FileName: string; Status: TFileStatusList); override;
   end;
 
@@ -125 +126 @@
 end;
 
+procedure TCVS.GetStatus(FileName: string; Status: TFileStatusList);
+begin
+  Status.Clear;
+  Execute(['status']);
+
+end;
+
 end.
 

trunk/Backends/Subversion/USubversion.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UVCS, UBackend;
+  Classes, SysUtils, UVCS, UBackend, XMLRead, DOM, UXMLUtils;
 
 type
@@ -33 +33 @@
     procedure Remove(FileName: string); override;
     procedure GetLog(FileName: string; Log: TLogList); override;
+    procedure GetStatus(FileName: string; Status: TFileStatusList); override;
   end;
 
@@ -172 +173 @@
 end;
 
+procedure TSubversion.GetStatus(FileName: string; Status: TFileStatusList);
+var
+  Doc: TXMLDocument;
+  S: TStringStream;
+  Node: TDOMNode;
+  Node2: TDOMNode;
+  RootNode: TDOMNode;
+  TargetNode: TDOMNode;
+  StatusNode: TDOMNode;
+  StatusItem: TFileStatus;
+  CommitNode: TDOMNode;
+  ItemState: string;
+begin
+  Status.Clear;
+  Execute(['status', '--xml', '-v']);
+  S := TStringStream.Create(ExecutionOutput.Text);
+  try
+    // Read complete XML document
+    ReadXMLFile(Doc, S);
+    RootNode := Doc.DocumentElement;
+    if RootNode.NodeName = 'status' then begin
+      TargetNode := RootNode.FindNode('target');
+      if Assigned(TargetNode) then begin
+        Node := TargetNode.FirstChild;
+        while Assigned(Node) do begin
+          if Node.NodeName = 'entry' then begin
+            StatusItem := TFileStatus.Create;
+            StatusItem.FileName := TDOMElement(Node).GetAttribute('path');
+            StatusNode := Node.FindNode('wc-status');
+            if Assigned(StatusNode) then begin
+              ItemState := TDOMElement(StatusNode).GetAttribute('item');
+              if ItemState = 'normal' then StatusItem.State := fssNotModified;
+              if ItemState = 'modified' then StatusItem.State := fssModified;
+              if ItemState = 'deleted' then StatusItem.State := fssRemoved;
+              if ItemState = 'added' then StatusItem.State := fssAdded;
+
+              CommitNode := StatusNode.FindNode('commit');
+              if Assigned(CommitNode) then begin
+                 StatusItem.Version := TDOMElement(CommitNode).GetAttribute('revision');
+                 StatusItem.Author := ReadString(CommitNode, 'author', '');
+                 StatusItem.Time := ReadDateTime(CommitNode, 'date', 0);
+              end;
+            end;
+            Status.Add(StatusItem);
+          end;
+          Node := Node.NextSibling;
+        end;
+      end;
+    end;
+  finally
+    Doc.Free;
+    S.Free;
+  end;
+end;
+
 end.