//+------------------------------------------------------------------+
//|                                                PolicyDump.mq5    |
//| Purpose: Dump DualEA policy.json summary to Journal              |
//| Location: FILE_COMMON/DualEA/policy.json                         |
//+------------------------------------------------------------------+
#property script_show_inputs

input string InPolicyPath   = "DualEA\\policy.json";  // FILE_COMMON path
input int    MaxPrintSlices  = 20;                      // how many slices to print

// Trim helpers
string TrimCopy(string s)
{
   StringTrimLeft(s);
   StringTrimRight(s);
   return s;
}

void OnStart()
{
   string path = InPolicyPath;
   int h = FileOpen(path, FILE_READ|FILE_TXT|FILE_COMMON|FILE_ANSI);
   if(h==INVALID_HANDLE)
   {
      PrintFormat("PolicyDump: cannot open %s (Common). Err=%d", path, GetLastError());
      return;
   }

   double min_conf = 0.0;
   // current object fields
   string cur_s = "";
   string cur_y = "";
   int    cur_tf = -1;
   double cur_p  = -1.0;
   double cur_sl = 1.0, cur_tp = 1.0, cur_tr = 1.0;

   // storage for first MaxPrintSlices
   string s_list[]; string y_list[]; int tf_list[]; double p_list[]; double sl_list[]; double tp_list[]; double tr_list[];
   int total = 0;

   while(!FileIsEnding(h))
   {
      string line = FileReadString(h);
      if(line=="" && FileIsEnding(h)) break;

      int p;
      // min_confidence
      p = StringFind(line, "\"min_confidence\"", 0);
      if(p>=0)
      {
         int c = StringFind(line, ":", p);
         if(c>=0)
         {
            string num = TrimCopy(StringSubstr(line, c+1));
            double v = StringToDouble(num);
            if(v>0.0) min_conf = v;
         }
      }
      // strategy
      p = StringFind(line, "\"strategy\"", 0);
      if(p>=0)
      {
         int q = StringFind(line, ",", p+1); string seg = (q>p? StringSubstr(line, p, q-p) : StringSubstr(line, p));
         int c3=StringFind(seg, "\"", 0); c3 = StringFind(seg, "\"", c3+1); int c4=StringFind(seg, "\"", c3+1); int c5=StringFind(seg, "\"", c4+1);
         if(c4>0 && c5>c4) cur_s = StringSubstr(seg, c4+1, c5-c4-1);
      }
      // symbol
      p = StringFind(line, "\"symbol\"", 0);
      if(p>=0)
      {
         int q = StringFind(line, ",", p+1); string seg = (q>p? StringSubstr(line, p, q-p) : StringSubstr(line, p));
         int c3=StringFind(seg, "\"", 0); c3 = StringFind(seg, "\"", c3+1); int c4=StringFind(seg, "\"", c3+1); int c5=StringFind(seg, "\"", c4+1);
         if(c4>0 && c5>c4) cur_y = StringSubstr(seg, c4+1, c5-c4-1);
      }
      // timeframe
      p = StringFind(line, "\"timeframe\"", 0);
      if(p>=0)
      {
         int c = StringFind(line, ":", p);
         if(c>=0){ string num = TrimCopy(StringSubstr(line, c+1)); cur_tf = (int)StringToInteger(num); }
      }
      // p_win
      p = StringFind(line, "\"p_win\"", 0);
      if(p>=0)
      {
         int c = StringFind(line, ":", p);
         if(c>=0){ string num = TrimCopy(StringSubstr(line, c+1)); cur_p = StringToDouble(num); }
      }
      // sl_scale
      p = StringFind(line, "\"sl_scale\"", 0);
      if(p>=0)
      {
         int c = StringFind(line, ":", p); if(c>=0){ string num = TrimCopy(StringSubstr(line, c+1)); double v = StringToDouble(num); if(v>0) cur_sl = v; }
      }
      // tp_scale
      p = StringFind(line, "\"tp_scale\"", 0);
      if(p>=0)
      {
         int c = StringFind(line, ":", p); if(c>=0){ string num = TrimCopy(StringSubstr(line, c+1)); double v = StringToDouble(num); if(v>0) cur_tp = v; }
      }
      // trail_atr_mult
      p = StringFind(line, "\"trail_atr_mult\"", 0);
      if(p>=0)
      {
         int c = StringFind(line, ":", p); if(c>=0){ string num = TrimCopy(StringSubstr(line, c+1)); double v = StringToDouble(num); if(v>0) cur_tr = v; }
      }

      // Commit object when complete
      if(cur_s!="" && cur_y!="" && cur_tf!=-1 && cur_p>=0.0)
      {
         total++;
         if(ArraySize(s_list) < MaxPrintSlices)
         {
            int n = ArraySize(s_list);
            ArrayResize(s_list,n+1); ArrayResize(y_list,n+1); ArrayResize(tf_list,n+1);
            ArrayResize(p_list,n+1); ArrayResize(sl_list,n+1); ArrayResize(tp_list,n+1); ArrayResize(tr_list,n+1);
            s_list[n]=cur_s; y_list[n]=cur_y; tf_list[n]=cur_tf;
            p_list[n]=cur_p; sl_list[n]=cur_sl; tp_list[n]=cur_tp; tr_list[n]=cur_tr;
         }
         // Reset current
         cur_s=""; cur_y=""; cur_tf=-1; cur_p=-1.0; cur_sl=1.0; cur_tp=1.0; cur_tr=1.0;
      }
   }
   FileClose(h);

   PrintFormat("PolicyDump: min_confidence=%.3f, slices=%d", min_conf, total);
   int N = ArraySize(s_list);
   for(int i=0;i<N;++i)
   {
      PrintFormat("PolicyDump: [%d] %s | %s | tf=%d | p=%.3f | sl=%.2f tp=%.2f tr=%.2f",
                  i+1, s_list[i], y_list[i], tf_list[i], p_list[i], sl_list[i], tp_list[i], tr_list[i]);
   }
   if(total>N)
      PrintFormat("PolicyDump: (only first %d slices shown)", N);
}