/*
Program: MMATE.C
Author : Kim Moser
Date   : 09/13/89
System : IBM PC / Borland Turbo-C 2.0
Descrip: Filters MultiMate .DOC files and creates new file with
	 ".DDD" extension.  Does the following:

		- adds filename to first 8 characters of file
		- fixes bullet characters
		- replaces '>' with '|'


Usage  : MMATE <listfile

	 where 'listfile' is the name of a text file containing names
	 of MultiMate document files to be processed.
*/

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

char *PAT="LJETBOX ";  /* MUST BE EXACTLY 8 CHARACTERS LONG! */

unsigned long GOT, PUT;

void usage(void)
{
	fprintf( stderr, "Usage: MMATE <listfile\n" );
	fprintf( stderr, "where 'listfile' is the name of a text file containing names\n" );
	fprintf( stderr, "of MultiMate document files to be processed.\n" );
	exit(1);
}

int K_getc(fp)
FILE *fp;
{
	GOT++;
	return getc(fp);
}

int K_putc(i, fp)
int i;
FILE *fp;
{
	PUT++;
	return putc(i, fp);
}

void process(s)
char *s;
{
	FILE *fin, *fout;
	int i;
	int ch;
	char s2[255];  /* Output filename */

	GOT = PUT=0;

	/* Make output filename out of input filename, with ".DOC"
	   replaced by ".DDD": */

	strcpy(s2,s);
	/* Find '.' (or beginning of string): */
	for (i=strlen(s2)-1; (s2[i]!='.')&&i; i--);

	s2[i]=0;  /* Truncate after '.', if any */
	strcat(s2, ".DDD");

	if ((fin=fopen(s,"rb"))==NULL) {
		fprintf(stderr, "Unable to open file '%s' for reading.\n", s);
		return;
	}
	if ((fout=fopen(s2,"wb"))==NULL) {
		fprintf(stderr, "Unable to open file '%s' for writing.\n", s);
		fclose(fin);
		return;
	}

	/* Copy file name to the first 8 chars of output file: */
	/* First find beginning of actual filename (not path): */
	for (i=strlen(s)-1; (s[i]!='\\')&&i; i--);

	while (s[i]!='.') {
		K_putc(s[i], fout);  /* Output a character for the filename... */
		K_getc(fin);  /* ...and skip a corresponding character from the input file */
		i++;
	}

	/* Now make sure we did 8; pad with spaces if necessary: */
	while (PUT<8) {
		K_putc(' ', fout);
		K_getc(fin);
	}

	/* Write file header until offset 0x10BA reached
	   (name of default PAT table): */
	do {
		K_putc((ch=K_getc(fin)), fout);
	} while (GOT < 0x1BA);

	/* Write new PAT table: */
	/* (First skip 8 bytes of PAT table name from input file:) */
	for (i=0; i<8; i++)
		K_getc(fin);
	/* Write name of new PAT table: */
	for (i=0; PAT[i]; i++)
		K_putc(PAT[i], fout);

	/* Write rest of file header info until the first page is found: */
	do {
		K_putc((ch=K_getc(fin)), fout);
	} while (ch != 179);

	/* Filter other characters: */
	while (!feof(fin)) {
		switch (ch=K_getc(fin)) {
			case 248:  /* Bullet */
				K_putc(220, fout);
				break;
			case '>':
				K_putc('|', fout);
				break;
			default:
				K_putc(ch, fout);
				break;
		}
	}

	if (fclose(fin))
		fprintf( stderr, "Error closing input file '%s'.\n", s);

	if (fclose(fout))
		fprintf( stderr, "Error closing output file '%s'.\n", s2);
}

void main(argc)
int argc;
{
	char s[255];
	unsigned int count=0;  /* How many files processed */

	if (argc > 1) {
		usage();
	} else {
		/* Process all lines from stdin */
		while (gets(s)) {
			process(s);
			count++;
		}
	}

	fprintf( stderr, "%u files processed.\n", count );
	exit(0);
}