xref: /illumos-gate/usr/src/cmd/find/find.c (revision f3a525d9)

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright (c) 1988, 2010, Oracle and/or its affiliates. All rights reserved.
 * Copyright 2012 Nexenta Systems, Inc. All rights reserved.
 * Copyright (c) 2013 Andrew Stormont.  All rights reserved.
 * Copyright 2020 Joyent, Inc.
 */


/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved	*/


/*	Parts of this product may be derived from		*/
/*	Mortice Kern Systems Inc. and Berkeley 4.3 BSD systems.	*/
/*	licensed from  Mortice Kern Systems Inc. and		*/
/*	the University of California.				*/

/*
 * Copyright 1985, 1990 by Mortice Kern Systems Inc.  All rights reserved.
 */

#include <stdio.h>
#include <errno.h>
#include <pwd.h>
#include <grp.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/param.h>
#include <sys/acl.h>
#include <limits.h>
#include <unistd.h>
#include <stdlib.h>
#include <locale.h>
#include <string.h>
#include <strings.h>
#include <ctype.h>
#include <wait.h>
#include <fnmatch.h>
#include <langinfo.h>
#include <ftw.h>
#include <libgen.h>
#include <err.h>
#include <regex.h>
#include "getresponse.h"

#define	A_DAY		(long)(60*60*24)	/* a day full of seconds */
#define	A_MIN		(long)(60)
#define	BLKSIZ		512
#define	round(x, s)	(((x)+(s)-1)&~((s)-1))
#ifndef FTW_SLN
#define	FTW_SLN		7
#endif
#define	LINEBUF_SIZE		LINE_MAX	/* input or output lines */
#define	REMOTE_FS		"/etc/dfs/fstypes"
#define	N_FSTYPES		20
#define	SHELL_MAXARGS		253	/* see doexec() for description */

/*
 * This is the list of operations
 * F_USER and F_GROUP are named to avoid conflict with USER and GROUP defined
 * in sys/acl.h
 */

enum Command
{
	PRINT,
	ACL, AMIN, AND, ATIME, CMIN, CPIO, CSIZE, CTIME, DEPTH, EXEC, F_GROUP,
	F_GROUPACL, F_USER, F_USERACL, FOLLOW, FSTYPE, INAME, INUM, IPATH,
	IREGEX,	LINKS, LOCAL, LPAREN, LS, MAXDEPTH, MINDEPTH, MMIN, MOUNT,
	MTIME, NAME, NCPIO, NEWER, NOGRP, NOT, NOUSER, OK, OR, PATH, PERM,
	PRINT0, PRUNE, REGEX, RPAREN, SIZE, TYPE, VARARGS, XATTR, DELETE
};

enum Type
{
	Unary, Id, Num, Str, Exec, Cpio, Op
};

struct Args
{
	char		name[10];
	enum Command	action;
	enum Type	type;
};

/*
 * Except for pathnames, these are the only legal arguments
 */
static struct Args commands[] =
{
	"!",		NOT,		Op,
	"(",		LPAREN,		Unary,
	")",		RPAREN,		Unary,
	"-a",		AND,		Op,
	"-acl",		ACL,		Unary,
	"-amin",	AMIN,		Num,
	"-and",		AND,		Op,
	"-atime",	ATIME,		Num,
	"-cmin",	CMIN,		Num,
	"-cpio",	CPIO,		Cpio,
	"-ctime",	CTIME,		Num,
	"-depth",	DEPTH,		Unary,
	"-delete",	DELETE,		Unary,
	"-exec",	EXEC,		Exec,
	"-follow",	FOLLOW,		Unary,
	"-fstype",	FSTYPE,		Str,
	"-group",	F_GROUP,	Num,
	"-groupacl",	F_GROUPACL,	Num,
	"-iname",	INAME,		Str,
	"-inum",	INUM,		Num,
	"-ipath",	IPATH,		Str,
	"-iregex",	IREGEX,		Str,
	"-links",	LINKS,		Num,
	"-local",	LOCAL,		Unary,
	"-ls",		LS,		Unary,
	"-maxdepth",	MAXDEPTH,	Num,
	"-mindepth",	MINDEPTH,	Num,
	"-mmin",	MMIN,		Num,
	"-mount",	MOUNT,		Unary,
	"-mtime",	MTIME,		Num,
	"-name",	NAME,		Str,
	"-ncpio",	NCPIO,		Cpio,
	"-newer",	NEWER,		Str,
	"-nogroup",	NOGRP,		Unary,
	"-not",		NOT,		Op,
	"-nouser",	NOUSER,		Unary,
	"-o",		OR,		Op,
	"-ok",		OK,		Exec,
	"-or",		OR,		Op,
	"-path",	PATH,		Str,
	"-perm",	PERM,		Num,
	"-print",	PRINT,		Unary,
	"-print0",	PRINT0,		Unary,
	"-prune",	PRUNE,		Unary,
	"-regex",	REGEX,		Str,
	"-size",	SIZE,		Num,
	"-type",	TYPE,		Num,
	"-user",	F_USER,		Num,
	"-useracl",	F_USERACL,	Num,
	"-xattr",	XATTR,		Unary,
	"-xdev",	MOUNT,		Unary,
	0,		0,		0
};

union Item
{
	struct Node	*np;
	struct Arglist	*vp;
	time_t		t;
	char		*cp;
	char		**ap;
	long		l;
	int		i;
	long long	ll;
};

struct Node
{
	struct Node	*next;
	enum Command	action;
	enum Type	type;
	union Item	first;
	union Item	second;
};

/* if no -print, -exec or -ok replace "expression" with "(expression) -print" */
static	struct	Node PRINT_NODE = { 0, PRINT, 0, 0};
static	struct	Node LPAREN_NODE = { 0, LPAREN, 0, 0};


/*
 * Prototype variable size arglist buffer
 */

struct Arglist
{
	struct Arglist	*next;
	char		*end;
	char		*nextstr;
	char		**firstvar;
	char		**nextvar;
	char		*arglist[1];
};


static int		compile(char **, struct Node *, int *);
static int		execute(const char *, const struct stat *, int,
    struct FTW *);
static int		doexec(const char *, char **, int *);
static int		dodelete(const char *, const struct stat *,
    struct FTW *);
static struct Args	*lookup(char *);
static int		ok(const char *, char *[]);
static void		usage(void)	__NORETURN;
static struct Arglist	*varargs(char **);
static int		list(const char *, const struct stat *);
static char		*getgroup(gid_t);
static FILE		*cmdopen(char *, char **, char *, FILE *);
static int		cmdclose(FILE *);
static char		*getshell(void);
static void		init_remote_fs(void);
static char		*getname(uid_t);
static int		readmode(const char *);
static mode_t		getmode(mode_t);
static const char	*gettail(const char *);


static int walkflags = FTW_CHDIR|FTW_PHYS|FTW_ANYERR|FTW_NOLOOP;
static struct Node	*topnode;
static struct Node	*freenode;	/* next free node we may use later */
static char		*cpio[] = { "cpio", "-o", 0 };
static char		*ncpio[] = { "cpio", "-oc", 0 };
static char		*cpiol[] = { "cpio", "-oL", 0 };
static char		*ncpiol[] = { "cpio", "-ocL", 0 };
static time_t		now;
static FILE		*output;
static char		*dummyarg = (char *)-1;
static int		lastval;
static int		varsize;
static struct Arglist	*lastlist;
static char		*cmdname;
static char		*remote_fstypes[N_FSTYPES+1];
static int		fstype_index = 0;
static int		action_expression = 0;	/* -print, -exec, or -ok */
static int		error = 0;
static int		paren_cnt = 0;	/* keeps track of parentheses */
static int		Eflag = 0;
static int		hflag = 0;
static int		lflag = 0;
/* set when doexec()-invoked utility returns non-zero */
static int		exec_exitcode = 0;
static regex_t		*preg = NULL;
static int		npreg = 0;
static int		mindepth = -1, maxdepth = -1;
extern char		**environ;

int
main(int argc, char **argv)
{
	char *cp;
	int c;
	int paths;
	char *cwdpath;

	(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)	/* Should be defined by cc -D */
#define	TEXT_DOMAIN "SYS_TEST"	/* Use this only if it weren't */
#endif
	(void) textdomain(TEXT_DOMAIN);

	cmdname = argv[0];
	if (time(&now) == (time_t)(-1)) {
		(void) fprintf(stderr, gettext("%s: time() %s\n"),
		    cmdname, strerror(errno));
		exit(1);
	}
	while ((c = getopt(argc, argv, "EHL")) != -1) {
		switch (c) {
		case 'E':
			Eflag = 1;
			break;
		case 'H':
			hflag = 1;
			lflag = 0;
			break;
		case 'L':
			hflag = 0;
			lflag = 1;
			break;
		case '?':
			usage();
			break;
		}
	}

	argc -= optind;
	argv += optind;

	if (argc < 1) {
		(void) fprintf(stderr,
		    gettext("%s: insufficient number of arguments\n"), cmdname);
		usage();
	}

	for (paths = 0; (cp = argv[paths]) != 0; ++paths) {
		if (*cp == '-')
			break;
		else if ((*cp == '!' || *cp == '(') && *(cp+1) == 0)
			break;
	}

	if (paths == 0) /* no path-list */
		usage();

	output = stdout;

	/* lflag is the same as -follow */
	if (lflag)
		walkflags &= ~FTW_PHYS;

	/* allocate enough space for the compiler */
	topnode = malloc((argc + 1) * sizeof (struct Node));
	(void) memset(topnode, 0, (argc + 1) * sizeof (struct Node));

	if (compile(argv + paths, topnode, &action_expression) == 0) {
		/* no expression, default to -print */
		(void) memcpy(topnode, &PRINT_NODE, sizeof (struct Node));
	} else if (!action_expression) {
		/*
		 * if no action expression, insert an LPAREN node above topnode,
		 * with a PRINT node as its next node
		 */
		struct Node *savenode;

		if (freenode == NULL) {
			(void) fprintf(stderr, gettext("%s: can't append -print"
			    " implicitly; try explicit -print option\n"),
			    cmdname);
			exit(1);
		}
		savenode = topnode;
		topnode = freenode++;
		(void) memcpy(topnode, &LPAREN_NODE, sizeof (struct Node));
		topnode->next = freenode;
		topnode->first.np = savenode;
		(void) memcpy(topnode->next, &PRINT_NODE, sizeof (struct Node));
	}

	while (paths--) {
		char *curpath;
		struct stat sb;

		curpath = *(argv++);

		/*
		 * If -H is specified, it means we walk the first
		 * level (pathname on command line) logically, following
		 * symlinks, but lower levels are walked physically.
		 * We use our own secret interface to nftw() to change
		 * the from stat to lstat after the top level is walked.
		 */
		if (hflag) {
			if (stat(curpath, &sb) < 0 && errno == ENOENT)
				walkflags &= ~FTW_HOPTION;
			else
				walkflags |= FTW_HOPTION;
		}

		/*
		 * We need this check as nftw needs a CWD and we have no
		 * way of returning back from that code with a meaningful
		 * error related to this
		 */
		if ((cwdpath = getcwd(NULL, PATH_MAX)) == NULL) {
			if ((errno == EACCES) && (walkflags & FTW_CHDIR)) {
				/*
				 * A directory above cwd is inaccessible,
				 * so don't do chdir(2)s. Slower, but at least
				 * it works.
				 */
				walkflags &= ~FTW_CHDIR;
				free(cwdpath);
			} else {
				(void) fprintf(stderr,
				    gettext("%s : cannot get the current "
				    "working directory\n"), cmdname);
				exit(1);
			}
		} else
			free(cwdpath);


		if (nftw(curpath, execute, 1000, walkflags)) {
			(void) fprintf(stderr,
			    gettext("%s: cannot open %s: %s\n"),
			    cmdname, curpath, strerror(errno));
			error = 1;
		}

	}

	/* execute any remaining variable length lists */
	while (lastlist) {
		if (lastlist->end != lastlist->nextstr) {
			*lastlist->nextvar = 0;
			(void) doexec(NULL, lastlist->arglist,
			    &exec_exitcode);
		}
		lastlist = lastlist->next;
	}
	if (output != stdout)
		return (cmdclose(output));
	return ((exec_exitcode != 0) ? exec_exitcode : error);
}

/*
 * compile the arguments
 */

static int
compile(char **argv, struct Node *np, int *actionp)
{
	char *b;
	char **av;
	struct Node *oldnp = topnode;
	struct Args *argp;
	char **com;
	int i;
	enum Command wasop = PRINT;

	if (init_yes() < 0) {
		(void) fprintf(stderr, gettext(ERR_MSG_INIT_YES),
		    strerror(errno));
		exit(1);
	}

	for (av = argv; *av && (argp = lookup(*av)); av++) {
		np->next = 0;
		np->action = argp->action;
		np->type = argp->type;
		np->second.i = 0;
		if (argp->type == Op) {
			if (wasop == NOT || (wasop && np->action != NOT)) {
				(void) fprintf(stderr,
				    gettext("%s: operand follows operand\n"),
				    cmdname);
				exit(1);
			}
			if (np->action != NOT && oldnp == 0)
				goto err;
			wasop = argp->action;
		} else {
			wasop = PRINT;
			if (argp->type != Unary) {
				if (!(b = *++av)) {
					(void) fprintf(stderr, gettext(
					    "%s: incomplete statement\n"),
					    cmdname);
					exit(1);
				}
				if (argp->type == Num) {
					if (((argp->action == MAXDEPTH) ||
					    (argp->action == MINDEPTH)) &&
					    ((int)strtol(b, (char **)NULL,
					    10) < 0))
						errx(1, gettext(
						    "%s: value must be "
						    "positive"),
						    (argp->action == MAXDEPTH) ?
						    "maxdepth" : "mindepth");
					if ((argp->action != PERM) ||
					    (*b != '+')) {
						if (*b == '+' || *b == '-') {
							np->second.i = *b;
							b++;
						}
					}
				}
			}
		}
		switch (argp->action) {
		case AND:
			break;
		case NOT:
			break;
		case OR:
			np->first.np = topnode;
			topnode = np;
			oldnp->next = 0;
			break;

		case LPAREN: {
			struct Node *save = topnode;
			topnode = np+1;
			paren_cnt++;
			i = compile(++av, topnode, actionp);
			np->first.np = topnode;
			topnode = save;
			av += i;
			oldnp = np;
			np += i + 1;
			oldnp->next = np;
			continue;
		}

		case RPAREN:
			if (paren_cnt <= 0) {
				(void) fprintf(stderr,
				    gettext("%s: unmatched ')'\n"),
				    cmdname);
				exit(1);
			}
			paren_cnt--;
			if (oldnp == 0)
				goto err;
			if (oldnp->type == Op) {
				(void) fprintf(stderr,
				    gettext("%s: cannot immediately"
				    " follow an operand with ')'\n"),
				    cmdname);
				exit(1);
			}
			oldnp->next = 0;
			return (av-argv);

		case FOLLOW:
			walkflags &= ~FTW_PHYS;
			break;
		case MOUNT:
			walkflags |= FTW_MOUNT;
			break;
		case DEPTH:
			walkflags |= FTW_DEPTH;
			break;
		case DELETE:
			walkflags |= (FTW_DEPTH | FTW_PHYS);
			walkflags &= ~FTW_CHDIR;
			(*actionp)++;
			break;

		case LOCAL:
			np->first.l = 0L;
			np->first.ll = 0LL;
			np->second.i = '+';
			/*
			 * Make it compatible to df -l for
			 * future enhancement. So, anything
			 * that is not remote, then it is
			 * local.
			 */
			init_remote_fs();
			break;

		case SIZE:
			if (b[strlen(b)-1] == 'c')
				np->action = CSIZE;
			/*FALLTHROUGH*/
		case INUM:
			np->first.ll = atoll(b);
			break;

		case CMIN:
		case CTIME:
		case MMIN:
		case MTIME:
		case AMIN:
		case ATIME:
		case LINKS:
			np->first.l = atol(b);
			break;

		case F_USER:
		case F_GROUP:
		case F_USERACL:
		case F_GROUPACL: {
			struct	passwd	*pw;
			struct	group *gr;
			long value;
			char *q;

			value = -1;
			if (argp->action == F_USER ||
			    argp->action == F_USERACL) {
				if ((pw = getpwnam(b)) != 0)
					value = (long)pw->pw_uid;
			} else {
				if ((gr = getgrnam(b)) != 0)
					value = (long)gr->gr_gid;
			}
			if (value == -1) {
				errno = 0;
				value = strtol(b, &q, 10);
				if (errno != 0 || q == b || *q != '\0') {
					(void) fprintf(stderr, gettext(
					    "%s: cannot find %s name\n"),
					    cmdname, *av);
					exit(1);
				}
			}
			np->first.l = value;
			break;
		}

		case EXEC:
		case OK:
			walkflags &= ~FTW_CHDIR;
			np->first.ap = av;
			(*actionp)++;
			for (;;) {
				if ((b = *av) == 0) {
					(void) fprintf(stderr, gettext(
					    "%s: incomplete statement\n"),
					    cmdname);
					exit(1);
				}
				if (strcmp(b, ";") == 0) {
					*av = 0;
					break;
				} else if (strcmp(b, "{}") == 0)
					*av = dummyarg;
				else if (strcmp(b, "+") == 0 &&
				    av[-1] == dummyarg && np->action == EXEC) {
					av[-1] = 0;
					np->first.vp = varargs(np->first.ap);
					np->action = VARARGS;
					break;
				}
				av++;
			}
			break;

		case NAME:
		case INAME:
		case PATH:
		case IPATH:
			np->first.cp = b;
			break;
		case REGEX:
		case IREGEX: {
			int error;
			size_t errlen;
			char *errmsg;

			if ((preg = realloc(preg, (npreg + 1) *
			    sizeof (regex_t))) == NULL)
				err(1, "realloc");
			if ((error = regcomp(&preg[npreg], b,
			    ((np->action == IREGEX) ? REG_ICASE : 0) |
			    ((Eflag) ? REG_EXTENDED : 0))) != 0) {
				errlen = regerror(error, &preg[npreg], NULL, 0);
				if ((errmsg = malloc(errlen)) == NULL)
					err(1, "malloc");
				(void) regerror(error, &preg[npreg], errmsg,
				    errlen);
				errx(1, gettext("RE error: %s"), errmsg);
			}
			npreg++;
			break;
		}
		case PERM:
			if (*b == '-')
				++b;

			if (readmode(b) != 0) {
				(void) fprintf(stderr, gettext(
				    "find: -perm: Bad permission string\n"));
				usage();
			}
			np->first.l = (long)getmode((mode_t)0);
			break;
		case TYPE:
			i = *b;
			np->first.l =
			    i == 'd' ? S_IFDIR :
			    i == 'b' ? S_IFBLK :
			    i == 'c' ? S_IFCHR :
#ifdef S_IFIFO
			    i == 'p' ? S_IFIFO :
#endif
			    i == 'f' ? S_IFREG :
#ifdef S_IFLNK
			    i == 'l' ? S_IFLNK :
#endif
#ifdef S_IFSOCK
			    i == 's' ? S_IFSOCK :
#endif
#ifdef S_IFDOOR
			    i == 'D' ? S_IFDOOR :
#endif
			    0;
			break;

		case CPIO:
			if (walkflags & FTW_PHYS)
				com = cpio;
			else
				com = cpiol;
			goto common;

		case NCPIO: {
			FILE *fd;

			if (walkflags & FTW_PHYS)
				com = ncpio;
			else
				com = ncpiol;
		common:
			/* set up cpio */
			if ((fd = fopen(b, "w")) == NULL) {
				(void) fprintf(stderr,
				    gettext("%s: cannot create %s\n"),
				    cmdname, b);
				exit(1);
			}

			np->first.l = (long)cmdopen("cpio", com, "w", fd);
			(void) fclose(fd);
			walkflags |= FTW_DEPTH;
			np->action = CPIO;
		}
			/*FALLTHROUGH*/
		case PRINT:
		case PRINT0:
			(*actionp)++;
			break;

		case NEWER: {
			struct stat statb;
			if (stat(b, &statb) < 0) {
				(void) fprintf(stderr,
				    gettext("%s: cannot access %s\n"),
				    cmdname, b);
				exit(1);
			}
			np->first.l = statb.st_mtime;
			np->second.i = '+';
			break;
		}

		case PRUNE:
		case NOUSER:
		case NOGRP:
			break;
		case FSTYPE:
			np->first.cp = b;
			break;
		case LS:
			(*actionp)++;
			break;
		case XATTR:
			break;
		case ACL:
			break;
		case MAXDEPTH:
			maxdepth = (int)strtol(b, NULL, 10);
			break;
		case MINDEPTH:
			mindepth = (int)strtol(b, NULL, 10);
			break;
		}

		oldnp = np++;
		oldnp->next = np;
	}

	if ((*av) || (wasop))
		goto err;

	if (paren_cnt != 0) {
		(void) fprintf(stderr, gettext("%s: unmatched '('\n"), cmdname);
		exit(1);
	}

	/* just before returning, save next free node from the list */
	freenode = oldnp->next;
	oldnp->next = 0;
	return (av-argv);
err:
	if (*av)
		(void) fprintf(stderr,
		    gettext("%s: bad option %s\n"), cmdname, *av);
	else
		(void) fprintf(stderr, gettext("%s: bad option\n"), cmdname);
	usage();
	/*NOTREACHED*/
}

/*
 * print out a usage message
 */

static void
usage(void)
{
	(void) fprintf(stderr,
	    gettext("%s: [-E] [-H | -L] path-list predicate-list\n"), cmdname);
	exit(1);
}

/*
 * This is the function that gets executed at each node
 */

static int
execute(const char *name, const struct stat *statb, int type, struct FTW *state)
{
	struct Node *np = topnode;
	int val;
	time_t t;
	long l;
	long long ll;
	int not = 1;
	const char *filename;
	int cnpreg = 0;

	if (type == FTW_NS) {
		(void) fprintf(stderr, gettext("%s: stat() error %s: %s\n"),
		    cmdname, name, strerror(errno));
		error = 1;
		return (0);
	} else if (type == FTW_DNR) {
		(void) fprintf(stderr, gettext("%s: cannot read dir %s: %s\n"),
		    cmdname, name, strerror(errno));
		error = 1;
	} else if (type == FTW_SLN && lflag == 1) {
		(void) fprintf(stderr,
		    gettext("%s: cannot follow symbolic link %s: %s\n"),
		    cmdname, name, strerror(errno));
		error = 1;
	} else if (type == FTW_DL) {
		(void) fprintf(stderr, gettext("%s: cycle detected for %s\n"),
		    cmdname, name);
		error = 1;
		return (0);
	}

	if ((maxdepth != -1 && state->level > maxdepth) ||
	    (mindepth != -1 && state->level < mindepth))
		return (0);

	while (np) {
		switch (np->action) {
		case NOT:
			not = !not;
			np = np->next;
			continue;

		case AND:
			np = np->next;
			continue;

		case OR:
			if (np->first.np == np) {
				/*
				 * handle naked OR (no term on left hand side)
				 */
				(void) fprintf(stderr,
				    gettext("%s: invalid -o construction\n"),
				    cmdname);
				exit(2);
			}
			/* FALLTHROUGH */
		case LPAREN: {
			struct Node *save = topnode;
			topnode = np->first.np;
			(void) execute(name, statb, type, state);
			val = lastval;
			topnode = save;
			if (np->action == OR) {
				if (val)
					return (0);
				val = 1;
			}
			break;
		}

		case LOCAL: {
			int	nremfs;
			val = 1;
			/*
			 * If file system type matches the remote
			 * file system type, then it is not local.
			 */
			for (nremfs = 0; nremfs < fstype_index; nremfs++) {
				if (strcmp(remote_fstypes[nremfs],
				    statb->st_fstype) == 0) {
					val = 0;
					break;
				}
			}
			break;
		}

		case TYPE:
			l = (long)statb->st_mode&S_IFMT;
			goto num;

		case PERM:
			l = (long)statb->st_mode&07777;
			if (np->second.i == '-')
				val = ((l&np->first.l) == np->first.l);
			else
				val = (l == np->first.l);
			break;

		case INUM:
			ll = (long long)statb->st_ino;
			goto llnum;
		case NEWER:
			l = statb->st_mtime;
			goto num;
		case ATIME:
			t = statb->st_atime;
			goto days;
		case CTIME:
			t = statb->st_ctime;
			goto days;
		case MTIME:
			t = statb->st_mtime;
		days:
			l = (now-t)/A_DAY;
			goto num;
		case MMIN:
			t = statb->st_mtime;
			goto mins;
		case AMIN:
			t = statb->st_atime;
			goto mins;
		case CMIN:
			t = statb->st_ctime;
			goto mins;
		mins:
			l = (now-t)/A_MIN;
			goto num;
		case CSIZE:
			ll = (long long)statb->st_size;
			goto llnum;
		case SIZE:
			ll = (long long)round(statb->st_size, BLKSIZ)/BLKSIZ;
			goto llnum;
		case F_USER:
			l = (long)statb->st_uid;
			goto num;
		case F_GROUP:
			l = (long)statb->st_gid;
			goto num;
		case LINKS:
			l = (long)statb->st_nlink;
			goto num;
		llnum:
			if (np->second.i == '+')
				val = (ll > np->first.ll);
			else if (np->second.i == '-')
				val = (ll < np->first.ll);
			else
				val = (ll == np->first.ll);
			break;
		num:
			if (np->second.i == '+')
				val = (l > np->first.l);
			else if (np->second.i == '-')
				val = (l < np->first.l);
			else
				val = (l == np->first.l);
			break;
		case OK:
			val = ok(name, np->first.ap);
			break;
		case EXEC:
			val = doexec(name, np->first.ap, NULL);
			break;
		case DELETE:
			val = dodelete(name, statb, state);
			break;

		case VARARGS: {
			struct Arglist *ap = np->first.vp;
			char *cp;
			cp = ap->nextstr - (strlen(name)+1);
			if (cp >= (char *)(ap->nextvar+3)) {
				/* there is room just copy the name */
				val = 1;
				(void) strcpy(cp, name);
				*ap->nextvar++ = cp;
				ap->nextstr = cp;
			} else {
				/* no more room, exec command */
				*ap->nextvar++ = (char *)name;
				*ap->nextvar = 0;
				val = 1;
				(void) doexec(NULL, ap->arglist,
				    &exec_exitcode);
				ap->nextstr = ap->end;
				ap->nextvar = ap->firstvar;
			}
			break;
		}

		case DEPTH:
		case MOUNT:
		case FOLLOW:
			val = 1;
			break;

		case NAME:
		case INAME:
		case PATH:
		case IPATH: {
			char *path;
			int fnmflags = 0;

			if (np->action == INAME || np->action == IPATH)
				fnmflags = FNM_IGNORECASE;

			/*
			 * basename(3c) may modify name, so
			 * we need to pass another string
			 */
			if ((path = strdup(name)) == NULL) {
				(void) fprintf(stderr,
				    gettext("%s: cannot strdup() %s: %s\n"),
				    cmdname, name, strerror(errno));
				exit(2);
			}
			/*
			 * XPG4 find should not treat a leading '.' in a
			 * filename specially for pattern matching.
			 * /usr/bin/find  will not pattern match a leading
			 * '.' in a filename, unless '.' is explicitly
			 * specified.
			 *
			 * The legacy behavior makes no sense for PATH.
			 */
#ifndef XPG4
			if (np->action == NAME || np->action == INAME)
				fnmflags |= FNM_PERIOD;
#endif

			val = !fnmatch(np->first.cp,
			    (np->action == NAME || np->action == INAME) ?
			    basename(path) : path, fnmflags);
			free(path);
			break;
		}

		case PRUNE:
			if (type == FTW_D)
				state->quit = FTW_PRUNE;
			val = 1;
			break;
		case NOUSER:
			val = ((getpwuid(statb->st_uid)) == 0);
			break;
		case NOGRP:
			val = ((getgrgid(statb->st_gid)) == 0);