Changeset 15 for trunk/Units/UVCS.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/Units/UVCS.pas (modified) (5 diffs)

trunk/Units/UVCS.pas

@@ -25 +25 @@
   TLogList = class(TObjectList)
 
+  end;
+
+  TFileStatusState = (fssNonVersioned, fssAdded, fssRemoved, fssModified, fssNotModified);
+
+  { TFileStatus }
+
+  TFileStatus = class
+    FileName: string;
+    Version: string;
+    Author: string;
+    Time: TDateTime;
+    State: TFileStatusState;
+    procedure Assign(Source: TFileStatus);
+  end;
+
+  { TFileStatusList }
+
+  TFileStatusList = class(TObjectList)
+    function SearchByName(Name: string): TFileStatus;
   end;
 
@@ -54 +73 @@
     procedure Remove(FileName: string); virtual;
     procedure GetLog(FileName: string; Log: TLogList); virtual;
+    procedure GetStatus(FileName: string; Status: TFileStatusList); virtual;
     constructor Create;
     destructor Destroy; override;
@@ -76 +96 @@
 function URLFromDirectory(DirName: string; Relative: Boolean): string;
 
+const
+  FileStatusStateText: array[TFileStatusState] of string = ('Not versioned',
+    'Added', 'Removed', 'Modified', 'Normal');
+
 implementation
 
@@ -86 +110 @@
   if Relative then Result := GetCurrentDirUTF8 + DirectorySeparator + Result;
   Result := 'file:///' + StringReplace(Result, DirectorySeparator, '/', [rfReplaceAll]);
+end;
+
+{ TFileStatus }
+
+procedure TFileStatus.Assign(Source: TFileStatus);
+begin
+  FileName := Source.FileName;
+  Version := Source.Version;
+  Time := Source.Time;
+  Author := Source.Author;
+  State := Source.State;
+end;
+
+{ TFileStatusList }
+
+function TFileStatusList.SearchByName(Name: string): TFileStatus;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TFileStatus(Items[I]).FileName <> Name) do Inc(I);
+  if I < Count then Result := TFileStatus(Items[I])
+    else Result := nil;
 end;
 
@@ -222 +269 @@
 end;
 
+procedure TWorkingCopy.GetStatus(FileName: string; Status: TFileStatusList);
+begin
+  Status.Clear;
+end;
+
 constructor TWorkingCopy.Create;
 begin