home *** CD-ROM | disk | FTP | other *** search
/ ftp.uv.es / 2014.11.ftp.uv.es.tar / ftp.uv.es / pub / unix / pine4.10.tar.gz / pine4.10.tar / pine4.10 / pico / osdep / includer.c < prev    next >
C/C++ Source or Header  |  1997-02-05  |  2KB  |  76 lines
  1. #if !defined(lint) && !defined(DOS)
  2. static char rcsid[] = "$Id: includer.c,v 1.1 1997/02/05 21:51:34 hubert Exp $";
  3. #endif
  4. #include <stdio.h>
  5. #include <string.h>
  6.  
  7. /*
  8.  * Inflexible cat with include files.
  9.  * The include lines must look exactly like  include(filename)  with no
  10.  * spaces before the include, or between the parens and the surrounding
  11.  * characters.
  12.  *
  13.  * This probably ought to just be a script that uses "cat".
  14.  */
  15. main(argc, argv)
  16. int argc;
  17. char *argv[];
  18. {
  19.   FILE * infile = stdin;
  20.   FILE * outfile = stdout;
  21.  
  22.   if (argc > 1) {
  23.     if ((infile = fopen(argv[1], "r")) == NULL) {
  24.       fprintf(stderr, "includer: can't open '%s' for input\n", argv[1]);
  25.       exit(1);
  26.     }
  27.     if (argc > 2) {
  28.       if ((outfile = fopen(argv[2], "w")) == NULL) {
  29.     fprintf(stderr, "includer: can't create '%s'\n", argv[2]);
  30.     exit(1);
  31.       }
  32.     }
  33.   }
  34.   readfile(infile, outfile);
  35.   exit(0);
  36. }
  37.  
  38. readfile(fpin, fpout)
  39. FILE *fpin, *fpout;
  40. {
  41.     char line[BUFSIZ+1];
  42.     char tmp[BUFSIZ+1];
  43.     FILE *fp;
  44.     char *p, *fname, *fend;
  45.  
  46.     while ((p = fgets(line, BUFSIZ, fpin)) != NULL) {
  47.  
  48.         if (!strncmp("include(", p, strlen("include("))) {
  49.  
  50.             /* do include */
  51.             fname = strchr(p, '(');
  52.             if (fname == NULL) {
  53.                 fprintf(stderr, "Can't find include file %s\n", p);
  54.                 exit(1);
  55.             }
  56.             fname++;
  57.             fend = strrchr(fname, ')');
  58.             if (fend == NULL) {
  59.                 fprintf(stderr, "Can't find include file %s\n", p);
  60.                 exit(1);
  61.             }
  62.             *fend = '\0';
  63.             if ((fp = fopen(fname, "r")) == NULL) {
  64.                 fprintf(stderr, "Can't open include file %s\n", fname);
  65.                 exit(1);
  66.             }
  67.             readfile(fp, fpout);
  68.             fclose(fp);
  69.  
  70.         /* skip if comment line (begins with ;) */
  71.         }else if (*p != ';') {
  72.             fputs(p, fpout);
  73.         }
  74.     }
  75. }
  76.