// -*- C++ -*-
/*
 * Simple MultimEdia LiTerator(SMELT)
 * by Chris Xiong 2015
 * Animation implementation
 *
 * WARNING: This library is in development and interfaces would be very
 * unstable.
 * This library is developed for the BLR series games.
 */
#include "smanim.hpp"
#include <cstdio>
#include <cstring>
#define METAWARN(s) printf("metafile warning at line %d: %s\n",lc,s)
SMELT* smAnmFile::sm=NULL;
void smAnmFile::parseMeta(const char* meta,DWORD size)
{
	const char* cp=meta;
	bool inAnim=false;
	int lc=0;
	smAnmInfo cur;
	while(cp-meta<=size)
	{
		int cc=0;
		for(;*(cp+cc)!='\n'&&(cp+cc-meta<=size);++cc);
		char line[65];
		strncpy(line,cp,cc+1);line[cc]='\0';
		cp+=cc+1;++lc;
		if(inAnim&&line[0]!='F'&&line[0]!='E'){METAWARN("Only instruction F is allowed between A and E.");continue;}
		if(line[0]=='E')
		{
			if(!inAnim)METAWARN("No animation to end...");
			else{inAnim=false;am[std::string(cur.name)]=cur;}
		}
		if(line[0]=='A')
		{
			if(inAnim)METAWARN("Already in an animation definition...");
			else
			{
				inAnim=true;
				int cn=0;while(line[cn+2]!=',')++cn;
				cur.name=new char[cn];strncpy(cur.name,line+2,cn);
				cur.name[cn-1]='\0';cur.mode=0;cur.fc=0;
				if(!strcmp(line+3+cn,"loop"))cur.mode=1;
				if(!strcmp(line+3+cn,"bidi"))cur.mode=2;
			}
		}
		if(line[0]=='F')
		{
			if(!inAnim)METAWARN("Cannot define frames outside animation...");
			else
			{
				int cn=0;while(line[cn+2]!=',')++cn;
				cur.frames[cur.fc].path=new char[cn];
				cur.frames[cur.fc].name=NULL;
				strncpy(cur.frames[cur.fc].path,line+2,cn);
				cur.frames[cur.fc].path[cn-1]='\0';
				sscanf(line+3+cn,"%f,%f,%f,%f,%d",&cur.frames[cur.fc].rect.x,
				&cur.frames[cur.fc].rect.y,&cur.frames[cur.fc].rect.w,&cur.frames[cur.fc].rect.h,
				&cur.framedur[cur.fc]);
				if(xm.find(std::string(cur.frames[cur.fc].path))!=xm.end())
				cur.frames[cur.fc].tex=xm[std::string(cur.frames[cur.fc].path)];
				else
				{
					char *texct=anm.getFilePtr(cur.frames[cur.fc].path);
					DWORD texsz=anm.getFileSize(cur.frames[cur.fc].path);
					cur.frames[cur.fc].tex=xm[std::string(cur.frames[cur.fc].path)]
					=sm->smTextureLoadFromMemory(texct,texsz);
					anm.releaseFilePtr(cur.frames[cur.fc].path);
				}
				++cur.fc;
			}
		}
		if(line[0]=='S')
		{
			smTexInfo t;
			int cn=0;while(line[cn+2]!=',')++cn;
			t.name=new char[cn+1];strncpy(t.name,line+2,cn+1);
			t.name[cn]='\0';
			int cn2=0;while(line[cn+3+cn2]!=',')++cn2;
			t.path=new char[cn2+1];strncpy(t.path,line+3+cn,cn2+1);
			t.path[cn2]='\0';
			sscanf(line+4+cn+cn2,"%f,%f,%f,%f",&t.rect.x,&t.rect.y,&t.rect.w,&t.rect.h);
			if(xm.find(std::string(t.path))!=xm.end())
			t.tex=xm[std::string(t.path)];
			else
			{
				char *texct=anm.getFilePtr(t.path);
				DWORD texsz=anm.getFileSize(t.path);
				t.tex=xm[std::string(t.path)]
				=sm->smTextureLoadFromMemory(texct,texsz);
				anm.releaseFilePtr(t.path);
			}
			tm[std::string(t.name)]=t;
		}
		if(line[0]=='I')
		{
			char* mptr=anm.getFilePtr(line+2);
			DWORD msez=anm.getFileSize(line+2);
			parseMeta(mptr,msez);
			anm.releaseFilePtr(line+2);
		}
	}
}
bool smAnmFile::loadAnmFromMemory(const char* ptr,DWORD size)
{
	sm=smGetInterface(SMELT_APILEVEL);
	anm.openDtpFromMemory(ptr,size);
	xm.clear();tm.clear();am.clear();
	char* mptr=anm.getFilePtr("content.meta");
	DWORD msez=anm.getFileSize("content.meta");
	parseMeta(mptr,msez);
	anm.releaseFilePtr("content.meta");
	return true;
}
void smAnmFile::close()
{
	anm.closeDtp();
	for(std::map<std::string,smTexInfo>::iterator i=tm.begin();i!=tm.end();++i)
	{delete i->second.name;delete i->second.path;}
	tm.clear();
	for(std::map<std::string,smAnmInfo>::iterator i=am.begin();i!=am.end();++i)
	{
		delete i->second.name;
		for(int j=0;j<i->second.fc;++j)
		delete i->second.frames[j].path;
	}
	am.clear();
	for(std::map<std::string,SMTEX>::iterator i=xm.begin();i!=xm.end();++i)
	sm->smTextureFree(i->second);
	xm.clear();
	sm->smRelease();
}
smTexInfo* smAnmFile::getTextureInfo(const char* name)
{return &tm.at(name);}
smAnmInfo* smAnmFile::getAnimationInfo(const char* name)
{return &am.at(name);}

smAnimation2D::smAnimation2D(smAnmInfo a):smEntity2D(a.frames[0].tex,a.frames[0].rect)
{
	ai=a;cf=mf=r=0;
	for(int i=0;i<ai.fc;++i)mf+=ai.framedur[i];
}
void smAnimation2D::updateAnim(int f)
{
	if(ai.mode==0){cf+=f;if(cf>mf)cf=mf;}
	if(ai.mode==1){cf+=f;if(cf>mf)cf-=mf;}
	if(ai.mode==2)
	{
		if(r){cf-=f;if(cf<0)r=0,cf=-cf;}
		else{cf+=f;if(cf>mf)r=1,cf=2*mf-cf;}
	}
	int l=0,r=ai.framedur[0],ff=0;
	for(int i=0;i<ai.fc;++i)
	{
		if(cf>l&&cf<=r){ff=i;break;}
		l+=ai.framedur[i];r+=ai.framedur[i+1];
	}
	setTexture(ai.frames[ff].tex);
	setTextureRectv(ai.frames[ff].rect);
}
void smAnimation2D::resetAnim()
{
	cf=mf=r=0;
	setTexture(ai.frames[0].tex);
	setTextureRectv(ai.frames[0].rect);
}

smAnimation3D::smAnimation3D(smAnmInfo a):smEntity3D(a.frames[0].tex,a.frames[0].rect)
{
	ai=a;cf=mf=r=0;
	for(int i=0;i<ai.fc;++i)mf+=ai.framedur[i];
}
void smAnimation3D::updateAnim(int f)
{
	if(ai.mode==0){cf+=f;if(cf>mf)cf=mf;}
	if(ai.mode==1){cf+=f;if(cf>mf)cf-=mf;}
	if(ai.mode==2)
	{
		if(r){cf-=f;if(cf<0)r=0,cf=-cf;}
		else{cf+=f;if(cf>mf)r=1,cf=2*mf-cf;}
	}
	int l=0,r=ai.framedur[0],ff=0;
	for(int i=0;i<ai.fc;++i)
	{
		if(cf>l&&cf<=r){ff=i;break;}
		l+=ai.framedur[i];r+=ai.framedur[i+1];
	}
	setTexture(ai.frames[ff].tex);
	setTextureRectv(ai.frames[ff].rect);
}
void smAnimation3D::resetAnim()
{
	cf=mf=r=0;
	setTexture(ai.frames[0].tex);
	setTextureRectv(ai.frames[0].rect);
}