#include <stdio.h>
#include <string.h>

#define MAX_INPUT_FILE_NAME     6
#define MAX_CAPTION             2
#define CAPTION_LEN            60
#define FNAME_LEN              30

char InputFileName[MAX_INPUT_FILE_NAME][FNAME_LEN];
char Caption[MAX_CAPTION][CAPTION_LEN];
char OutputFileName[FNAME_LEN];
FILE *InputFileHandler[MAX_INPUT_FILE_NAME];
FILE *OutputFileHandler;

// Function int main(void) {{{
int main(void)
{
	int i;
	char temp[81];

	/***************************************************************/
	/* Information stuff for the user.                             */

	printf("\n\nThis program will take 6 file names, which are\n");
	printf("PostScript outputs of XGRAFIX, and one (and/or two)\n");
	printf("caption line(s) and will create a PostScript file\n");
	printf("with the following VERTICAL configuration:\n\n");
	printf(" -----caption1----- \n");
	printf(" -----caption2----- \n");
	printf("  (file1)  (file2)  \n");
	printf("  (file3)  (file4)  \n");
	printf("  (file5)  (file6)  \n\n");

	/***************************************************************/
	/* Get the captions and file names from the user.              */

	printf("Please enter the caption(s) not exceeding %d\n", CAPTION_LEN);
	printf("characters per line.\n\n");
	for (i=0; i< MAX_CAPTION; i++) {
		printf("Caption %d->", i+1);
		// gets(Caption[i]);
		fgets(Caption[i], CAPTION_LEN, stdin);
		if (!strcmp(Caption[i], "exit") || !strcmp(Caption[i], "quit")) exit(1);
	}

	printf("\nPlease enter the PS file names not exceeding %d\n", FNAME_LEN);
	printf("characters per file name.\n\n");
	for (i=0; i< MAX_INPUT_FILE_NAME; i++) {
		printf("Input File %d->", i+1);
		// gets(InputFileName[i]);
		fgets(InputFileName[i], FNAME_LEN, stdin);
		if (!strcmp(InputFileName[i], "exit") ||
								!strcmp(InputFileName[i], "quit"))
			exit(1);

		if (strcmp(InputFileName[i], "skip") &&
								!(InputFileHandler[i] =
									fopen(InputFileName[i], "r"))) {
			printf("\nFile does not exist.  Try again!\n"); i--;
		}
	}

	printf("\nPlease enter the output file name not exceeding %d\n", FNAME_LEN);
	printf("characters.\n\n");

	printf("Output File ->");
	// gets(OutputFileName);
	fgets(OutputFileName, FNAME_LEN, stdin);
	if (!strcmp(OutputFileName, "exit") ||
							!strcmp(OutputFileName, "quit"))
		exit(1);
	OutputFileHandler = fopen(OutputFileName, "w");

	/**************************************************************/
	/* Read the input files and write into the output file        */

	/*****  The first file with the header  *******/

	while (strcmp(fgets(temp, 80, InputFileHandler[0]), "612 0 translate\n"))
		fputs(temp, OutputFileHandler);

	fgets(temp, 80, InputFileHandler[0]);
	fputs(".38194 .38194 scale\n", OutputFileHandler);
	fputs("70 1150 translate\n\n", OutputFileHandler);

	while (strcmp(fgets(temp, 80, InputFileHandler[0]), "showpage\n")) {
		if (!strcmp(temp, "/Times-Bold findfont 12 scalefont setfont\n"))
			fputs("/Times-Bold findfont 18 scalefont setfont\n",
									OutputFileHandler);
		else if (!strcmp(temp, "/Times-BoldItalic findfont 12"
									" scalefont setfont\n"))
			fputs("/Times-BoldItalic findfont 18 scalefont setfont\n",
									OutputFileHandler);
		else if (!strcmp(temp, "/Times-Bold findfont 14 scalefont setfont\n"))
			fputs("/Times-Bold findfont 20 scalefont setfont\n",
									OutputFileHandler);
		else
			fputs(temp, OutputFileHandler);
	}
	fclose(InputFileHandler[0]);

	/*****  The rest of the files without the header  *******/

	for (i=1; i< MAX_INPUT_FILE_NAME; i++) {
		if (i%2) fputs("680 0 translate\n\n", OutputFileHandler);
		else    fputs("-680 -500 translate\n\n", OutputFileHandler);

		if (strcmp(InputFileName[i], "skip")) {
			while (strcmp(fgets(temp, 80, InputFileHandler[i]),
										"612 0 translate\n"));
			fgets(temp, 80, InputFileHandler[i]);

			while (strcmp(fgets(temp, 80, InputFileHandler[i]), "showpage\n")) {
				if (!strcmp(temp, "/Times-Bold findfont 12"
											" scalefont setfont\n"))
					fputs("/Times-Bold findfont 18 scalefont setfont\n",
											OutputFileHandler);
				else if (!strcmp(temp, "/Times-BoldItalic findfont 12"
											" scalefont setfont\n"))
					fputs("/Times-BoldItalic findfont 18 scalefont setfont\n",
											OutputFileHandler);
				else if (!strcmp(temp, "/Times-Bold findfont 14"
											" scalefont setfont\n"))
					fputs("/Times-Bold findfont 20 scalefont setfont\n",
										   OutputFileHandler);
				else
					fputs(temp, OutputFileHandler);
			}
			fclose(InputFileHandler[i]);
		}
	}

	/*****  The caption(s) and finally showpage  *******/

	fputs("-750 -150 translate\n", OutputFileHandler);
	fputs("2.618 2.618 scale\n", OutputFileHandler);
	fputs("/Times-Bold findfont 16 scalefont setfont\n", OutputFileHandler);

	for (i=0; i< MAX_CAPTION; i++) {
		fprintf(OutputFileHandler, "306 %d moveto\n", 720-20*i);
		fprintf(OutputFileHandler, "(%s) prtstrfrommidup\n", Caption[i]);
	}
	fputs("showpage\n", OutputFileHandler);
	fclose(OutputFileHandler);
	return(0);
} // }}}


// Modeline for ViM {{{1
// vim:set ts=4:
// vim600:fdm=marker fdl=0 fdc=3:
// 1}}}