/**
 * @author Edouard DUPIN
 * 
 * @copyright 2011, Edouard DUPIN, all right reserved
 * 
 * @license BSD v3 (see license file)
 */

#include <parserSVG/Debug.h>
#include <parserSVG/parserSVG.h>
#include <parserSVG/Base.h>
#include <parserSVG/Circle.h>
#include <parserSVG/Ellipse.h>
#include <parserSVG/Line.h>
#include <parserSVG/Path.h>
#include <parserSVG/Polygon.h>
#include <parserSVG/Polyline.h>
#include <parserSVG/Rectangle.h>
#include <parserSVG/Text.h>
#include <parserSVG/Group.h>

#include <agg/agg_basics.h>
#include <agg/agg_rendering_buffer.h>
#include <agg/agg_rasterizer_scanline_aa.h>
#include <agg/agg_scanline_p.h>
#include <agg/agg_renderer_scanline.h>
#include <agg/agg_path_storage.h>
#include <agg/agg_conv_transform.h>
#include <agg/agg_bounding_rect.h>
#include <agg/agg_color_rgba.h>
#include <agg/agg_pixfmt_rgba.h>

svg::Parser::Parser(etk::UString _fileName) : m_renderedElement(NULL)
{
	m_fileName = _fileName;
	m_version = "0.0";
	m_loadOK = true;
	m_paint.fill = (int32_t)0xFF0000FF;
	m_paint.stroke = (int32_t)0xFFFFFF00;
	
	m_paint.strokeWidth = 1.0;
	m_paint.viewPort.setValue(255,255);
	m_paint.flagEvenOdd = false;
	m_paint.lineJoin = svg::LINEJOIN_MITER;
	m_paint.lineCap = svg::LINECAP_BUTT;
	m_size.setValue(0,0);
	
	exml::Document doc;
	
	bool Load(const etk::UString& _file);
	if (false == doc.Load(m_fileName)) {
		SVG_ERROR("Error occured when loading XML : " << m_fileName);
		m_loadOK = false;
		return;
	}
	
	if (0 == doc.Size() ) {
		SVG_ERROR("(l ?) No nodes in the xml file ... \"" << m_fileName << "\"");
		m_loadOK = false;
		return;
	}
	
	exml::Element* root = (exml::Element*)doc.GetNamed( "svg" );
	if (NULL == root ) {
		SVG_ERROR("(l ?) main node not find: \"svg\" in \"" << m_fileName << "\"");
		m_loadOK = false;
		return;
	}
	// get the svg version :
	m_version = root->GetAttribute("version");
	// parse ...
	vec2 pos(0,0);
	ParseTransform(root);
	ParsePosition(root, pos, m_size);
	ParsePaintAttr(root);
	SVG_VERBOSE("parsed .ROOT trans : (" << m_transformMatrix.sx << "," << m_transformMatrix.shy << "," << m_transformMatrix.shx << "," << m_transformMatrix.sy << "," << m_transformMatrix.tx << "," << m_transformMatrix.ty << ")");
	vec2 maxSize(0,0);
	vec2 size(0,0);
	// parse all sub node :
	for(int32_t iii=0; iii< root->Size(); iii++) {
		exml::Node* child = root->Get(iii);
		if (child==NULL) {
			continue;
		}
		svg::Base *elementParser = NULL;
		if (!child->IsElement()) {
			// nothing to do, just proceed to next step
			continue;
		}
		if (child->GetValue() == "g") {
			elementParser = new svg::Group(m_paint);
		} else if (child->GetValue() == "a") {
			SVG_INFO("Note : 'a' balise is parsed like a g balise ...");
			elementParser = new svg::Group(m_paint);
		} else if (child->GetValue() == "title") {
			m_title = "TODO : set the title here ...";
			continue;
		} else if (child->GetValue() == "path") {
			elementParser = new svg::Path(m_paint);
		} else if (child->GetValue() == "rect") {
			elementParser = new svg::Rectangle(m_paint);
		} else if (child->GetValue() == "circle") {
			elementParser = new svg::Circle(m_paint);
		} else if (child->GetValue() == "ellipse") {
			elementParser = new svg::Ellipse(m_paint);
		} else if (child->GetValue() == "line") {
			elementParser = new svg::Line(m_paint);
		} else if (child->GetValue() == "polyline") {
			elementParser = new svg::Polyline(m_paint);
		} else if (child->GetValue() == "polygon") {
			elementParser = new svg::Polygon(m_paint);
		} else if (child->GetValue() == "text") {
			elementParser = new svg::Text(m_paint);
		} else if (child->GetValue() == "defs") {
			// Node ignore : must implement it later ...
			continue;
		} else if (child->GetValue() == "sodipodi:namedview") {
			// Node ignore : generaly inkscape data
			continue;
		} else if (child->GetValue() == "metadata") {
			// Node ignore : generaly inkscape data
			continue;
		} else {
			SVG_ERROR("(l "<<child->Pos()<<") node not suported : \""<<child->GetValue()<<"\" must be [title,g,a,path,rect,circle,ellipse,line,polyline,polygon,text,metadata]");
		}
		if (NULL == elementParser) {
			SVG_ERROR("(l "<<child->Pos()<<") error on node: \""<<child->GetValue()<<"\" allocation error or not supported ...");
			continue;
		}
		if (false == elementParser->Parse((exml::Element*)child, m_transformMatrix, size)) {
			SVG_ERROR("(l "<<child->Pos()<<") error on node: \""<<child->GetValue()<<"\" Sub Parsing ERROR");
			delete(elementParser);
			elementParser = NULL;
			continue;
		}
		if (maxSize.x()<size.x()) {
			maxSize.setX(size.x());
		}
		if (maxSize.y()<size.y()) {
			maxSize.setY(size.y());
		}
		// add element in the system
		m_subElementList.PushBack(elementParser);
	}
	if (m_size.x()==0 || m_size.y()==0) {
		m_size.setValue((int32_t)maxSize.x(), (int32_t)maxSize.y());
	} else {
		m_size.setValue((int32_t)m_size.x(), (int32_t)m_size.y());
	}
	DisplayDebug();
}

svg::Parser::~Parser(void)
{
	if(NULL != m_renderedElement) {
		delete(m_renderedElement);
		m_renderedElement = NULL;
	}
}



void svg::Parser::DisplayDebug(void)
{
	SVG_DEBUG("Main SVG node : size=" << m_size);
	for (int32_t iii=0; iii<m_subElementList.Size(); iii++) {
		if (NULL != m_subElementList[iii]) {
			m_subElementList[iii]->Display(1);
		}
	}
}


void svg::Parser::AggDraw(svg::Renderer& myRenderer, agg::trans_affine& basicTrans)
{
	for (int32_t iii=0; iii<m_subElementList.Size(); iii++) {
		if (NULL != m_subElementList[iii]) {
			m_subElementList[iii]->AggDraw(myRenderer, basicTrans);
		}
	}
}


void svg::Parser::GenerateTestFile(void)
{
	int32_t SizeX = m_size.x();
	if (SizeX == 0) {
		SizeX = 64;
	}
	int32_t SizeY = m_size.y();
	if (SizeY == 0) {
		SizeY = 64;
	}
	if(NULL != m_renderedElement) {
		delete(m_renderedElement);
		m_renderedElement = NULL;
	}
	m_renderedElement = new svg::Renderer(SizeX, SizeY);
	// create the first element matrix modification ...
	agg::trans_affine basicTrans;
	//basicTrans *= agg::trans_affine_translation(-g_base_dx, -g_base_dy);
	//basicTrans *= agg::trans_affine_scaling(2, 2);
	//basicTrans *= agg::trans_affine_rotation(g_angle);// + agg::pi);
	//basicTrans *= agg::trans_affine_skewing(2.0, 5.0);
	//basicTrans *= agg::trans_affine_translation(width*0.3, height/2);
	//basicTrans *= agg::trans_affine_translation(width/3, height/3);
	
	
	AggDraw(*m_renderedElement, basicTrans);
	etk::UString tmpFileOut = "yyy_out_";
	tmpFileOut += m_fileName;
	tmpFileOut += ".ppm";
	m_renderedElement->WritePpm(tmpFileOut);
	
}



void svg::Parser::GenerateAnImage(int32_t sizeX, int32_t sizeY)
{
	int32_t SizeX = sizeX;
	if (SizeX == 0) {
		SVG_ERROR("SizeX == 0 ==> set 64");
		SizeX = 64;
	}
	int32_t SizeY = sizeY;
	if (SizeY == 0) {
		SVG_ERROR("SizeY == 0 ==> set 64");
		SizeY = 64;
	}
	SVG_INFO("Generate size (" << SizeX << "," << SizeY << ")");
	if(NULL != m_renderedElement) {
		delete(m_renderedElement);
		m_renderedElement = NULL;
	}
	
	m_renderedElement = new svg::Renderer(SizeX, SizeY);
	// create the first element matrix modification ...
	agg::trans_affine basicTrans;
	//basicTrans *= agg::trans_affine_translation(-g_base_dx, -g_base_dy);
	basicTrans *= agg::trans_affine_scaling(SizeX/m_size.x(), SizeY/m_size.y());
	//basicTrans *= agg::trans_affine_rotation(g_angle);// + agg::pi);
	//basicTrans *= agg::trans_affine_skewing(2.0, 5.0);
	//basicTrans *= agg::trans_affine_translation(width*0.3, height/2);
	//basicTrans *= agg::trans_affine_translation(width/3, height/3);
	
	AggDraw(*m_renderedElement, basicTrans);
	/*
	etk::UString tmpFileOut = "zzz_out_test.ppm";
	m_renderedElement->WritePpm(tmpFileOut);
	*/
}

void svg::Parser::GenerateAnImage(draw::Image& output)
{
	GenerateAnImage(ivec2(m_size.x(),m_size.y()), output);
}

void svg::Parser::GenerateAnImage(ivec2 size, draw::Image& output)
{
	GenerateAnImage(size.x(), size.y());
	output.Resize(size);
	draw::Color tmpp(0,0,0,0);
	output.SetFillColor(tmpp);
	output.Clear();
	if(NULL != m_renderedElement) {
		uint8_t* pointerOnData = m_renderedElement->GetDataPointer();
		int32_t  sizeData = m_renderedElement->GetDataSize();
		uint8_t* tmpOut = (uint8_t*)output.GetTextureDataPointer();
		memcpy(tmpOut, pointerOnData, sizeData);
	}
}

uint8_t* svg::Parser::GetPointerOnData(void)
{
	if(NULL == m_renderedElement) {
		return NULL;
	}
	return m_renderedElement->GetDataPointer();
}

uint32_t svg::Parser::GetSizeOnData(void)
{
	if(NULL == m_renderedElement) {
		return 0;
	}
	return m_renderedElement->GetDataSize();
}