/*
 * Macintosh font conversion program
 * (C)1987 Rico Mariani
 */

#include <stdio.h>
#include <exec/types.h>
#include <exec/nodes.h>
#include <libraries/diskfont.h>

#define HUNK_HEADER  0x3f3
#define HUNK_CODE    0x3e9
#define HUNK_RELOC32 0x3ec
#define HUNK_END     0x3f2

typedef struct {
	UBYTE FontType;
	UBYTE Padding;
	UWORD FirstChar;
	UWORD LastChar;
	UWORD WidMax;
	WORD  KernMax;
	WORD  NDescent;
	UWORD FRectWidth;
	UWORD FRectHeight;
	UWORD OWTLoc;
	UWORD Ascent;
	UWORD Descent;
	UWORD Leading;
	UWORD RowWords;
} FHEADER;

unsigned char *BitImage;
unsigned short LocTable[260];
unsigned short OWTable[260];
FILE *f;

char *rindex();
void *malloc();

main(argc,argv)
int argc;
char *argv[];
{
	int i,j,c;
	FHEADER h;
	ULONG RowBytes;
	ULONG num_chars, fontName, fontData, fontLoc, fontSpace;
	ULONG fontKern, fontEnd, fontLength;
	ULONG IStart, IEnd, CWidth, OW, Offset, Kern;
	ULONG uc, lock;
	char *s, buf[128];
	WORD entries, size;
	int padbytes;

	if(argc != 2) {
		fprintf(stderr,"Usage: %s fontname\n",argv[0]);
		exit(1);
	}

	s = rindex(argv[1],'.');
	if (!s) {
		fprintf(stderr,"Error fontname must be of the form:\n");
		fprintf(stderr,"\tname.pointsize\n");
		exit(1);
	}

	f = fopen(argv[1],"r");
	if (!f){
		fprintf(stderr,"Error can't open file '%s'\n",argv[1]);
		exit(1);
	}

	fread( &h, sizeof(h), 1, f);

	printf("Font Data for %s:\n",argv[1]);
	*s = '\0'; /* remove the suffix */
	printf("\tChars %d to %d\n",h.FirstChar, h.LastChar);
	printf("\tFont Rectangle (W,H) = (%d,%d)\n" ,
		h.FRectWidth, h.FRectHeight);
	printf("\tAscent = %d,  Descent = %d,  Leading = %d\n",
		h.Ascent, h.Descent, h.Leading);

	RowBytes = 2*h.RowWords;

	BitImage = malloc(h.FRectHeight * RowBytes);
	if (!BitImage) {
		printf("Error, no memory for bit image\n");
		exit(-1);
	}

	fread(BitImage, h.FRectHeight * RowBytes, 1, f);

	for(i = h.FirstChar; i <= h.LastChar+2; i++) {
		uc = fgetc(f);
		LocTable[i] = uc << 8 | fgetc(f);
	}

	for(i = h.FirstChar; i <= h.LastChar+2; i++) {
		uc = fgetc(f);
		OWTable[i] = uc << 8 | fgetc(f);
	}

	fclose(f);

	sprintf(buf,"fonts:%s",argv[1]);
	lock = CreateDir(buf);
	if (lock) UnLock(lock);

	sprintf(buf,"fonts:%s/%d",argv[1],h.FRectHeight);
	f = fopen(buf,"w");
	if (!f) {
		fprintf(stderr,"Error, can't open '%s' for write\n",buf);
		exit(1);
	}

	/* compute offsets into the code hunk */

	num_chars  = h.LastChar - h.FirstChar + 2;
	fontName   = 0x1a;
	fontData   = 0x6e;
	fontLoc    = fontData  + RowBytes * h.FRectHeight;
	fontSpace  = fontLoc   + (num_chars<<2);
	fontKern   = fontSpace + (num_chars<<1);
	fontEnd    = fontKern  + (num_chars<<1);

	/* long word align fontEnd */
	padbytes = 0;
	while (fontEnd & 3) {
		padbytes++;
		fontEnd++;
	}
	fontLength = fontEnd   - 0x3a;	         /* the font: label */

	outL(HUNK_HEADER);
	outL(0);		/* no hunk names */
	outL(1);		/* Size of hunk table */
	outL(0);		/* First Hunk */
	outL(0);		/* Last Hunk */
	outL(fontEnd>>2);	/* Size of Hunk 0 */

	outL(HUNK_CODE);
	outL(fontEnd>>2);	/* Size of this hunk */

	/* now here comes the data for the hunk */
	/* this first part is in case someone tries to run this */

	outW(0x7000);		/* MOVEQ.L #0,D0 */
	outW(0x4e75);		/* RTS */

	outL(0);		/* ln_Succ */
	outL(0);		/* ln_Pred */
	outB(NT_FONT);		/* ln_Type */
	outB(0);		/* ln_Pri  */
	outL(0x1a);		/* ln_Name -- will be relocated */
	outW(DFH_ID);		/* FileID */
	outW(1);		/* Revision */
	outL(0);		/* Segment */

/* fontName: */

	outZ(MAXFONTNAME);	/* output 32 zeros */

/* font: */

	outL(0);		/* ln_Succ */
	outL(0);		/* ln_Pred */
	outB(NT_FONT);		/* ln_Type */
	outB(0);		/* ln_Pri  */
	outL(0x1a);		/* ln_Name -- will be relocated */
	outL(0);		/* mn_ReplyPort */
	outW(fontLength);	/* nm_Length */
	outW(h.FRectHeight);	/* tf_YSize */
	outB(0);		/* tf_Style */
	outB(0x62);		/* tf_Flags */
	outW(h.FRectWidth);	/* tf_XSize */
	outW(h.Ascent);		/* ft_BaseLine */
	outW(1);		/* tf_BoldSmear */
	outW(0);		/* tf_Accessors */
	outB(h.FirstChar);	/* tf_LoChar */
	outB(h.LastChar);	/* tf_HiChar */
	outL(fontData);		/* tf_CharData */
	outW(RowBytes);		/* tf_Modulo */
	outL(fontLoc);		/* tf_CharLoc */
	outL(fontSpace);	/* tf_CharSpace */
	outL(fontKern);		/* tf_CharKern */

/* fontData: */

	fwrite(BitImage, RowBytes * h.FRectHeight, 1, f);

/* fontLoc: */

	/* note that there is an extra character in every font on both  */
	/* that Amiga and the Mac which is used when a character not in */
	/* the font is requested */

	for (i=h.FirstChar; i<= h.LastChar + 1; i++) {
		if (OWTable[i] == -1)
			c = h.LastChar+1;
		else
			c = i;

		IStart = LocTable[c];
		IEnd   = LocTable[c+1];
		outW(IStart);
		outW(IEnd-IStart);
	}

/* fontSpace: */

	for (i=h.FirstChar; i<= h.LastChar+1; i++) {
		OW = OWTable[i];
		if (OWTable[i] == -1) OW = OWTable[h.LastChar+1];

		CWidth = OW & 0xff;
		outW(CWidth);
	}

/* fontKern: */

	for (i=h.FirstChar; i<= h.LastChar+1; i++) {
		OW = OWTable[i];
		if (OWTable[i] == -1) OW = OWTable[h.LastChar+1];

		Offset = OW >> 8;
		Kern = h.KernMax + Offset;
		outW(Kern);

	}

	for (i=0;i<padbytes;i++) outB(0);

/* fontEnd: */

	outL(HUNK_RELOC32);
	outL(6);		/* of relocates number in this hunk */
	outL(0);		/* hunk 0 */
	outL(0x0e);		/* relocate reference to fontName: 1st */
	outL(0x44);		/* relocate reference to fontName: 2nd */
	outL(0x5c);		/* relocate reference to fontData:  */
	outL(0x62);		/* relocate reference to fontLoc:   */
	outL(0x66);		/* relocate reference to fontSpace: */
	outL(0x6a);		/* relocate reference to fontKern:  */
	outL(0);		/* zero to mark end */
	outL(HUNK_END);

	fclose(f);

	sprintf(buf,"fonts:%s.font",argv[1]);
	f = fopen(buf,"r+");
	if (!f) {
		f = fopen(buf,"w+");
		if (!f) {
			fprintf(stderr,"Error, can't create font header\n");
			exit(1);
		}
		outW(0x0f00);	/* font header */
		outW(0x0000);	/* number of font items */
	}

	fseek(f,2,0);

	fread(&entries,2,1,f);

	for (i=0;i<entries;i++) {
		fseek(f, 4+(260*i)+256, 0);
		fread(&size,2,1,f);	/* read in ysize */
		if (size == h.FRectHeight) {
		    printf("Amiga font of this size already exists");
		    printf("... overwritten\n");
		    exit(1);
		}
	}

	fseek(f,2,0);
	outW(++entries);
	fseek(f,0,2);
	sprintf(buf,"%s/%d",argv[1],h.FRectHeight);
	fwrite(buf,strlen(buf),1,f);
	for (i=strlen(buf);i<256;i++) fputc(0,f);
	outW(h.FRectHeight);
	outB(0);
	outB(0x62);
	fclose(f);
}

outB(b)
{
	fputc(b,f);
}

outW(w)
{
	fputc(w>>8,f);
	fputc(w&0xff,f);
}

outL(l)
{
	fwrite(&l,4,1,f);
}

outZ(n)
{
	int i;

	for (i=n;--i>=0;) fputc(0,f);
}