#include "tdoubleparamfile.h"

#include "tfilepath_io.h"

#include "tconvert.h"

namespace {

//---------------------------------------------------------

bool parseDouble(double &value, char *&s) {

  if (!(*s == '-' || *s == '.' || '0' <= *s && *s <= '9')) return false;

  char *t = s;

  if (*s == '-') s++;

  while ('0' <= *s && *s <= '9') s++;

  if (*s == '.') {

    s++;

    while ('0' <= *s && *s <= '9') s++;

    if (*s == 'e' || *s == 'E') {

      s++;

      if (*s == '+' || *s == '-') s++;

      while ('0' <= *s && *s <= '9') s++;

    }

  }

  std::string w(t, s - t);

  value = std::stod(w);

  return true;

}

//---------------------------------------------------------

int split(std::vector<double> &values, char *s) {</double>

  int count = 0;

  for (;;) {

    while (*s == ' ' || *s == '\t') s++;

    if (*s == '\0') break;

    double value = 0;

    bool found   = parseDouble(value, s);

    if (found) {

      count++;

      values.push_back(value);

      while (*s == ' ' || *s == '\t') s++;

    }

    if (*s == ',' || *s == ';') {

      if (!found) {

        count++;

        values.push_back(0);

      }

      s++;

    } else {

      if (!found) break;

    }

  }

  return count;

}

//---------------------------------------------------------

}  // namespace

//---------------------------------------------------------

TDoubleParamFileData::TDoubleParamFileData() : m_params(), m_dirtyFlag(false) {}

//---------------------------------------------------------

TDoubleParamFileData::~TDoubleParamFileData() {}

//---------------------------------------------------------

void TDoubleParamFileData::setParams(

    const TDoubleKeyframe::FileParams ¶ms) {

  m_params = params;

  invalidate();

}

//---------------------------------------------------------

void TDoubleParamFileData::invalidate() {

  m_dirtyFlag = true;

  m_values.clear();

}

//---------------------------------------------------------

double TDoubleParamFileData::getValue(double frame, double defaultValue) {

  if (frame < 0) return defaultValue;

  int intFrame = (int)frame;

  if (m_dirtyFlag) read();

  if (intFrame >= (int)m_values.size())

    return defaultValue;

  else

    return m_values[intFrame];

}

//---------------------------------------------------------

void TDoubleParamFileData::read() {

  m_dirtyFlag = false;

  m_values.clear();

  int k = m_params.m_fieldIndex;

  if (k < 0) return;

  TFilePath fp = m_params.m_path;

  Tifstream is(fp);

  char buffer[2048];

  memset(buffer, 0, sizeof buffer);

  while (is) {

    is.getline(buffer, sizeof(buffer) - 1);

    std::vector<double> fields;</double>

    QString line(buffer);

    if (line.size() == 0 || line.startsWith("#")) continue;

    split(fields, buffer);

    double value                      = 0;

    if (k < (int)fields.size()) value = fields[k];

    m_values.push_back(value);

  }

}

//---------------------------------------------------------