#include "scriptconfigpanel.h"

#include "filebrowserpopup.h"

#include "application.h"

#include "util.h"

#include "tsystem.h"

#include "tw/mainshell.h"

#include "tw/label.h"

#include "tw/button.h"

#include "tw/keycodes.h"

#include "tw/message.h"

using namespace TwConsts;

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

PathFileField::PathFileField(TWidget *parent, string name)

    : TTextField(parent, name) {

  m_page = dynamic_cast<scriptconfigpanel *="">(parent);</scriptconfigpanel>

}

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

void PathFileField::onFocusChange(bool on) {

  if (!on) close();

  TWidget::onFocusChange(on);

}

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

void PathFileField::close() {

  static wstring oldText;

  if (oldText != m_text) {

    TFilePath fp(m_text);

    try {

      wstring uncString;

      try {

        uncString = toWideString(convertToUncString(fp));

        m_text    = uncString;

        m_page->loadScript(TFilePath(uncString));

      } catch (TException &) {

        TFileStatus fs(fp);

        if (fs.doesExist() && !fs.isDirectory())

          m_page->loadScript(fp);

        else {

          ScriptTask *task = dynamic_cast<scripttask *="">(m_page->getTask());</scripttask>

          if (task) task->m_arg1 = toString(m_text);

        }

      }

      oldText = m_text;

    } catch (...) {

      TMessage::error("boh");

    }

  }

  invalidate();

}

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

void PathFileField::keyDown(int key, unsigned long flags, const TPoint &p) {

  if (key == TK_Return)

    close();

  else

    TTextField::keyDown(key, flags, p);

}

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

enum textFieldType { M_ARG1 = 0, M_ARG2, M_ARG3, M_ARG4, M_ARG5 };

class ArgumentChanger : public TTextField::Action {

  ScriptConfigPanel *m_scp;

  textFieldType m_typeField;

public:

  ArgumentChanger(ScriptConfigPanel *scp, textFieldType type)

      : m_scp(scp), m_typeField(type) {}

  void sendCommand(std::wstring value) {

    m_scp->onTextField(toString(value), m_typeField);

  }

};

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

ScriptConfigPanel::ScriptConfigPanel(TWidget *parent)

    : TaskConfigPanel(parent), m_task(new ScriptTask()) {

  m_fileLbl = new TLabel(this);

  m_fileLbl->setText("Arg #1:");

  m_file      = new PathFileField(this);

  m_browseBtn = new TButton(this);

  m_browseBtn->setTitle("...");

  tconnect(*m_browseBtn, this, &ScriptConfigPanel::browseFiles);

  // m_file->addAction(new ArgumentChanger(this, M_ARG1));

  m_arg2Lbl = new TLabel(this);

  m_arg2Lbl->setText("Arg #2:");

  m_arg2 = new TTextField(this);

  m_arg2->addAction(new ArgumentChanger(this, M_ARG2));

  m_arg3Lbl = new TLabel(this);

  m_arg3Lbl->setText("Arg #3:");

  m_arg3 = new TTextField(this);

  m_arg3->addAction(new ArgumentChanger(this, M_ARG3));

  m_arg4Lbl = new TLabel(this);

  m_arg4Lbl->setText("Arg #4:");

  m_arg4 = new TTextField(this);

  m_arg4->addAction(new ArgumentChanger(this, M_ARG4));

  m_arg5Lbl = new TLabel(this);

  m_arg5Lbl->setText("Arg #5:");

  m_arg5 = new TTextField(this);

  m_arg5->addAction(new ArgumentChanger(this, M_ARG5));

}

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

void ScriptConfigPanel::configureNotify(const TDimension &d) {

  int x0 = 20;

  int y  = d.ly - 1 - 10;

  int x = x0;

  m_fileLbl->setGeometry(x, y - 15, x + 100, y);

  m_file->setGeometry(x + 104, y - 15, x + 650, y);

  m_browseBtn->setGeometry(x + 660, y - 15, x + 680, y);

  y -= 40;

  m_arg2Lbl->setGeometry(x, y - 15, x + 100, y);

  m_arg2->setGeometry(x + 104, y - 15, x + 650, y);

  y -= 40;

  m_arg3Lbl->setGeometry(x, y - 15, x + 100, y);

  m_arg3->setGeometry(x + 104, y - 15, x + 650, y);

  y -= 40;

  m_arg4Lbl->setGeometry(x, y - 15, x + 100, y);

  m_arg4->setGeometry(x + 104, y - 15, x + 650, y);

  y -= 40;

  m_arg5Lbl->setGeometry(x, y - 15, x + 100, y);

  m_arg5->setGeometry(x + 104, y - 15, x + 650, y);

}

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

void ScriptConfigPanel::setTask(SubmitPageTask *task) {

  m_task = dynamic_cast<scripttask *="">(task);</scripttask>

  assert(m_task);

  m_file->setText(m_task->m_arg1);

  m_arg2->setText(m_task->m_arg2);

  m_arg3->setText(m_task->m_arg3);

  m_arg4->setText(m_task->m_arg4);

  m_arg5->setText(m_task->m_arg5);

}

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

SubmitPageTask *ScriptConfigPanel::getTask() const { return m_task; }

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

void ScriptConfigPanel::browseFiles() {

  static FileBrowserPopup *popup = 0;

  if (!popup) {

    ScriptConfigPanel *csp = this;

    vector<string> fileTypes;</string>

#ifdef WIN32

    fileTypes.push_back("bat");

#else

    fileTypes.push_back("csh");

#endif

    popup = new FileBrowserPopup(csp, fileTypes);

    popup->setOkAction(new TFileBrowserPopupAction<scriptconfigpanel>(</scriptconfigpanel>

        csp, &ScriptConfigPanel::loadScript));

  }

  if (!popup) return;

  TFilePath fp = Application::instance()->getCurrentFolder();

  /*

E'stato necessario fare questo controllo perche' il popup non e' in grado

di impostare opportunamente le cose

*/

  string path = toString(fp.getWideString()).c_str();

  if (fp != TFilePath() && (path[0] != '\\')) popup->setCurrentDir(fp);

  TDimension d = TMainshell::getMainshell()->getSize();

#ifdef WIN32

  HDC hdc = GetDC(0);

  d.lx    = GetDeviceCaps(hdc, HORZRES);

  d.ly    = GetDeviceCaps(hdc, VERTRES);

  ReleaseDC(0, hdc);

#endif

  d -= popup->getSize();

  // TDimension d = TMainshell::getMainshell()->getSize() - popup->getSize();

  popup->popup(TPoint(d.lx / 2, d.ly / 2));

  popup->setCaption("Load Script");

}

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

void ScriptConfigPanel::loadScript(const TFilePath &fp) {

  if (!TFileStatus(fp).doesExist()) {

    string msg = toString(fp.getWideString()) + "\n";

    msg += "File not found\n";

    msg += "Please verify that the path and file name are correct";

    m_file->setText("");

    TMessage::error(msg);

    return;

  }

  wstring uncString = fp.getWideString();

  if (m_file->getText() != uncString) try {

      uncString = toWideString(convertToUncString(fp));

    } catch (TException &e) {

      TMessage::error(toString(e.getMessage()));

      return;

    }

  Application::instance()->setCurrentFolder(fp.getParentDir());

  m_file->setText(uncString);

  /*

#ifdef WIN32

int x = uncString.find("\\",2);

while (x != string::npos)

{

uncString.replace(x,1,"/",0,1);

x = uncString.find("\\",x+1);

}

#endif

*/

  m_task->m_arg1 = toString(uncString);

}

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

void ScriptConfigPanel::onTextField(string value, int type) {

  if (!m_task) return;

  switch (type) {

  case M_ARG1:

    m_task->m_arg1 = value;

    break;

  case M_ARG2:

    m_task->m_arg2 = value;

    break;

  case M_ARG3:

    m_task->m_arg3 = value;

    break;

  case M_ARG4:

    m_task->m_arg4 = value;

    break;

  case M_ARG5:

    m_task->m_arg5 = value;

    break;

  }

}