/*

Directory Opus 4
Original GPL release version 4.12
Copyright 1993-2000 Jonathan Potter

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

All users of Directory Opus 4 (including versions distributed
under the GPL) are entitled to upgrade to the latest version of
Directory Opus version 5 at a reduced price. Please see
http://www.gpsoft.com.au for more information.

The release of Directory Opus 4 under the GPL in NO WAY affects
the existing commercial status of Directory Opus 5.

*/

#include "config.h"

#define ABS(x) ((x)<0?-(x):(x))

initfontlist(num,move,flags)
int num,move,flags;
{
	int a,b,dist=0,one,val,size=-1;
	char name[80],*ptr;

	if (!fontlist) return(0);
	if (!flags) fontlistview.items=fontlist;
	else if (flags==FFLAG_8ONLY) fontlistview.items=only8list;
	else if (flags==FFLAG_NOPROP) fontlistview.items=noproplist;
	strcpy(name,config->fontbufs[num]);
	if (ptr=strstri(name,".font")) *ptr=0;
	for (a=0;;a++) {
		if (!fontlistview.items[a]) break;
		if (strcmp(name,fontlistview.items[a])==0) {
			fontlistview.itemselected=a;
			if (move) {
				if (a<fontlistview.topitem || a>fontlistview.topitem+7)
					fontlistview.topitem=a;
			}
			if (fontsizelist) {
				if (!flags) fontsizelistview.items=fontsizelist[a];
				else if (flags==FFLAG_8ONLY) fontsizelistview.items=only8sizelist;
				else if (flags==FFLAG_NOPROP) fontsizelistview.items=nopropsizelist[a];
				if (fontsizelistview.items) {
					one=-1;
					for (b=0;;b++) {
						if (!fontsizelistview.items[b]) break;
						if ((val=atoi(fontsizelistview.items[b]))==(int)config->fontsizes[num]) {
							fontsizelistview.itemselected=b;
							if (move) {
								if (b<fontsizelistview.topitem ||
									b>fontsizelistview.topitem+fontsizelistview.lines)
									fontsizelistview.topitem=b;
							}
							one=-1;
							break;
						}
						else if (one==-1 || ABS((val-(int)config->fontsizes[num]))<dist) {
							dist=ABS((val-(int)config->fontsizes[num]));
							one=b;
						}
					}
					if (one!=-1) {
						if (version2) {
							size=config->fontsizes[num];
							lsprintf(fontsize_buf,"%ld",size);
							RefreshStrGad(&fontsizegadget,Window);
							fontsizelistview.itemselected=-1;
						}
						else {
							size=atoi(fontsizelistview.items[one]);
							fontsizelistview.itemselected=one;
							if (move) {
								if (one<fontsizelistview.topitem ||
									one>fontsizelistview.topitem+fontsizelistview.lines-1)
									fontsizelistview.topitem=one;
							}
						}
					}
					else size=(int)config->fontsizes[num];
				}
			}
			break;
		}
	}
	RefreshListView(&fontlistview,2);
	if (size>-1) {
		strcat(name,".font");
		dofontdemo(name,size);
	}
	return(size);
}

void sortfontlist(avail,num,type)
struct AvailFonts *avail;
int num,type;
{
	int gap,i,j,k;

	for (gap=num/2;gap>0;gap/=2)
		for (i=gap;i<num;i++)
			for (j=i-gap;j>=0;j-=gap) {
				k=j+gap;
				if (type==0) {
					if (LStrCmpI((char *)avail[j].af_Attr.ta_Name,
						(char *)avail[k].af_Attr.ta_Name)<=0) break;
				}
				else {
					if (LStrCmpI((char *)avail[j].af_Attr.ta_Name,
						(char *)avail[k].af_Attr.ta_Name)) break;
					if (avail[j].af_Attr.ta_YSize<=avail[k].af_Attr.ta_YSize) break;
				}
				SwapMem((char *)&avail[j],(char *)&avail[k],sizeof(struct AvailFonts));
			}
}

void dofontdemo(name,size)
char *name;
int size;
{
	struct TextFont *font;
	struct Region *reg,*oldreg;
	struct Rectangle clip;
	char buf[2][256];
	int y,c,l,a;

	clip.MinX=x_off+146;
	clip.MinY=y_off+93;
	clip.MaxX=x_off+611;
	clip.MaxY=y_off+167;
	Do3DBox(rp,
		x_off+146,y_off+93,
		468,76,
		screen_pens[config->gadgetbotcol].pen,screen_pens[config->gadgettopcol].pen);
	SetAPen(rp,screen_pens[0].pen);
	RectFill(rp,x_off+146,y_off+93,x_off+613,y_off+167);
	SetAPen(rp,screen_pens[1].pen);
	busy();
	UScoreText(rp,
		cfg_string[STR_LOADING_FONT],
		x_off+329,y_off+133,
		-1);
	if (font=getfont(name,&size,0)) {
		SetAPen(rp,screen_pens[0].pen);
		RectFill(rp,
			x_off+146,y_off+94,
			x_off+613,y_off+167);
		SetAPen(rp,screen_pens[1].pen);
		SetFont(rp,font);
		if (reg=NewRegion()) {
			OrRectRegion(reg,&clip);
			oldreg=InstallClipRegion(Window->WLayer,reg);
			l=255;
		}
		else l=464/font->tf_XSize;
		y=font->tf_Baseline;
		c='a';
		for (a=0;a<256;a++) {
			buf[0][a]=c++;
			if (c=='{') c='0';
		}
		for (a=0;a<256;a++) {
			if (isupper(buf[0][a])) buf[1][a]=tolower(buf[0][a]);
			else buf[1][a]=toupper(buf[0][a]);
		}
		a=0;
		while (y<76+font->tf_Baseline) {
			Move(rp,x_off+148,y+y_off+94);
			Text(rp,buf[a],l);
			a=a?0:1;
			y+=font->tf_YSize;
		}
		if (reg) {
			InstallClipRegion(Window->WLayer,oldreg);
			DisposeRegion(reg);
		}
		SetFont(rp,tfont);
		CloseFont(font);
	}
	else UScoreText(rp,
		cfg_string[STR_FONT_COULD_NOT_BE_LOADED],
		x_off+289,y_off+133,
		-1);
	unbusy();
}