/*
 *	Adobe Font Metric (AFM) file parsing
 *	See http://partners.adobe.com/asn/developer/PDFS/TN/5004.AFM_Spec.pdf
 *
 *	Copyright 1998  Huw D M Davies
 * 
 */

#include "config.h"

#include <string.h>
#include <stdlib.h> 	/* qsort() & bsearch() */
#include <stdio.h>
#include <dirent.h>
#include <limits.h> 	/* INT_MIN */
#ifdef HAVE_FLOAT_H
# include <float.h>  	/* FLT_MAX */
#endif
#include "winnt.h"  	/* HEAP_ZERO_MEMORY */
#include "winreg.h"
#include "psdrv.h"
#include "debugtools.h"

DEFAULT_DEBUG_CHANNEL(psdrv);
#include <ctype.h>

/* ptr to fonts for which we have afm files */
FONTFAMILY *PSDRV_AFMFontList = NULL;

/* qsort/bsearch callback functions */
typedef int (*compar_callback_fn) (const void *, const void *);

static VOID SortFontMetrics(AFM *afm, AFMMETRICS *metrics);
static VOID CalcWindowsMetrics(AFM *afm);
static void PSDRV_ReencodeCharWidths(AFM *afm);

/*******************************************************************************
 *  IsWinANSI
 *
 *  Checks whether Unicode value is part of Microsoft code page 1252
 *
 */
static const INT ansiChars[21] =
{
    0x0152, 0x0153, 0x0160, 0x0161, 0x0178, 0x017d, 0x017e, 0x0192, 0x02c6,
    0x02c9, 0x02dc, 0x03bc, 0x2013, 0x2014, 0x2026, 0x2030, 0x2039, 0x203a,
    0x20ac, 0x2122, 0x2219
};

static int cmpUV(const INT *a, const INT *b)
{
    return *a - *b;
}
 
inline static BOOL IsWinANSI(INT uv)
{
    if ((0x0020 <= uv && uv <= 0x007e) || (0x00a0 <= uv && uv <= 0x00ff) ||
    	    (0x2018 <= uv && uv <= 0x201a) || (0x201c <= uv && uv <= 0x201e) ||
	    (0x2020 <= uv && uv <= 2022))
    	return TRUE;
	
    if (bsearch(&uv, ansiChars, 21, sizeof(INT),
    	    (compar_callback_fn)cmpUV) != NULL)
    	return TRUE;
	
    return FALSE;
}

/*******************************************************************************
 *  	CheckMetrics
 *
 *  Check an AFMMETRICS structure to make sure all elements have been properly
 *  filled in.  (Don't check UV or L.)
 *
 */
static const AFMMETRICS badMetrics =
{
    INT_MIN,	    	    	    	    	/* C */
    INT_MIN,	    	    	    	    	/* UV */
    FLT_MAX,	    	    	    	    	/* WX */
    NULL,   	    	    	    	    	/* N */
    { FLT_MAX, FLT_MAX, FLT_MAX, FLT_MAX }, 	/* B */
    NULL    	    	    	    	    	/* L */
};

inline static BOOL CheckMetrics(const AFMMETRICS *metrics)
{
    if (    metrics->C	    == badMetrics.C  	||
    	    metrics->WX     == badMetrics.WX  	||
	    metrics->N	    == badMetrics.N    	||
	    metrics->B.llx  == badMetrics.B.llx	||
	    metrics->B.lly  == badMetrics.B.lly	||
	    metrics->B.urx  == badMetrics.B.urx	||
	    metrics->B.ury  == badMetrics.B.ury	)
	return FALSE;
	
    return TRUE;
}


/***********************************************************
 *
 *	PSDRV_AFMGetCharMetrics
 *
 * Parses CharMetric section of AFM file.
 *
 * Actually only collects the widths of numbered chars and puts then in
 * afm->CharWidths.
 */
static BOOL PSDRV_AFMGetCharMetrics(AFM *afm, FILE *fp)
{
    unsigned char line[256], valbuf[256];
    unsigned char *cp, *item, *value, *curpos, *endpos;
    int i;
    AFMMETRICS *metric, *retval;

    metric = HeapAlloc( PSDRV_Heap, 0, afm->NumofMetrics * sizeof(AFMMETRICS));
    if (metric == NULL)
        return FALSE;
	
    retval = metric;
	
    for(i = 0; i < afm->NumofMetrics; i++, metric++) {
    
    	*metric = badMetrics;

	do {
            if(!fgets(line, sizeof(line), fp)) {
		ERR("Unexpected EOF\n");
		HeapFree(PSDRV_Heap, 0, retval);
		return FALSE;
	    }
	    cp = line + strlen(line);
	    do {
		*cp = '\0';
		cp--;
	    } while(cp >= line && isspace(*cp));
	} while (!(*line));

	curpos = line;
	while(*curpos) {
	    item = curpos;
	    while(isspace(*item))
	        item++;
	    value = strpbrk(item, " \t");
	    if (!value) {
	    	ERR("No whitespace found.\n");
		HeapFree(PSDRV_Heap, 0, retval);
		return FALSE;
	    }
	    while(isspace(*value))
	        value++;
	    cp = endpos = strchr(value, ';');
	    if (!cp) {
	    	ERR("missing ;, failed. [%s]\n", line);
		HeapFree(PSDRV_Heap, 0, retval);
		return FALSE;
	    }
	    while(isspace(*--cp))
	        ;
	    memcpy(valbuf, value, cp - value + 1);
	    valbuf[cp - value + 1] = '\0';
	    value = valbuf;

	    if(!strncmp(item, "C ", 2)) {
	        value = strchr(item, ' ');
		sscanf(value, " %d", &metric->C);

	    } else if(!strncmp(item, "CH ", 3)) {
	        value = strrchr(item, ' ');
		sscanf(value, " %x", &metric->C);
	    }

	    else if(!strncmp("WX ", item, 3) || !strncmp("W0X ", item, 4)) {
	        sscanf(value, "%f", &metric->WX);
	        if(metric->C >= 0 && metric->C <= 0xff)
		    afm->CharWidths[metric->C] = metric->WX;
	    }

	    else if(!strncmp("N ", item, 2)) {
		metric->N = PSDRV_GlyphName(value);
	    }

	    else if(!strncmp("B ", item, 2)) {
	        sscanf(value, "%f%f%f%f", &metric->B.llx, &metric->B.lly,
				          &metric->B.urx, &metric->B.ury);

		/* Store height of Aring to use as lfHeight */
		if(metric->N && !strncmp(metric->N->sz, "Aring", 5))
		    afm->FullAscender = metric->B.ury;
	    }

	    /* Ligatures go here... */

	    curpos = endpos + 1;
	}
	
	if (CheckMetrics(metric) == FALSE) {
	    ERR("Error parsing character metrics\n");
	    HeapFree(PSDRV_Heap, 0, retval);
	    return FALSE;
	}

	TRACE("Metrics for '%s' WX = %f B = %f,%f - %f,%f\n",
	      metric->N->sz, metric->WX, metric->B.llx, metric->B.lly,
	      metric->B.urx, metric->B.ury);
    }
    
    SortFontMetrics(afm, retval);
    
    afm->Metrics = retval;

    return TRUE;
}


/***********************************************************
 *
 *	PSDRV_AFMParse
 *
 * Fills out an AFM structure and associated substructures (see psdrv.h)
 * for a given AFM file. All memory is allocated from the driver heap. 
 * Returns a ptr to the AFM structure or NULL on error.
 *
 * This is not complete (we don't handle kerning yet) and not efficient
 */

static const AFM *PSDRV_AFMParse(char const *file)
{
    FILE *fp;
    unsigned char buf[256];
    unsigned char *value;
    AFM *afm;
    unsigned char *cp;
    int afmfile = 0; 
    int c;
    LPSTR font_name = NULL, full_name = NULL, family_name = NULL,
    	    encoding_scheme = NULL;

    TRACE("parsing '%s'\n", file);

    if((fp = fopen(file, "r")) == NULL) {
        MESSAGE("Can't open AFM file '%s'. Please check wine.conf .\n", file);
        return NULL;
    }

    afm = HeapAlloc(PSDRV_Heap, 0, sizeof(AFM));
    if(!afm) {
        fclose(fp);
        return NULL;
    }

    cp = buf; 
    while ( ( c = fgetc ( fp ) ) != EOF ) {
	*cp = c;
	if ( *cp == '\r' || *cp == '\n' || cp - buf == sizeof(buf)-2 ) {
	    if ( cp == buf ) 
		continue;
	    *(cp+1)='\0';
	}
	else {
	    cp ++; 
	    continue;
	}
      
	cp = buf + strlen(buf);
	do {
	    *cp = '\0';
	    cp--;
	} while(cp > buf && isspace(*cp));

	cp = buf; 

	if ( afmfile == 0 && strncmp ( buf, "StartFontMetrics", 16 ) )
	    break;
	afmfile = 1; 

        value = strchr(buf, ' ');
	if(value)
	    while(isspace(*value))
	        value++;

	if(!strncmp("FontName", buf, 8)) {
	    if (!(afm->FontName = font_name = HeapAlloc(PSDRV_Heap, 0, strlen(value)+1 )))
		goto cleanup_fp;
            strcpy( (char *)afm->FontName, value );
	    continue;
	}

	if(!strncmp("FullName", buf, 8)) {
	    if (!(afm->FullName = full_name = HeapAlloc(PSDRV_Heap, 0, strlen(value)+1 )))
		goto cleanup_fp;
	    strcpy( (char *)afm->FullName, value );
	    continue;
	}

	if(!strncmp("FamilyName", buf, 10)) {
	    if (!(afm->FamilyName = family_name = HeapAlloc(PSDRV_Heap, 0, strlen(value)+1 )))
		goto cleanup_fp;
	    strcpy( (char *)afm->FamilyName, value );
	    continue;
	}
	
	if(!strncmp("Weight", buf, 6)) {
	    if(!strncmp("Roman", value, 5) || !strncmp("Medium", value, 6)
	       || !strncmp("Book", value, 4) || !strncmp("Regular", value, 7)
	       || !strncmp("Normal", value, 6))
	        afm->Weight = FW_NORMAL;
	    else if(!strncmp("Demi", value, 4))
	        afm->Weight = FW_DEMIBOLD;
	    else if(!strncmp("Bold", value, 4))
	        afm->Weight = FW_BOLD;
	    else if(!strncmp("Light", value, 5))
	        afm->Weight = FW_LIGHT;
	    else if(!strncmp("Black", value, 5))
	        afm->Weight = FW_BLACK;
	    else {
		WARN("%s specifies unknown Weight '%s'; treating as Roman\n",
		     file, value);
	        afm->Weight = FW_NORMAL;
	    }
	    continue;
	}

	if(!strncmp("ItalicAngle", buf, 11)) {
	    sscanf(value, "%f", &(afm->ItalicAngle));
	    continue;
	}

	if(!strncmp("IsFixedPitch", buf, 12)) {
	    if(!strncasecmp("false", value, 5))
	        afm->IsFixedPitch = FALSE;
	    else
	        afm->IsFixedPitch = TRUE;
	    continue;
	}

	if(!strncmp("FontBBox", buf, 8)) {
	    sscanf(value, "%f %f %f %f", &(afm->FontBBox.llx), 
		   &(afm->FontBBox.lly), &(afm->FontBBox.urx), 
		   &(afm->FontBBox.ury) );
	    continue;
	}

	if(!strncmp("UnderlinePosition", buf, 17)) {
	    sscanf(value, "%f", &(afm->UnderlinePosition) );
	    continue;
	}

	if(!strncmp("UnderlineThickness", buf, 18)) {
	    sscanf(value, "%f", &(afm->UnderlineThickness) );
	    continue;
	}

	if(!strncmp("CapHeight", buf, 9)) {
	    sscanf(value, "%f", &(afm->CapHeight) );
	    continue;
	}

	if(!strncmp("XHeight", buf, 7)) {
	    sscanf(value, "%f", &(afm->XHeight) );
	    continue;
	}

	if(!strncmp("Ascender", buf, 8)) {
	    sscanf(value, "%f", &(afm->Ascender) );
	    continue;
	}

	if(!strncmp("Descender", buf, 9)) {
	    sscanf(value, "%f", &(afm->Descender) );
	    continue;
	}

	if(!strncmp("StartCharMetrics", buf, 16)) {
	    sscanf(value, "%d", &(afm->NumofMetrics) );
	    if (PSDRV_AFMGetCharMetrics(afm, fp) == FALSE)
	    	goto cleanup_fp;
	    continue;
	}

	if(!strncmp("EncodingScheme", buf, 14)) {
            if (!(afm->EncodingScheme = encoding_scheme = HeapAlloc(PSDRV_Heap, 0, strlen(value)+1)))
                goto cleanup_fp;
            strcpy( (char *)afm->EncodingScheme, value );
	    continue;
	}

    }
    fclose(fp);

    if (afmfile == 0) {
	HeapFree ( PSDRV_Heap, 0, afm ); 
	return NULL;
    }

    if(afm->FontName == NULL) {
        WARN("%s contains no FontName.\n", file);
	if (!(afm->FontName = font_name = HeapAlloc(PSDRV_Heap, 0, 7)))
	    goto cleanup;
	strcpy( (char *)afm->FontName, "nofont" );
    }
    if(afm->FullName == NULL)
    {
        if (!(afm->FullName = full_name = HeapAlloc(PSDRV_Heap, 0, strlen(afm->FontName)+1 )))
            goto cleanup;
        strcpy( (char *)afm->FullName, afm->FontName );
    }
    if(afm->FamilyName == NULL)
    {
        if (!(afm->FamilyName = family_name = HeapAlloc(PSDRV_Heap, 0, strlen(afm->FontName)+1 )))
            goto cleanup;
        strcpy( (char *)afm->FamilyName, afm->FontName );
    }

    if(afm->Ascender == 0.0)
        afm->Ascender = afm->FontBBox.ury;
    if(afm->Descender == 0.0)
        afm->Descender = afm->FontBBox.lly;
    if(afm->FullAscender == 0.0)
        afm->FullAscender = afm->Ascender;
    if(afm->Weight == 0)
        afm->Weight = FW_NORMAL;
	
    CalcWindowsMetrics(afm);
    
    if (afm->EncodingScheme != NULL &&
    	    strcmp(afm->EncodingScheme, "AdobeStandardEncoding") == 0)
    	PSDRV_ReencodeCharWidths(afm);
	
    return afm;
    
    cleanup_fp:
    
    	fclose(fp);
    
    cleanup:
    
    	if (font_name == NULL)
	    HeapFree(PSDRV_Heap, 0, font_name);
	if (full_name == NULL)
	    HeapFree(PSDRV_Heap, 0, full_name);
	if (family_name == NULL)
	    HeapFree(PSDRV_Heap, 0, family_name);
	if (encoding_scheme == NULL)
	    HeapFree(PSDRV_Heap, 0, encoding_scheme);
	    
	HeapFree(PSDRV_Heap, 0, afm);
	    
	return NULL;
}

/***********************************************************
 *
 *	PSDRV_FreeAFMList
 *
 * Frees the family and afmlistentry structures in list head
 */
void PSDRV_FreeAFMList( FONTFAMILY *head )
{
    AFMLISTENTRY *afmle, *nexta;
    FONTFAMILY *family, *nextf;

    for(nextf = family = head; nextf; family = nextf) {
        for(nexta = afmle = family->afmlist; nexta; afmle = nexta) {
	    nexta = afmle->next;
	    HeapFree( PSDRV_Heap, 0, afmle );
	}
        nextf = family->next;
	HeapFree( PSDRV_Heap, 0, family );
    }
    return;
}


/***********************************************************
 *
 *	PSDRV_FindAFMinList
 * Returns ptr to an AFM if name (which is a PS font name) exists in list
 * headed by head.
 */
const AFM *PSDRV_FindAFMinList(FONTFAMILY *head, char *name)
{
    FONTFAMILY *family;
    AFMLISTENTRY *afmle;

    for(family = head; family; family = family->next) {
        for(afmle = family->afmlist; afmle; afmle = afmle->next) {
	    if(!strcmp(afmle->afm->FontName, name))
	        return afmle->afm;
	}
    }
    return NULL;
}

/***********************************************************
 *
 *	PSDRV_AddAFMtoList
 *
 *  Adds an afm to the list whose head is pointed to by head. Creates new
 *  family node if necessary and always creates a new AFMLISTENTRY.
 *
 *  Returns FALSE for memory allocation error; returns TRUE, but sets *p_added
 *  to FALSE, for duplicate.
 */
BOOL PSDRV_AddAFMtoList(FONTFAMILY **head, const AFM *afm, BOOL *p_added)
{
    FONTFAMILY *family = *head;
    FONTFAMILY **insert = head;
    AFMLISTENTRY *tmpafmle, *newafmle;

    newafmle = HeapAlloc(PSDRV_Heap, HEAP_ZERO_MEMORY,
			   sizeof(*newafmle));
    if (newafmle == NULL)
    	return FALSE;
	
    newafmle->afm = afm;

    while(family) {
        if(!strcmp(family->FamilyName, afm->FamilyName))
	    break;
	insert = &(family->next);
	family = family->next;
    }
 
    if(!family) {
        family = HeapAlloc(PSDRV_Heap, HEAP_ZERO_MEMORY,
			   sizeof(*family));
	if (family == NULL) {
	    HeapFree(PSDRV_Heap, 0, newafmle);
	    return FALSE;
	}
	*insert = family;
	if (!(family->FamilyName = HeapAlloc(PSDRV_Heap, 0, strlen(afm->FamilyName)+1 ))) {
	    HeapFree(PSDRV_Heap, 0, family);
	    HeapFree(PSDRV_Heap, 0, newafmle);
	    return FALSE;
	}
	strcpy( family->FamilyName, afm->FamilyName );
	family->afmlist = newafmle;
	*p_added = TRUE;
	return TRUE;
    }
    else {
    	tmpafmle = family->afmlist;
	while (tmpafmle) {
	    if (!strcmp(tmpafmle->afm->FontName, afm->FontName)) {
	    	WARN("Ignoring duplicate FontName '%s'\n", afm->FontName);
		HeapFree(PSDRV_Heap, 0, newafmle);
		*p_added = FALSE;
		return TRUE;	    	    	    /* not a fatal error */
	    }
	    tmpafmle = tmpafmle->next;
	}
    }
    
    tmpafmle = family->afmlist;
    while(tmpafmle->next)
        tmpafmle = tmpafmle->next;

    tmpafmle->next = newafmle;

    *p_added = TRUE;
    return TRUE;
}

/**********************************************************
 *
 *	PSDRV_ReencodeCharWidths
 *
 * Re map the CharWidths field of the afm to correspond to an ANSI encoding
 *
 */
static void PSDRV_ReencodeCharWidths(AFM *afm)
{
    int i, j;
    const AFMMETRICS *metric;

    for(i = 0; i < 256; i++) {
        if(isalnum(i))
	    continue;
	if(PSDRV_ANSIVector[i] == NULL) {
	    afm->CharWidths[i] = 0.0;
	    continue;
	}
        for (j = 0, metric = afm->Metrics; j < afm->NumofMetrics; j++, metric++) {
	    if(metric->N && !strcmp(metric->N->sz, PSDRV_ANSIVector[i])) {
	        afm->CharWidths[i] = metric->WX;
		break;
	    }
	}
	if(j == afm->NumofMetrics) {
	    WARN("Couldn't find glyph '%s' in font '%s'\n",
		 PSDRV_ANSIVector[i], afm->FontName);
	    afm->CharWidths[i] = 0.0;
	}
    }
    return;
}


/***********************************************************
 *
 *	PSDRV_DumpFontList
 *
 */
static void PSDRV_DumpFontList(void)
{
    FONTFAMILY      *family;
    AFMLISTENTRY    *afmle;

    for(family = PSDRV_AFMFontList; family; family = family->next) {
        TRACE("Family '%s'\n", family->FamilyName);
	for(afmle = family->afmlist; afmle; afmle = afmle->next)
	{
	    INT i;
	    
	    TRACE("\tFontName '%s' (%i glyphs) - '%s' encoding:\n",
	    	    afmle->afm->FontName, afmle->afm->NumofMetrics,
		    afmle->afm->EncodingScheme);
	    
	    for (i = 0; i < afmle->afm->NumofMetrics; ++i)
	    {
	    	TRACE("\t\tU+%.4lX; C %i; N '%s'\n", afmle->afm->Metrics[i].UV,
		    	afmle->afm->Metrics[i].C, afmle->afm->Metrics[i].N->sz);
	    }
	}
    }
    return;
}

/*******************************************************************************
 *  SortFontMetrics
 *
 *  Initializes the UV member of each glyph's AFMMETRICS and sorts each font's
 *  Metrics by Unicode Value.  If the font has a standard encoding (i.e. it is
 *  using the Adobe Glyph List encoding vector), look up each glyph's Unicode
 *  Value based on it's glyph name.  If the font has a font-specific encoding,
 *  map the default PostScript encodings into the Unicode private use area.
 *
 */
static int UnicodeGlyphByNameIndex(const UNICODEGLYPH *a, const UNICODEGLYPH *b)
{
    return a->name->index - b->name->index;
}

static int AFMMetricsByUV(const AFMMETRICS *a, const AFMMETRICS *b)
{
    return a->UV - b->UV;
}
 
static VOID SortFontMetrics(AFM *afm, AFMMETRICS *metrics)
{
    INT     i;
    
    TRACE("%s\n", afm->FontName);
    
    if (strcmp(afm->EncodingScheme, "FontSpecific") != 0)
    {
    	PSDRV_IndexGlyphList();     	/* enable searching by name index */
	    
	for (i = 0; i < afm->NumofMetrics; ++i)
	{
	    UNICODEGLYPH    ug, *pug;
		    
	    ug.name = metrics[i].N;
		    
	    pug = bsearch(&ug, PSDRV_AGLbyName, PSDRV_AGLbyNameSize,
	    	    sizeof(UNICODEGLYPH),
		    (compar_callback_fn)UnicodeGlyphByNameIndex);
	    if (pug == NULL)
	    {
	    	WARN("Glyph '%s' in font '%s' does not have a UV\n",
    		    	ug.name->sz, afm->FullName);
		metrics[i].UV = -1;
	    }
	    else
	    {
	    	metrics[i].UV = pug->UV;
	    }
	}
    }
    else    	    	    	    	    /* FontSpecific encoding */
    {
    	for (i = 0; i < afm->NumofMetrics; ++i)
	    metrics[i].UV = metrics[i].C;
    }
	    
    qsort(metrics, afm->NumofMetrics, sizeof(AFMMETRICS),
    	    (compar_callback_fn)AFMMetricsByUV);
		    
    for (i = 0; i < afm->NumofMetrics; ++i) 	/* count unencoded glyphs */
    	if (metrics[i].UV >= 0)
	    break;
	    
    if (i != 0)
    {
    	TRACE("Ignoring %i unencoded glyphs\n", i);
    	afm->NumofMetrics -= i;
	memmove(metrics, metrics + i, afm->NumofMetrics * sizeof(*metrics));
    }
}

/*******************************************************************************
 *  PSDRV_CalcAvgCharWidth
 *
 *  Calculate WinMetrics.sAvgCharWidth for a Type 1 font.  Can also be used on
 *  TrueType fonts, if font designer set OS/2:xAvgCharWidth to zero.
 *
 *  Tries to use formula in TrueType specification; falls back to simple mean
 *  if any lowercase latin letter (or space) is not present.
 */
inline static SHORT MeanCharWidth(const AFM *afm)
{
    float   w = 0.0;
    int     i;
    
    for (i = 0; i < afm->NumofMetrics; ++i)
    	w += afm->Metrics[i].WX;
	
    w /= afm->NumofMetrics;
    
    return (SHORT)(w + 0.5);
}

static const struct { LONG UV; int weight; } UVweight[27] =
{
    { 0x0061,  64 }, { 0x0062,  14 }, { 0x0063,  27 }, { 0x0064,  35 },
    { 0x0065, 100 }, { 0x0066,  20 }, { 0x0067,  14 }, { 0x0068,  42 },
    { 0x0069,  63 }, { 0x006a,   3 }, { 0x006b,   6 }, { 0x006c,  35 },
    { 0x006d,  20 }, { 0x006e,  56 }, { 0x006f,  56 }, { 0x0070,  17 },
    { 0x0071,   4 }, { 0x0072,  49 }, { 0x0073,  56 }, { 0x0074,  71 },
    { 0x0075,  31 }, { 0x0076,  10 }, { 0x0077,  18 }, { 0x0078,   3 },
    { 0x0079,  18 }, { 0x007a,   2 }, { 0x0020, 166 }
};
 
SHORT PSDRV_CalcAvgCharWidth(const AFM *afm)
{
    float   w = 0.0;
    int     i;
    
    for (i = 0; i < 27; ++i)
    {
    	const AFMMETRICS    *afmm;
	
	afmm = PSDRV_UVMetrics(UVweight[i].UV, afm);
	if (afmm->UV != UVweight[i].UV)     /* UVMetrics returns first glyph */
	    return MeanCharWidth(afm);	    /*   in font if UV is missing    */
	    
	w += afmm->WX * (float)(UVweight[i].weight);
    }
    
    w /= 1000.0;
    
    return (SHORT)(w + 0.5);
}

/*******************************************************************************
 *  CalcWindowsMetrics
 *
 *  Calculates several Windows-specific font metrics for each font.
 *
 */
static VOID CalcWindowsMetrics(AFM *afm)
{
    WINMETRICS	wm;
    INT     	i;
	    
    wm.usUnitsPerEm = 1000;         	    	/* for PostScript fonts */
    wm.sTypoAscender = (SHORT)(afm->Ascender + 0.5);
    wm.sTypoDescender = (SHORT)(afm->Descender - 0.5);
	    
    wm.sTypoLineGap = 1200 - (wm.sTypoAscender - wm.sTypoDescender);
    if (wm.sTypoLineGap < 0)
    	wm.sTypoLineGap = 0;
		
    wm.usWinAscent = 0;
    wm.usWinDescent = 0;
	    
    for (i = 0; i < afm->NumofMetrics; ++i)
    {
    	if (IsWinANSI(afm->Metrics[i].UV) == FALSE)
	    continue;
	    
	if (afm->Metrics[i].B.ury > 0)
	{
	    USHORT ascent = (USHORT)(afm->Metrics[i].B.ury + 0.5);
					
	    if (ascent > wm.usWinAscent)
	    	wm.usWinAscent = ascent;
	}
	
	if (afm->Metrics[i].B.lly < 0)    
	{
	    USHORT descent = (USHORT)(-(afm->Metrics[i].B.lly) + 0.5);
	    
	    if (descent > wm.usWinDescent)
	    	wm.usWinDescent = descent;
	}
    }
    
    if (wm.usWinAscent == 0 && afm->FontBBox.ury > 0)
    	wm.usWinAscent = (USHORT)(afm->FontBBox.ury + 0.5);
	
    if (wm.usWinDescent == 0 && afm->FontBBox.lly < 0)
    	wm.usWinDescent = (USHORT)(-(afm->FontBBox.lly) + 0.5);
		
    wm.sAscender = wm.usWinAscent;
    wm.sDescender = -(wm.usWinDescent);
	    
    wm.sLineGap = 1150 - (wm.sAscender - wm.sDescender);
    if (wm.sLineGap < 0)
    	wm.sLineGap = 0;
		
    wm.sAvgCharWidth = PSDRV_CalcAvgCharWidth(afm);
						
    TRACE("Windows metrics for '%s':\n", afm->FullName);
    TRACE("\tsAscender = %i\n", wm.sAscender);
    TRACE("\tsDescender = %i\n", wm.sDescender);
    TRACE("\tsLineGap = %i\n", wm.sLineGap);
    TRACE("\tusUnitsPerEm = %u\n", wm.usUnitsPerEm);
    TRACE("\tsTypoAscender = %i\n", wm.sTypoAscender);
    TRACE("\tsTypoDescender = %i\n", wm.sTypoDescender);
    TRACE("\tsTypoLineGap = %i\n", wm.sTypoLineGap);
    TRACE("\tusWinAscent = %u\n", wm.usWinAscent);
    TRACE("\tusWinDescent = %u\n", wm.usWinDescent);
    TRACE("\tsAvgCharWidth = %i\n", wm.sAvgCharWidth);
	    
    afm->WinMetrics = wm;
	    
    /* See afm2c.c and mkagl.c for an explanation of this */
    /*	PSDRV_AFM2C(afm);   */
}


/*******************************************************************************
 *  AddBuiltinAFMs
 *
 */
 
static BOOL AddBuiltinAFMs()
{
    const AFM *const	*afm = PSDRV_BuiltinAFMs;
    
    while (*afm != NULL)
    {
    	BOOL	added;
    
    	if (PSDRV_AddAFMtoList(&PSDRV_AFMFontList, *afm, &added) == FALSE)
	    return FALSE;
	    
	if (added == FALSE)
	    TRACE("Ignoring built-in font %s\n", (*afm)->FontName);
	    
	++afm;
    }
    
    return TRUE;
}


/***********************************************************
 *
 *	PSDRV_GetFontMetrics
 *
 * Parses all afm files listed in [afmfiles] and [afmdirs] of wine.conf
 *
 * If this function fails, PSDRV_Init will destroy PSDRV_Heap, so don't worry
 * about freeing all the memory that's been allocated.
 */

static BOOL PSDRV_ReadAFMDir(const char* afmdir) {
    DIR *dir;
    const AFM	*afm;
    BOOL added;

    dir = opendir(afmdir);
    if (dir) {
	struct dirent *dent;
	while ((dent=readdir(dir))) {
	    if (strstr(dent->d_name,".afm")) {
		char *afmfn;

		afmfn=(char*)HeapAlloc(PSDRV_Heap,0, 
		    	strlen(afmdir)+strlen(dent->d_name)+2);
		if (afmfn == NULL) {
		    closedir(dir);
		    return FALSE;
		}
		strcpy(afmfn,afmdir);
		strcat(afmfn,"/");
		strcat(afmfn,dent->d_name);
		TRACE("loading AFM %s\n",afmfn);
		afm = PSDRV_AFMParse(afmfn);
		if (afm) {
		    if (PSDRV_AddAFMtoList(&PSDRV_AFMFontList, afm, &added) == FALSE) {
		    	closedir(dir);
			return FALSE;
		    }
		}
		else {
		    WARN("Error parsing %s\n", afmfn);
		}
		HeapFree(PSDRV_Heap,0,afmfn);
	    }
	}
	closedir(dir);
    }
    else {
    	WARN("Error opening %s\n", afmdir);
    }
    
    return TRUE;
}

BOOL PSDRV_GetFontMetrics(void)
{
    int idx;
    char key[256];
    char value[256];
    HKEY hkey;
    DWORD type, key_len, value_len;
    BOOL added;

    if (PSDRV_GlyphListInit() != 0)
	return FALSE;

    if(RegOpenKeyExA(HKEY_LOCAL_MACHINE, "Software\\Wine\\Wine\\Config\\afmfiles",
		     0, KEY_READ, &hkey))
	goto no_afmfiles;

    idx = 0;
    key_len = sizeof(key);
    value_len = sizeof(value);
    while(!RegEnumValueA(hkey, idx++, key, &key_len, NULL, &type, value, &value_len))
    {
        const AFM* afm = PSDRV_AFMParse(value);
	
        if (afm) {
            if (PSDRV_AddAFMtoList(&PSDRV_AFMFontList, afm, &added) == FALSE) {
		RegCloseKey(hkey);
	    	return FALSE;
	    }
        }
	else {
	    WARN("Error parsing %s\n", value);
	}

	/* initialize lengths for new iteration */
	key_len = sizeof(key);
	value_len = sizeof(value);
    }
    RegCloseKey(hkey);

no_afmfiles:

    if(RegOpenKeyExA(HKEY_LOCAL_MACHINE, "Software\\Wine\\Wine\\Config\\afmdirs",
		     0, KEY_READ, &hkey))
	goto no_afmdirs;

    idx = 0;
    key_len = sizeof(key);
    value_len = sizeof(value);
    while(!RegEnumValueA(hkey, idx++, key, &key_len, NULL, &type, value, &value_len))
    {
	if (PSDRV_ReadAFMDir (value) == FALSE)
	{
	    RegCloseKey(hkey);
	    return FALSE;
	}

	/* initialize lengths for new iteration */
	key_len = sizeof(key);
	value_len = sizeof(value);
    }
    RegCloseKey(hkey);

no_afmdirs:

    if (AddBuiltinAFMs() == FALSE)
    	return FALSE;

#ifdef HAVE_FREETYPE   
    if (PSDRV_GetTrueTypeMetrics() == FALSE)
    	return FALSE;
    PSDRV_IndexGlyphList();
#endif

    PSDRV_DumpFontList();
    return TRUE;
}