version 1.6, 2000/04/10 17:16:30 |
version 1.7, 2000/06/28 10:01:27 |
|
|
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); |
|
|
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], |
|
|
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); |