#include "tproperty.h"
#include "tstream.h"
#include "texception.h"
//#include "tconvert.h"

void TProperty::addListener(Listener *listener) {
  if (std::find(m_listeners.begin(), m_listeners.end(), listener) ==
      m_listeners.end())
    m_listeners.push_back(listener);
}

void TProperty::removeListener(Listener *listener) {
  m_listeners.erase(
      std::remove(m_listeners.begin(), m_listeners.end(), listener),
      m_listeners.end());
}

void TProperty::notifyListeners() const {
  std::vector<Listener *>::const_iterator it;
  for (it = m_listeners.begin(); it != m_listeners.end(); ++it)
    (*it)->onPropertyChanged();
}

//=============================================================================

TPropertyGroup::TPropertyGroup() {}

TPropertyGroup::~TPropertyGroup() {
  for (PropertyVector::iterator it = m_properties.begin();
       it != m_properties.end(); ++it)
    if (it->second) delete it->first;
}

void TPropertyGroup::clear() {
  m_properties.clear();
  m_table.clear();
}

TPropertyGroup *TPropertyGroup::clone() const {
  TPropertyGroup *g = new TPropertyGroup();
  for (PropertyVector::const_iterator i = m_properties.begin();
       i != m_properties.end(); ++i)
    g->add(i->first->clone());
  return g;
}

void TPropertyGroup::add(TProperty *p) {
  std::string name = p->getName();
  assert(m_table.find(name) == m_table.end());
  m_properties.push_back(std::make_pair(p, true));
  m_table[name] = p;
}

void TPropertyGroup::bind(TProperty &p) {
  std::string name = p.getName();
  assert(m_table.find(name) == m_table.end());
  m_properties.push_back(std::make_pair(&p, false));
  m_table[name] = &p;
}

TProperty *TPropertyGroup::getProperty(std::string name) {
  PropertyTable::iterator i = m_table.find(name);
  if (i == m_table.end())
    return 0;
  else
    return i->second;
}

template <class Property>
void assign(Property *dst, TProperty *src) {
  Property *s = dynamic_cast<Property *>(src);
  if (!s) throw TProperty::TypeError();
  dst->setValue(s->getValue());
}

class Setter final : public TProperty::Visitor {
  TProperty *m_src;

public:
  Setter(TProperty *src) : m_src(src) {}

  void visit(TDoubleProperty *dst) override { assign(dst, m_src); }
  void visit(TIntProperty *dst) override { assign(dst, m_src); }
  void visit(TStringProperty *dst) override { assign(dst, m_src); }
  void visit(TBoolProperty *dst) override { assign(dst, m_src); }
  void visit(TEnumProperty *dst) override { assign(dst, m_src); }
  void visit(TDoublePairProperty *dst) override { assign(dst, m_src); }
  void visit(TIntPairProperty *dst) override { assign(dst, m_src); }
  void visit(TStyleIndexProperty *dst) override { assign(dst, m_src); }
  void visit(TPointerProperty *dst) override { assign(dst, m_src); }
};

void TPropertyGroup::setProperties(TPropertyGroup *g) {
  for (PropertyVector::const_iterator i = g->m_properties.begin();
       i != g->m_properties.end(); ++i) {
    TProperty *src = i->first;
    TProperty *dst = getProperty(src->getName());
    if (dst) {
      Setter setter(src);
      TProperty::Visitor *visitor = &setter;
      dst->accept(*visitor);
    }
  }
}

void TPropertyGroup::accept(TProperty::Visitor &v) {
  for (PropertyVector::const_iterator i = m_properties.begin();
       i != m_properties.end(); ++i)
    i->first->accept(v);
}

class PropertyWriter final : public TProperty::Visitor {
  TOStream &m_os;

public:
  PropertyWriter(TOStream &os) : m_os(os) {}

  void visit(TDoubleProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]  = "double";
    attr["name"]  = p->getName();
    attr["min"]   = std::to_string(p->getRange().first);
    attr["max"]   = std::to_string(p->getRange().second);
    attr["value"] = std::to_string(p->getValue());
    m_os.openCloseChild("property", attr);
  }
  void visit(TDoublePairProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]                     = "pair";
    attr["name"]                     = p->getName();
    attr["min"]                      = std::to_string(p->getRange().first);
    attr["max"]                      = std::to_string(p->getRange().second);
    TDoublePairProperty::Value value = p->getValue();
    attr["value"] =
        std::to_string(value.first) + " " + std::to_string(value.second);
    m_os.openCloseChild("property", attr);
  }
  void visit(TIntPairProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]                  = "pair";
    attr["name"]                  = p->getName();
    attr["min"]                   = std::to_string(p->getRange().first);
    attr["max"]                   = std::to_string(p->getRange().second);
    TIntPairProperty::Value value = p->getValue();
    attr["value"] =
        std::to_string(value.first) + " " + std::to_string(value.second);
    m_os.openCloseChild("property", attr);
  }
  void visit(TIntProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]  = "int";
    attr["name"]  = p->getName();
    attr["min"]   = std::to_string(p->getRange().first);
    attr["max"]   = std::to_string(p->getRange().second);
    attr["value"] = std::to_string(p->getValue());
    m_os.openCloseChild("property", attr);
  }
  void visit(TBoolProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]  = "bool";
    attr["name"]  = p->getName();
    attr["value"] = p->getValue() ? "true" : "false";
    m_os.openCloseChild("property", attr);
  }
  void visit(TStringProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]  = "string";
    attr["name"]  = p->getName();
    attr["value"] = ::to_string(p->getValue());
    m_os.openCloseChild("property", attr);
  }

  void visit(TStyleIndexProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]  = "string";
    attr["name"]  = p->getName();
    attr["value"] = p->getValueAsString();
    m_os.openCloseChild("property", attr);
  }

  void visit(TEnumProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]  = "enum";
    attr["name"]  = p->getName();
    attr["value"] = ::to_string(p->getValue());
    if (TEnumProperty::isRangeSavingEnabled()) {
      m_os.openChild("property", attr);
      std::vector<std::wstring> range = p->getRange();
      for (int i = 0; i < (int)range.size(); i++) {
        attr.clear();
        attr["value"] = ::to_string(range[i]);
        m_os.openCloseChild("item", attr);
      }
      m_os.closeChild();
    } else
      m_os.openCloseChild("property", attr);
  }
  void visit(TPointerProperty *p) override {
    std::map<std::string, std::string> attr;
    attr["type"]  = "pointer";
    attr["name"]  = p->getName();
    attr["value"] = p->getValueAsString();
    m_os.openCloseChild("property", attr);
  }
};

void TPropertyGroup::loadData(TIStream &is) {
  for (PropertyVector::iterator it = m_properties.begin();
       it != m_properties.end(); ++it)
    if (it->second) delete it->first;
  m_properties.clear();
  m_table.clear();
  std::string tagName;
  while (is.matchTag(tagName)) {
    if (tagName == "property") {
      std::string name   = is.getTagAttribute("name");
      std::string type   = is.getTagAttribute("type");
      std::string svalue = is.getTagAttribute("value");
      if (name == "") throw TException("missing property name");
      if (type == "") throw TException("missing property type");
      if (type != "string" && svalue == "")
        throw TException("missing property value");
      if (type == "double") {
        double min = std::stod(is.getTagAttribute("min"));
        double max = std::stod(is.getTagAttribute("max"));
        add(new TDoubleProperty(name, min, max, std::stod(svalue)));
      }
      if (type == "pair") {
        double min = std::stod(is.getTagAttribute("min"));
        double max = std::stod(is.getTagAttribute("max"));
        TDoublePairProperty::Value v(0, 0);
        int i = svalue.find(' ');
        if (i != (int)std::string::npos) {
          v.first  = std::stod(svalue.substr(0, i));
          v.second = std::stod(svalue.substr(i + 1));
        }
        add(new TDoublePairProperty(name, min, max, v.first, v.second));
      } else if (type == "int") {
        int min = std::stoi(is.getTagAttribute("min"));
        int max = std::stoi(is.getTagAttribute("max"));
        add(new TIntProperty(name, min, max, std::stoi(svalue)));
      } else if (type == "bool") {
        if (svalue != "true" && svalue != "false")
          throw TException("bad boolean property value");
        add(new TBoolProperty(name, svalue == "true" ? true : false));
      } else if (type == "string") {
        add(new TStringProperty(name, ::to_wstring(svalue)));
      } else if (type == "enum") {
        TEnumProperty *p = new TEnumProperty(name);
        if (is.isBeginEndTag())
          p->addValue(::to_wstring(svalue));
        else {
          while (is.matchTag(tagName)) {
            if (tagName == "item") {
              std::string item = is.getTagAttribute("value");
              p->addValue(::to_wstring(item));
            } else
              throw TException("expected range property <item>");
          }
          is.closeChild();
        }
        p->setValue(::to_wstring(svalue));
        add(p);
      } else
        throw TException("unrecognized property type : " + type);
    } else
      throw TException("expected <property>");
    // is.closeChild();
  }
}

void TPropertyGroup::saveData(TOStream &os) const {
  PropertyWriter writer(os);
  const_cast<TPropertyGroup *>(this)->accept(writer);
}

namespace {
bool EnumRangeSavingEnabled = true;
}

void TEnumProperty::enableRangeSaving(bool on) { EnumRangeSavingEnabled = on; }

bool TEnumProperty::isRangeSavingEnabled() { return EnumRangeSavingEnabled; }