/*
 * cootxt - The incredible fortune cookie system concatenator program
 */

/* Version T1.00 - 31-Oct-86 - tmk - Initial portable version		*/
/* Version T1.01 - 01-Nov-86 - tmk - Close & re-open files between passes
				     for PDP-11 DECUS C compiler	*/
/* Version T1.02 - 20-Nov-86 - tmk - Add stuff for VAX C, fix problems with
				     with item counts being off if missing
				     leading or trailing %%		*/
/* Version T1.03 - 10-Dec-86 - tmk - Remove pathname for data files from
				     COONO1, add as command line arg.	*/
/* Version T1.04 - 18-Apr-87 - tmk - Cleanup by lint			*/
/* Version T1.05 - 30-Jun-87 - tmk - Speedup code by tmk/gpm		*/
/* Version T1.06 - 02-Jul-87 - tmk - Add support for Turbo C		*/
/* Version T1.07 - 13-Aug-87 - tmk - Fix splats on DECUS via BUGFIX.C	*/
/* Version T1.08 - 27-Nov-87 - tmk - Add function prototypes		*/

#define VERSION		"T1.08 27-Nov-87 - tmk"

/*
 * Define module ID for VMS (must go for Turbo C, else bogus error)
 */
#ifdef	vms
#module	cootxt	VERSION
#endif	/* vms */

/*
 * Convince Turbo C it's running under MS-DOS (it isn't sure)
 */
#ifdef	__TURBOC__
#define	MSDOS		1
#endif	/* __TURBOC__ */

/*
 * Grab some header files
 */
#include <stdio.h>
#include <ctype.h>
#ifndef	decus
#include <stdlib.h>
#include <string.h>
#endif	/* decus */

/*
 * Have a fight about function declarations and file modes
 */
#ifdef	MSDOS
#define	w_mode	"w+"
#endif	/* MSDOS */
#ifdef	decus
#define	w_mode	"w"
#define	void
#endif	/* decus */
#ifdef	vms
#define	w_mode	"w+"
#endif	/* vms */

/*
 * Define some constants
 */
#define	FALSE	0
#define	TRUE	1
#define	SLINE	sizeof(line)
#define	SNAME	sizeof(name)
#ifdef	vms
#define	exstat	65535
#else
#define	exstat	0
#endif	/* vms */

/*
 * Global variables
 */
char	line[513];
int	nxtcoo	= 3;
char	*where	= "";			/* Default location for files	*/
char	*ctlfn	= "coono1.src";		/* Default control file name	*/
char	*outfn	= "cookie.txt";		/* Default output file name	*/

/*
 * For 'modern' compilers (all except decus), supply function prototypes
 */
#ifndef	decus
extern	int  main(int, char **);
extern	void process(FILE *, FILE *);
#endif	/* decus */

/*
 * Actual code starts here
 */
int main(argc, argv)
int	argc;
char	*argv[];
{
	FILE		*ctlfd, *outfd, *coofd;
	register char	*n, *ap;
	char		coofn[100],
			*bfpn;
	char		name[100], finis[16];
	int		fstcoo, lstcoo;

	while (argc > 1) {
	    ap = argv[1];
	    if (*ap != '-') {
		fprintf(stderr, "?Unknown command \"%s\"\n", ap);
		fprintf(stderr, "  do COOTXT -? for help.\n\n\n");
	    }
	    else for (ap++; *ap; ap++) {
		switch (tolower(*ap)) {

		case 'f':		/* Use different control file	*/
		    if (isgraph(ap[1]) != 0)
			ctlfn = &ap[1];
		    else if (argc > 2) {
			ctlfn = argv[2];
			argv++;
			argc--;
		    }
		    else {
			break;
		    }
		    goto next_arg;

		case 'l':		/* Specify location of infiles	*/
		    if (isgraph(ap[1]) != 0)
			where = &ap[1];
		    else if (argc > 2) {
			where = argv[2];
			argv++;
			argc--;
		    }
		    else {
			break;
		    }
		    goto next_arg;

		case 'o':		/* Use different output file	*/
		    if (isgraph(ap[1]) != 0)
			outfn = &ap[1];
		    else if (argc > 2) {
			outfn = argv[2];
			argv++;
			argc--;
		    }
		    else {
			break;
		    }
		    goto next_arg;

		case '?':		/* Display help message		*/
		    printf("COOTXT %s",VERSION);
		    printf("\n\nUsage is: COOTXT option option...\n");
		    printf("Options: -f fn  Use FN as control file\n");
		    printf("         -l pn  Use PN as path for files\n");
		    printf("         -o fn  Write output to file FN\n");
		    printf("         -?     Print this message\n");
		    exit(exstat);
		    break;

		default:
		    fprintf(stderr, "?Unknown option '%c'\n", *ap);
		    fprintf(stderr, "  do COOTXT -? for help.\n\n\n");
		}
	    }
	    next_arg:
	    argc--;
	    argv++;
	}

/*
 * Pass 1 - collect cookie numbers and create preaamble in output file
 */
	if ((ctlfd = fopen(ctlfn, "r")) == NULL) {
	    perror(ctlfn);
	    exit(exstat);
	}

	fgets(finis, sizeof(finis), ctlfd);
	if ((n=(char *)strchr(finis, '\n')) != NULL)
	    *n = '\0';			/* Get segment delimiter	*/
	if ((outfd = fopen(outfn, w_mode)) == NULL) {
	    perror(outfn);
	    exit(exstat);
	}
	fgets(line, SLINE, ctlfd);	/* Read text line from ctl file	*/
	if ((n=(char *)strchr(line, '\n')) != NULL)
	    *n = '\0';
	while (strncmp(line, finis, 4) != 0) {
	    fputs(line, outfd);		/* Write it out to final file	*/
	    fputs("\n", outfd); 	/* Add in newline		*/
	    fgets(line, SLINE, ctlfd);
	    if ((n=(char *)strchr(line, '\n')) != NULL)
		*n = '\0';
	}

	fprintf(outfd, "    %05d-%05d  This Cookie, Disclaimer and Warning\n",
		1, 2);
	printf("%05d-%05d  This Cookie, Disclaimer and Warning\n",
		1, 2);			/* Print dummy entry for first	*/

	strcpy(coofn, where);
	bfpn = fgets(name, SNAME, ctlfd);
	if ((n=(char *)strchr(name, '\n')) != NULL)
	    *n = '\0';			/* Get next input file name	*/
	strcat(coofn, bfpn);
	while (strncmp(bfpn, finis, 4) != 0) {
	    if ((coofd = fopen(coofn, "r")) == NULL) {
		perror(coofn);
		exit(exstat);
	    }
	    fstcoo = nxtcoo;		/* Get base cookie for file	*/
	    process(coofd, NULL);	/* Process for counts only	*/
	    fgets(line, SLINE, ctlfd); 	/* Read description line	*/
	    if ((n=(char *)strchr(line, '\n')) != NULL)
		*n = '\0';
	    lstcoo = nxtcoo - 1;	/* Last cookie is next minus 1	*/
	    fprintf(outfd, "    %05d-%05d  %-30s  %s\n",
		fstcoo, lstcoo, line, coofn);
	    printf("%05d-%05d  %-30s  %s\n", fstcoo, lstcoo, line, coofn);
	    fclose(coofd);
	    strcpy(coofn, where);
	    bfpn = fgets(name, SNAME, ctlfd);
	    if ((n=(char *)strchr(name, '\n')) != NULL)
		*n = '\0';		/* Get next input file name	*/
	    strcat(coofn, bfpn);
	}
	fgets(line, SLINE, ctlfd);	/* Read text line from ctl file	*/
	if ((n=(char *)strchr(line, '\n')) != NULL)
	    *n = '\0';
	while (strncmp(line, finis, 4) != 0) {
	    fputs(line, outfd);		/* Write it out to final file	*/
	    fputs("\n", outfd);		/* Add in newline		*/
	    fgets(line, SLINE, ctlfd);
	    if ((n=(char *)strchr(line, '\n')) != NULL)
		*n = '\0';
	}
	printf("End of pass 1.\n");

/*
 * Pass 2 - append all cookies to output file
 */
	fclose(ctlfd);
	if ((ctlfd=fopen(ctlfn, "r")) == NULL) {
	    perror(ctlfn);
	    exit(exstat);
	}
	fgets(line, SLINE, ctlfd);	/* Eat the first *END line	*/
	fgets(line, SLINE, ctlfd);	/* Eat text until filename list	*/
	if ((n=(char *)strchr(line, '\n')) != NULL)
	    *n = '\0';
	while (strncmp(line, finis, 4) != 0) {
	    fgets(line, SLINE, ctlfd);
	    if ((n=(char *)strchr(line, '\n')) != NULL)
		*n = '\0';
	}
	nxtcoo = 1;			/* Art for art's sake		*/
#ifndef	decus
	printf(".");			/* First file is already in	*/
#else
	kb_spit(0, '.');		/* First file is already in	*/
#endif	/* decus */
	strcpy(coofn, where);
	bfpn = fgets(name, SNAME, ctlfd);
	if ((n=(char *)strchr(name, '\n')) != NULL)
	    *n = '\0';			/* Get next input file name	*/
	strcat(coofn, bfpn);
	while (strncmp(bfpn, finis, 4) != 0) {
#ifndef	decus
	    printf(".");		/* Show him where we are	*/
#else
	    kb_spit(0, '.');		/* Show him where we are	*/
#endif	/* decus */
	    if ((coofd = fopen(coofn, "r")) == NULL) {
		perror(coofn);
		exit(exstat);
	    }
	    process(coofd, outfd);	/* Process 'em into final file	*/
	    fgets(line, SLINE, ctlfd);	/* Read description line (dummy)*/
	    fclose(coofd);
	    strcpy(coofn, where);
	    bfpn = fgets(name, SNAME, ctlfd);
	    if ((n=(char *)strchr(name, '\n')) != NULL)
		*n = '\0';		/* Get next input file name	*/
	    strcat(coofn, bfpn);
	}

	fclose(outfd);			/* Close real output file 	*/
	fclose(ctlfd);			/* and ctl file			*/

	printf("\nEnd of pass 2.\n");
}

void process(infile, outfile)
FILE	*infile, *outfile;		/* File pointer			*/
{
	register int	pflag, cflag;

	cflag = TRUE;			/* Default to flags written	*/
	fgets(line, SLINE, infile);
	if (line[0] != '%' && line[1] != '%') {
	    if (outfile != NULL)
   		fputs(line, outfile);	/* Strip initial flags		*/
	    cflag = FALSE;		/* Say we need flags		*/
	}
	while (fgets(line, SLINE, infile) != NULL) {
	    pflag = cflag;		/* Previous flag = current flag	*/
	    cflag = (line[0] == '%' && line[1] == '%');
	    if (pflag && cflag)		/* If have two flags in a row,	*/
		continue;		/*  don't write the second set	*/
	    if (outfile != NULL)
		fputs(line, outfile);	/* Else write out the line	*/
	    if (cflag)			/* If we have a flag, count it	*/
		nxtcoo++;
	}
	if (!cflag) {
	    if (outfile != NULL)
		fputs("%%\n", outfile);	/* Emit terminating flag if we	*/
	    nxtcoo++;			/* ended file without one	*/
	}
}