Return to fontmake.c CVS log

Up to [RetroPC.NET] / xmil / font

change to c style comment

#include	"compiler.h"
#include	"parts.h"
#include	"dosio.h"
#if defined(OSLANG_UTF8) || defined(OSLANG_UCS2)
#include	"oemtext.h"
#endif
#include	"fontmng.h"
#include	"font.h"
#include	"fontdata.h"
#include	"fontmake.h"


typedef struct {
	UINT16	jis1;
	UINT16	jis2;
} JISPAIR;

static const UINT8 deltable[] = {
		/*     del         del         del         del         del */
			0x0f, 0x5f, 0,
			0x01, 0x10, 0x1a, 0x21, 0x3b, 0x41, 0x5b, 0x5f, 0,
			0x54, 0x5f, 0,
			0x57, 0x5f, 0,
			0x19, 0x21, 0x39, 0x5f, 0,
			0x22, 0x31, 0x52, 0x5f, 0,
			0x01, 0x5f, 0,
			0x01, 0x5f, 0,
			0x01, 0x5f, 0,
			0x01, 0x5f, 0,
			0x01, 0x5f, 0,
			0x1f, 0x20, 0x37, 0x3f, 0x5d, 0x5f, 0};

static const JISPAIR jis7883[] = {
			{0x3646, 0x7421}, /* ��:� */	{0x4b6a, 0x7422}, /* ��:� */
			{0x4d5a, 0x7423}, /* �y:� */	{0x596a, 0x7424}, /* ��:� */ };

static const JISPAIR jis8390[] = {
			{0x724d, 0x3033}, /* ��:�� */	{0x7274, 0x3229}, /* ��:�� */
			{0x695a, 0x3342}, /* �y:�a */	{0x5978, 0x3349}, /* ��:�h */
			{0x635e, 0x3376}, /* �}:�� */	{0x5e75, 0x3443}, /* ��:�� */
			{0x6b5d, 0x3452}, /* �|:�� */	{0x7074, 0x375b}, /* ��:�z */
			{0x6268, 0x395c}, /* ��:�{ */	{0x6922, 0x3c49}, /* �A:�� */
			{0x7057, 0x3f59}, /* ��:�x */	{0x6c4d, 0x4128}, /* ��:�G */
			{0x5464, 0x445b}, /* ��:�� */	{0x626a, 0x4557}, /* ��:�v */
			{0x5b6d, 0x456e}, /* ��:�� */	{0x5e39, 0x4573}, /* ��:�� */
			{0x6d6e, 0x4676}, /* �:�� */	{0x6a24, 0x4768}, /* �:�� */
			{0x5b58, 0x4930}, /* �w:�O */	{0x5056, 0x4b79}, /* ��:�� */
			{0x692e, 0x4c79}, /* �M:�� */	{0x6446, 0x4f36}, /* ��:�U */ };


static UINT cnvjis(UINT jis, const JISPAIR *tbl, UINT tblsize) {

const JISPAIR	*tblterm;

	tblterm = (JISPAIR *)(((UINT8 *)tbl) + tblsize);
	while(tbl < tblterm) {
		if (jis == tbl->jis1) {
			return(tbl->jis2);
		}
		else if (jis == tbl->jis2) {
			return(tbl->jis1);
		}
		tbl++;
	}
	return(jis);
}

static BRESULT isx1jis(UINT jis) {

const UINT8	*p;
	UINT	tmp;

	switch(jis >> 8) {
		case 0x22:
		case 0x23:
		case 0x24:
		case 0x25:
		case 0x26:
		case 0x27:
		case 0x28:
		case 0x29:
		case 0x2a:
		case 0x2b:
		case 0x2c:
		case 0x2d:
			p = deltable;
			tmp = (jis >> 8) - 0x22;
			while(tmp) {
				tmp--;
				while(*p++) { }
			}
			tmp = (jis & 0xff) - 0x20;
			while(*p) {
				if ((tmp >= (UINT)p[0]) && (tmp < (UINT)p[1])) {
					return(FALSE);
				}
				p += 2;
			}
			break;

		case 0x4f:
			tmp = jis & 0xff;
			if (tmp >= 0x54) {
				return(FALSE);
			}
			break;

		case 0x7c:
			tmp = jis & 0xff;
			if ((tmp == 0x6f) || (tmp == 0x70)) {
				return(FALSE);
			}
			break;

		case 0x2e:
		case 0x2f:
		case 0x74:
		case 0x75:
		case 0x76:
		case 0x77:
		case 0x78:
		case 0x7d:
		case 0x7e:
		case 0x7f:
			return(FALSE);
	}
	return(TRUE);
}

static void setank(UINT8 *ptr, void *fnt, UINT from, UINT to) {

	char	work[2];
	FNTDAT	dat;
const UINT8	*p;
	UINT8	*q;
	int		width;
	int		height;
	UINT8	bit;
	int		i;
#if defined(OSLANG_UTF8) || defined(OSLANG_UCS2)
	OEMCHAR	oemwork[4];
#endif

	ptr += from * 16;
	work[1] = '\0';
	while(from < to) {
		work[0] = (char)from;
#if defined(OSLANG_UTF8) || defined(OSLANG_UCS2)
		oemtext_sjis2oem(oemwork, NELEMENTS(oemwork), work, -1);
		dat = fontmng_get(fnt, oemwork);
#else
		dat = fontmng_get(fnt, work);
#endif
		if (dat) {
			width = min(dat->width, 8);
			height = min(dat->height, 16);
			p = (UINT8 *)(dat + 1);
			q = ptr;
			while(height > 0) {
				height--;
				bit = 0;
				for (i=0; i<width; i++) {
					if (p[i]) {
						bit |= (0x80 >> i);
					}
				}
				p += dat->width;
				*q++ = bit;
			}
		}
		from++;
		ptr += 16;
	}
}

static void setjis(UINT8 *ptr, void *fnt) {

	char	work[4];
	UINT	h;
	UINT	l;
	UINT	jis;
	UINT	sjis;
	UINT8	*q;
	FNTDAT	dat;
	int		width;
	int		height;
const UINT8	*p;
	UINT	bit;
	int		i;
#if defined(OSLANG_UTF8) || defined(OSLANG_UCS2)
	OEMCHAR	oemwork[4];
#endif

	work[2] = '\0';
	for (h=0x21; h<0x7f; h++) {
		for (l=0x21; l<0x7f; l++) {
			jis = (h << 8) + l;
			sjis = jis2sjis(jis);
			if ((sjis >= 0x8140) && (sjis < 0x84c0)) {
				q = ptr + 0x00000 + ((sjis - 0x8140) << 5);
			}
			else if ((sjis >= 0x8890) && (sjis < 0xa000)) {
				q = ptr + 0x07000 + ((sjis - 0x8890) << 5);
			}
			else if ((sjis >= 0xe040) && (sjis < 0xeab0)) {
				q = ptr + 0x35e00 + ((sjis - 0xe040) << 5);
			}
			else {
				q = NULL;
			}
			if ((q != NULL) && (isx1jis(jis))) {
				jis = cnvjis(jis, jis7883, sizeof(jis7883));
				jis = cnvjis(jis, jis8390, sizeof(jis8390));
				sjis = jis2sjis(jis);
				work[0] = (char)(sjis >> 8);
				work[1] = (char)sjis;
#if defined(OSLANG_UTF8) || defined(OSLANG_UCS2)
				oemtext_sjis2oem(oemwork, NELEMENTS(oemwork), work, -1);
				dat = fontmng_get(fnt, oemwork);
#else
				dat = fontmng_get(fnt, work);
#endif
				if (dat) {
					width = min(dat->width, 16);
					height = min(dat->height, 16);
					p = (UINT8 *)(dat + 1);
					while(height > 0) {
						height--;
						bit = 0;
						for (i=0; i<width; i++) {
							if (p[i]) {
								bit |= (0x8000 >> i);
							}
						}
						p += dat->width;
						q[0] = (UINT8)(bit >> 8);
						q[1] = (UINT8)bit;
						q += 2;
					}
				}
			}
		}
	}
}

void makex1font(REG8 loading) {

	void	*fnt;
	UINT8	*work;
	FILEH	fh;

	fnt = fontmng_create(16, 0, NULL);
	if (fnt == NULL) {
		goto mfnt_err1;
	}
	work = (UINT8 *)_MALLOC(306176, "MAKEFONT");
	if (work == NULL) {
		goto mfnt_err2;
	}
	if (loading & FONTLOAD_ANK) {
		ZeroMemory(work, 0x1000);
		setank(work, fnt, 0x20, 0x7f);
		setank(work, fnt, 0xa1, 0xe0);
		CopyMemory(work + 0x000, defrom_txt, 0x200);
		CopyMemory(work + 0x7f0, defrom_txt + 0x200, 0x210);
		CopyMemory(work + 0xe00, defrom_txt + 0x410, 0x200);
		fh = file_create_c(x1ank2tmp);
		if (fh != FILEH_INVALID) {
			file_write(fh, work, 0x1000);
			file_close(fh);
		}
	}
	if (loading & (FONT_KNJ1 | FONT_KNJ2)) {
		ZeroMemory(work, 306176);
		setjis(work, fnt);
		fh = file_create_c(x1knjtmp);
		if (fh != FILEH_INVALID) {
			file_write(fh, work, 306176);
			file_close(fh);
		}
	}
	_MFREE(work);

mfnt_err2:
	fontmng_destroy(fnt);

mfnt_err1:
	return;
}