/********************************************************************
 *                                                                  *
 *  Title:  pfm2afm - Convert Windows .pfm files to .afm files      *
 *                                                                  *
 *  Author: Ken Borgendale   10/9/91  Version 1.0                   *
 *                                                                  *
 *  Function:                                                       *
 *      Convert a Windows .pfm (Printer Font Metrics) file to a     *
 *      .afm (Adobe Font Metrics) file.  The purpose of this is     *
 *      to allow fonts put out for Windows to be used with OS/2.    *
 *                                                                  *
 *  Syntax:                                                         *
 *      pfm2afm  infile  [outfile] -a                               *
 *                                                                  *
 *  Copyright:                                                      *
 *      pfm2afm - Copyright (C) IBM Corp., 1991                     *
 *                                                                  *
 *      This code is released for public use as long as the         *
 *      copyright remains intact.  This code is provided asis       *
 *      without any warrenties, express or implied.                 *
 *                                                                  *
 *  Notes:                                                          *
 *      1. Much of the information in the original .afm file is     *
 *         lost when the .pfm file is created, and thus cannot be   *
 *         reconstructed by this utility.  This is especially true  *
 *         of data for characters not in the Windows character set. *
 *                                                                  *
 *      2. This module is coded to be compiled by the MSC 6.0.      *
 *         For other compilers, be careful of the packing of the    *
 *         PFM structure.                                           *
 *                                                                  *
 ********************************************************************/


/********************************************************************
 *  Modified:  Russell Lang <rjl@eng.monash.edu.au>                 *
 *             1994-01-06  Version 1.1                              *
 *  Compiles with EMX/GCC                                           *
 *  Changed to AFM 3.0                                              *
 *  Put PFM Copyright in Notice instead of Comment                  *
 *  Added ItalicAngle                                               *
 *  Added UnderlinePosition                                         *
 *  Added UnderlineThickness                                        *
 *                                                                  *
 *  Modified 1995-03-10  rjl (fixes from Norman Walsh)              *
 *  Dodge compiler bug when creating descender                      *
 ********************************************************************/


/********************************************************************
 *  Modified:  Olivier Plathey <olivier@fpdf.org>                   *
 *             2002-08-10  Version 1.11                             *
 *  Compiles with MinGW                                             *
 *  Output Descender as negative value                              *
 *  Removed double spaces in character entries                      *
 *                                                                  *
 *             2005-03-12  Version 1.12                             *
 *  Doubled size of BUFSIZE                                         *
 ********************************************************************/

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "pfm2afm.h"

#define BUFSIZE 8192
/*
 *  Function Prototypes
 */
void  help (void);
void  parseargs (int argc, uchar * * argv);
void  openpfm(void);
void  openafm(void);
void  putheader(void);
void  putchartab(void);
void  outchar(int code, ushort width, const uchar * name);
void  putkerntab(KERN * kerntab, int kerncnt);
void  puttrailer(void);
void  outval(int val);
void  outreal(float val);

/*
 *  Global variables
 */
FILE   * inf;                /* Input file */
FILE   * outf;               /* Output file */
uchar  infname[272];         /* Input file name */
uchar  outfname[272];        /* Output file name */
uchar  * buffer;             /* .pfm read buffer */
PFM    * pfm;                /* .pfm header */
PSX    * psx;                /* Metrics extension */

uchar    debugflag;          /* Debug information flag */
uchar    allflag;
uchar    isMono;             /* Font is mono-spaced */

/*
 *  Do the function
 */
MAINENT main(int argc, uchar * *argv) {

    /* Parse arguments */
    parseargs(argc, argv);

    /* Open and check input file */
    openpfm();

    /* Make output file name and open */
    openafm();

    /* Put out header information */
    putheader();

    /* Put out character table */
    putchartab();

    /* Put out kerning table */
    if (pfm->kernpairs) {
        putkerntab((KERN *)(buffer+pfm->kernpairs+2),
                   *(ushort *)(buffer+pfm->kernpairs));
    }
    if (pfm->kerntrack) { /* rjl */
	fprintf(stderr, "Ignoring track kern table\n");
    }

    /* Put out trailer line */
    puttrailer();

    /* Cleanup */
    if (buffer)
        free(buffer);
    fclose(inf);
    fclose(outf);
    return 0;
}

/*
 *  Put out normal help
 */
void  help (void) {
    puts("\npfm2afm - Convert Windows pfm to afm - Version 1.11\n");
    puts("This utility converts Windows pfm files for Adobe type 1 fonts");
    puts("to afm files for use on OS/2.  This allows fonts created for");
    puts("Windows, and shipped without the afm file to be used on OS/2.\n");
    puts("pfm2afm  infile  [outfile]  -opts");
    puts("    The extension .pfm is added to the infile if it has none.");
    puts("    The outfile is defaulted from the input file name.");
    puts("    -a = All codepoints in range");
    puts("\nNote that pfm files are missing some of the data necessary to");
    puts("construct afm files, so the conversion may not be perfect.\n");
    puts("Ken Borgendale  -  kwb@betasvm2.vnet.ibm.com\n");
    puts("Russell Lang    -  rjl@monu1.cc.monash.edu.au\n");
    exit (1);
}


/*
 *  Parse arguments.  This is the full arg treatment, which is sort of
 *  overkill for one option, but it allows more to be added later.
 */
void  parseargs (int argc, uchar * * argv) {
    uchar  swchar;
    int    argcnt;
    int    filecnt;
    uchar * argp;

    argcnt = 1;
    filecnt = 0;
    /* Read the arguments and decide what we are doing */
    while (argcnt<argc) {
        argp = argv[argcnt];
        /* Check for switches.  Files may not start with - or / */
        if (*argp == '-' || *argp == OPTSEP) {
            /* Process switches */
            swchar = (uchar)tolower(argp[1]);
            argp += 2;
            switch (swchar) {
            case '?':
                help();      /* Does not return */

            /* All codepoints */
            case 'a':
                allflag = 0;
                break;

            /* Debug option */
            case 'd':
                debugflag = 1;
                break;

            default:
                fputs("Unknown options: ", stderr);
                fputs(argp-2, stderr);
                fputc('\n', stderr);
            }
        } else {
            if (*argp=='?') {
                help();      /* Does not return */
            }
            switch(++filecnt) {
            case 1:
                strcpy(infname, argp);
                break;
            case 2:
                strcpy(outfname, argp);
                break;
            default:
                fputs("Extra parameter ignored: ", stderr);
                fputs(argp, stderr);
                fputc('\n', stderr);
            }
        }
        argcnt++;
    }

    /* We require the input file name */
    if (!filecnt) help();
}


/*
 *  Open the .pfm file and check it
 */
void  openpfm(void) {
    uchar   * cp;
    int       len;

    /* Check for a file extension */
    cp = infname+strlen(infname)-1;
    while (cp>=infname && *cp!='.' && *cp!='\\' && *cp!='/' && *cp!=':')
       cp--;
    if (*cp!='.')
        strcat(infname, ".pfm");
    /* Open the file */
    inf = fopen(infname, "rb");
    if (!inf) {
        fputs("Unable to open input file - ", stderr);
        fputs(infname, stderr);
        fputc('\n', stderr);
        exit(4);
    }
    /* Read the file */
    buffer = malloc(BUFSIZE);
    len = fread(buffer, 1, BUFSIZE, inf);
    if (len<256 || len==BUFSIZE) {
        fputs("Input file read error - ", stderr);
        fputs(infname, stderr);
        fputc('\n', stderr);
        exit(6);
    }
    /* Do consistency check */
    pfm = (PFM *) buffer;
    if (len != (int)pfm->len &&  /* Check length field matches file length */
        pfm->extlen != 30 &&     /* Check length of PostScript extension   */
        pfm->fontname>75 && pfm->fontname<512) {  /* Font name specified */
        fputs("Not a valid Windows type 1 .pfm file - ", stderr);
        fputs(infname, stderr);
        fputc('\n', stderr);
        exit(6);
    }
}

/*
 *  Create the .afm file
 */
void  openafm(void) {
    uchar  * cp;

    /* Add .pfm if there is none */
    if (!*outfname) {
        strcpy(outfname, infname);
        cp = outfname+strlen(outfname)-1;
        while (cp >= outfname && *cp!='.' && *cp!='\\' && *cp!='/' && *cp!=':')
           cp--;
        if (*cp=='.') *cp=0;
        strcat(outfname, ".afm");
    }
    /* Open the file */
    outf = fopen(outfname, "w");
    if (!outf) {
        fputs("Unable to open output file - ", stderr);
        fputs(outfname, stderr);
        fputc('\n', stderr);
        exit(5);
    }
}

/*
 *  Put out the header of the .afm file
 */
void  putheader(void) {
    uchar * cp;
    int temp;  /* rjl 1995-03-10 */

    fputs("StartFontMetrics 3.0\n", outf);
    if (*pfm->copyright) {
        fputs("Notice ", outf);
        fputs(pfm->copyright, outf);
        fputc('\n', outf);
    }
    fputs("FontName ", outf);
    fputs(buffer+pfm->fontname, outf);
    fputs("\nEncodingScheme ", outf);
    if (pfm->charset) {
        fputs("FontSpecific\n", outf);
    } else {
        fputs("AdobeStandardEncoding\n", outf);
    }
    /*
     * The .pfm is missing full name, so construct from font name by
     * changing the hyphen to a space.  This actually works in a lot
     * of cases.
     */
    fputs("FullName ", outf);
    cp = buffer+pfm->fontname;
    while (*cp) {
        if (*cp=='-') *cp=' ';
        fputc(*cp, outf);
        cp++;
    }
    if (pfm->face) {
        fputs("\nFamilyName ", outf);
        fputs(buffer+pfm->face, outf);
    }

    fputs("\nWeight ", outf);
    if (pfm->weight>475) fputs("Bold", outf);
    else if (pfm->weight<325 && pfm->weight)
        fputs("Light", outf);
    else fputs("Medium", outf);

    /*
     *  The mono flag in the pfm actually indicates whether there is a
     *  table of font widths, not if they are all the same.
     */
    fputs("\nIsFixedPitch ", outf);
    if (!(pfm->kind&1) ||                  /* Flag for mono */
        pfm->avgwidth == pfm->maxwidth ) {  /* Avg width = max width */
        fputs("true", outf);
        isMono = 1;
    } else {
        fputs("false", outf);
        isMono = 0;
    }

    /*
     * The font bounding box is lost, but try to reconstruct it.
     * Much of this is just guess work.  The bounding box is required in
     * the .afm, but is not used by the PM font installer.
     */
    psx = (PSX *)(buffer+pfm->psext);
    fputs("\nFontBBox", outf);
    if (isMono) outval(-20);      /* Just guess at left bounds */
    else outval(-100);
    temp = psx->descender; /* rjl 1995-03-10 */
    temp = -(temp+5); /* rjl 1995-03-10 */
    outval(temp);  /* Descender is given as positive value */ /* rjl 1995-03-10 */
    /*     outval(-(psx->descender+5));  /* Descender is given as positive value */
    outval(pfm->maxwidth+10);
    outval(pfm->ascent+5);

    /*
     * Give other metrics that were kept
     */
    fputs("\nCapHeight", outf);
    outval((int)psx->capheight);
    fputs("\nXHeight", outf);
    outval((int)psx->xheight);
    fputs("\nDescender", outf);
    outval((int)-psx->descender); /* output negative value*/
    fputs("\nAscender", outf);
    /* outval((int)psx->ascender); */
    outval((int)pfm->ascent); /* rjl */
    /* extra keys added by rjl */
    if (psx->len >= sizeof(psx)) {
	fputs("\nItalicAngle", outf);
        outreal(psx->slant/10.0);
	fputs("\nUnderlinePosition", outf);
        outval((int)-psx->underlineoffset);
	fputs("\nUnderlineThickness", outf);
        outval((int)psx->underlinewidth);
    }
    fputc('\n', outf);
}

/*
 *  Put out the character tables.  According to the .afm spec, the
 *  characters must be put out sorted in encoding order.
 *
 *  Most Windows .pfm files have the characters in the range 20-ff in
 *  the Windows code page (819 + quotes).
 */
void  putchartab(void) {
    int    count, i, j;
    ushort spwidth;
    ushort * ctab;
    uchar  back[256];

    /*
     * Compute the count by getting rid of non-existant chars.  This
     * is complicated by the fact that Windows encodes the .pfm file
     * with a space metric for non-existant chars.
     */
    memset(back, 0, 256);
    count = pfm->lastchar - pfm->firstchar + 1;
    spwidth = 0;
    /* Compute width of space */
    ctab = (ushort *)(buffer+pfm->chartab);
    if (pfm->firstchar>=' ' && pfm->lastchar<=' ') {
        spwidth = ctab[' '-pfm->firstchar];
    }

    if (!pfm->charset) {
        /*
         *  Loop thru the chars, deleting those that we presume
         *  do not really exist.
         */
        for (i=pfm->firstchar; i<=(int)pfm->lastchar; i++) {
            if (Win2PSStd[i]) {
                back[Win2PSStd[i]] = (uchar)i;
            } else {
                if (!allflag) {
                    if (*ctab==spwidth) {   /* Default width */
                        if (!(WinClass[i]&1)) {
                            *ctab = 0;
                            count--;
                        }
                    } else {                /* Not default width */
                        if (!WinClass[i]) {
                            *ctab = 0;
                            count--;
                        }
                    }
                }
            }
            ctab++;
        }
    }

    /* Put out the header */
    fputs("StartCharMetrics", outf);
    outval(count);
    fputc('\n', outf);

    /* Put out all encoded chars */
    if (pfm->charset) {
    /*
     * If the charset is not the Windows standard, just put out
     * unnamed entries.
     */
        ctab = (ushort *)(buffer+pfm->chartab);
        for (i=pfm->firstchar; i<=(int)pfm->lastchar; i++) {
            if (*ctab) {
                outchar(i, *ctab, NULL);
            }
            ctab++;
        }
    } else {
        ctab = (ushort *)(buffer+pfm->chartab);
        for (i=0; i<256; i++) {
            j = back[i];
            if (j) {
                outchar(i, ctab[j-pfm->firstchar], WinChars[j]);
                ctab[j-pfm->firstchar] = 0;
            }
        }
        /* Put out all non-encoded chars */
        ctab = (ushort *)(buffer+pfm->chartab);
        for (i=pfm->firstchar; i<=(int)pfm->lastchar; i++) {
            if (*ctab) {
                outchar(-1, *ctab, WinChars[i]);
            }
            ctab++;
        }
    }
    /* Put out the trailer */
    fputs("EndCharMetrics\n", outf);
}

/*
 *  Output a character entry
 */
void  outchar(int code, ushort width, const uchar * name) {
    fputs("C", outf);
    outval(code);
    fputs(" ; WX", outf);
    outval(width);
    if (name) {
        fputs(" ; N ", outf);
        fputs(name, outf);
    }
    fputs(" ;\n", outf);
}

/*
 *  Put out the kerning tables
 */
void  putkerntab(KERN * kerntab, int kerncnt) {
    int    count, i;
    KERN * kp;

    /* Count non-zero kern pairs */
    count = kerncnt;
    kp = kerntab;
    for (i=0; i<kerncnt; i++) {
        if (!kp->kern)
            count--;
        kp++;
    }

    /* Put out header */
    fputs("StartKernData\nStartKernPairs", outf);
    outval(count);
    fputc('\n', outf);

    /* Put out each non-zero pair */
    kp = kerntab;
    while (kerncnt) {
        if (kp->kern) {
            fputs("KPX ", outf);
            fputs(WinChars[kp->first], outf);
            fputc(' ', outf);
            fputs(WinChars[kp->second], outf);
            outval((int)kp->kern);
            fputc('\n', outf);
        }
        kp++;
        kerncnt--;
    }

    /* Put out trailer */
    fputs("EndKernPairs\nEndKernData\n", outf);
}

/*
 *  Put out the trailer of the .afm file
 */
void  puttrailer(void) {
    fputs("EndFontMetrics\n", outf);
}

/*
 *  Output a decimal value
 */
void outval(int v) {
    char chx[16];
#ifdef unix
    sprintf(chx, "%d", v);  /* rjl 1995-03-10 */
#else
    itoa(v, chx, 10);
#endif
    fputc(' ', outf);
    fputs(chx, outf);
}

/*
 *  Output a real value
 */
void outreal(float v) {
    fprintf(outf," %g",v);
}