Changeset 15 for trunk/Backends/CVS/UCVS.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Backends/CVS/UCVS.pas (modified) (2 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.