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

Diff for /src/usr.bin/m4/gnum4.c between version 1.6 and 1.6.2.1

version 1.6, 2000/04/10 17:16:30 version 1.6.2.1, 2000/06/28 16:51:24
Line 445 
Line 445 
                 exit_regerror(error, &re);                  exit_regerror(error, &re);
   
         pmatch = xalloc(sizeof(regmatch_t) * (re.re_nsub+1));          pmatch = xalloc(sizeof(regmatch_t) * (re.re_nsub+1));
         do_subst(argv[2], &re, argv[4] != NULL ? argv[4] : "", pmatch);          do_subst(argv[2], &re,
               argc != 4 && argv[4] != NULL ? argv[4] : "", pmatch);
         pbstr(getstring());          pbstr(getstring());
         free(pmatch);          free(pmatch);
         regfree(&re);          regfree(&re);
Line 461 
Line 462 
         regmatch_t *pmatch;          regmatch_t *pmatch;
   
         if (argc <= 3) {          if (argc <= 3) {
                 warnx("Too few arguments to patsubst");                  warnx("Too few arguments to regexp");
                 return;                  return;
         }          }
         error = regcomp(&re, mimic_gnu ? twiddle(argv[3]) : argv[3],          error = regcomp(&re, mimic_gnu ? twiddle(argv[3]) : argv[3],
Line 470 
Line 471 
                 exit_regerror(error, &re);                  exit_regerror(error, &re);
   
         pmatch = xalloc(sizeof(regmatch_t) * (re.re_nsub+1));          pmatch = xalloc(sizeof(regmatch_t) * (re.re_nsub+1));
         if (argv[4] == NULL)          if (argv[4] == NULL || argc == 4)
                 do_regexpindex(argv[2], &re, pmatch);                  do_regexpindex(argv[2], &re, pmatch);
         else          else
                 do_regexp(argv[2], &re, argv[4], pmatch);                  do_regexp(argv[2], &re, argv[4], pmatch);
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.2.1