#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);
}

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

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());
					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);
	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;

#ifdef WIN32
		fileTypes.push_back("bat");
#else
		fileTypes.push_back("csh");
#endif
		popup = new FileBrowserPopup(csp, fileTypes);

		popup->setOkAction(
			new TFileBrowserPopupAction<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;
	}
}