fnt2fon.c

/*
 * fnttofon.  Combine several fnt files in one fon file
 *
 * Copyright 2004 Huw Davies
 *
 * Modified for converting the Dina font
 * Copyright 2013 Joergen Ibsen
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 */

#ifdef _WIN32
# include <windows.h>
#else
# include "config.h"
# include "wine/port.h"
#endif

#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#include <errno.h>
#include <fcntl.h>
#ifdef HAVE_IO_H
# include <io.h>
#endif

#ifndef _WIN32
# include "windef.h"
#endif
#include "pshpack1.h"

typedef struct {
	INT16 dfType;
	INT16 dfPoints;
	INT16 dfVertRes;
	INT16 dfHorizRes;
	INT16 dfAscent;
	INT16 dfInternalLeading;
	INT16 dfExternalLeading;
	BYTE dfItalic;
	BYTE dfUnderline;
	BYTE dfStrikeOut;
	INT16 dfWeight;
	BYTE dfCharSet;
	INT16 dfPixWidth;
	INT16 dfPixHeight;
	BYTE dfPitchAndFamily;
	INT16 dfAvgWidth;
	INT16 dfMaxWidth;
	BYTE dfFirstChar;
	BYTE dfLastChar;
	BYTE dfDefaultChar;
	BYTE dfBreakChar;
	INT16 dfWidthBytes;
	LONG dfDevice;
	LONG dfFace;
	LONG dfBitsPointer;
	LONG dfBitsOffset;
	BYTE dfReserved;
	LONG dfFlags;
	INT16 dfAspace;
	INT16 dfBspace;
	INT16 dfCspace;
	LONG dfColorPointer;
	LONG dfReserved1[4];
} FONTINFO16;

typedef struct {
	WORD offset;
	WORD length;
	WORD flags;
	WORD id;
	WORD handle;
	WORD usage;
} NE_NAMEINFO;

typedef struct {
	WORD type_id;
	WORD count;
	DWORD resloader;
} NE_TYPEINFO;

#define NE_FFLAGS_SINGLEDATA    0x0001
#define NE_FFLAGS_MULTIPLEDATA  0x0002
#define NE_FFLAGS_WIN32         0x0010
#define NE_FFLAGS_FRAMEBUF      0x0100
#define NE_FFLAGS_CONSOLE       0x0200
#define NE_FFLAGS_GUI           0x0300
#define NE_FFLAGS_SELFLOAD      0x0800
#define NE_FFLAGS_LINKERROR     0x2000
#define NE_FFLAGS_CALLWEP       0x4000
#define NE_FFLAGS_LIBMODULE     0x8000

#define NE_OSFLAGS_WINDOWS      0x02

#define NE_RSCTYPE_FONTDIR            0x8007
#define NE_RSCTYPE_FONT               0x8008
#define NE_RSCTYPE_SCALABLE_FONTPATH  0x80cc

#define NE_SEGFLAGS_DATA        0x0001
#define NE_SEGFLAGS_ALLOCATED   0x0002
#define NE_SEGFLAGS_LOADED      0x0004
#define NE_SEGFLAGS_ITERATED    0x0008
#define NE_SEGFLAGS_MOVEABLE    0x0010
#define NE_SEGFLAGS_SHAREABLE   0x0020
#define NE_SEGFLAGS_PRELOAD     0x0040
#define NE_SEGFLAGS_EXECUTEONLY 0x0080
#define NE_SEGFLAGS_READONLY    0x0080
#define NE_SEGFLAGS_RELOC_DATA  0x0100
#define NE_SEGFLAGS_SELFLOAD    0x0800
#define NE_SEGFLAGS_DISCARDABLE 0x1000
#define NE_SEGFLAGS_32BIT       0x2000

struct _fnt_header {
	SHORT dfVersion;
	LONG dfSize;
	char dfCopyright[60];
	FONTINFO16 fi;
};
#include "poppack.h"

static const BYTE MZ_hdr[] = {
	'M', 'Z', 0x0d, 0x01, 0x01, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00,
	0xb8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00,
	0x0e, 0x1f, 0xba, 0x0e, 0x00, 0xb4, 0x09, 0xcd, 0x21, 0xb8, 0x01, 0x4c, 0xcd, 0x21, 'T', 'h',
	'i', 's', ' ', 'P', 'r', 'o', 'g', 'r', 'a', 'm', ' ', 'c', 'a', 'n', 'n', 'o',
	't', ' ', 'b', 'e', ' ', 'r', 'u', 'n', ' ', 'i', 'n', ' ', 'D', 'O', 'S', ' ',
	'm', 'o', 'd', 'e', 0x0d, 0x0a, 0x24, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
};

static const char *output_file;

static void cleanup_files(void)
{
	if (output_file) {
		unlink(output_file);
	}
}

static void exit_on_signal(int sig)
{
	exit(1);  /* this will call the atexit functions */
}

static void usage(char **argv)
{
	fprintf(stderr, "%s [-c fontres_comment] fntfiles output.fon\n", argv[0]);
	return;
}

#ifndef __GNUC__
#define __attribute__(X)
#endif

int main(int argc, char **argv)
{
	int i, j;
	FILE *fp, *ofp;
	long off;
	char name[200];
	int c;
	char *cp;
	short pt, ver, dpi[2], align, num_files;
	short lastpt;
	char ital;
	short bold;
	int resource_table_len, non_resident_name_len, resident_name_len;
	unsigned short resource_table_off, resident_name_off, module_ref_off, non_resident_name_off, fontdir_off;
	unsigned font_off;
	char resident_name[200] = "";
	int fontdir_len = 2;
	char non_resident_name[200] = "";
	int *file_lens = NULL;
	int nread;
	char **file_names = NULL;
	char *fontstr_comment = NULL;
	unsigned short first_res = 100, pad, res;
	struct _fnt_header *fnt_header;
	char buf[0x1000];
	IMAGE_OS2_HEADER NE_hdr;
	NE_TYPEINFO rc_type;
	NE_NAMEINFO rc_name;

	if (argc < 3) {
		usage(argv);
		exit(1);
	}

	output_file = argv[argc - 1];

	num_files = 0;
	file_names = malloc(argc * sizeof(char *));

	for (i = 1; i < argc - 1; ++i) {
		if (argv[i][0] == '-') {
			switch (argv[i][1]) {
			case 'c':
				if (i == argc - 2) {
					usage(argv);
					exit(1);
				}
				fontstr_comment = argv[++i];
				break;
			default:
				usage(argv);
				exit(1);
			}
		}
		else {
			file_names[num_files++] = argv[i];
		}
	}

	file_lens = malloc(num_files * sizeof(int));
	for (i = 0; i < num_files; i++) {
		fp = fopen(file_names[i], "rb");
		if (!fp) {
			fprintf(stderr, "error: unable to open %s for reading: %s\n", file_names[i], strerror(errno));
			usage(argv);
			exit(1);
		}
		fread(&ver, sizeof(short), 1, fp);
		if (ver != 0x200 && ver != 0x300) {
			fprintf(stderr, "error: invalid fnt file %s ver %d\n", file_names[i], ver);
			exit(1);
		}
		fread(file_lens + i, sizeof(int), 1, fp);
		fseek(fp, 0x44, SEEK_SET);
		fread(&pt, sizeof(short), 1, fp);
		fread(dpi, sizeof(short), 2, fp);
		fseek(fp, 0x50, SEEK_SET); /* dfItalic */
		fread(&ital, sizeof(char), 1, fp);
		fseek(fp, 0x53, SEEK_SET); /* dfWeight */
		fread(&bold, sizeof(short), 1, fp);
		fseek(fp, 0x69, SEEK_SET);
		fread(&off, sizeof(long), 1, fp);
		fseek(fp, off, SEEK_SET);
		cp = name;
		while ((c = fgetc(fp)) != 0 && c != EOF) {
			*cp++ = c;
		}
		*cp = '\0';
		fprintf(stderr, "%s %d pts %dx%d dpi%s%s\n", name, pt, dpi[0], dpi[1], bold == 700 ? " Bold" : "", ital ? " Italic" : "");
		fclose(fp);
		/* fontdir entries for version 3 fonts are the same as for version 2 */
		fontdir_len += 0x74 + strlen(name) + 1;
		if (i == 0) {
			char tmpname[200];
			strcpy(tmpname, name);
			if (bold == 700) {
				strcat(tmpname, " Bold");
			}
			if (ital) {
				strcat(tmpname, " Italic");
			}
			sprintf(non_resident_name, "FONTRES 100,%d,%d : %s %d", dpi[0], dpi[1], tmpname, pt);
			lastpt = pt;
		}
		else {
			if (pt != lastpt) {
				sprintf(non_resident_name + strlen(non_resident_name), ",%d", pt);
				lastpt = pt;
			}
		}
	}

	if (fontstr_comment != NULL) {
		sprintf(buf, " (%s)", fontstr_comment);
		strcat(non_resident_name, buf);
	}

	non_resident_name_len = strlen(non_resident_name) + 4;

	/* copy up to 8 uppercased characters from output name to resident_name */
	for (i = 0; i < 8 && isalnum(output_file[i]); i++) {
		resident_name[i] = toupper(output_file[i]);
	}
	resident_name[i] = '\0';

	/* shift count + fontdir entry + num_files of font + nul type + \007FONTDIR */
	resource_table_len = sizeof(align) + sizeof("FONTDIR") +
	                     sizeof(NE_TYPEINFO) + sizeof(NE_NAMEINFO) +
	                     sizeof(NE_TYPEINFO) + sizeof(NE_NAMEINFO) * num_files +
	                     sizeof(NE_TYPEINFO);
	resource_table_off = sizeof(NE_hdr);
	resident_name_off = resource_table_off + resource_table_len;
	resident_name_len = strlen(resident_name) + 4;
	module_ref_off = resident_name_off + resident_name_len;
	non_resident_name_off = sizeof(MZ_hdr) + module_ref_off + sizeof(align);

	memset(&NE_hdr, 0, sizeof(NE_hdr));
	NE_hdr.ne_magic = 0x454e;
	NE_hdr.ne_ver = 5;
	NE_hdr.ne_rev = 1;
	NE_hdr.ne_flags = NE_FFLAGS_LIBMODULE | NE_FFLAGS_GUI;
	NE_hdr.ne_cbnrestab = non_resident_name_len;
	NE_hdr.ne_segtab = sizeof(NE_hdr);
	NE_hdr.ne_rsrctab = sizeof(NE_hdr);
	NE_hdr.ne_restab = resident_name_off;
	NE_hdr.ne_modtab = module_ref_off;
	NE_hdr.ne_imptab = module_ref_off;
	NE_hdr.ne_enttab = NE_hdr.ne_modtab;
	NE_hdr.ne_nrestab = non_resident_name_off;
	NE_hdr.ne_align = 4;
	NE_hdr.ne_exetyp = NE_OSFLAGS_WINDOWS;
	NE_hdr.ne_expver = 0x400;

	fontdir_off = (non_resident_name_off + non_resident_name_len + 15) & ~0xf;
	font_off = (fontdir_off + fontdir_len + 15) & ~0x0f;

	atexit(cleanup_files);
	signal(SIGTERM, exit_on_signal);
	signal(SIGINT, exit_on_signal);
#ifdef SIGHUP
	signal(SIGHUP, exit_on_signal);
#endif

	ofp = fopen(output_file, "wb");
	if (!ofp) {
		fprintf(stderr, "error: unable to open %s for writing: %s\n", output_file, strerror(errno));
		exit(1);
	}

	fwrite(MZ_hdr, sizeof(MZ_hdr), 1, ofp);
	fwrite(&NE_hdr, sizeof(NE_hdr), 1, ofp);

	align = 4;
	fwrite(&align, sizeof(align), 1, ofp);

	rc_type.type_id = NE_RSCTYPE_FONTDIR;
	rc_type.count = 1;
	rc_type.resloader = 0;
	fwrite(&rc_type, sizeof(rc_type), 1, ofp);

	rc_name.offset = fontdir_off >> 4;
	rc_name.length = (fontdir_len + 15) >> 4;
	rc_name.flags = 0xc00 | NE_SEGFLAGS_MOVEABLE | NE_SEGFLAGS_PRELOAD;
	rc_name.id = resident_name_off - sizeof("FONTDIR") - NE_hdr.ne_rsrctab;
	rc_name.handle = 0;
	rc_name.usage = 0;
	fwrite(&rc_name, sizeof(rc_name), 1, ofp);

	rc_type.type_id = NE_RSCTYPE_FONT;
	rc_type.count = num_files;
	rc_type.resloader = 0;
	fwrite(&rc_type, sizeof(rc_type), 1, ofp);

	for (res = first_res | 0x8000, i = 0; i < num_files; i++, res++) {
		int len = (file_lens[i] + 15) & ~0xf;

		rc_name.offset = font_off >> 4;
		rc_name.length = len >> 4;
		rc_name.flags = 0xc00 | NE_SEGFLAGS_MOVEABLE | NE_SEGFLAGS_SHAREABLE | NE_SEGFLAGS_DISCARDABLE;
		rc_name.id = res;
		rc_name.handle = 0;
		rc_name.usage = 0;
		fwrite(&rc_name, sizeof(rc_name), 1, ofp);

		font_off += len;
	}

	/* empty type info */
	memset(&rc_type, 0, sizeof(rc_type));
	fwrite(&rc_type, sizeof(rc_type), 1, ofp);

	fputc(strlen("FONTDIR"), ofp);
	fwrite("FONTDIR", strlen("FONTDIR"), 1, ofp);
	fputc(strlen(resident_name), ofp);
	fwrite(resident_name, strlen(resident_name), 1, ofp);

	fputc(0x00, ofp);
	fputc(0x00, ofp);
	fputc(0x00, ofp);
	fputc(0x00, ofp);
	fputc(0x00, ofp);

	fputc(strlen(non_resident_name), ofp);
	fwrite(non_resident_name, strlen(non_resident_name), 1, ofp);
	fputc(0x00, ofp); /* terminator */

	/* empty ne_modtab and ne_imptab */
	fputc(0x00, ofp);
	fputc(0x00, ofp);

	pad = ftell(ofp) & 0xf;
	if (pad != 0) {
		pad = 0x10 - pad;
	}
	for (i = 0; i < pad; i++) {
		fputc(0x00, ofp);
	}

	/* FONTDIR resource */
	fwrite(&num_files, sizeof(num_files), 1, ofp);

	for (res = first_res, i = 0; i < num_files; i++, res++) {
		fp = fopen(file_names[i], "rb");

		fwrite(&res, sizeof(res), 1, ofp);
		fread(buf, 0x72, 1, fp);

		fnt_header = (struct _fnt_header *) buf;
		fseek(fp, fnt_header->fi.dfFace, SEEK_SET);
		fnt_header->fi.dfBitsOffset = 0;
		fwrite(buf, 0x72, 1, ofp);

		cp = name;
		while ((c = fgetc(fp)) != 0 && c != EOF) {
			*cp++ = c;
		}
		*cp = '\0';
		fwrite(name, strlen(name) + 1, 1, ofp);
		fclose(fp);
	}

	pad = ftell(ofp) & 0xf;
	if (pad != 0) {
		pad = 0x10 - pad;
	}
	for (i = 0; i < pad; i++) {
		fputc(0x00, ofp);
	}

	for (res = first_res, i = 0; i < num_files; i++, res++) {
		fp = fopen(file_names[i], "rb");

		while (1) {
			nread = read(fileno(fp), buf, sizeof(buf));
			if (!nread) {
				break;
			}
			fwrite(buf, nread, 1, ofp);
		}
		fclose(fp);
		pad = file_lens[i] & 0xf;
		if (pad != 0) {
			pad = 0x10 - pad;
		}
		for (j = 0; j < pad; j++) {
			fputc(0x00, ofp);
		}
	}
	fclose(ofp);
	output_file = NULL;

	if (file_lens != NULL) {
		free(file_lens);
	}

	if (file_names != NULL) {
		free(file_names);
	}

	return 0;
}