ProtectedMutable

Src/Myc.Trade.DataStream.pas

@@ -101,8 +101,12 @@ type
         // Used by cache to actually load an uncached file.
         function DoLoad(const FileName: string): TFuture<TArray<TDataPoint<T>>>;
 
-        function ProcessFile(FileInfo: TAuraDataFile; const DataFile: TFuture<TArray<TDataPoint<T>>>; Terminated: TState; Proc: TDataProc<T>):
-            TState;
+        function ProcessFile(
+            FileInfo: TAuraDataFile;
+            const DataFile: TFuture<TArray<TDataPoint<T>>>;
+            Terminated: TState;
+            Proc: TDataProc<T>
+        ): TState;
 
     strict private
         class var
@@ -394,10 +398,10 @@ begin
     Result :=
         FindFirstFile(Symbol)
             .Chain(
-            function(const FirstFileInfo: TAuraDataFile): TState
-            begin
-                Result := ProcessFile(FirstFileInfo, LoadDataFile(FirstFileInfo), terminated, capProc);
-            end);
+                function(const FirstFileInfo: TAuraDataFile): TState
+                begin
+                    Result := ProcessFile(FirstFileInfo, LoadDataFile(FirstFileInfo), terminated, capProc);
+                end);
 end;
 
 function TAuraDataServer<T>.LoadDataFile(const DataFile: TAuraDataFile): TFuture<TArray<TDataPoint<T>>>;
@@ -406,15 +410,19 @@ begin
         Result := FCachedFiles.GetOrAdd(DataFile.GetFullFileName);
 end;
 
-function TAuraDataServer<T>.ProcessFile(FileInfo: TAuraDataFile; const DataFile: TFuture<TArray<TDataPoint<T>>>; Terminated: TState; Proc:
-    TDataProc<T>): TState;
+function TAuraDataServer<T>.ProcessFile(
+    FileInfo: TAuraDataFile;
+    const DataFile: TFuture<TArray<TDataPoint<T>>>;
+    Terminated: TState;
+    Proc: TDataProc<T>
+): TState;
 begin
     if not FileInfo.IsValid or Terminated.IsSet then
         exit(TState.Null);
 
     // Read ahead the next file, while processing the current one
     var nextFileInfo := FileInfo.GetNextFile;
-    var nextFile := LoadDataFile( nextFileInfo );
+    var nextFile := LoadDataFile(nextFileInfo);
 
     Result :=
         DataFile.Chain(