Improve debug output for turntable pools

Author: Roeterdink

Source/Orts.Simulation/Simulation/Timetables/TTPool.cs

@@ -1,4 +1,4 @@
-// COPYRIGHT 2014 by the Open Rails project.
+// COPYRIGHT 2014 by the Open Rails project.
 // 
 // This file is part of Open Rails.
 // 
@@ -17,7 +17,7 @@
 
 // This code processes the Timetable definition and converts it into playable train information
 //
-// #DEBUG_POOLINFO
+// #define DEBUG_POOLINFO
 //
 
 using System;
@@ -940,8 +940,17 @@ public int GetPoolExitIndex(TTTrain train)
 
 #if DEBUG_POOLINFO
                     var sob = new StringBuilder();
-                    sob.AppendFormat("Pool {0} : error : train {1} ({2}) allready stored in pool \n", PoolName, train.Number, train.Name);
-                    sob.AppendFormat("           stored units : {0}", thisStorage.StoredUnits.Count);
+                    DateTime baseDT = new DateTime();
+                    DateTime actTime = baseDT.AddSeconds(train.AI.clockTime);
+
+                    sob.AppendFormat("{0} : Pool {1} : error : train {2} ({3}) allready stored in pool \n", actTime.ToString("HH:mm:ss"),PoolName, train.Number, train.Name);
+
+                    int totalno = 0;
+                    foreach (PoolDetails selStorage in StoragePool)
+                    {
+                        totalno += selStorage.StoredUnits.Count;
+                    }
+                    sob.AppendFormat("           stored units {0} : {1} (total {2})", PoolName, thisStorage.StoredUnits.Count, totalno);
                     File.AppendAllText(@"C:\temp\PoolAnal.csv", sob.ToString() + "\n");
 #endif
                 }
@@ -1023,8 +1032,18 @@ public void AddUnit(TTTrain train, bool claimOnly)
 
 #if DEBUG_POOLINFO
                 var sob = new StringBuilder();
-                sob.AppendFormat("Pool {0} : train {1} ({2}) added\n", PoolName, train.Number, train.Name);
-                sob.AppendFormat("           stored units : {0}\n", thisPool.StoredUnits.Count);
+                DateTime baseDT = new DateTime();
+                DateTime actTime = baseDT.AddSeconds(train.AI.clockTime);
+
+                sob.AppendFormat("{0} : Pool {1} : train {2} ({3}) added\n", actTime.ToString("HH:mm:ss"),PoolName, train.Number, train.Name);
+
+                int totalno = 0;
+                foreach (PoolDetails selStorage in StoragePool)
+                {
+                    totalno += selStorage.StoredUnits.Count;
+                }
+
+                sob.AppendFormat("           stored units {0} : {1} (total {2})", PoolName, thisPool.StoredUnits.Count, totalno);
                 File.AppendAllText(@"C:\temp\PoolAnal.csv", sob.ToString() + "\n");
 #endif
 
@@ -1124,7 +1143,10 @@ virtual public TrainFromPool ExtractTrain(ref TTTrain train, int presentTime)
         {
 #if DEBUG_POOLINFO
             var sob = new StringBuilder();
-            sob.AppendFormat("Pool {0} : request for train {1} ({2})", PoolName, train.Number, train.Name);
+            DateTime baseDT = new DateTime();
+            DateTime actTime = baseDT.AddSeconds(train.AI.clockTime);
+
+            sob.AppendFormat("{0} : Pool {1} : request for train {2} ({3})", actTime.ToString("HH:mm:ss"), PoolName, train.Number, train.Name);
             File.AppendAllText(@"C:\temp\PoolAnal.csv", sob.ToString() + "\n");
 #endif
             // check if any engines available
@@ -1155,6 +1177,9 @@ virtual public TrainFromPool ExtractTrain(ref TTTrain train, int presentTime)
                 {
 #if DEBUG_TRACEINFO
                 Trace.TraceInformation("Pool {0} : train {1} : delayed through claimed access\n", PoolName, train.Name);
+#endif
+#if DEBUG_POOLINFO
+                Trace.TraceInformation("Pool {0} : train {1} : delayed through claimed access\n", PoolName, train.Name);
 #endif
                     return (TrainFromPool.Delayed);
                 }
@@ -1259,7 +1284,13 @@ virtual public TrainFromPool ExtractTrain(ref TTTrain train, int presentTime)
 #if DEBUG_POOLINFO
                         sob = new StringBuilder();
                         sob.AppendFormat("Pool {0} : train {1} ({2}) waiting for incoming train {3} ({4})\n", PoolName, train.Number, train.Name, otherTTTrain.Number, otherTTTrain.Name);
-                        sob.AppendFormat("           stored units : {0}", reqStorage.StoredUnits.Count);
+
+                        int totalno1 = 0;
+                        foreach (PoolDetails selStorage in StoragePool)
+                        {
+                            totalno1 += selStorage.StoredUnits.Count;
+                        }
+                        sob.AppendFormat("           stored units {0} : {1} (total {2})", PoolName, reqStorage.StoredUnits.Count, totalno1);
                         File.AppendAllText(@"C:\temp\PoolAnal.csv", sob.ToString() + "\n");
 #endif
                         break;
@@ -1284,8 +1315,15 @@ virtual public TrainFromPool ExtractTrain(ref TTTrain train, int presentTime)
             {
 #if DEBUG_POOLINFO
                 sob = new StringBuilder();
-                sob.AppendFormat("Pool {0} : cannot find train {1} for {2} ({3}) \n", PoolName, selectedTrainNumber, train.Number, train.Name);
-                sob.AppendFormat("           stored units : {0}", reqStorage.StoredUnits.Count);
+
+                sob.AppendFormat("Pool {1} : cannot find train {2} for {3} ({4}) \n", PoolName, selectedTrainNumber, train.Number, train.Name);
+
+                int totalno2 = 0;
+                foreach (PoolDetails selStorage in StoragePool)
+                {
+                    totalno2 += selStorage.StoredUnits.Count;
+                }
+                sob.AppendFormat("           stored units {0} : {1} (total {2})", PoolName, reqStorage.StoredUnits.Count, totalno2);
                 File.AppendAllText(@"C:\temp\PoolAnal.csv", sob.ToString() + "\n");
 #endif
                 return (TrainFromPool.Delayed);
@@ -1301,8 +1339,15 @@ virtual public TrainFromPool ExtractTrain(ref TTTrain train, int presentTime)
 
 #if DEBUG_POOLINFO
             sob = new StringBuilder();
+
             sob.AppendFormat("Pool {0} : train {1} ({2}) extracted as {3} ({4}) \n", PoolName, selectedTrain.Number, selectedTrain.Name, train.Number, train.Name);
-            sob.AppendFormat("           stored units : {0}", reqStorage.StoredUnits.Count);
+
+            int totalno = 0;
+            foreach (PoolDetails selStorage in StoragePool)
+            {
+                totalno += selStorage.StoredUnits.Count;
+            }
+            sob.AppendFormat("           stored units {0} : {1} (total {2})", PoolName, reqStorage.StoredUnits.Count, totalno);
             File.AppendAllText(@"C:\temp\PoolAnal.csv", sob.ToString() + "\n");
 #endif
 
@@ -1444,6 +1489,9 @@ virtual public TrainFromPool ExtractTrain(ref TTTrain train, int presentTime)
             {
 #if DEBUG_TRACEINFO
                 Trace.TraceWarning("Failed to extract required train " + train.Name + " from pool " + PoolName + "\n");
+#endif
+#if DEBUG_POOLINFO
+                Trace.TraceWarning("Failed to extract required train " + train.Name + " from pool " + PoolName + "\n");
 #endif
                 return (TrainFromPool.Failed);
             }