/* Tag Plugin - DMS - July 2000 - by Nadège SONNET */
/* Common functions Client/Serveur */
/* Rev . Oct. 2000 - by Nadege SONNET */

/* Indicate a file extension */
fun extension(fi)=
let 0->j in
let 0->find in 
{
	while ((set find=strfind "." fi j)!=nil) do 
	{
		set j=find+1
	};
	substr fi j (strlen fi)-j
}	
;;

/* Writing of a file in a bitmap (".pgn", ".jpg", ".bmp" or ".tga" format) */
fun openBMP(stringF)=
let _checkpack stringF->fP in
if (fP != nil) then 
{
	if (!strcmpi (extension stringF) "png") then 
	{
		let _LDalphaBitmap _channel fP->alphabmp in
		let _GETalphaBitmapSize alphabmp->[l h] in
		let _GETalphaBitmaps alphabmp -> [bmp _] in 
		{
	  	bmp;
		}
	}
	else if (!strcmpi (extension stringF) "jpg") then 
	{
		let _LDjpeg _channel fP->bmp in
		let _GETbitmapSize bmp -> [l h] in 
		{
		 	bmp;
		}
	} 
	else if (!strcmpi (extension stringF) "bmp") then 
	{
		let _LDbitmap _channel fP->bmp in
		let _GETbitmapSize bmp -> [l h] in 
		{
		 	bmp;
		}
	} 
	else if (!strcmpi (extension stringF) "tga") then 
	{
		let _LDtga _channel fP->bmp in
		let _GETbitmapSize bmp -> [l h] in 
		{
			bmp;
	 	}
	} 
	else nil;
}
else nil;;

fun getTxtSize(stringF)=
let _checkpack stringF->fP in
if (fP != nil) then 
{
	if (!strcmpi (extension stringF) "png") then 
	{
		let _LDalphaBitmap _channel fP->alphabmp in
		let _GETalphaBitmapSize alphabmp->[l h] in
		
		{
		  _DSalphaBitmap alphabmp;
		  [l h];
		}
	}
	else if (!strcmpi (extension stringF) "jpg") then 
	{
		let _LDjpeg _channel fP->bmp in
		let _GETbitmapSize bmp -> [l h] in 
		{
		  _DSbitmap bmp;
		 	[l h];
		}
	} 
	else if (!strcmpi (extension stringF) "bmp") then 
	{
		let _LDbitmap _channel fP->bmp in
		let _GETbitmapSize bmp -> [l h] in 
		{
		 	_DSbitmap bmp;
		 	[l h];
		}
	} 
	else if (!strcmpi (extension stringF) "tga") then 
	{
		let _LDtga _channel fP->bmp in
		let _GETbitmapSize bmp -> [l h] in 
		{
			_DSbitmap bmp;
		 	[l h];
	 	}
	} 
	else nil;
}
else nil;;

/* Callback used for lists */
fun strcomp(a,b)=
 ((strcmp a b)==0);;