[BACK]Return to eval.c CVS log [TXT][DIR] Up to [local] / src / usr.bin / m4

Diff for /src/usr.bin/m4/eval.c between version 1.11 and 1.12

version 1.11, 1998/04/25 18:47:18 version 1.12, 1999/09/06 13:10:48
Line 58 
Line 58 
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
 #include <fcntl.h>  #include <fcntl.h>
   #include <err.h>
 #include "mdef.h"  #include "mdef.h"
 #include "stdd.h"  #include "stdd.h"
 #include "extern.h"  #include "extern.h"
Line 195 
Line 196 
         case INCLTYPE:          case INCLTYPE:
                 if (argc > 2)                  if (argc > 2)
                         if (!doincl(argv[2]))                          if (!doincl(argv[2]))
                                 oops("%s: %s", argv[2], strerror(errno));                                  err(1, "%s", argv[2]);
                 break;                  break;
   
         case SINCTYPE:          case SINCTYPE:
Line 206 
Line 207 
         case PASTTYPE:          case PASTTYPE:
                 if (argc > 2)                  if (argc > 2)
                         if (!dopaste(argv[2]))                          if (!dopaste(argv[2]))
                                 oops("%s: %s", argv[2], strerror(errno));                                  err(1, "%s", argv[2]);
                 break;                  break;
   
         case SPASTYPE:          case SPASTYPE:
Line 371 
Line 372 
                 break;                  break;
   
         default:          default:
                 oops("%s: major botch.", "eval");                  errx(1, "eval: major botch.");
                 break;                  break;
         }          }
 }  }
Line 460 
Line 461 
         register ndptr p;          register ndptr p;
   
         if (!*name)          if (!*name)
                 oops("null definition.");                  errx(1, "null definition.");
         if (STREQ(name, defn))          if (STREQ(name, defn))
                 oops("%s: recursive definition.", name);                  errx(1, "%s: recursive definition.", name);
         if ((p = lookup(name)) == nil)          if ((p = lookup(name)) == nil)
                 p = addent(name);                  p = addent(name);
         else if (p->defn != null)          else if (p->defn != null)
Line 506 
Line 507 
         register ndptr p;          register ndptr p;
   
         if (!*name)          if (!*name)
                 oops("null definition");                  errx(1, "null definition");
         if (STREQ(name, defn))          if (STREQ(name, defn))
                 oops("%s: recursive definition.", name);                  errx(1, "%s: recursive definition.", name);
         p = addent(name);          p = addent(name);
         if (!*defn)          if (!*defn)
                 p->defn = null;                  p->defn = null;
Line 573 
Line 574 
 char *ifile;  char *ifile;
 {  {
         if (ilevel + 1 == MAXINP)          if (ilevel + 1 == MAXINP)
                 oops("too many include files.");                  errx(1, "too many include files.");
         if ((infile[ilevel + 1] = fopen(ifile, "r")) != NULL) {          if ((infile[ilevel + 1] = fopen(ifile, "r")) != NULL) {
                 ilevel++;                  ilevel++;
                 bbase[ilevel] = bufbase = bp;                  bbase[ilevel] = bufbase = bp;
Line 670 
Line 671 
                 m4temp[UNIQUE] = n + '0';                  m4temp[UNIQUE] = n + '0';
                 if ((fd = open(m4temp, O_CREAT|O_EXCL|O_WRONLY, 0600)) < 0 ||                  if ((fd = open(m4temp, O_CREAT|O_EXCL|O_WRONLY, 0600)) < 0 ||
                     (outfile[n] = fdopen(fd, "w")) == NULL)                      (outfile[n] = fdopen(fd, "w")) == NULL)
                         oops("%s: cannot divert.", m4temp);                          err(1, "%s: cannot divert", m4temp);
         }          }
         active = outfile[n];          active = outfile[n];
 }  }
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12