/*
 * TickMarkDecorator.cc
 *
 *  Created on: Dec 18, 2013
 *      Author: amdadev
 */

#include "TickMarkDecorator.hh"

#include <iosfwd>
#include <boost/format.hpp>
#include <tuple>

#include "log4cxx/logger.h"
#include "plplot/plplot.h"

#include "boost/exception/all.hpp"

#include "PlotLogger.hh"
#include "TimeAxis.hh"
#include "Page.hh"
#include "Time/TimePlot.hh"
#include "TickPlot.hh"
#include "PlPlotUtil.hh"
#include "ParamMgr.hh"

using boost::tuples::get;

namespace plot {

log4cxx::LoggerPtr TickMarkDecorator::_logger(
		log4cxx::Logger::getLogger("AMDA-Kernel.Plot.Time.TickMarkDecorator"));

TickMarkDecorator::TickMarkDecorator (bool isStandalone, PanelPlotOutput* decoratorPlot) :
		TimeAxisDecorator(),
		_seriesInfoList(),
		_valuesFormat("% -4.4G"),
		_maxValueLen(0),
		_isStandalone(isStandalone),
		_decoratorPlot(decoratorPlot) {
	_pTimeInfo = TimeInfoPtr(new TimeInfo());
}

TickMarkDecorator::TickMarkDecorator(const TickMarkDecorator& ref_) :
		TimeAxisDecorator(ref_), _seriesInfoList(
				ref_._seriesInfoList), _valuesFormat(ref_._valuesFormat), _maxValueLen(
				ref_._maxValueLen), _isStandalone(ref_._isStandalone), _decoratorPlot(
				ref_._decoratorPlot) {
	_pTimeInfo = TimeInfoPtr(new TimeInfo(*(ref_._pTimeInfo)));
}

TickMarkDecorator& TickMarkDecorator::operator=(const TickMarkDecorator& ref_) {
	if (_pTimeInfo == nullptr) {
		_pTimeInfo = boost::shared_ptr<TimeInfo>(
				new TimeInfo(*(ref_._pTimeInfo)));
	} else {
		_pTimeInfo->_timeFormat = ref_._pTimeInfo->_timeFormat;
		_pTimeInfo->_timeTitle = ref_._pTimeInfo->_timeTitle;
		_pTimeInfo->_maxLen = ref_._pTimeInfo->_maxLen;
	}
	_seriesInfoList = ref_._seriesInfoList;
	_valuesFormat = ref_._valuesFormat;
	_maxValueLen = ref_._maxValueLen;
	_isStandalone = ref_._isStandalone;
	_decoratorPlot = ref_._decoratorPlot;

	return *this;
}

TickMarkDecorator::~TickMarkDecorator() {
}

void TickMarkDecorator::updatePlotArea(PanelPlotOutput* pplot_, Axis* axis_, Bounds& bounds_) {

	LOG4CXX_DEBUG(_logger, "TickMarkDecorator Updating plot area : "<<bounds_.toString());

	TimeAxis* pAxis = (TimeAxis*) axis_;

	// gets plot margins :
	Margin m = pplot_->getMargin();
	// calculate char size for labels:
	Font legendFont(pAxis->_legend.getFont());
	Font panelFont(pplot_->_panel->getFont());
	if (!legendFont.isSet()) {
		legendFont = panelFont;
	}

	PlPlotUtil::setPlFont(legendFont);
	CharSize legendSize = PlPlotUtil::getCharacterSizeInPlPage(pplot_->_panel->_page);

	double tickmarkSpace = 0;

	if (pAxis->_visible) {
		// process room for label tickmarks :
		double lineHeight = legendSize.second * 2;
		// take into account first space between time label
		tickmarkSpace += lineHeight * 1.5;
		// reserve space for all series labels :
		tickmarkSpace += (lineHeight * _seriesInfoList.size());
	} else {
		LOG4CXX_DEBUG(_logger, " Axis not visible nothing to do.");
	}

	// update y and height; x and width are left unchanged.
	// origin of viewport is at left,bottom corner.

	// to take into account the tickmarks.
	bounds_._height -= tickmarkSpace;
	// specific case when axis labels are displayed at bottom of the graph. Needs to update y.
	if (pAxis->_position == PlotCommon::POS_BOTTOM) {
		bounds_._y += tickmarkSpace;
	}
	//	needs to reserve enough space for start date above
	PlPlotUtil::setPlFont(pplot_->_panel->getFont());
	CharSize startDateSize = PlPlotUtil::getCharacterSizeInPlPage(pplot_->_panel->_page);
	bounds_._height -= startDateSize.second * 3;
	bounds_._y += startDateSize.second * 3;

	// take margins into account :
	// compute what we need for labels at left side :
	// reserve same space amount in both side (since text are centered on ticks, only half length is taken into account).
	double minspaceleft = std::max((const int) (_pTimeInfo->_maxLen + 1),
			(const int) _maxValueLen + 1);
	if (legendFont.getSize() > panelFont.getSize()) {
		minspaceleft *= legendSize.first;
	} else {
		PlPlotUtil::setPlFont(panelFont);
		CharSize panelSize = PlPlotUtil::getCharacterSizeInPlPage(pplot_->_panel->_page);
		minspaceleft *= panelSize.first;
	}
	minspaceleft *= 0.5;
	double minspaceright = minspaceleft;

	// we also need to reserve enough space for start date information
	// (only in width, because height is already taken into account in PlotPanelOutput).
	if (pAxis->_reverse) {
		minspaceright = std::max(minspaceright,
				computeStartDateWidth(pplot_, pAxis));
	} else {
		minspaceleft = std::max(minspaceleft,
				computeStartDateWidth(pplot_, pAxis));
	}

//	LOG4CXX_DEBUG(_logger,"min space="<<minspace<<" margin.left="<<m._left <<" margin.right="<<m._right);
	if (m._left < minspaceleft) {
		// adjust x bounds :
		bounds_._x += (minspaceleft - m._left);
		bounds_._width -= (minspaceleft - m._left);
	}

	if (m._right < minspaceright) {
		// adjust only width bounds :
		bounds_._width -= (minspaceright - m._right);
	}
	// specific case of only tickmarks graph
	if (pAxis->isOnlyTickmarks()) {
		// since there is no graph to plot, reduce plot area to minimum :
		bounds_._height = legendSize.second * 2;
	}

	LOG4CXX_DEBUG(_logger, "Updated plot area : "<<bounds_.toString());
}

double TickMarkDecorator::computeStartDateWidth(PanelPlotOutput* pplot_,
		TimeAxis* pAxis_) {
	// not very efficient ...
	long int lTime = static_cast<long int>(pAxis_->getRange().getMin());
	tm * lTimeTm = gmtime(&lTime);
	char lTimeChr[80];

	// Format date.
	size_t datelen =
			strftime(lTimeChr, 80,
					getPlStartTimeFormat(pAxis_->_timeFormat,
							pAxis_->getRange().getMin(),
							pAxis_->getRange().getMax()).c_str(), lTimeTm);
	PlPlotUtil::setPlFont(pplot_->_panel->getFont());
	CharSize fontSize = PlPlotUtil::getCharacterSizeInPlPage(pplot_->_panel->_page);
	return fontSize.first * datelen;
}

void TickMarkDecorator::configure(PanelPlotOutput* pplot_, Axis* axis_, double start_,
		double stop_, std::map<std::string, ParameterData> *pParameterValues) {
	LOG4CXX_DEBUG(_logger, "TickMarkDecorator::configure");
	_pParameterValues = pParameterValues;

	// retrieve time axis
	TimeAxis* pTimeAxis = (TimeAxis*) axis_;

	// configure x axis range
	pTimeAxis->setRange(start_, stop_);

	// show xAxis or not
	pTimeAxis->setOnlyTickmarks(_isStandalone);

	setPlFormat(
			getPlTimeFormat(pTimeAxis->_timeFormat,
					pTimeAxis->getRange().getMin(),
					pTimeAxis->getRange().getMax(),
					getMajorTickNumber(pTimeAxis,
							pTimeAxis->getRange().getMin(),
							pTimeAxis->getRange().getMax())));

	// install label generator
	installLabelGenerator(pplot_, pTimeAxis);

}

void TickMarkDecorator::draw(PanelPlotOutput* pplot_, Axis* axis_,
		std::shared_ptr<plstream> pls_) {

	// draw a virtual axis for each entry // take into account plot orientation
	TimeAxis* pAxis = (TimeAxis*) axis_;

	// tick configuration for this axis :
	double xtick = getMajorTickSpace(pAxis, pAxis->getRange().getMin(),
			pAxis->getRange().getMax());
	int nxsub = getMinorTickNumber(pAxis, pAxis->getRange().getMin(),
			pAxis->getRange().getMax(), xtick);

	// set color for drawing axis :
	Color lInitialColor = changeColor(pls_, pAxis->_color,
			pplot_->_panel->_page->_mode);

	// Set tick (major and minor) length factor
	PLFLT lTickLenFact = PanelPlotOutput::DEFAULT_TICK_LENGTH_FACTOR;
	if (!isnan(pAxis->_tick._lengthFactor)) {
		lTickLenFact = pAxis->_tick._lengthFactor;
	}
	// 0 => keep tick height in millimeters.
	pls_->smaj(0, lTickLenFact);
	pls_->smin(0, lTickLenFact);

	// Set font to draw axes.
	std::vector<Font::Style> panelStyles;
	Font panelFont(pplot_->_panel->getFont());

	Font legendFont(pAxis->_legend.getFont());
	if (!legendFont.isSet()) {
		// font has not been defined for that axis, used default panel font :
		legendFont = panelFont;
	}


	// viewport translation only along y direction: we translate about n charHeight. So, gets panel character height.
	PlPlotUtil::setPlFont(panelFont);
	CharSize panelCharSize = PlPlotUtil::getCharacterSizeInPlPage(pplot_->_panel->_page);

	PlPlotUtil::setPlFont(legendFont);
	CharSize legendCharSize = PlPlotUtil::getCharacterSizeInPlPage(pplot_->_panel->_page);

	double yInc = legendCharSize.second * 1.2;

	std::string options = "";
	int start;
	int end;
	int dir;
	double yDelta = 0;
	bool top = (pAxis->_position == PlotCommon::POS_TOP);

	PlPlotUtil::setPlFont(legendFont);

	if (top) {
		options = "mxo"; // options means : m=display above axe, x=do not plot ticks, o=user label function provided.
		start = _seriesInfoList.size() - 1;
		end = -1;
		dir = -1;
		yDelta = 0;
	} else {
		options = "nxo";// options means : n=display below axe, x=do not plot ticks, o=user label function provided.
		start = 0;
		end = _seriesInfoList.size();
		dir = 1;
		yDelta = yInc;
	}

	bool isFirst = true;
	for (int i = start; i != end; i += dir) {
		// Get plot area viewport
		PLFLT lXMin, lXMax, lYMin, lYMax;
		pls_->gvpd(lXMin, lXMax, lYMin, lYMax);

		// Get window
		PLFLT xwmin, xwmax, ywmin, ywmax;
		pls_->gvpw(xwmin, xwmax, ywmin, ywmax);

		double position = top ? lYMax : lYMin;

		if (isFirst) {
			//Draw time axis legend
			if (top) {
				pls_->vpor(lXMin, lXMax, position - yInc, position);
			}
			else {
				pls_->vpor(lXMin, lXMax, position, position + yInc);
			}
			pls_->wind(xwmin, xwmax, 0, 1);
			pls_->mtex("lv", 4, top ? 2 : -1, 1, _pTimeInfo->_timeTitle.c_str());
			isFirst = false;
		}


		position -= yDelta * dir;

		if (!_seriesInfoList[i]->_description.empty()) {
			// Draw description
			if (top) {
				pls_->vpor(lXMin, lXMax, position + yInc, position + 2*yInc);
			}
			else {
				pls_->vpor(lXMin, lXMax, position, position + yInc);
				position -= yInc;
			}
			pls_->wind(xwmin, xwmax, 0, 1);
			pls_->mtex("lv", 4, top ? 2 : -1, 1, _seriesInfoList[i]->_description.c_str());
		}

		pls_->vpor(lXMin, lXMax, position, position + yInc);
		pls_->wind(xwmin, xwmax, 0, 1);
		
		// install label generator specific for that virtual axis
		pls_->slabelfunc(generateYLabel, _seriesInfoList[i].get());

		// draw virtual axis
		pls_->box(options.c_str(), xtick, nxsub, "", 0, 0);

		// draw legend
		pls_->mtex("lv", 4, top ? 2 : -1, 1, _seriesInfoList[i]->_name.c_str());

		// restore viewport
		pls_->vpor(lXMin, lXMax, lYMin, lYMax);

		// restore window
		pls_->wind(xwmin, xwmax, ywmin, ywmax);

		// increment offset
		yDelta = yDelta + (_seriesInfoList[i]->_description.empty() ? 1 : 2) * yInc;
	}

	// Restore initial color.
	restoreColor(pls_, lInitialColor, pplot_->_panel->_page->_mode);
}

void TickMarkDecorator::installLabelGenerator(PanelPlotOutput* /*pplot_*/, TimeAxis* timeAxis_) {

	LOG4CXX_TRACE(_logger, "installing LabelGenerator function");
	// axis label :
	LOG4CXX_TRACE(_logger, "processing axis : "<< timeAxis_->_legend.getText());
	// install time format
	_pTimeInfo->_timeFormat = getPlFormat();
	_pTimeInfo->_timeTitle = timeAxis_->_legend.getText();

	unsigned int maxNameLen = _pTimeInfo->_timeTitle.size();
	// init maximum value len with formatted time :
	if (TimePlot::qsasconfig == NULL) {
		configqsas(1. / 86400., 0., 0., 0x0, 1, 1970, 0, 1, 0, 0, 0.,
				&TimePlot::qsasconfig);
	}
	char formattedStr [40];
	double v = 200800000000000;
	_maxValueLen = strfqsas(formattedStr, 40, _pTimeInfo->_timeFormat.c_str(), v, TimePlot::qsasconfig);

	// get decorator parameter value
	//_decoratorPlot->getDataFromServer();

	// build all series names :
	_seriesInfoList.clear();
	for (auto p : _decoratorPlot->_parameterAxesList) {
		const std::string name = p._originalParamId;
		LOG4CXX_DEBUG(_logger, " inspecting parameter : " << name);
		for(auto lSeriesProperties : p.getYSeriePropertiesList()) {
			bool isFirstIndex = true;
			for (auto index : lSeriesProperties.getIndexList(_pParameterValues)) {
				boost::shared_ptr<SeriesInfo> pSerie =
					boost::shared_ptr<SeriesInfo>(new SeriesInfo());

				AMDA::Parameters::ParameterSPtr param = _decoratorPlot->_parameterManager.getParameter(lSeriesProperties.getParamId());
				AMDA::Info::ParamMgr* piMgr = AMDA::Info::ParamMgr::getInstance();
				AMDA::Info::ParamInfoSPtr paramInfo = piMgr->getParamInfoFromId(param->getInfoId());

				std::ostringstream osstr;
				bool skipIndex = false;
				if (paramInfo != nullptr) {
					if (paramInfo->getComponents(index).empty() == false) {
						osstr << paramInfo->getComponents(index);
						skipIndex = true;
					}
					else {
						osstr << paramInfo->getShortName();
					}
				}

				if (osstr.str().empty()) {
					osstr << name;
				}

				if (!skipIndex) {
					if(index.getDim1Index() != -1){
						osstr << "[" << index.getDim1Index() ;
						if (index.getDim2Index() != -1)
							osstr << "," << index.getDim2Index();
						osstr << "]";
					}
					else if (index.getDim2Index() != -1) {
						osstr << "[" << index.getDim2Index() << "]";
					}
				}

				if ((paramInfo != nullptr) && (paramInfo->getUnits().empty() == false)) {
					osstr << ", " << paramInfo->getUnits();
				}
				
				pSerie->_name = osstr.str();
				if (pSerie->_name.size() > maxNameLen) {
					maxNameLen = pSerie->_name.size();
				}

				if (isFirstIndex) {
					std::string description;
					if (paramInfo != nullptr) {
						description = paramInfo->getInstrumentId();
						if (!description.empty()) {
							if (description.find('_') != std::string::npos) {
								description = description.substr(0, description.find('_'));
							}
							std::transform(description.begin(), description.end(), description.begin(), ::toupper);
						}
					}

					if ((index.getDim1Index() != -1) || (index.getDim2Index() != -1)) {
						if (description.empty()) {
							if (paramInfo != nullptr) {
								description = paramInfo->getShortName();
							}
							if (description.empty()) {
								description = name;
							}
						}
						if ((paramInfo != nullptr) && (paramInfo->getCoordinatesSystem().empty() == false)) {
							description += ", ";
							description += paramInfo->getCoordinatesSystem();
						}
					}
					pSerie->_description = description;
					if (pSerie->_description.size() > maxNameLen) {
						maxNameLen = pSerie->_description.size();
					}
				}

				pSerie->_valuesFormat = getValuesFormat();

				//Compute max len
				pSerie->_parameterData = &((*_pParameterValues)[lSeriesProperties.getParamId()]);
				pSerie->_indexComponents = AMDA::Common::ParameterIndexComponent(index.getDim1Index(),index.getDim2Index());

				for (int i = 0; i < pSerie->_parameterData->getSize(); ++i) {
					const unsigned int len = snprintf(formattedStr, 40, getValuesFormat().c_str(), *pSerie->_parameterData->getValues(pSerie->_indexComponents, i));
					_maxValueLen = std::max(_maxValueLen, len);
				}

				_seriesInfoList.push_back(pSerie);
				isFirstIndex = false;
			}
		}
	}

	// normalize titles :
	_pTimeInfo->_maxLen = maxNameLen;
	for (auto p : _seriesInfoList) {
		p->_maxLen = maxNameLen;
		p->_maxValueLen = _maxValueLen;
	}

	// no legend for this axe since it is displayed at axis origin:
	timeAxis_->_legend.clearLabels();

	// install label generator for main axe (the one that is displayed)
	timeAxis_->_labelGenerator->_data = _pTimeInfo.get();
	timeAxis_->_labelGenerator->_function = generateOrbitTimeLabel;

}

/***************************** EXTERNAL METHODS ********************************/
void generateYLabel(PLINT axis, PLFLT value, char *label, PLINT length,
		PLPointer data) {
	if (axis == PL_X_AXIS) {
		if (data == NULL) {
			std::cout
					<< "WARNING !!!! NO DATA FOUND FOR generateYLabel FUNCTION !!!"
					<< std::endl << std::endl;
			LOG4CXX_WARN(gLogger,
					"WARNING !!!! NO DATA FOUND FOR generateYLabel FUNCTION !!");
			return;
		}
		SeriesInfo* pInfo = static_cast<SeriesInfo*> (data);
		// display formatted value
		std::ostringstream labels;

		//get nearest value
		double crtTime = (double) value;

		int crtIndex = pInfo->_parameterData->indexOf(crtTime);

		if (crtIndex == -1 && (crtTime - (pInfo->_parameterData->getTimes()[pInfo->_parameterData->getSize()-1]) < pInfo->_parameterData->getParamGapSize()))
			//Fix last value
			crtIndex = pInfo->_parameterData->getSize()-1;
		else if ((crtTime - (pInfo->_parameterData->getTimes()[crtIndex])) > pInfo->_parameterData->getParamGapSize())
			//Be sure that we are not in a data gap
			crtIndex = -1;

		if (crtIndex == -1) {
			labels << "NaN" << std::endl;
		}
		else {
			labels << boost::format(pInfo->_valuesFormat) % (*pInfo->_parameterData->getValues(pInfo->_indexComponents, crtIndex));
		}
			snprintf(label, length, "%s", labels.str().c_str());
	}
}

void generateOrbitTimeLabel(PLINT axis, PLFLT value, char *label, PLINT length,
		PLPointer data) {

	if (axis == PL_X_AXIS) {
		if (data == NULL) {
			std::cout
					<< "WARNING !!!! NO DATA FOUND FOR generateOrbitTimeLabel FUNCTION !!!"
					<< std::endl << std::endl;
			LOG4CXX_WARN(gLogger,
					"WARNING !!!! NO DATA FOUND FOR generateOrbitTimeLabel FUNCTION !!");
			return;
		}
		TimeInfo* pInfo = static_cast<TimeInfo*> (data);

		// display formatted time
		std::string timeFormatstr = pInfo->_timeFormat.c_str();
		char *timeFormat = new char[timeFormatstr.length() + 1];
		strcpy(timeFormat, timeFormatstr.c_str());

		if (TimePlot::qsasconfig == NULL) {
			configqsas(1. / 86400., 0., 0., 0x0, 1, 1970, 0, 1, 0, 0, 0.,
					&TimePlot::qsasconfig);
		}
		char formattedTime[40];

		strfqsas(formattedTime, 40, timeFormat, (double) value,
					TimePlot::qsasconfig);
		delete[] timeFormat;

		snprintf(label, length, "%s", formattedTime);
	}
}

} /* namespace plot */