[hackers] [sbase] Add initial find(1) implementation || Evan Gates

From: <git_AT_suckless.org>
Date: Tue, 24 Mar 2015 23:53:57 +0100 (CET)

commit 76e6aacd60df7e495b8bd626fdfe854cd756381b
Author: Evan Gates <evan.gates_AT_gmail.com>
Date: Thu Feb 19 17:47:21 2015 -0800

    Add initial find(1) implementation
    
    No manpage yet.

diff --git a/Makefile b/Makefile
index ba5d96f..124bfa4 100644
--- a/Makefile
+++ b/Makefile
_AT_@ -94,6 +94,7 @@ BIN =\
         expand\
         expr\
         false\
+ find\
         fold\
         grep\
         head\
diff --git a/README b/README
index af54067..ef24d9e 100644
--- a/README
+++ b/README
_AT_@ -31,6 +31,7 @@ The following tools are implemented ('*' == finished, '#' == UTF-8 support,
 #* expand yes none
 =* expr yes none
 =* false yes none
+= find yes none
 #* fold yes none
 =* grep yes none
 =* head yes none
diff --git a/TODO b/TODO
index 3325541..c0dafda 100644
--- a/TODO
+++ b/TODO
_AT_@ -9,7 +9,6 @@ bc
 diff
 ed
 file
-find
 getconf
 install
 join
diff --git a/find.c b/find.c
new file mode 100644
index 0000000..1fd2ed7
--- /dev/null
+++ b/find.c
_AT_@ -0,0 +1,1049 @@
+/* See LICENSE file for copyright and license details. */
+#include <dirent.h>
+#include <fnmatch.h>
+#include <grp.h>
+#include <libgen.h>
+#include <pwd.h>
+#include <stdint.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+#include <unistd.h>
+
+#include <sys/stat.h>
+#include <sys/wait.h>
+
+#include "util.h"
+
+/* because putting integers in pointers is undefined by the standard */
+typedef union {
+ void *p;
+ intptr_t i;
+} Extra;
+
+/* Argument passed into a primary's function */
+typedef struct {
+ char *path;
+ struct stat *st;
+ Extra extra;
+} Arg;
+
+/* Information about each primary, for lookup table */
+typedef struct {
+ char *name;
+ int (*func)(Arg *arg);
+ char **(*getarg)(char **argv, Extra *extra);
+ void (*freearg)(Extra extra);
+} Pri_info;
+
+/* Information about operators, for lookup table */
+typedef struct {
+ char *name; /* string representation of op */
+ int type; /* from Tok.type */
+ int prec; /* precedence */
+ int nargs; /* number of arguments (unary or binary) */
+ int lassoc; /* left associative */
+} Op_info;
+
+/* Token when lexing/parsing
+ * (although also used for the expression tree) */
+typedef struct Tok Tok;
+struct Tok {
+ enum {
+ PRIM = 0, LPAR, RPAR, NOT, AND, OR, END
+ } type;
+ union {
+ Pri_info *pinfo; /* if (type == PRIM) */
+ Op_info *oinfo;
+ } u;
+ Extra extra;
+ Tok *left, *right; /* if (type == NOT) left = NULL */
+};
+
+/* structures used for Arg.extra.p and Tok.extra.p */
+typedef struct {
+ mode_t mode;
+ unsigned int exact:1;
+} Permarg;
+
+typedef struct {
+ char ***braces;
+ char **argv;
+} Okarg;
+
+/* for all arguments that take a number
+ * +n, n, -n mean > n, == n, < n respectively */
+typedef struct {
+ enum {
+ GT, EQ, LT
+ } cmp;
+ int n;
+} Narg;
+
+typedef struct {
+ Narg n;
+ unsigned int bytes:1; /* size is in bytes, not 512 byte sectors */
+} Sizearg;
+
+typedef struct {
+ union {
+ struct {
+ char ***braces; /* NULL terminated list of pointers into argv where {} were */
+ } s; /* semicolon */
+ struct {
+ size_t arglen; /* number of bytes in argv before files are added */
+ size_t filelen; /* numer of bytes in file names added to argv */
+ size_t first; /* index one past last arg, where first file goes */
+ size_t next; /* index where next file goes */
+ size_t cap; /* capacity of argv */
+ } p; /* plus */
+ } u;
+ char **argv; /* NULL terminated list of arguments (allocated if isplus) */
+ unsigned int isplus:1; /* -exec + instead of -exec ; */
+} Execarg;
+
+/* used to find loops while recursing through directory structure */
+typedef struct Findhist Findhist;
+struct Findhist {
+ Findhist *next;
+ char *path;
+ dev_t dev;
+ ino_t ino;
+};
+
+/* Primaries */
+static int pri_name (Arg *arg);
+static int pri_path (Arg *arg);
+static int pri_nouser (Arg *arg);
+static int pri_nogroup(Arg *arg);
+static int pri_xdev (Arg *arg);
+static int pri_prune (Arg *arg);
+static int pri_perm (Arg *arg);
+static int pri_type (Arg *arg);
+static int pri_links (Arg *arg);
+static int pri_user (Arg *arg);
+static int pri_group (Arg *arg);
+static int pri_size (Arg *arg);
+static int pri_atime (Arg *arg);
+static int pri_ctime (Arg *arg);
+static int pri_mtime (Arg *arg);
+static int pri_exec (Arg *arg);
+static int pri_ok (Arg *arg);
+static int pri_print (Arg *arg);
+static int pri_newer (Arg *arg);
+static int pri_depth (Arg *arg);
+
+/* Getargs */
+static char **get_name_arg (char **argv, Extra *extra);
+static char **get_path_arg (char **argv, Extra *extra);
+static char **get_perm_arg (char **argv, Extra *extra);
+static char **get_type_arg (char **argv, Extra *extra);
+static char **get_n_arg (char **argv, Extra *extra);
+static char **get_user_arg (char **argv, Extra *extra);
+static char **get_group_arg(char **argv, Extra *extra);
+static char **get_size_arg (char **argv, Extra *extra);
+static char **get_n_arg (char **argv, Extra *extra);
+static char **get_n_arg (char **argv, Extra *extra);
+static char **get_n_arg (char **argv, Extra *extra);
+static char **get_exec_arg (char **argv, Extra *extra);
+static char **get_ok_arg (char **argv, Extra *extra);
+static char **get_newer_arg(char **argv, Extra *extra);
+
+/* Freeargs */
+static void free_extra (Extra extra);
+static void free_exec_arg(Extra extra);
+static void free_ok_arg (Extra extra);
+
+/* Parsing/Building/Running */
+static Pri_info *find_primary(char *name);
+static Op_info *find_op(char *name);
+static void parse(int argc, char **argv);
+static int eval(Tok *tok, Arg *arg);
+static void find(char *path, Findhist *hist);
+static void usage(void);
+
+/* for comparisons with Narg */
+static int cmp_gt(int a, int b) { return a > b; }
+static int cmp_eq(int a, int b) { return a == b; }
+static int cmp_lt(int a, int b) { return a < b; }
+
+int (*cmps[])(int, int) = {
+ [GT] = cmp_gt,
+ [EQ] = cmp_eq,
+ [LT] = cmp_lt,
+};
+
+/* order from find(1p), may want to alphabetize */
+Pri_info primaries[] = {
+ { "-name" , pri_name , get_name_arg , NULL },
+ { "-path" , pri_path , get_path_arg , NULL },
+ { "-nouser" , pri_nouser , NULL , NULL },
+ { "-nogroup", pri_nogroup, NULL , NULL },
+ { "-xdev" , pri_xdev , NULL , NULL },
+ { "-prune" , pri_prune , NULL , NULL },
+ { "-perm" , pri_perm , get_perm_arg , free_extra },
+ { "-type" , pri_type , get_type_arg , NULL },
+ { "-links" , pri_links , get_n_arg , free_extra },
+ { "-user" , pri_user , get_user_arg , NULL },
+ { "-group" , pri_group , get_group_arg, NULL },
+ { "-size" , pri_size , get_size_arg , free_extra },
+ { "-atime" , pri_atime , get_n_arg , free_extra },
+ { "-ctime" , pri_ctime , get_n_arg , free_extra },
+ { "-mtime" , pri_mtime , get_n_arg , free_extra },
+ { "-exec" , pri_exec , get_exec_arg , free_exec_arg },
+ { "-ok" , pri_ok , get_ok_arg , free_ok_arg },
+ { "-print" , pri_print , NULL , NULL },
+ { "-newer" , pri_newer , get_newer_arg, NULL },
+ { "-depth" , pri_depth , NULL , NULL },
+
+ { NULL, NULL, NULL, NULL }
+};
+
+Op_info ops[] = {
+ { "(" , LPAR, 0, 0, 0 }, /* parens are handled specially */
+ { ")" , RPAR, 0, 0, 0 },
+ { "!" , NOT , 3, 1, 0 },
+ { "-a", AND , 2, 2, 1 },
+ { "-o", OR , 1, 2, 1 },
+
+ { NULL, 0, 0, 0, 0 }
+};
+
+extern char **environ;
+
+Tok *toks; /* holds allocated array of all Toks created while parsing */
+Tok *root; /* points to root of expression tree, inside toks array */
+
+struct timespec start; /* time find was started, used for -[acm]time */
+
+size_t envlen; /* number of bytes in environ, used to calculate against ARG_MAX */
+size_t argmax; /* value of ARG_MAX retrieved using sysconf(3p) */
+
+struct {
+ unsigned ret :1; /* return value from main */
+ unsigned depth:1; /* -depth, directory contents before directory itself */
+ unsigned h :1; /* -H, follow symlinks on command line */
+ unsigned l :1; /* -L, follow all symlinks (command line and search) */
+ unsigned prune:1; /* hit -prune, eval should return STW_PRUNE (return values
+ traversing expression tree are boolean so we can't
+ easily return this. instead set a global flag) */
+ unsigned xdev :1; /* -xdev, prune directories on different devices */
+} gflags;
+
+/*
+ * Primaries
+ */
+static int
+pri_name(Arg *arg)
+{
+ return !fnmatch((char *)arg->extra.p, basename(arg->path), 0);
+}
+
+static int
+pri_path(Arg *arg)
+{
+ return !fnmatch((char *)arg->extra.p, arg->path, 0);
+}
+
+/* FIXME: what about errors? find(1p) literally just says
+ * "for which the getpwuid() function ... returns NULL" */
+static int
+pri_nouser(Arg *arg)
+{
+ return !getpwuid(arg->st->st_uid);
+}
+
+static int
+pri_nogroup(Arg *arg)
+{
+ return !getgrgid(arg->st->st_gid);
+}
+
+static int
+pri_xdev(Arg *arg)
+{
+ return 1;
+}
+
+static int
+pri_prune(Arg *arg)
+{
+ return gflags.prune = 1;
+}
+
+static int
+pri_perm(Arg *arg)
+{
+ Permarg *p = (Permarg *)arg->extra.p;
+
+ return (arg->st->st_mode & 07777 & (p->exact ? -1U : p->mode)) == p->mode;
+}
+
+static int
+pri_type(Arg *arg)
+{
+ switch ((char)arg->extra.i) {
+ default : return 0; /* impossible, but placate warnings */
+ case 'b': return S_ISBLK (arg->st->st_mode);
+ case 'c': return S_ISCHR (arg->st->st_mode);
+ case 'd': return S_ISDIR (arg->st->st_mode);
+ case 'l': return S_ISLNK (arg->st->st_mode);
+ case 'p': return S_ISFIFO(arg->st->st_mode);
+ case 'f': return S_ISREG (arg->st->st_mode);
+ case 's': return S_ISSOCK(arg->st->st_mode);
+ }
+}
+
+static int
+pri_links(Arg *arg)
+{
+ Narg *n = arg->extra.p;
+ return cmps[n->cmp](arg->st->st_nlink, n->n);
+}
+
+static int
+pri_user(Arg *arg)
+{
+ return arg->st->st_uid == (uid_t)arg->extra.i;
+}
+
+static int
+pri_group(Arg *arg)
+{
+ return arg->st->st_gid == (gid_t)arg->extra.i;
+}
+
+static int
+pri_size(Arg *arg)
+{
+ Sizearg *s = arg->extra.p;
+ off_t size = arg->st->st_size;
+
+ if (!s->bytes)
+ size = size / 512 + !!(size % 512);
+
+ return cmps[s->n.cmp](size, s->n.n);
+}
+
+/* FIXME: ignoring nanoseconds in atime, ctime, mtime */
+static int
+pri_atime(Arg *arg)
+{
+ Narg *n = arg->extra.p;
+ time_t time = (n->n - start.tv_sec) / 86400;
+ return cmps[n->cmp](time, n->n);
+}
+
+static int
+pri_ctime(Arg *arg)
+{
+ Narg *n = arg->extra.p;
+ time_t time = (n->n - start.tv_sec) / 86400;
+ return cmps[n->cmp](time, n->n);
+}
+
+static int
+pri_mtime(Arg *arg)
+{
+ Narg *n = arg->extra.p;
+ time_t time = (n->n - start.tv_sec) / 86400;
+ return cmps[n->cmp](time, n->n);
+}
+
+static int
+pri_exec(Arg *arg)
+{
+ Execarg *e = arg->extra.p;
+
+ if (e->isplus) {
+ size_t len = strlen(arg->path) + 1;
+
+ /* if we've reached ARG_MAX, fork, exec, wait, free file names, reset
+ * list */
+ if (len + e->u.p.arglen + e->u.p.filelen + envlen > argmax) {
+ char **arg;
+ int status;
+ pid_t pid;
+
+ e->argv[e->u.p.next] = NULL;
+
+ if (!(pid = fork())) { /* child */
+ execv(*e->argv, e->argv);
+ eprintf("exec %s failed:", *e->argv);
+ }
+ waitpid(pid, &status, 0);
+ gflags.ret |= status;
+
+ for (arg = e->argv + e->u.p.first; *arg; arg++)
+ free(*arg);
+
+ e->u.p.next = e->u.p.first;
+ e->u.p.filelen = 0;
+ }
+
+ /* if we have too many filenames, realloc (with space for NULL
+ * termination) */
+ if (e->u.p.next + 1 == e->u.p.cap)
+ e->argv = erealloc(e->argv, (e->u.p.cap *= 2) * sizeof(*e->argv));
+
+ /* FIXME: we can do better than strdup and free for every single file
+ * name. do we care? use strlacat/strlacpy from sed? */
+ e->argv[e->u.p.next++] = estrdup(arg->path);
+ e->u.p.filelen += len + sizeof(arg->path);
+
+ return 1;
+ } else {
+ int status;
+ char ***brace;
+ pid_t pid;
+
+ /* insert path everywhere user gave us {} */
+ for (brace = e->u.s.braces; *brace; brace++)
+ **brace = arg->path;
+
+ if (!(pid = fork())) { /* child */
+ execv(*e->argv, e->argv);
+ eprintf("exec %s failed:", *e->argv);
+ }
+ /* FIXME: propper course of action for all waitpid() on EINTR? */
+ waitpid(pid, &status, 0);
+ return !!status;
+ }
+}
+
+static int
+pri_ok(Arg *arg)
+{
+ int status;
+ char ***brace, reply, buf[256];
+ pid_t pid;
+ Okarg *o = arg->extra.p;
+
+ fprintf(stderr, "%s: %s ?", *o->argv, arg->path);
+ reply = fgetc(stdin);
+
+ /* throw away rest of line */
+ while (fgets(buf, sizeof(buf), stdin) && *buf && buf[strlen(buf) - 1] == '\n')
+ /* FIXME: what if the first character of the rest of the line is a null
+ * byte? probably shouldn't juse fgets() */
+ ;
+
+ if (feof(stdin)) /* ferror()? */
+ clearerr(stdin);
+
+ if (reply != 'y' && reply != 'Y')
+ return 0;
+
+ /* insert filename everywhere use gave us {} */
+ for (brace = o->braces; *brace; brace++)
+ **brace = arg->path;
+
+ if (!(pid = fork())) { /* child */
+ execv(*o->argv, o->argv);
+ eprintf("exec %s failed:", *o->argv);
+ }
+ waitpid(pid, &status, 0);
+ return !!status;
+}
+
+static int
+pri_print(Arg *arg)
+{
+ puts(arg->path);
+ return 1;
+}
+
+/* FIXME: ignoring nanoseconds */
+static int
+pri_newer(Arg *arg)
+{
+ return arg->st->st_mtim.tv_sec > (time_t)arg->extra.i;
+}
+
+static int
+pri_depth(Arg *arg)
+{
+ return 1;
+}
+
+/*
+ * Getargs
+ * consume any arguments for given primary and fill extra
+ * return pointer to last argument, the pointer will be incremented in parse()
+ */
+static char **
+get_name_arg(char **argv, Extra *extra)
+{
+ extra->p = *argv;
+ return argv;
+}
+
+static char **
+get_path_arg(char **argv, Extra *extra)
+{
+ extra->p = *argv;
+ return argv;
+}
+
+static char **
+get_perm_arg(char **argv, Extra *extra)
+{
+ Permarg *p = emalloc(sizeof(*p));
+
+ if (**argv == '-')
+ (*argv)++;
+ else
+ p->exact = 1;
+
+ p->mode = parsemode(*argv, 0, 0);
+ extra->p = p;
+
+ return argv;
+}
+
+static char **
+get_type_arg(char **argv, Extra *extra)
+{
+ if (!strchr("bcdlpfs", **argv))
+ eprintf("invalid type %c for -type primary\n", **argv);
+
+ extra->i = **argv;
+ return argv;
+}
+
+static char **
+get_n_arg(char **argv, Extra *extra)
+{
+ Narg *n = emalloc(sizeof(*n));
+ char *end;
+
+ switch (**argv) {
+ case '+': n->cmp = GT; (*argv)++; break;
+ case '-': n->cmp = LT; (*argv)++; break;
+ default : n->cmp = EQ; break;
+ }
+
+ n->n = strtol(*argv, &end, 10);
+ if (end == *argv || *end)
+ eprintf("bad number '%s'\n", *argv);
+
+ extra->p = n;
+ return argv;
+}
+
+static char **
+get_user_arg(char **argv, Extra *extra)
+{
+ char *end;
+ struct passwd *p = getpwnam(*argv);
+
+ if (p) {
+ extra->i = p->pw_uid;
+ } else {
+ extra->i = strtol(*argv, &end, 10);
+ if (end == *argv || *end)
+ eprintf("unknown user '%s'\n", *argv);
+ }
+ return argv;
+}
+
+static char **
+get_group_arg(char **argv, Extra *extra)
+{
+ char *end;
+ struct group *g = getgrnam(*argv);
+
+ if (g) {
+ extra->i = g->gr_gid;
+ } else {
+ extra->i = strtol(*argv, &end, 10);
+ if (end == *argv || *end)
+ eprintf("unknown group '%s'\n", *argv);
+ }
+ return argv;
+}
+
+static char **
+get_size_arg(char **argv, Extra *extra)
+{
+ char *end;
+ char *p = *argv + strlen(*argv);
+ Sizearg *s = emalloc(sizeof(*s));
+ /* if the number is followed by 'c', the size will by in bytes */
+ s->bytes = p > *argv && *--p == 'c';
+
+ if (s->bytes)
+ *p = '\0';
+
+ /* FIXME: no need to have this in get_n_arg and here */
+ switch (**argv) {
+ case '+': s->n.cmp = GT; (*argv)++; break;
+ case '-': s->n.cmp = LT; (*argv)++; break;
+ default : s->n.cmp = EQ; break;
+ }
+
+ s->n.n = strtol(*argv, &end, 10);
+ if (end == *argv || *end)
+ eprintf("bad number '%s'\n", *argv);
+
+ extra->p = s;
+ return argv;
+}
+
+static char **
+get_exec_arg(char **argv, Extra *extra)
+{
+ char **arg;
+ int nbraces = 0;
+ Execarg *e = emalloc(sizeof(*e));
+
+ for (arg = argv; *arg; arg++)
+ if (!strcmp(*arg, ";"))
+ break;
+ else if (arg > argv && !strcmp(*(arg - 1), "{}") && !strcmp(*arg, "+"))
+ break;
+ else if (!strcmp(*arg, "{}"))
+ nbraces++;
+
+ if (!*arg)
+ eprintf("no terminating ; or {} + for -exec primary\n");
+
+ e->isplus = **arg == '+';
+ *arg = NULL;
+
+ if (e->isplus) {
+ char **new;
+
+ *(arg - 1) = NULL; /* don't need the {} in there now */
+ e->u.p.arglen = e->u.p.filelen = 0;
+ e->u.p.first = e->u.p.next = arg - argv - 1;
+ e->u.p.cap = (arg - argv) * 2;
+ e->argv = emalloc(e->u.p.cap * sizeof(*e->argv));
+
+ for (arg = argv, new = e->argv; *arg; arg++, new++) {
+ *new = *arg;
+ e->u.p.arglen += strlen(*arg) + 1 + sizeof(*arg);
+ }
+ arg++; /* due to our extra NULL */
+ } else {
+ char ***braces;
+
+ e->argv = argv;
+ e->u.s.braces = emalloc(++nbraces * sizeof(*e->u.s.braces)); /* ++ for NULL */
+
+ for (arg = argv, braces = e->u.s.braces; *arg; arg++)
+ if (!strcmp(*arg, "{}"))
+ *braces++ = arg;
+ }
+ extra->p = e;
+ return arg;
+}
+
+static char **
+get_ok_arg(char **argv, Extra *extra)
+{
+ char **arg, ***braces;
+ int nbraces = 0;
+ Okarg *o = emalloc(sizeof(*o));
+
+ for (arg = argv; *arg; arg++)
+ if (!strcmp(*arg, ";"))
+ break;
+ else if (!strcmp(*arg, "{}"))
+ nbraces++;
+
+ if (!*arg)
+ eprintf("no terminating ; for -ok primary\n");
+ *arg = NULL;
+
+ o->argv = argv;
+ o->braces = emalloc(++nbraces * sizeof(*o->braces));
+
+ for (arg = argv, braces = o->braces; *arg; arg++)
+ if (!strcmp(*arg, "{}"))
+ *braces++ = arg;
+
+ extra->p = o;
+ return arg;
+}
+
+/* FIXME: ignoring nanoseconds */
+static char **
+get_newer_arg(char **argv, Extra *extra)
+{
+ struct stat st;
+
+ if (stat(*argv, &st))
+ eprintf("failed to stat '%s':", *argv);
+
+ extra->i = st.st_mtim.tv_sec;
+ return argv;
+}
+
+/*
+ * Freeargs
+ */
+static void
+free_extra(Extra extra)
+{
+ free(extra.p);
+}
+
+static void
+free_exec_arg(Extra extra)
+{
+ Execarg *e = extra.p;
+ if (!e->isplus) {
+ free(e->u.s.braces);
+ } else {
+ char **arg;
+
+ e->argv[e->u.p.next] = NULL;
+
+ /* if we have files, do the last exec */
+ if (e->u.p.first != e->u.p.next) {
+ int status;
+ pid_t pid = fork();
+
+ if (!pid) { /* child */
+ execv(*e->argv, e->argv);
+ eprintf("exec %s failed:", *e->argv);
+ }
+ waitpid(pid, &status, 0);
+ gflags.ret |= status;
+ }
+ for (arg = e->argv + e->u.p.first; *arg; arg++)
+ free(*arg);
+ free(e->argv);
+ }
+ free(e);
+}
+
+static void
+free_ok_arg(Extra extra)
+{
+ Okarg *o = extra.p;
+ free(o->braces);
+ free(o);
+}
+
+/*
+ * Parsing/Building/Running
+ */
+static Pri_info *
+find_primary(char *name)
+{
+ Pri_info *p;
+
+ for (p = primaries; p->name; p++)
+ if (!strcmp(name, p->name))
+ return p;
+ return NULL;
+}
+
+static Op_info *
+find_op(char *name)
+{
+ Op_info *o;
+
+ for (o = ops; o->name; o++)
+ if (!strcmp(name, o->name))
+ return o;
+ return NULL;
+}
+
+/* given the expression from the command line
+ * 1) convert arguments from strings to Tok and place in an array duplicating
+ * the infix expression given, inserting "-a" where it was omitted
+ * 2) allocate an array to hold the correct number of Tok, and convert from
+ * infix to rpn (using shunting-yard), add -a and -print if necessary
+ * 3) evaluate the rpn filling in left and right pointers to create an
+ * expression tree (Tok are still all contained in the rpn array, just
+ * pointing at eachother)
+ */
+static void
+parse(int argc, char **argv)
+{
+ int lasttype = -1;
+ Tok infix[2 * argc], *stack[argc], *tok, *rpn, *out, **top;
+ char **arg;
+ size_t ntok = 0;
+ int print = 1;
+
+ /* convert argv to infix expression of Tok, inserting in *tok */
+ for (arg = argv, tok = infix; *arg; arg++, tok++) {
+ Op_info *op;
+ Pri_info *pri = find_primary(*arg);
+
+ if (pri) { /* token is a primary, fill out Tok and get arguments */
+
+ /* FIXME: should never have to ask "which primary is this?" Should
+ * probably move this into getarg even though there's no arg */
+ if (pri->func == pri_depth)
+ gflags.depth = 1;
+ else if (pri->func == pri_xdev)
+ gflags.xdev = 1;
+ else if (pri->func == pri_exec || pri->func == pri_ok || pri->func == pri_print)
+ print = 0;
+
+ if (lasttype == PRIM || lasttype == RPAR) {
+ tok->u.oinfo = find_op("-a"); /* ew? */
+ tok->type = AND;
+ tok++;
+ ntok++;
+ }
+ if (pri->getarg) {
+ if (!*++arg)
+ eprintf("no argument for primary %s\n", pri->name);
+ arg = pri->getarg(arg, &tok->extra);
+ }
+ tok->u.pinfo = pri;
+ tok->type = PRIM;
+
+ } else if ((op = find_op(*arg))) { /* token is an operator */
+ if (lasttype == LPAR && op->type == RPAR)
+ eprintf("empty parens\n");
+ tok->type = op->type;
+ tok->u.oinfo = op;
+
+ } else { /* token is neither primary nor operator, must be path in the wrong place */
+ eprintf("paths must precede expression: %s\n", *arg);
+ }
+ if (tok->type != LPAR && tok->type != RPAR)
+ ntok++; /* won't have parens in rpn */
+ lasttype = tok->type;
+ }
+ tok->type = END;
+ ntok++;
+
+ if (print && (arg != argv)) /* need to add -a -print (not just -print) */
+ print++;
+
+ /* use shunting-yard to convert from infix to rpn
+ * https://en.wikipedia.org/wiki/Shunting-yard_algorithm
+ * read from infix, resulting rpn ends up in rpn, next position in rpn is out
+ * push operators onto stack, next position in stack is top
+ */
+ rpn = emalloc((ntok + print) * sizeof(*rpn));
+ for (tok = infix, out = rpn, top = stack; tok->type != END; tok++) {
+ switch (tok->type) {
+ case PRIM: *out++ = *tok; break;
+ case LPAR: *top++ = tok; break;
+ case RPAR:
+ while (top-- > stack && (*top)->type != LPAR)
+ *out++ = **top;
+ if (top < stack)
+ eprintf("extra )\n");
+ break;
+ default:
+ /* this expression can be simplified, but I decided copy the
+ * verbage from the wikipedia page in order to more clearly explain
+ * what's going on */
+ while (top-- > stack &&
+ (( tok->u.oinfo->lassoc && tok->u.oinfo->prec <= (*top)->u.oinfo->prec) ||
+ (!tok->u.oinfo->lassoc && tok->u.oinfo->prec < (*top)->u.oinfo->prec)))
+ *out++ = **top;
+
+ /* top now points to either an operator we didn't pop, or stack[-1]
+ * either way we need to increment it before using it, then
+ * increment again so the stack works */
+ top++;
+ *top++ = tok;
+ break;
+ }
+ }
+ while (top-- > stack) {
+ if ((*top)->type == LPAR)
+ eprintf("extra (\n");
+ *out++ = **top;
+ }
+
+ /* if there was no expression, use -print
+ * if there was an expression but no -print, -exec, or -ok, add -a -print
+ * in rpn, not infix
+ */
+ if (print) {
+ out->u.pinfo = find_primary("-print");
+ out->type = PRIM;
+ out++;
+ }
+ if (print == 2) {
+ out->u.oinfo = find_op("-a");
+ out->type = AND;
+ out++;
+ }
+ out->type = END;
+
+ /* rpn now holds all operators and arguments in reverse polish notation
+ * values are pushed onto stack, operators pop values off stack into left
+ * and right pointers, pushing operator node back onto stack
+ * could probably just do this during shunting-yard, but this is simpler
+ * code IMO
+ */
+ for (tok = rpn, top = stack; tok->type != END; tok++) {
+ if (tok->type == PRIM) {
+ *top++ = tok;
+ } else {
+ if (top - stack < tok->u.oinfo->nargs)
+ eprintf("insufficient arguments for operator %s\n", tok->u.oinfo->name);
+ tok->right = *--top;
+ tok->left = tok->u.oinfo->nargs == 2 ? *--top : NULL;
+ *top++ = tok;
+ }
+ }
+ if (--top != stack)
+ eprintf("extra arguments\n");
+
+ toks = rpn;
+ root = *top;
+}
+
+/* for a primary, run and return result
+ * for an operator evaluate the left side of the tree, decide whether or not to
+ * evaluate the right based on the short-circuit boolean logic, return result
+ * NOTE: operator NOT has NULL left side, expression on right side
+ */
+static int
+eval(Tok *tok, Arg *arg)
+{
+ int ret;
+
+ if (!tok)
+ return 0;
+
+ if (tok->type == PRIM) {
+ arg->extra = tok->extra;
+ return tok->u.pinfo->func(arg);
+ }
+
+ ret = eval(tok->left, arg);
+
+ if ((tok->type == AND && ret) || (tok->type == OR && !ret) || tok->type == NOT)
+ ret = eval(tok->right, arg);
+
+ return ret ^ (tok->type == NOT);
+}
+
+/* evaluate path, if it's a directory iterate through directory entries and
+ * recurse
+ */
+static void
+find(char *path, Findhist *hist)
+{
+ struct stat st;
+ DIR *dir;
+ struct dirent *de;
+ Findhist *f, cur;
+ size_t len = strlen(path) + 2; /* null and '/' */
+ Arg arg = { path, &st, { NULL } };
+
+ if ((gflags.l || (gflags.h && !hist) ? stat(path, &st) : lstat(path, &st)) < 0) {
+ weprintf("failed to stat %s:", path);
+ return;
+ }
+
+ gflags.prune = 0;
+
+ /* don't eval now iff we will hit the eval at the bottom which means
+ * 1. we are a directory 2. we have -depth 3. we don't have -xdev or we are
+ * on same device (so most of the time we eval here) */
+ if (!S_ISDIR(st.st_mode) ||
+ !gflags.depth ||
+ (gflags.xdev && hist && st.st_dev != hist->dev))
+ eval(root, &arg);
+
+ if (!S_ISDIR(st.st_mode) ||
+ gflags.prune ||
+ (gflags.xdev && hist && st.st_dev != hist->dev))
+ return;
+
+ for (f = hist; f; f = f->next) {
+ if (f->dev == st.st_dev && f->ino == st.st_ino) {
+ weprintf("loop detected '%s' is '%s'\n", path, f->path);
+ return;
+ }
+ }
+ cur.next = hist;
+ cur.path = path;
+ cur.dev = st.st_dev;
+ cur.ino = st.st_ino;
+
+ if (!(dir = opendir(path))) {
+ weprintf("failed to opendir %s:", path);
+ /* should we just ignore this since we hit an error? */
+ if (gflags.depth)
+ eval(root, &arg);
+ return;
+ }
+
+ /* FIXME: check errno to see if we are done or encountered an error? */
+ while ((de = readdir(dir))) {
+ size_t pathcap = len + strlen(de->d_name);
+ char pathbuf[pathcap], *p;
+
+ if (!strcmp(de->d_name, ".") || !strcmp(de->d_name, ".."))
+ continue;
+
+ p = pathbuf + strlcpy(pathbuf, path, pathcap);
+ if (*--p != '/')
+ strlcat(pathbuf, "/", pathcap);
+ strlcat(pathbuf, de->d_name, pathcap);
+ find(pathbuf, &cur);
+ }
+ closedir(dir); /* check return value? */
+
+ if (gflags.depth)
+ eval(root, &arg);
+}
+
+static void
+usage(void)
+{
+ eprintf("usage: %s [-H|-L] path... [expression...]\n", argv0);
+}
+
+int main(int argc, char **argv)
+{
+ char **paths;
+ int npaths;
+ Tok *t;
+
+ ARGBEGIN {
+ case 'H': gflags.l = !(gflags.h = 1); break;
+ case 'L': gflags.h = !(gflags.l = 1); break;
+ default : usage();
+ } ARGEND;
+
+ paths = argv;
+
+ for (; *argv && **argv != '-' && strcmp(*argv, "!") && strcmp(*argv, "("); argv++)
+ ;
+
+ if (!(npaths = argv - paths))
+ eprintf("must specify a path\n");
+
+ parse(argc - npaths, argv);
+
+ /* calculate number of bytes in environ for -exec {} + ARG_MAX avoidance
+ * libc implementation defined whether null bytes, pointers, and alignment
+ * are counted, so count them */
+ for (argv = environ; *argv; argv++)
+ envlen += strlen(*argv) + 1 + sizeof(*argv);
+
+ if ((argmax = sysconf(_SC_ARG_MAX)) == (size_t)-1)
+ argmax = _POSIX_ARG_MAX;
+
+ if (clock_gettime(CLOCK_REALTIME, &start) < 0)
+ weprintf("clock_gettime() failed:");
+
+ while (npaths--)
+ find(*paths, NULL);
+
+ for (t = toks; t->type != END; t++)
+ if (t->type == PRIM && t->u.pinfo->freearg)
+ t->u.pinfo->freearg(t->extra);
+ free(toks);
+
+ return gflags.ret;
+}
Received on Tue Mar 24 2015 - 23:53:57 CET

This archive was generated by hypermail 2.3.0 : Wed Mar 25 2015 - 00:10:54 CET