#if !defined(lint) && !defined(DOS)
static char rcsid[] = "$Id: includer.c 7281 2004-04-05 01:06:15Z amk $";
#endif
#include <stdio.h>
#include <string.h>

/*
 * Inflexible cat with include files.
 * The include lines must look exactly like  include(filename)  with no
 * spaces before the include, or between the parens and the surrounding
 * characters.
 *
 * This probably ought to just be a script that uses "cat".
 */
main(argc, argv)
int argc;
char *argv[];
{
  FILE * infile = stdin;
  FILE * outfile = stdout;

  if (argc > 1) {
    if ((infile = fopen(argv[1], "r")) == NULL) {
      fprintf(stderr, "includer: can't open '%s' for input\n", argv[1]);
      exit(1);
    }
    if (argc > 2) {
      if ((outfile = fopen(argv[2], "w")) == NULL) {
	fprintf(stderr, "includer: can't create '%s'\n", argv[2]);
	exit(1);
      }
    }
  }
  readfile(infile, outfile);
  exit(0);
}

readfile(fpin, fpout)
FILE *fpin, *fpout;
{
    char line[BUFSIZ+1];
    FILE *fp;
    char *p, *fname, *fend;

    while ((p = fgets(line, BUFSIZ, fpin)) != NULL) {

        if (!strncmp("include(", p, strlen("include("))) {

            /* do include */
            fname = strchr(p, '(');
            if (fname == NULL) {
                fprintf(stderr, "Can't find include file %s\n", p);
                exit(1);
            }
            fname++;
            fend = strrchr(fname, ')');
            if (fend == NULL) {
                fprintf(stderr, "Can't find include file %s\n", p);
                exit(1);
            }
            *fend = '\0';
            if ((fp = fopen(fname, "r")) == NULL) {
                fprintf(stderr, "Can't open include file %s\n", fname);
                exit(1);
            }
            readfile(fp, fpout);
            fclose(fp);

        /* skip if comment line (begins with ;) */
        }else if (*p != ';') {
            fputs(p, fpout);
        }
    }

    return(1);
}