/*
    psftools: Manipulate console fonts in the .PSF format
    Copyright (C) 2000  John Elliott

    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., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <stdio.h>
#include <string.h>
#include "mswfnt.h"
#include "psflib.h"

void msw_fontinfo_new(MSW_FONTINFO *f)
    {
    memset(f, 0, sizeof(MSW_FONTINFO));
    f->dfVersion = 0x200;
    }



int msw_fontinfo_write(MSW_FONTINFO *f, FILE *fp)
    {
    int n;

    if (write_word (fp, f->dfVersion))         return -1;
    if (write_dword(fp, f->dfSize))            return -1;
    if (fwrite(f->dfCopyright, 1, 60, fp) < 60) return -1;
    if (write_word (fp, f->dfType))            return -1;
    if (write_word (fp, f->dfPoints))          return -1;
    if (write_word (fp, f->dfVertRes))         return -1;
    if (write_word (fp, f->dfHorizRes))        return -1;
    if (write_word (fp, f->dfAscent))          return -1;
    if (write_word (fp, f->dfInternalLeading)) return -1;
    if (write_word (fp, f->dfExternalLeading)) return -1;
    if (write_byte (fp, f->dfItalic))          return -1;
    if (write_byte (fp, f->dfUnderline))       return -1;
    if (write_byte (fp, f->dfStrikeOut))       return -1;
    if (write_word (fp, f->dfWeight))          return -1;
    if (write_byte (fp, f->dfCharSet))         return -1;
    if (write_word (fp, f->dfPixWidth))        return -1;
    if (write_word (fp, f->dfPixHeight))       return -1;
    if (write_byte (fp, f->dfPitchAndFamily))  return -1;
    if (write_word (fp, f->dfAvgWidth))        return -1;
    if (write_word (fp, f->dfMaxWidth))        return -1;
    if (write_byte (fp, f->dfFirstChar))       return -1;
    if (write_byte (fp, f->dfLastChar))        return -1;
    if (write_byte (fp, f->dfDefaultChar))     return -1;
    if (write_byte (fp, f->dfBreakChar))       return -1;
    if (write_word (fp, f->dfWidthBytes))      return -1;
    if (write_dword(fp, f->dfDevice))          return -1;
    if (write_dword(fp, f->dfFace))            return -1;
    if (write_dword(fp, f->dfBitsPointer))     return -1;
    if (write_dword(fp, f->dfBitsOffset))      return -1;
    if (f->dfVersion >= 0x0200)
        {
        if (write_byte (fp, f->dfReserved))    return -1;
	}
    if (f->dfVersion >= 0x0300)
        {
        if (write_dword(fp, f->dfFlags))       return -1;
        if (write_word (fp, f->dfAspace))      return -1;
        if (write_word (fp, f->dfBspace))      return -1;
        if (write_word (fp, f->dfCspace))      return -1;
	if (write_dword(fp, f->dfColorPointer))return -1;
	for (n = 0; n < 4; n++) 
		if (write_dword(fp, f->dfReserved1[n])) return -1;
        }
    return 0;
    }



int msw_font_body_write(MSW_FONTINFO *f, FILE *fp, msw_byte *addr)
{
        long size, base;

        if (!addr) return -3;
        /* Work out font size. This is f->dfSize minus header size */

        if (f->dfVersion >= 0x0300) base = 0x9A;
        else                        base = 0x76;

        size = f->dfSize - base;

        if (fwrite( addr+base, 1, size, fp) < size) return -1;

	return 0;
}