#include "toonz/scriptbinding_image.h"
#include "toonz/scriptbinding_level.h"
#include "toonz/scriptbinding_files.h"
#include "tsystem.h"
#include "ttoonzimage.h"
#include "tfiletype.h"
#include "timage_io.h"
#include "tlevel_io.h"

namespace TScriptBinding
{

Image::Image()
{
}

Image::Image(const TImageP img)
	: m_img(img)
{
}

Image::Image(TImage *img)
	: m_img(img)
{
}

Image::~Image()
{
}

QScriptValue Image::ctor(QScriptContext *context, QScriptEngine *engine)
{
	Image *img = new Image();
	QScriptValue obj = create(engine, img);
	QScriptValue err = checkArgumentCount(context, "the Image constructor", 0, 1);
	if (err.isError())
		return err;
	if (context->argumentCount() == 1) {
		return obj.property("load").call(obj, context->argumentsObject());
	}
	return obj;
}

QScriptValue Image::toString()
{
	if (m_img) {
		TImage::Type type = m_img->getType();
		if (type == TImage::RASTER)
			return QString("Raster image ( %1 x %2 )").arg(getWidth()).arg(getHeight());
		else if (type == TImage::TOONZ_RASTER)
			return QString("Toonz raster image ( %1 x %2 )").arg(getWidth()).arg(getHeight());
		else if (type == TImage::VECTOR)
			return QString("Vector image");
		else
			return QString("Image");
	} else {
		return "Empty image";
	}
}

int Image::getWidth()
{
	return !!m_img && !!m_img->raster() ? m_img->raster()->getSize().lx : 0;
}

int Image::getHeight()
{
	return !!m_img && !!m_img->raster() ? m_img->raster()->getSize().ly : 0;
}

double Image::getDpi()
{
	if (TRasterImageP ri = m_img) {
		double dpix = 0, dpiy = 0;
		ri->getDpi(dpix, dpiy);
		return dpix;
	} else if (TToonzImageP ti = m_img) {
		double dpix = 0, dpiy = 0;
		ti->getDpi(dpix, dpiy);
		return dpix;
	} else
		return 0;
}

QString Image::getType() const
{
	if (m_img) {
		TImage::Type type = m_img->getType();
		if (type == TImage::RASTER)
			return "Raster";
		else if (type == TImage::TOONZ_RASTER)
			return "ToonzRaster";
		else if (type == TImage::VECTOR)
			return "Vector";
		else
			return "Unknown";
	} else
		return "Empty";
}

QScriptValue Image::load(const QScriptValue &fpArg)
{
	// clear the old image (if any)
	m_img = TImageP();

	// get the path
	TFilePath fp;
	QScriptValue err = checkFilePath(context(), fpArg, fp);
	if (err.isError())
		return err;
	QString fpStr = fpArg.toString();

	try {

		// check if the file/level does exist
		if (!TSystem::doesExistFileOrLevel(fp)) {
			return context()->throwError(tr("File %1 doesn't exist").arg(fpStr));
		}

		// the file could be a level
		TFileType::Type fileType = TFileType::getInfo(fp);
		if (TFileType::isLevel(fileType)) {
			// file is a level: read first frame
			TLevelReaderP lr(fp);
			TLevelP level = lr->loadInfo();
			int n = level->getFrameCount();
			if (n > 0) {
				// there are some frames
				TFrameId fid = fp.getFrame();
				if (fid == TFrameId::NO_FRAME || fid == TFrameId::EMPTY_FRAME)
					fid = level->begin()->first;

				m_img = lr->getFrameReader(fid)->load();
				if (!m_img) {
					return context()->throwError(QString("Could not read %1").arg(fpStr));
				}
				m_img->setPalette(level->getPalette());
				if (n > 1 && (fp.getFrame() == TFrameId::EMPTY_FRAME || fp.getFrame() == TFrameId::NO_FRAME)) {
					// warning: a multi-frame level read into an Image
					warning(tr("Loaded first frame of %1").arg(n));
				}
			} else {
				// level contains no frame (not sure it can even happen)
				return context()->throwError(QString("%1 contains no frames").arg(fpStr));
			}
		} else {
			// plain image: try to read it
			if (!TImageReader::load(fp, m_img)) {
				return context()->throwError(QString("File %1 not found or not readable").arg(fpStr));
			}
		}
		// return a reference to the Image object
		return context()->thisObject();
	} catch (...) {
		return context()->throwError(tr("Unexpected error while reading image").arg(fpStr));
	}
}

QScriptValue Image::save(const QScriptValue &fpArg)
{
	// clear the old image (if any)
	if (!m_img) {
		return context()->throwError("Can't save an empty image");
	}

	// get the path
	TFilePath fp;
	QScriptValue err = checkFilePath(context(), fpArg, fp);
	if (err.isError())
		return err;
	QString fpStr = fpArg.toString();

	// handle conversion (if it is needed and possible)
	TFileType::Type fileType = TFileType::getInfo(fp);

	bool isCompatible = false;
	if (TFileType::isFullColor(fileType)) {
		if (m_img->getType() == TImage::RASTER)
			isCompatible = true;
	} else if (TFileType::isVector(fileType)) {
		if (m_img->getType() == TImage::VECTOR)
			isCompatible = true;
	} else if (fileType & TFileType::CMAPPED_IMAGE) {
		if (m_img->getType() == TImage::TOONZ_RASTER)
			isCompatible = true;
	} else {
		return context()->throwError(tr("Unrecognized file type :").arg(fpStr));
	}
	if (!isCompatible) {
		return context()->throwError(tr("Can't save a %1 image to this file type : %2").arg(getType()).arg(fpStr));
	}

	try {
		if (TFileType::isLevel(fileType)) {
			TLevelP level = new TLevel();
			level->setPalette(m_img->getPalette());
			level->setFrame(TFrameId(1), m_img);
			TLevelWriterP lw(fp);
			if (m_img->getPalette())
				lw->setPalette(m_img->getPalette());
			lw->save(level);
		} else {
			TImageWriterP iw(fp);
			iw->save(fp, m_img);
		}
		// return a reference to the Image object
		return context()->thisObject();
	} catch (...) {
		return context()->throwError(tr("Unexpected error while writing image").arg(fpStr));
	}
}

QScriptValue checkImage(QScriptContext *context, const QScriptValue &value, Image *&img)
{
	img = qscriptvalue_cast<Image *>(value);
	if (!img || !img->getImg())
		return context->throwError(QObject::tr("Bad argument (%1): should be an Image (not empty)").arg(value.toString()));
	else
		return QScriptValue();
}

} // namespace TScriptBinding