/*
 * Macintosh font suitcase unpacker by John O'Neill
 *
 * Amiga modifications by Rico Mariani
 *
 * The -x flag is used to skip the 128 info section that is placed
 * at the head of the file when the suitcase is uploaded from
 * the Mac by some versions of xmodem.
 *
 * (C)1987 John O'Neill & Rico Mariani
 *
 */

#include <exec/types.h>
#include "extract.h"
#include <stdio.h>

void *malloc();
void *PtoC();
int debug = 1;

main(argc,argv)
int argc;
char **argv;
{
	unsigned char *res, rheader[16];
	int i, j, c;
	int Data_loc, Map_loc, Data_length, Map_length, Res_length;
	int Type_List_loc, Name_List_loc;
	int Num_Res_Types, Type_loc, Num_Fonts, Ref_List_loc;
	int Ref_loc, Res_ID, temp, Res_Name_loc, Res_Attributes;
	int Res_Data_loc;
	int Font_ID, Point_Size, Font_Num, Font_Size;
	unsigned char **Font_Name;
	unsigned char File_Name[32];
	FILE *f,*fontfile;
	int skip = 0;


	/* Start up */

	if (argc < 2 || argc > 4) {
		fprintf(stderr,"Usage: %s [-x] FontFile\n",argv[0]);
		exit(1);
	}

	if (!strcmp(argv[1],"-x"))
		skip = 1;

	f = fopen(argv[1+skip],"r");
	if (!f) {
		fprintf(stderr,"%s: Cannot open %s\n",argv[0],argv[1+skip]);
		exit(1);
	}


	/* Skip .info file sent by XMODEM */

	if (skip) for(i = 0; i < 128; i++) fgetc(f);

	/* Get resource file header */

	fread( rheader, sizeof(rheader), 1, f);

	Data_loc    = X_LONG(rheader + 0);
	Map_loc	    = X_LONG(rheader + 4);
	Data_length = X_LONG(rheader + 8);
	Map_length  = X_LONG(rheader + 12);
	Res_length  = Data_length + Map_length + 256;

	/* allocate memory for the rest of the resource */
	res = malloc(Res_length);

	/* read in everything but the header */
	fread( res+16, Res_length-16, 1, f );
	fclose(f);

	/* Look for FONT resources in the resource map */

	Type_List_loc = Map_loc + X_UWORD(res + Map_loc + 24);
	Name_List_loc = Map_loc + X_UWORD(res + Map_loc + 26);

	Num_Res_Types = 1 + X_UWORD(res + Type_List_loc);

	printf("There are %d Res Types in the file\n", Num_Res_Types);

	for(i = 0; i < Num_Res_Types; i++) {
		Type_loc = Type_List_loc + i*10 + 2;
		if (X_ULONG(res + Type_loc) == 'FONT') {
			Num_Fonts = 1 + X_UWORD(res+Type_loc+4);
			Ref_List_loc = Type_List_loc +
				X_UWORD(res + Type_loc + 6);
			printf("Found FONT rsrc with %d fonts\n", Num_Fonts);

		}
	}

	/* Get the FONT names first: this is the name of the Resources
	   which have ResId a multiple of 128 */

	Font_Num = 1;
	/* need one pointer for each possible font id */
	Font_Name = malloc(sizeof(char *) * 256);
	if (!Font_Name) {
		printf("Error, no memory for font name pointer array\n");
		exit(-1);
	}

	for(i = 0; i < Num_Fonts; i++) {
		Ref_loc    = Ref_List_loc + 12*i;
		Res_ID     = X_UWORD(res + Ref_loc);
		Font_ID    = Res_ID >> 7;
		Point_Size = Res_ID & 0x7f;

		if (Point_Size == 0) {
			temp = X_UWORD(res + Ref_loc + 2);

			if (temp == 0xffff) {
				Font_Name[Font_ID] = malloc(10);
				if (!Font_Name[Font_ID]) {
				    printf("Error, no memory for name\n");
				    exit(-1);
				}

				sprintf(Font_Name[Font_ID],"FONT%d",
					Font_Num );

				Font_Num++;
			}
			else {
				Res_Name_loc = Name_List_loc + temp;
				Font_Name[Font_ID] = PtoC(res+Res_Name_loc);
			}
		}
	}

	/* Get the info on each of the FONT resources found */

	for(i = 0; i < Num_Fonts; i++) {
		Ref_loc = Ref_List_loc + 12*i;
		Res_ID  = X_UWORD(res + Ref_loc );
		Font_ID = Res_ID >> 7;
		Point_Size = Res_ID & 0x7f;

		temp 	       = X_UWORD(res + Ref_loc + 2);
		Res_Name_loc   = (temp == 0xffff) ? -1 : Name_List_loc+temp;
		Res_Attributes = res[Ref_loc + 4];
		Res_Data_loc   = Data_loc + X_UTRIP(res + Ref_loc + 5);
		Font_Size      = X_ULONG( res + Res_Data_loc );

		if (Point_Size != 0) {
			for(j = 0;; j++) {
				c = Font_Name[Font_ID][j];
				if (c == ' ') c = '_';
				if (c != 0)
					File_Name[j] = c;
				else
					break;
			}

			File_Name[j] = '.';
			j++;
			sprintf(&File_Name[j],"%d",Point_Size);

			printf("Font:%s %d -> File:%s  (Size = %d)\n",
				Font_Name[Font_ID],Point_Size,File_Name,
				Font_Size);

			fontfile = fopen(File_Name,"w");
			if (!fontfile) {
				fprintf(stderr,"%s: Cannot open %s\n",
					argv[0],File_Name);
				exit(1);
			}

			fwrite( res+Res_Data_loc+4, Font_Size, 1, fontfile);
			fclose(fontfile);
		}
	}
}

void *PtoC(s1)
register unsigned char *s1;
{
	register unsigned char *s2;
	register int i;
	int len;
	unsigned char *s;

	len = *s1++;

	s = s2 = malloc(len + 1);
	if (!s2) {
		printf("Error, not enough memory to make C string\n");
		exit(-1);
	}

	for (i= len; --i>=0; ) *s2++ = *s1++;

	*s2 = 0;
	return(s);
}