mirror of
git://git.suckless.org/sbase
synced 2024-12-25 16:32:37 +00:00
2ba7005ddd
musl doesn't seem to support the latter, so use the older SVR4 word delimiters.
282 lines
5.2 KiB
C
282 lines
5.2 KiB
C
/* See LICENSE file for copyright and license details. */
|
|
#include <regex.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <strings.h>
|
|
#include <unistd.h>
|
|
|
|
#include "queue.h"
|
|
#include "text.h"
|
|
#include "util.h"
|
|
|
|
enum { Match = 0, NoMatch = 1, Error = 2 };
|
|
|
|
static void addpattern(const char *);
|
|
static void addpatternfile(FILE *);
|
|
static int grep(FILE *, const char *);
|
|
|
|
static int Eflag;
|
|
static int Fflag;
|
|
static int Hflag;
|
|
static int eflag;
|
|
static int fflag;
|
|
static int hflag;
|
|
static int iflag;
|
|
static int sflag;
|
|
static int vflag;
|
|
static int wflag;
|
|
static int xflag;
|
|
static int many;
|
|
static int mode;
|
|
|
|
struct pattern {
|
|
char *pattern;
|
|
regex_t preg;
|
|
SLIST_ENTRY(pattern) entry;
|
|
};
|
|
|
|
static SLIST_HEAD(phead, pattern) phead;
|
|
|
|
static void
|
|
usage(void)
|
|
{
|
|
enprintf(Error, "usage: %s [-EFHchilnqsvwx] [-e pattern] [-f file] [pattern] [file ...]\n", argv0);
|
|
}
|
|
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
struct pattern *pnode;
|
|
int i, m, flags = REG_NOSUB, match = NoMatch;
|
|
FILE *fp;
|
|
char *arg;
|
|
|
|
SLIST_INIT(&phead);
|
|
|
|
ARGBEGIN {
|
|
case 'E':
|
|
Eflag = 1;
|
|
flags |= REG_EXTENDED;
|
|
break;
|
|
case 'F':
|
|
Fflag = 1;
|
|
break;
|
|
case 'H':
|
|
Hflag = 1;
|
|
hflag = 0;
|
|
break;
|
|
case 'e':
|
|
arg = EARGF(usage());
|
|
fp = fmemopen(arg, strlen(arg) + 1, "r");
|
|
addpatternfile(fp);
|
|
fclose(fp);
|
|
eflag = 1;
|
|
break;
|
|
case 'f':
|
|
arg = EARGF(usage());
|
|
fp = fopen(arg, "r");
|
|
if (!fp)
|
|
enprintf(Error, "fopen %s:", arg);
|
|
addpatternfile(fp);
|
|
fclose(fp);
|
|
fflag = 1;
|
|
break;
|
|
case 'h':
|
|
hflag = 1;
|
|
Hflag = 0;
|
|
break;
|
|
case 'c':
|
|
case 'l':
|
|
case 'n':
|
|
case 'q':
|
|
mode = ARGC();
|
|
break;
|
|
case 'i':
|
|
flags |= REG_ICASE;
|
|
iflag = 1;
|
|
break;
|
|
case 's':
|
|
sflag = 1;
|
|
break;
|
|
case 'v':
|
|
vflag = 1;
|
|
break;
|
|
case 'w':
|
|
wflag = 1;
|
|
break;
|
|
case 'x':
|
|
xflag = 1;
|
|
break;
|
|
default:
|
|
usage();
|
|
} ARGEND;
|
|
|
|
if (argc == 0 && !eflag && !fflag)
|
|
usage(); /* no pattern */
|
|
|
|
/* just add literal pattern to list */
|
|
if (!eflag && !fflag) {
|
|
fp = fmemopen(argv[0], strlen(argv[0]) + 1, "r");
|
|
addpatternfile(fp);
|
|
fclose(fp);
|
|
argc--;
|
|
argv++;
|
|
}
|
|
|
|
if (!Fflag)
|
|
/* Compile regex for all search patterns */
|
|
SLIST_FOREACH(pnode, &phead, entry)
|
|
enregcomp(Error, &pnode->preg, pnode->pattern, flags);
|
|
many = (argc > 1);
|
|
if (argc == 0) {
|
|
match = grep(stdin, "<stdin>");
|
|
} else {
|
|
for (i = 0; i < argc; i++) {
|
|
if (!(fp = fopen(argv[i], "r"))) {
|
|
if (!sflag)
|
|
weprintf("fopen %s:", argv[i]);
|
|
match = Error;
|
|
continue;
|
|
}
|
|
m = grep(fp, argv[i]);
|
|
if (m == Error || (match != Error && m == Match))
|
|
match = m;
|
|
fclose(fp);
|
|
}
|
|
}
|
|
return match;
|
|
}
|
|
|
|
static void
|
|
addpattern(const char *pattern)
|
|
{
|
|
struct pattern *pnode;
|
|
char *tmp;
|
|
int bol, eol;
|
|
size_t len;
|
|
|
|
/* a null BRE/ERE matches every line */
|
|
if (!Fflag)
|
|
if (pattern[0] == '\0')
|
|
pattern = ".";
|
|
|
|
if (!Fflag && xflag) {
|
|
tmp = malloc(strlen(pattern) + 3);
|
|
if (!tmp)
|
|
enprintf(Error, "malloc:");
|
|
snprintf(tmp, strlen(pattern) + 3, "%s%s%s",
|
|
pattern[0] == '^' ? "" : "^",
|
|
pattern,
|
|
pattern[strlen(pattern) - 1] == '$' ? "" : "$");
|
|
} else if (!Fflag && wflag) {
|
|
len = strlen(pattern) + 5 + (Eflag ? 2 : 4);
|
|
tmp = malloc(len);
|
|
if (!tmp)
|
|
enprintf(Error, "malloc:");
|
|
|
|
bol = eol = 0;
|
|
if (pattern[0] == '^')
|
|
bol = 1;
|
|
if (pattern[strlen(pattern) - 1] == '$')
|
|
eol = 1;
|
|
|
|
snprintf(tmp, len, "%s\\<%s%.*s%s\\>%s",
|
|
bol ? "^" : "",
|
|
Eflag ? "(" : "\\(",
|
|
(int)strlen(pattern) - bol - eol, pattern + bol,
|
|
Eflag ? ")" : "\\)",
|
|
eol ? "$" : "");
|
|
} else {
|
|
tmp = strdup(pattern);
|
|
if (!tmp)
|
|
enprintf(Error, "strdup:");
|
|
}
|
|
|
|
pnode = malloc(sizeof(*pnode));
|
|
if (!pnode)
|
|
enprintf(Error, "malloc:");
|
|
pnode->pattern = tmp;
|
|
SLIST_INSERT_HEAD(&phead, pnode, entry);
|
|
}
|
|
|
|
static void
|
|
addpatternfile(FILE *fp)
|
|
{
|
|
static char *buf = NULL;
|
|
static size_t size = 0;
|
|
size_t len = 0;
|
|
|
|
while ((len = getline(&buf, &size, fp)) != -1) {
|
|
if (len && buf[len - 1] == '\n')
|
|
buf[len - 1] = '\0';
|
|
addpattern(buf);
|
|
}
|
|
if (ferror(fp))
|
|
enprintf(Error, "read error:");
|
|
}
|
|
|
|
static int
|
|
grep(FILE *fp, const char *str)
|
|
{
|
|
static char *buf = NULL;
|
|
static size_t size = 0;
|
|
size_t len = 0;
|
|
long c = 0, n;
|
|
struct pattern *pnode;
|
|
int match = NoMatch;
|
|
|
|
for (n = 1; (len = getline(&buf, &size, fp)) != -1; n++) {
|
|
/* Remove the trailing newline if one is present. */
|
|
if (len && buf[len - 1] == '\n')
|
|
buf[len - 1] = '\0';
|
|
SLIST_FOREACH(pnode, &phead, entry) {
|
|
if (!Fflag) {
|
|
if (regexec(&pnode->preg, buf[0] == '\0' ? "\n" : buf, 0, NULL, 0) ^ vflag)
|
|
continue;
|
|
} else {
|
|
if (!xflag) {
|
|
if ((iflag ? strcasestr : strstr)(buf, pnode->pattern))
|
|
match = Match;
|
|
else
|
|
match = NoMatch;
|
|
} else {
|
|
if (!(iflag ? strcasecmp : strcmp)(buf, pnode->pattern))
|
|
match = Match;
|
|
else
|
|
match = NoMatch;
|
|
}
|
|
if (match ^ vflag)
|
|
continue;
|
|
}
|
|
switch (mode) {
|
|
case 'c':
|
|
c++;
|
|
break;
|
|
case 'l':
|
|
puts(str);
|
|
goto end;
|
|
case 'q':
|
|
exit(Match);
|
|
default:
|
|
if (!hflag && (many || Hflag))
|
|
printf("%s:", str);
|
|
if (mode == 'n')
|
|
printf("%ld:", n);
|
|
puts(buf);
|
|
break;
|
|
}
|
|
match = Match;
|
|
break;
|
|
}
|
|
}
|
|
if (mode == 'c')
|
|
printf("%ld\n", c);
|
|
end:
|
|
if (ferror(fp)) {
|
|
weprintf("%s: read error:", str);
|
|
match = Error;
|
|
}
|
|
return match;
|
|
}
|