#include <stdlib.h>
#include <stdio.h>
#include "wv.h"

void wvInitFFN(FFN *item)
	{
	U8 i;
	item->cbFfnM1=0;
	item->prq=0;
	item->fTrueType=0;
	item->reserved1=0;
	item->ff=0;
	item->reserved2=0;
	item->wWeight=0;
	item->chs=0;
	item->ixchSzAlt=0;
	wvInitPANOSE(&item->panose);
	wvInitFONTSIGNATURE(&item->fs);
	for (i=0;i<65;i++)
		item->xszFfn[i] = 0;
	}

void wvGetFFN6(FFN *item,wvStream *fd)
	{
	int len,i;
	U8 temp8;

#ifdef PURIFY
	wvInitFFN(item);
#endif
	
	item->cbFfnM1 = read_8ubit(fd);
	temp8 = read_8ubit(fd);
	item->prq = temp8&0x03;
	item->fTrueType = (temp8&0x04)>>2;
	item->reserved1 = (temp8&0x08)>>3;
	item->ff = (temp8&0x70)>>4;
	item->reserved2 = (temp8&0x80)>>7;
	item->wWeight = (S16)read_16ubit(fd);
	item->chs = read_8ubit(fd);
	item->ixchSzAlt = read_8ubit(fd);
	wvInitPANOSE(&(item->panose));
	wvInitFONTSIGNATURE(&(item->fs));
	len = item->cbFfnM1-5;
	if (len>65) len=65;
	for (i=0;i<len;i++)
		item->xszFfn[i] = read_8ubit(fd);
	}
	

void wvGetFFN(FFN *item,wvStream *fd)
	{
	int len,i;
	U8 temp8;

#ifdef PURIFY
	wvInitFFN(item);
#endif
	
	item->cbFfnM1 = read_8ubit(fd);
	temp8 = read_8ubit(fd);
	item->prq = temp8&0x03;
	item->fTrueType = (temp8&0x04)>>2;
	item->reserved1 = (temp8&0x08)>>3;
	item->ff = (temp8&0x70)>>4;
	item->reserved2 = (temp8&0x80)>>7;
	item->wWeight = (S16)read_16ubit(fd);
	item->chs = read_8ubit(fd);
	item->ixchSzAlt = read_8ubit(fd);
	wvGetPANOSE(&(item->panose),fd);
	wvGetFONTSIGNATURE(&(item->fs),fd);
	len = item->cbFfnM1-39;
	len = len/2;
	/*
	item->xszFfn = (U16) malloc(sizeof(U16) * len));
	*/
	if (len>65) len=65;
	for (i=0;i<len;i++)
		item->xszFfn[i] = read_16ubit(fd);
	}

void wvGetFFN_STTBF(FFN_STTBF *item,U32 offset,U32 len,wvStream *fd)
	{
	int i;
	wvTrace(("reading fonts...\n"));
	wvTrace(("seeking to %x, len %d\n",offset,len));
	if (len==0)
		{
		item->nostrings=0;
		item->ffn = NULL;
		}
	else
		{
		wvStream_goto(fd,offset);
		item->extendedflag=read_16ubit(fd);
		if (item->extendedflag == 0xFFFF)
			item->nostrings=read_16ubit(fd);
		else
			item->nostrings=item->extendedflag;
		item->extradatalen=read_16ubit(fd);
		item->ffn = (FFN *)malloc(item->nostrings*sizeof(FFN));
		for (i=0;i<item->nostrings;i++)
		     {
#ifdef DEBUG
			char * dbg;
#endif
			wvGetFFN(&(item->ffn[i]),fd);
#ifdef DEBUG
			dbg = wvWideStrToMB(item->ffn[i].xszFfn);
			wvTrace(("font %d: %s\n", i, dbg));
			if (dbg)
				free(dbg);
#endif
		     }
		}

	   wvTrace(("done reading fonts.\n"));
	}

void wvGetFFN_STTBF6(FFN_STTBF *item,U32 offset,U32 len,wvStream *fd)
	{
	U32 count=0;
	int noffn=0;
	wvTrace(("reading fonts 6...\n"));
	wvTrace(("seeking to %x, len %d\n",offset,len));
	if (len==0)
		{
		item->nostrings=0;
		item->ffn = NULL;
		return;
		}
	wvStream_goto(fd,offset);
	item->extendedflag=0;
	item->nostrings=5;	/* lets just set a val to start off with */
	item->extradatalen=0;
	item->ffn = (FFN *)malloc(item->nostrings*sizeof(FFN));
	if (len != read_16ubit(fd))
		wvError(("FFN STTBF lens differ\n"));
	count+=2;
	
	while (count < len)
		{
#ifdef DEBUG
		char * dbg;
#endif
		if (noffn == item->nostrings)
			{
			/* need to extend the array just in case */
			item->nostrings+=5;
			item->ffn = (FFN *)realloc(item->ffn,item->nostrings*sizeof(FFN));
			}
		wvGetFFN6(&(item->ffn[noffn]),fd);
		count+=(item->ffn[noffn].cbFfnM1+1);
#ifdef DEBUG
		dbg = wvWideStrToMB(item->ffn[noffn].xszFfn);
		wvTrace(("font %d: %s\n", noffn, dbg));
		if (dbg)
			free(dbg);
#endif
		noffn++;
		}

	if (item->nostrings != noffn) item->nostrings = noffn;

	wvTrace(("done reading fonts 6.\n"));
	}

void wvReleaseFFN_STTBF(FFN_STTBF *item)
	{
	if (item->ffn != NULL)
		free(item->ffn);
	}


/* 
This has to be extended in the future to return a list of possible 
font names, as the FFN spec mentions. It currently on does the first
one.
*/
char *wvGetFontnameFromCode(FFN_STTBF *item,int fontcode)
    {
	if (fontcode >= item->nostrings)
		return(NULL);

	return(wvWideStrToMB(item->ffn[fontcode].xszFfn));
    }

	
#if 0
int wvGetFRD_PLCF(FRD **frd,U32 **pos,int *nofrd,U32 offset,U32 len,wvStream *fd)
	{
	int i;
	if (len == 0)
		{
		*frd = NULL;
		*pos = NULL;
		*nofrd = 0;
		}
	else
        {
        *nofrd=(len-4)/6;
        *pos = (U32 *) malloc( (*nofrd+1) * sizeof(U32));
        if (*pos == NULL)
            {
            wvError(("NO MEM 1, failed to alloc %d bytes\n",(*nofrd+1) * sizeof(U32)));
            return(1);
            }

        *frd = (FRD *) malloc(*nofrd * sizeof(FRD));
        if (*frd == NULL)
            {
            wvError(("NO MEM 1, failed to alloc %d bytes\n",*nofrd * sizeof(FRD)));
			free(pos);
            return(1);
            }
        wvStream_goto(fd,offset);
        for(i=0;i<*nofrd+1;i++)
            (*pos)[i]=read_32ubit(fd);
        for(i=0;i<*nofrd;i++)
            wvGetFRD(&((*frd)[i]),fd);
        }
	return(0);
	}
#endif