/*
	management of fonts
 */

//---------------------------------------------------------------------------------
//			destroy font
//---------------------------------------------------------------------------------
void DestroyFont(font_t *font)
{
	font_t	*seek_font;
	font_t	*exchange_font;
	font_t	*last_font;
	font_t	*next_font;

	if (font==(font_t*)NULL) return;

	if (FontsManager.fnt_bk==FontsManager.fnt_fd)
	{
		//parent have got alone font
		if (FontsManager.fnt_bk==(DWORD*)font)
		{
#ifdef	DEBUG
			printf("\ndestroyed font %d font name=%s",(int)font,(char*)font->fnt_name);
#endif
			free(font);
			FontsManager.fnt_bk=(DWORD*)NULL;
			FontsManager.fnt_fd=(DWORD*)NULL;
		}
		return;
	}

	seek_font=(font_t*)FontsManager.fnt_bk;
	while(seek_font!=(font_t*)NULL)
	{
		if (seek_font==font)
		{
			//delete font from fonts's cash
			last_font=(font_t*)seek_font->fnt_bk;
			next_font=(font_t*)seek_font->fnt_fd;

			if ((last_font!=(font_t*)NULL) && (next_font!=(font_t*)NULL))
			{//deliting font isn't first font and isn't endest
				next_font->fnt_bk=(DWORD*)last_font;
				last_font->fnt_fd=(DWORD*)next_font;
			}
			else
			{
				if (last_font==(font_t*)NULL)
				{//deliting font is first font of Parend
					FontsManager.fnt_bk=(DWORD*)next_font;
					next_font->fnt_bk=(DWORD*)NULL;
					if (next_font->fnt_fd==(DWORD*)NULL)
					{
						FontsManager.fnt_fd=(DWORD*)next_font;
						FontsManager.fnt_bk=(DWORD*)next_font;
					}
				}

				if (next_font==(font_t*)NULL)
				{
					//there isn't next fonts
					last_font->fnt_fd=(DWORD*)NULL;
					FontsManager.fnt_fd=(DWORD*)last_font;
				}
			}
#ifdef	DEBUG
			printf("\ndestroyed font %d font name=%s",(int)font,(char*)font->fnt_name);
#endif
			free(font);
			break;
		}
		exchange_font=(font_t*)seek_font->fnt_fd;
		seek_font=exchange_font;
	}
}

void	*CreateFont(void)
{
	font_t	*font;
	font_t	*backward_font;

	font=malloc(sizeof(struct FONT));

	if (FontsManager.fnt_bk==(DWORD*)NULL)
	{//not yet fonts
		FontsManager.fnt_bk=(DWORD*)font;
		FontsManager.fnt_fd=(DWORD*)font;
		font->fnt_bk=(DWORD*)NULL;
		font->fnt_fd=(DWORD*)NULL;
	}
	else
	{
		backward_font=(font_t*)FontsManager.fnt_fd;
		FontsManager.fnt_fd=(DWORD*)font;
		backward_font->fnt_fd=(DWORD*)font;
		font->fnt_bk=(DWORD*)backward_font;
		font->fnt_fd=(DWORD*)NULL;
	}
	return(font);
}
////////////////////////////////////////////////////////////////////////////////
//			CHAR.MT and CHAR2.MT fonts unpacker
////////////////////////////////////////////////////////////////////////////////
void	CHAR_MT_FontsUnpacker(unsigned char *loaded_font,font_t *font,char font_type)
{
	int		i,j,k;
	unsigned char	c;
	unsigned char	*p;

	if (font_type==FALSE)
	{//CHAR.MT
		font->font=malloc(6*9*256);
		p=(unsigned char*)font->font;

		for(j=0;j<256;j++)
		{
			for(i=0;i<9;i++)
			{
				c=(unsigned char)(*loaded_font);
				p[5]=(unsigned char)(c & 0x20);
				p[4]=(unsigned char)(c & 0x10);
				p[3]=(unsigned char)(c & 0x8);
				p[2]=(unsigned char)(c & 0x4);
				p[1]=(unsigned char)(c & 0x2);
				p[0]=(unsigned char)(c & 0x1);

				p+=6;
				loaded_font++;
			}
		}
		font->sizex=6;
		font->sizey=9;
	}
	else
	{//CHAR2.MT
		font->font=malloc(8*10*256);
		p=(unsigned char*)font->font;

		for(j=0;j<256;j++)
		{
			for(i=0;i<10;i++)
			{
				c=(unsigned char)(*loaded_font);
				p[7]=(unsigned char)(c & 0x80);
				p[6]=(unsigned char)(c & 0x40);
				p[5]=(unsigned char)(c & 0x20);
				p[4]=(unsigned char)(c & 0x10);
				p[3]=(unsigned char)(c & 0x8);
				p[2]=(unsigned char)(c & 0x4);
				p[1]=(unsigned char)(c & 0x2);
				p[0]=(unsigned char)(c & 0x1);

				p+=8;
				loaded_font++;
			}
		}
		font->sizex=8;
		font->sizey=10;
	}

	font->size=FONT_CONSTANT_SIZE;
	font->type=FONT_TYPE_ASCII;
	font->encoding_type=FONT_ENCODING_CYRILLIC_IBM866;
}

////////////////////////////////////////////////////////////////////////////////
//			CHAR.MT and CHAR2.MT fonts draw
////////////////////////////////////////////////////////////////////////////////
void	MonofontDraw(finition_t *fin,int fx,int fy,
				DWORD color,DWORD background_color,
				font_t *font,unsigned char *s)
{
	unsigned int		i,j,k,step,len;
	int		x,y,size_x,save_size_x,save_size_y;
	unsigned char	*p,*buf,*save_buf;
	unsigned char	c;
	DWORD		draw_output;

	step=font->sizex*font->sizey;
	len=strlen(s);

	if (font->flags & FONT_FLAG_ORIENTATION_HORIZONTAL_FROM_LEFT_TO_RIGHT_ON)
	{
		if (font->flags & FONT_FLAG_DRAW_BACKGROUND_ON)
		{//there is a fon and not finition for draw
			//alocate a buffer for draw text
			size_x=font->sizex*len;

			c=screen.bits_per_pixel >> 3;
			i=step*c*len;
			buf=malloc(i);

			//save current screen parameters
			save_buf=screen.buffer;
			save_size_x=screen.size_x;
			save_size_y=screen.size_y;
			draw_output=screen.draw_output;

			//load parameters of local buffer
			screen.buffer=buf;
			screen.size_x=size_x;
			screen.size_y=font->sizey;
			screen.draw_output=DRAW_OUTPUT_BUFFER;

			//fill buffer by background color
			FillArrea(buf,i,screen.bits_per_pixel,background_color);

			//draw text
			x=0;
			for(k=0;k<len;k++)
			{
				c=s[k];
				p=font->font+step*c;
				for(j=0;j<font->sizey;j++)
				{

					for(i=0;i<font->sizex;i++)
					{
						if (*p) DrawPixel(x+i,j,color);
						p++;
					}
				}
				x=x+font->sizex;
			}

			//restore screen parameters
			screen.buffer=save_buf;
			screen.size_x=save_size_x;
			screen.size_y=save_size_y;
			screen.draw_output=draw_output;

			//move text from local buffer to screen
			if (fin->flags & FINITION_ON)
				DrawImageFinit(fin,fx,fy,size_x,font->sizey,screen.bits_per_pixel,buf);
			else
				DrawImage(fx,fy,size_x,font->sizey,screen.bits_per_pixel,buf);

			//free local buffer
			free(buf);
		}
		else
		{
			if (fin->flags & FINITION_ON)
			{//not background and finition for draw
				x=fx;
				y=fy;
				for(k=0;k<len;k++)
				{
					c=s[k];
					p=font->font+step*c;
					for(j=0;j<font->sizey;j++)
					{

						for(i=0;i<font->sizex;i++)
						{
							if (*p) DrawPixelFinit(fin,x+i,y+j,color);
							p++;
						}
					}
					x=x+font->sizex;
				}
			}
			else
			{//not background and not finition for draw
				x=fx;
				y=fy;
				for(k=0;k<len;k++)
				{
					c=s[k];
					p=font->font+step*c;
					for(j=0;j<font->sizey;j++)
					{

						for(i=0;i<font->sizex;i++)
						{
							if (*p) DrawPixel(x+i,y+j,color);
							p++;
						}
					}
					x=x+font->sizex;
				}
			}

		}
	}
}

////////////////////////////////////////////////////////////////////////////////
//				fonts loader
////////////////////////////////////////////////////////////////////////////////
font_t	*LoadFont(char *fullfontname)
{
	char		*path;
	char		*c;
	BYTE		*buf;
	long		filesize;
	int		len1,len2,i;
	font_t		*font;
	static DWORD	buf_for_size[2];
	static DWORD	buf_for_pos[2];

	path=malloc(263);
	if (strchr(fullfontname,'/')==NULL)
	{
		len1=strlen(default_fonts_path);
		len2=strlen(fullfontname);
		memmove(path,default_fonts_path,len1);
		memmove(path+len1,fullfontname,len2);
		*(path+len1+len2)='\0';
	}
	else
		memmove(path,fullfontname,strlen(fullfontname));

	if (gui_get_file_size(path,buf_for_size)==KOLIBRIOS_SYS_FILE_ACCESS_SUCCESSFULLY)
	{
		filesize=buf_for_size[0];
		buf=malloc(filesize);
		//load fonts in buffer
		gui_read_file(path,buf_for_pos,filesize,buf);

		free(path);
		//register font
		font=CreateFont();
		c=strrchr(fullfontname,'/');
		if(c==NULL)	font->fnt_name=fullfontname;
			else
				font->fnt_name=(char*)(c+1);

		//check font type
		c=strstr(font->fnt_name,"CHAR.MT");//check standart type of fonts
		if (c!=NULL)
		{
			font->fnt_unpacker=(DWORD*)&CHAR_MT_FontsUnpacker;
			font->fnt_draw=(DWORD*)&MonofontDraw;
			CHAR_MT_FontsUnpacker(buf,font,FALSE);//CHAR.MT
			free(buf);
			font->flags=0;
			font->flags|=FONT_FLAG_ORIENTATION_HORIZONTAL_FROM_LEFT_TO_RIGHT_ON;
		}

		c=strstr(font->fnt_name,"CHAR2.MT");//check standart type of fonts
		if (c!=NULL)
		{
			font->fnt_unpacker=(DWORD*)&CHAR_MT_FontsUnpacker;
			font->fnt_draw=(DWORD*)&MonofontDraw;
			CHAR_MT_FontsUnpacker(buf,font,TRUE);//CHAR2.MT
			free(buf);
			font->flags=0;
			font->flags|=FONT_FLAG_ORIENTATION_HORIZONTAL_FROM_LEFT_TO_RIGHT_ON;
		}
		//not other fonts yet

	}
	else
	{
#ifdef	DEBUG
		printf("\ncannot load font %s",path);
#endif
		free(path);
		return(NULL);
	}

	FontsManager.number_fonts++;
	return(font);
}

void	FreeFont(font_t *font)
{
	if (font==(font_t*)FontsManager.default_font)	return;

	free(font->font);
	DestroyFont(font);
}