/*
    psftools: Manipulate console fonts in the .PSF format
    Copyright (C) 2003  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 "cnvshell.h"
#include "psflib.h"

/* Convert an MDA character ROM to a .PSF font. 
 * 
 * We assume the MDA ROM format, with 256 characters, each one 8x14. The 
 * ninth column is synthesized.
 */

static char helpbuf[2048];
static char mdabuf[8192];
static PSF_FILE psf;
static PSF_MAPPING *codepage = NULL;
static int compaq = 0;

/* Program name */
char *cnv_progname = "MDA2PSF";

/* ddash = 1 if option started with a double-dash; else 0 */
/* Return NULL if OK, else error string */
char *cnv_set_option(int ddash, char *variable, char *value)
{
	if (!stricmp(variable, "codepage") || !stricmp(variable, "setcodepage"))
	{
		codepage = psf_find_mapping(value);
		if (codepage == NULL) return "Code page name not recognised.";
		return NULL;
	}
	if (!stricmp(variable, "compaq"))
	{
		compaq = 1;
		return NULL;
	}
	if (strlen(variable) > 2000) variable[2000] = 0;
	sprintf(helpbuf, "Unknown option: %s\n", variable);
	return helpbuf;
}


/* Return help string */
char *cnv_help(void)
    {
    sprintf(helpbuf, "Syntax: %s mda_rom psffile { options }\n\n", cnv_progname);
    strcat (helpbuf, "Options:\n\n"
		    "--codepage=x: Create a Unicode directory from the "
		    "specified code page\n"
		    "--compaq: Input file is in Compaq CGA format\n\n"
		    "If --compaq is not present, input file must be in the IBM"
		   " MDA/CGA character\nROM format.\n");
            
    return helpbuf;
    }


char *cnv_execute(FILE *infile, FILE *outfile)
{	
	int rv, n, m;

/* Character size is fixed: 8x14. In an IBM ROM, the font is stored as two 
 * lots of 8x8 characters -- the first 256 give the top halves of the
 * characters, and the second 256 give the bottom halves. In the Compaq ROM,
 * odd-numbered characters are the top halves and even-numbered characters are
 * the bottom halves. */

	psf_file_new(&psf);
	rv = psf_file_create(&psf, 9, 14, 256, 0);
	if (!rv)
	{
		if (fread(mdabuf, 1, 4096, infile) < 4096)
		{
			psf_file_delete(&psf);
			return "Could not read the input file.";
		}
		for (n= 0; n < 256; n++)
		{
			if (compaq)	/* Compaq */
			{
				for (m = 0; m < 8; m ++) /* Top halves */
				{
					psf.psf_data[28*n+2*m] = mdabuf[16*n+8+m];
				}
				for (m = 0; m < 6; m ++) /* Bottom halves */
				{
					psf.psf_data[28*n+2*m+16] = mdabuf[16*n+m];
				}

			}
			else	/* IBM */
			{
				for (m = 0; m < 8; m++) /* Top halves */
				{
					psf.psf_data[28*n + 2*m     ] = mdabuf[8*n+m];
				}
				for (m = 0; m < 6; m++)	/* Bottom halves */
				{
					psf.psf_data[28*n + 2*m + 16] = mdabuf[8*n+m+2048];
				}
			}
/* Characters 192-224 duplicate the 8th column to give the 9th column. */
			for (m = 0; m < 14; m++)
			{
				psf.psf_data[28*n + 2*m +  1] = 0;
				if (n >= 192 && n < 224)
				{
					if (psf.psf_data[28*n + 2*m] & 1)
						psf.psf_data[28*n+2*m+1] = 0x80;
				}	
			}	
		}	
                if (codepage)
                {
			psf_unicode_addall(&psf, codepage, 0, 255);
		}
		rv = psf_file_write(&psf, outfile);
	}
	psf_file_delete(&psf);	
	if (rv) return psf_error_string(rv);
	return NULL;
}