Support Board

SCSFExport scsf_ReadFromUnderlyingIntradayFileExample(SCStudyInterfaceRef sc)
{
  if (sc.SetDefaults)
  {
    // Set the configuration and defaults

    sc.GraphName = "Read from Underlying Intraday File Example";


    sc.AutoLoop = 0;

    sc.FreeDLL = 0;

    return;
  }

  if (sc.LastCallToFunction)
    return;

  s_IntradayRecord IntradayRecord;

  for (int FileIndex = sc.FileRecordIndexOfLastDataRecordInChart; FileIndex >= sc.FileRecordIndexOfLastDataRecordInChart - 10; FileIndex--)
  {
    bool FirstIteration = FileIndex == sc.FileRecordIndexOfLastDataRecordInChart;
    bool LastIteration = FileIndex <= sc.FileRecordIndexOfLastDataRecordInChart - 10;
    IntradayFileLockActionEnum IntradayFileLockAction = IFLA_NO_CHANGE;

    if (FirstIteration && LastIteration)
      IntradayFileLockAction = IFLA_LOCK_READ_RELEASE;
     else if (FirstIteration)
      IntradayFileLockAction = IFLA_LOCK_READ_HOLD;
    else if (LastIteration)
      IntradayFileLockAction = IFLA_RELEASE_AFTER_READ;

    sc.ReadIntradayFileRecordAtIndex(FileIndex, IntradayRecord, IntradayFileLockAction);

    SCDateTimeMS TradeTimestampInChartTimeZone = IntradayRecord.DateTime + sc.TimeScaleAdjustment;

  }

  // Could also use this line of code to release the lock if not sure when will be complete with reading and want to do it as a separate operation. An index of -1 signifies not actually to perform a read.
  ///sc.ReadIntradayFileRecordAtIndex( -1, IntradayRecord, IFLA_RELEASE_AFTER_READ);
    

}

/*============================================================================

----------------------------------------------------------------------------*/
SCSFExport scsf_ReadChartBarRecordsFromUnderlyingIntradayFileExample(SCStudyInterfaceRef sc)
{
  if (sc.SetDefaults)
  {
    // Set the configuration and defaults

    sc.GraphName = "Read Chart Bar Records from Underlying Intraday File Example";
    
    sc.AutoLoop = 0;

    sc.FreeDLL = 0;

    //this must be set to 1 in order to use the sc.ReadIntradayFileRecordForBarIndexAndSubIndex function.
    sc.MaintainAdditionalChartDataArrays = 1;

    return;
  }

  if (sc.LastCallToFunction)
    return;

  s_IntradayRecord IntradayRecord;

  if ( sc.GetBarHasClosedStatus(sc.UpdateStartIndex) == BHCS_BAR_HAS_NOT_CLOSED)//Only execute on updating of last bar.
  {
    int ReadSuccess = true;
    bool FirstIteration = true;
    uint32_t TotalVolume = 0;
    int SubIndex = 0;//Start at first record within bar

    //Read records until sc.ReadIntradayFileRecordForBarIndexAndSubIndex returns 0
    while (ReadSuccess)
    {
      IntradayFileLockActionEnum IntradayFileLockAction = IFLA_NO_CHANGE;

      if (FirstIteration)
      {
        IntradayFileLockAction = IFLA_LOCK_READ_HOLD;

        FirstIteration = false;
      }

      ReadSuccess = sc.ReadIntradayFileRecordForBarIndexAndSubIndex(sc.ArraySize - 1, SubIndex, IntradayRecord, IntradayFileLockAction);

      if (ReadSuccess)
      {
        TotalVolume += IntradayRecord.TotalVolume;
        ++SubIndex;
      }
    }

    sc.ReadIntradayFileRecordForBarIndexAndSubIndex(-1, -1, IntradayRecord, IFLA_RELEASE_AFTER_READ);

    SCString TotalVolumeString;
    TotalVolumeString.Format("Total volume: %u", TotalVolume);

    sc.AddMessageToLog(TotalVolumeString, 0);
  }
  
}