Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	bin/test/test.c	Lines:	112	158	70.9 %
Date:	2016-12-06	Branches:	85	157	54.1 %


/*	$OpenBSD: test.c,v 1.16 2016/01/13 13:13:04 gsoares Exp $	*/
/*	$NetBSD: test.c,v 1.15 1995/03/21 07:04:06 cgd Exp $	*/

/*
 * test(1); version 7-like  --  author Erik Baalbergen
 * modified by Eric Gisin to be used as built-in.
 * modified by Arnold Robbins to add SVR3 compatibility
 * (-x -c -b -p -u -g -k) plus Korn's -L -nt -ot -ef and new -S (socket).
 * modified by J.T. Conklin for NetBSD.
 *
 * This program is in the Public Domain.
 */

#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <ctype.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <err.h>

/* test(1) accepts the following grammar:
	oexpr	::= aexpr | aexpr "-o" oexpr ;
	aexpr	::= nexpr | nexpr "-a" aexpr ;
	nexpr	::= primary | "!" primary
	primary	::= unary-operator operand
		| operand binary-operator operand
		| operand
		| "(" oexpr ")"
		;
	unary-operator ::= "-r"|"-w"|"-x"|"-f"|"-d"|"-c"|"-b"|"-p"|
		"-u"|"-g"|"-k"|"-s"|"-t"|"-z"|"-n"|"-o"|"-O"|"-G"|"-L"|"-S";

	binary-operator ::= "="|"!="|"-eq"|"-ne"|"-ge"|"-gt"|"-le"|"-lt"|
			"-nt"|"-ot"|"-ef";
	operand ::= <any legal UNIX file name>
*/

enum token {
	EOI,
	FILRD,
	FILWR,
	FILEX,
	FILEXIST,
	FILREG,
	FILDIR,
	FILCDEV,
	FILBDEV,
	FILFIFO,
	FILSOCK,
	FILSYM,
	FILGZ,
	FILTT,
	FILSUID,
	FILSGID,
	FILSTCK,
	FILNT,
	FILOT,
	FILEQ,
	FILUID,
	FILGID,
	STREZ,
	STRNZ,
	STREQ,
	STRNE,
	STRLT,
	STRGT,
	INTEQ,
	INTNE,
	INTGE,
	INTGT,
	INTLE,
	INTLT,
	UNOT,
	BAND,
	BOR,
	LPAREN,
	RPAREN,
	OPERAND
};

enum token_types {
	UNOP,
	BINOP,
	BUNOP,
	BBINOP,
	PAREN
};

struct t_op {
	const char *op_text;
	short op_num, op_type;
} const ops [] = {
	{"-r",	FILRD,	UNOP},
	{"-w",	FILWR,	UNOP},
	{"-x",	FILEX,	UNOP},
	{"-e",	FILEXIST,UNOP},
	{"-f",	FILREG,	UNOP},
	{"-d",	FILDIR,	UNOP},
	{"-c",	FILCDEV,UNOP},
	{"-b",	FILBDEV,UNOP},
	{"-p",	FILFIFO,UNOP},
	{"-u",	FILSUID,UNOP},
	{"-g",	FILSGID,UNOP},
	{"-k",	FILSTCK,UNOP},
	{"-s",	FILGZ,	UNOP},
	{"-t",	FILTT,	UNOP},
	{"-z",	STREZ,	UNOP},
	{"-n",	STRNZ,	UNOP},
	{"-h",	FILSYM,	UNOP},		/* for backwards compat */
	{"-O",	FILUID,	UNOP},
	{"-G",	FILGID,	UNOP},
	{"-L",	FILSYM,	UNOP},
	{"-S",	FILSOCK,UNOP},
	{"=",	STREQ,	BINOP},
	{"!=",	STRNE,	BINOP},
	{"<",	STRLT,	BINOP},
	{">",	STRGT,	BINOP},
	{"-eq",	INTEQ,	BINOP},
	{"-ne",	INTNE,	BINOP},
	{"-ge",	INTGE,	BINOP},
	{"-gt",	INTGT,	BINOP},
	{"-le",	INTLE,	BINOP},
	{"-lt",	INTLT,	BINOP},
	{"-nt",	FILNT,	BINOP},
	{"-ot",	FILOT,	BINOP},
	{"-ef",	FILEQ,	BINOP},
	{"!",	UNOT,	BUNOP},
	{"-a",	BAND,	BBINOP},
	{"-o",	BOR,	BBINOP},
	{"(",	LPAREN,	PAREN},
	{")",	RPAREN,	PAREN},
	{0,	0,	0}
};

char **t_wp;
struct t_op const *t_wp_op;

static enum token t_lex(char *);
static enum token t_lex_type(char *);
static int oexpr(enum token n);
static int aexpr(enum token n);
static int nexpr(enum token n);
static int binop(void);
static int primary(enum token n);
static int filstat(char *nm, enum token mode);
static int getn(const char *s);
static int newerf(const char *, const char *);
static int olderf(const char *, const char *);
static int equalf(const char *, const char *);
static void syntax(const char *op, char *msg);

int
main(int argc, char *argv[])
{
	extern char *__progname;
	int	res;

	if (pledge("stdio rpath wpath cpath", NULL) == -1)
		err(2, "pledge");

	if (strcmp(__progname, "[") == 0) {
		if (strcmp(argv[--argc], "]"))
			errx(2, "missing ]");
		argv[argc] = NULL;
	}

	/* Implement special cases from POSIX.2, section 4.62.4 */
	switch (argc) {
	case 1:
		return 1;
	case 2:
		return (*argv[1] == '\0');
	case 3:
		if (argv[1][0] == '!' && argv[1][1] == '\0') {
			return !(*argv[2] == '\0');
		}
		break;
	case 4:
		if (argv[1][0] != '!' || argv[1][1] != '\0') {
			if (t_lex(argv[2]),
			    t_wp_op && t_wp_op->op_type == BINOP) {
				t_wp = &argv[1];
				return (binop() == 0);
			}
		}
		break;
	case 5:
		if (argv[1][0] == '!' && argv[1][1] == '\0') {
			if (t_lex(argv[3]),
			    t_wp_op && t_wp_op->op_type == BINOP) {
				t_wp = &argv[2];
				return !(binop() == 0);
			}
		}
		break;
	}

	t_wp = &argv[1];
	res = !oexpr(t_lex(*t_wp));

	if (*t_wp != NULL && *++t_wp != NULL)
		syntax(*t_wp, "unknown operand");

	return res;
}

static __dead void
syntax(const char *op, char *msg)
{
	if (op && *op)
		errx(2, "%s: %s", op, msg);
	else
		errx(2, "%s", msg);
}

static int
oexpr(enum token n)
{
	int res;

	res = aexpr(n);
	if (t_lex(*++t_wp) == BOR)
		return oexpr(t_lex(*++t_wp)) || res;
	t_wp--;
	return res;
}

static int
aexpr(enum token n)
{
	int res;

	res = nexpr(n);
	if (t_lex(*++t_wp) == BAND)
		return aexpr(t_lex(*++t_wp)) && res;
	t_wp--;
	return res;
}

static int
nexpr(enum token n)
{
	if (n == UNOT)
		return !nexpr(t_lex(*++t_wp));
	return primary(n);
}

static int
primary(enum token n)
{
	int res;

	if (n == EOI)
		syntax(NULL, "argument expected");
	if (n == LPAREN) {
		res = oexpr(t_lex(*++t_wp));
		if (t_lex(*++t_wp) != RPAREN)
			syntax(NULL, "closing paren expected");
		return res;
	}
	/*
	 * We need this, if not binary operations with more than 4
	 * arguments will always fall into unary.
	 */
	if(t_lex_type(t_wp[1]) == BINOP) {
		t_lex(t_wp[1]);
		if (t_wp_op && t_wp_op->op_type == BINOP)
			return binop();
	}

	if (t_wp_op && t_wp_op->op_type == UNOP) {
		/* unary expression */
		if (*++t_wp == NULL)
			syntax(t_wp_op->op_text, "argument expected");
		switch (n) {
		case STREZ:
			return strlen(*t_wp) == 0;
		case STRNZ:
			return strlen(*t_wp) != 0;
		case FILTT:
			return isatty(getn(*t_wp));
		default:
			return filstat(*t_wp, n);
		}
	}

	return strlen(*t_wp) > 0;
}

static int
binop(void)
{
	const char *opnd1, *opnd2;
	struct t_op const *op;

	opnd1 = *t_wp;
	(void) t_lex(*++t_wp);
	op = t_wp_op;

	if ((opnd2 = *++t_wp) == NULL)
		syntax(op->op_text, "argument expected");

	switch (op->op_num) {
	case STREQ:
		return strcmp(opnd1, opnd2) == 0;
	case STRNE:
		return strcmp(opnd1, opnd2) != 0;
	case STRLT:
		return strcmp(opnd1, opnd2) < 0;
	case STRGT:
		return strcmp(opnd1, opnd2) > 0;
	case INTEQ:
		return getn(opnd1) == getn(opnd2);
	case INTNE:
		return getn(opnd1) != getn(opnd2);
	case INTGE:
		return getn(opnd1) >= getn(opnd2);
	case INTGT:
		return getn(opnd1) > getn(opnd2);
	case INTLE:
		return getn(opnd1) <= getn(opnd2);
	case INTLT:
		return getn(opnd1) < getn(opnd2);
	case FILNT:
		return newerf(opnd1, opnd2);
	case FILOT:
		return olderf(opnd1, opnd2);
	case FILEQ:
		return equalf(opnd1, opnd2);
	}
	/* NOTREACHED */
}

static enum token
t_lex_type(char *s)
{
	struct t_op const *op = ops;

	if (s == NULL)
		return -1;

	while (op->op_text) {
		if (strcmp(s, op->op_text) == 0)
			return op->op_type;
		op++;
	}
	return -1;
}

static int
filstat(char *nm, enum token mode)
{
	struct stat s;
	mode_t i;

	if (mode == FILSYM) {
#ifdef S_IFLNK
		if (lstat(nm, &s) == 0) {
			i = S_IFLNK;
			goto filetype;
		}
#endif
		return 0;
	}

	if (stat(nm, &s) != 0)
		return 0;

	switch (mode) {
	case FILRD:
		return access(nm, R_OK) == 0;
	case FILWR:
		return access(nm, W_OK) == 0;
	case FILEX:
		return access(nm, X_OK) == 0;
	case FILEXIST:
		return access(nm, F_OK) == 0;
	case FILREG:
		i = S_IFREG;
		goto filetype;
	case FILDIR:
		i = S_IFDIR;
		goto filetype;
	case FILCDEV:
		i = S_IFCHR;
		goto filetype;
	case FILBDEV:
		i = S_IFBLK;
		goto filetype;
	case FILFIFO:
#ifdef S_IFIFO
		i = S_IFIFO;
		goto filetype;
#else
		return 0;
#endif
	case FILSOCK:
#ifdef S_IFSOCK
		i = S_IFSOCK;
		goto filetype;
#else
		return 0;
#endif
	case FILSUID:
		i = S_ISUID;
		goto filebit;
	case FILSGID:
		i = S_ISGID;
		goto filebit;
	case FILSTCK:
		i = S_ISVTX;
		goto filebit;
	case FILGZ:
		return s.st_size > 0L;
	case FILUID:
		return s.st_uid == geteuid();
	case FILGID:
		return s.st_gid == getegid();
	default:
		return 1;
	}

filetype:
	return ((s.st_mode & S_IFMT) == i);

filebit:
	return ((s.st_mode & i) != 0);
}

static enum token
t_lex(char *s)
{
	struct t_op const *op = ops;

	if (s == 0) {
		t_wp_op = NULL;
		return EOI;
	}
	while (op->op_text) {
		if (strcmp(s, op->op_text) == 0) {
			t_wp_op = op;
			return op->op_num;
		}
		op++;
	}
	t_wp_op = NULL;
	return OPERAND;
}

/* atoi with error detection */
static int
getn(const char *s)
{
	char *p;
	long r;

	errno = 0;
	r = strtol(s, &p, 10);

	if (errno != 0)
		errx(2, "%s: out of range", s);

	while (isspace((unsigned char)*p))
		p++;

	if (*p)
		errx(2, "%s: bad number", s);

	return (int) r;
}

static int
newerf(const char *f1, const char *f2)
{
	struct stat b1, b2;

	return (stat(f1, &b1) == 0 &&
	    stat(f2, &b2) == 0 &&
	    b1.st_mtime > b2.st_mtime);
}

static int
olderf(const char *f1, const char *f2)
{
	struct stat b1, b2;

	return (stat(f1, &b1) == 0 &&
	    stat(f2, &b2) == 0 &&
	    b1.st_mtime < b2.st_mtime);
}

static int
equalf(const char *f1, const char *f2)
{
	struct stat b1, b2;

	return (stat(f1, &b1) == 0 &&
	    stat(f2, &b2) == 0 &&
	    b1.st_dev == b2.st_dev &&
	    b1.st_ino == b2.st_ino);
}


Generated by: GCOVR (Version 3.3)

Line	Branch	Exec	Source
1			/* $OpenBSD: test.c,v 1.16 2016/01/13 13:13:04 gsoares Exp $ */
2			/* $NetBSD: test.c,v 1.15 1995/03/21 07:04:06 cgd Exp $ */
3
4			/*
5			* test(1); version 7-like -- author Erik Baalbergen
6			* modified by Eric Gisin to be used as built-in.
7			* modified by Arnold Robbins to add SVR3 compatibility
8			* (-x -c -b -p -u -g -k) plus Korn's -L -nt -ot -ef and new -S (socket).
9			* modified by J.T. Conklin for NetBSD.
10			*
11			* This program is in the Public Domain.
12			*/
13
14			#include <sys/types.h>
15			#include <sys/stat.h>
16			#include <unistd.h>
17			#include <ctype.h>
18			#include <errno.h>
19			#include <stdio.h>
20			#include <stdlib.h>
21			#include <string.h>
22			#include <err.h>
23
24			/* test(1) accepts the following grammar:
25			oexpr ::= aexpr \| aexpr "-o" oexpr ;
26			aexpr ::= nexpr \| nexpr "-a" aexpr ;
27			nexpr ::= primary \| "!" primary
28			primary ::= unary-operator operand
29			\| operand binary-operator operand
30			\| operand
31			\| "(" oexpr ")"
32			;
33			unary-operator ::= "-r"\|"-w"\|"-x"\|"-f"\|"-d"\|"-c"\|"-b"\|"-p"\|
34			"-u"\|"-g"\|"-k"\|"-s"\|"-t"\|"-z"\|"-n"\|"-o"\|"-O"\|"-G"\|"-L"\|"-S";
35
36			binary-operator ::= "="\|"!="\|"-eq"\|"-ne"\|"-ge"\|"-gt"\|"-le"\|"-lt"\|
37			"-nt"\|"-ot"\|"-ef";
38			operand ::= <any legal UNIX file name>
39			*/
40
41			enum token {
42			EOI,
43			FILRD,
44			FILWR,
45			FILEX,
46			FILEXIST,
47			FILREG,
48			FILDIR,
49			FILCDEV,
50			FILBDEV,
51			FILFIFO,
52			FILSOCK,
53			FILSYM,
54			FILGZ,
55			FILTT,
56			FILSUID,
57			FILSGID,
58			FILSTCK,
59			FILNT,
60			FILOT,
61			FILEQ,
62			FILUID,
63			FILGID,
64			STREZ,
65			STRNZ,
66			STREQ,
67			STRNE,
68			STRLT,
69			STRGT,
70			INTEQ,
71			INTNE,
72			INTGE,
73			INTGT,
74			INTLE,
75			INTLT,
76			UNOT,
77			BAND,
78			BOR,
79			LPAREN,
80			RPAREN,
81			OPERAND
82			};
83
84			enum token_types {
85			UNOP,
86			BINOP,
87			BUNOP,
88			BBINOP,
89			PAREN
90			};
91
92			struct t_op {
93			const char *op_text;
94			short op_num, op_type;
95			} const ops [] = {
96			{"-r", FILRD, UNOP},
97			{"-w", FILWR, UNOP},
98			{"-x", FILEX, UNOP},
99			{"-e", FILEXIST,UNOP},
100			{"-f", FILREG, UNOP},
101			{"-d", FILDIR, UNOP},
102			{"-c", FILCDEV,UNOP},
103			{"-b", FILBDEV,UNOP},
104			{"-p", FILFIFO,UNOP},
105			{"-u", FILSUID,UNOP},
106			{"-g", FILSGID,UNOP},
107			{"-k", FILSTCK,UNOP},
108			{"-s", FILGZ, UNOP},
109			{"-t", FILTT, UNOP},
110			{"-z", STREZ, UNOP},
111			{"-n", STRNZ, UNOP},
112			{"-h", FILSYM, UNOP}, /* for backwards compat */
113			{"-O", FILUID, UNOP},
114			{"-G", FILGID, UNOP},
115			{"-L", FILSYM, UNOP},
116			{"-S", FILSOCK,UNOP},
117			{"=", STREQ, BINOP},
118			{"!=", STRNE, BINOP},
119			{"<", STRLT, BINOP},
120			{">", STRGT, BINOP},
121			{"-eq", INTEQ, BINOP},
122			{"-ne", INTNE, BINOP},
123			{"-ge", INTGE, BINOP},
124			{"-gt", INTGT, BINOP},
125			{"-le", INTLE, BINOP},
126			{"-lt", INTLT, BINOP},
127			{"-nt", FILNT, BINOP},
128			{"-ot", FILOT, BINOP},
129			{"-ef", FILEQ, BINOP},
130			{"!", UNOT, BUNOP},
131			{"-a", BAND, BBINOP},
132			{"-o", BOR, BBINOP},
133			{"(", LPAREN, PAREN},
134			{")", RPAREN, PAREN},
135			{0, 0, 0}
136			};
137
138			char **t_wp;
139			struct t_op const *t_wp_op;
140
141			static enum token t_lex(char *);
142			static enum token t_lex_type(char *);
143			static int oexpr(enum token n);
144			static int aexpr(enum token n);
145			static int nexpr(enum token n);
146			static int binop(void);
147			static int primary(enum token n);
148			static int filstat(char *nm, enum token mode);
149			static int getn(const char *s);
150			static int newerf(const char , const char );
151			static int olderf(const char , const char );
152			static int equalf(const char , const char );
153			static void syntax(const char op, char msg);
154
155			int
156			main(int argc, char *argv[])
157		118	{
158			extern char *__progname;
159			int res;
160
161	✗✓	118	if (pledge("stdio rpath wpath cpath", NULL) == -1)
162			err(2, "pledge");
163
164	✗✓	118	if (strcmp(__progname, "[") == 0) {
165			if (strcmp(argv[--argc], "]"))
166			errx(2, "missing ]");
167			argv[argc] = NULL;
168			}
169
170			/* Implement special cases from POSIX.2, section 4.62.4 */
171	✗✓✓✓ ✓✓	118	switch (argc) {
172			case 1:
173			return 1;
174			case 2:
175		8	return (*argv[1] == '\0');
176			case 3:
177	✓✓✓✗	22	if (argv[1][0] == '!' && argv[1][1] == '\0') {
178		2	return !(*argv[2] == '\0');
179			}
180			break;
181			case 4:
182	✓✓✗✓	56	if (argv[1][0] != '!' \|\| argv[1][1] != '\0') {
183	✓✓✓✓ ✓✓	54	if (t_lex(argv[2]),
184			t_wp_op && t_wp_op->op_type == BINOP) {
185		38	t_wp = &argv[1];
186		38	return (binop() == 0);
187			}
188			}
189			break;
190			case 5:
191	✗✓✗✗	2	if (argv[1][0] == '!' && argv[1][1] == '\0') {
192			if (t_lex(argv[3]),
193			t_wp_op && t_wp_op->op_type == BINOP) {
194			t_wp = &argv[2];
195			return !(binop() == 0);
196			}
197			}
198			break;
199			}
200
201		70	t_wp = &argv[1];
202		70	res = !oexpr(t_lex(*t_wp));
203
204	✓✗✗✓	70	if (t_wp != NULL && ++t_wp != NULL)
205			syntax(*t_wp, "unknown operand");
206
207		70	return res;
208			}
209
210			static __dead void
211			syntax(const char op, char msg)
212			{
213			if (op && *op)
214			errx(2, "%s: %s", op, msg);
215			else
216			errx(2, "%s", msg);
217			}
218
219			static int
220			oexpr(enum token n)
221		124	{
222			int res;
223
224		124	res = aexpr(n);
225	✓✓	124	if (t_lex(*++t_wp) == BOR)
226	✓✓✗✓	24	return oexpr(t_lex(*++t_wp)) \|\| res;
227		100	t_wp--;
228		100	return res;
229			}
230
231			static int
232			aexpr(enum token n)
233		144	{
234			int res;
235
236		144	res = nexpr(n);
237	✓✓	144	if (t_lex(*++t_wp) == BAND)
238	✓✓✓✗	20	return aexpr(t_lex(*++t_wp)) && res;
239		124	t_wp--;
240		124	return res;
241			}
242
243			static int
244			nexpr(enum token n)
245		152	{
246	✓✓	152	if (n == UNOT)
247		8	return !nexpr(t_lex(*++t_wp));
248		144	return primary(n);
249			}
250
251			static int
252			primary(enum token n)
253		144	{
254			int res;
255
256	✗✓	144	if (n == EOI)
257			syntax(NULL, "argument expected");
258	✓✓	144	if (n == LPAREN) {
259		30	res = oexpr(t_lex(*++t_wp));
260	✗✓	30	if (t_lex(*++t_wp) != RPAREN)
261			syntax(NULL, "closing paren expected");
262		30	return res;
263			}
264			/*
265			* We need this, if not binary operations with more than 4
266			* arguments will always fall into unary.
267			*/
268	✓✓	114	if(t_lex_type(t_wp[1]) == BINOP) {
269		40	t_lex(t_wp[1]);
270	✓✗✓✗	40	if (t_wp_op && t_wp_op->op_type == BINOP)
271		40	return binop();
272			}
273
274	✓✓✓✗	74	if (t_wp_op && t_wp_op->op_type == UNOP) {
275			/* unary expression */
276	✗✓	30	if (*++t_wp == NULL)
277			syntax(t_wp_op->op_text, "argument expected");
278	✓✓✗✓	30	switch (n) {
279			case STREZ:
280		2	return strlen(*t_wp) == 0;
281			case STRNZ:
282		4	return strlen(*t_wp) != 0;
283			case FILTT:
284			return isatty(getn(*t_wp));
285			default:
286		24	return filstat(*t_wp, n);
287			}
288			}
289
290		44	return strlen(*t_wp) > 0;
291			}
292
293			static int
294			binop(void)
295		78	{
296			const char opnd1, opnd2;
297			struct t_op const *op;
298
299		78	opnd1 = *t_wp;
300		78	(void) t_lex(*++t_wp);
301		78	op = t_wp_op;
302
303	✗✓	78	if ((opnd2 = *++t_wp) == NULL)
304			syntax(op->op_text, "argument expected");
305
306	✓✓✗✗ ✓✓✓✓ ✓✓✗✗ ✗✗	78	switch (op->op_num) {
307			case STREQ:
308		48	return strcmp(opnd1, opnd2) == 0;
309			case STRNE:
310		4	return strcmp(opnd1, opnd2) != 0;
311			case STRLT:
312			return strcmp(opnd1, opnd2) < 0;
313			case STRGT:
314			return strcmp(opnd1, opnd2) > 0;
315			case INTEQ:
316		12	return getn(opnd1) == getn(opnd2);
317			case INTNE:
318		2	return getn(opnd1) != getn(opnd2);
319			case INTGE:
320		4	return getn(opnd1) >= getn(opnd2);
321			case INTGT:
322		2	return getn(opnd1) > getn(opnd2);
323			case INTLE:
324		2	return getn(opnd1) <= getn(opnd2);
325			case INTLT:
326		4	return getn(opnd1) < getn(opnd2);
327			case FILNT:
328			return newerf(opnd1, opnd2);
329			case FILOT:
330			return olderf(opnd1, opnd2);
331			case FILEQ:
332			return equalf(opnd1, opnd2);
333			}
334			/* NOTREACHED */
335			}
336
337			static enum token
338			t_lex_type(char *s)
339		114	{
340		114	struct t_op const *op = ops;
341
342	✓✓	114	if (s == NULL)
343		22	return -1;
344
345	✓✓	2846	while (op->op_text) {
346	✓✓	2820	if (strcmp(s, op->op_text) == 0)
347		66	return op->op_type;
348		2754	op++;
349			}
350		26	return -1;
351			}
352
353			static int
354			filstat(char *nm, enum token mode)
355		24	{
356			struct stat s;
357			mode_t i;
358
359	✓✓	24	if (mode == FILSYM) {
360			#ifdef S_IFLNK
361	✓✗	2	if (lstat(nm, &s) == 0) {
362		2	i = S_IFLNK;
363		2	goto filetype;
364			}
365			#endif
366			return 0;
367			}
368
369	✗✓	22	if (stat(nm, &s) != 0)
370			return 0;
371
372	✓✓✓✗ ✓✓✓✓ ✗✗✗✗ ✗✓✗✗ ✗	22	switch (mode) {
373			case FILRD:
374		2	return access(nm, R_OK) == 0;
375			case FILWR:
376		2	return access(nm, W_OK) == 0;
377			case FILEX:
378		2	return access(nm, X_OK) == 0;
379			case FILEXIST:
380			return access(nm, F_OK) == 0;
381			case FILREG:
382		4	i = S_IFREG;
383		4	goto filetype;
384			case FILDIR:
385		4	i = S_IFDIR;
386		4	goto filetype;
387			case FILCDEV:
388		2	i = S_IFCHR;
389		2	goto filetype;
390			case FILBDEV:
391		4	i = S_IFBLK;
392		4	goto filetype;
393			case FILFIFO:
394			#ifdef S_IFIFO
395			i = S_IFIFO;
396			goto filetype;
397			#else
398			return 0;
399			#endif
400			case FILSOCK:
401			#ifdef S_IFSOCK
402			i = S_IFSOCK;
403			goto filetype;
404			#else
405			return 0;
406			#endif
407			case FILSUID:
408			i = S_ISUID;
409			goto filebit;
410			case FILSGID:
411			i = S_ISGID;
412			goto filebit;
413			case FILSTCK:
414			i = S_ISVTX;
415			goto filebit;
416			case FILGZ:
417		2	return s.st_size > 0L;
418			case FILUID:
419			return s.st_uid == geteuid();
420			case FILGID:
421			return s.st_gid == getegid();
422			default:
423			return 1;
424			}
425
426		16	filetype:
427		16	return ((s.st_mode & S_IFMT) == i);
428
429			filebit:
430			return ((s.st_mode & i) != 0);
431			}
432
433			static enum token
434			t_lex(char *s)
435		622	{
436		622	struct t_op const *op = ops;
437
438	✓✓	622	if (s == 0) {
439		140	t_wp_op = NULL;
440		140	return EOI;
441			}
442	✓✓	14984	while (op->op_text) {
443	✓✓	14912	if (strcmp(s, op->op_text) == 0) {
444		410	t_wp_op = op;
445		410	return op->op_num;
446			}
447		14502	op++;
448			}
449		72	t_wp_op = NULL;
450		72	return OPERAND;
451			}
452
453			/* atoi with error detection */
454			static int
455			getn(const char *s)
456		52	{
457			char *p;
458			long r;
459
460		52	errno = 0;
461		52	r = strtol(s, &p, 10);
462
463	✗✓	52	if (errno != 0)
464			errx(2, "%s: out of range", s);
465
466	✗✓	104	while (isspace((unsigned char)*p))
467			p++;
468
469	✗✓	52	if (*p)
470			errx(2, "%s: bad number", s);
471
472		52	return (int) r;
473			}
474
475			static int
476			newerf(const char f1, const char f2)
477			{
478			struct stat b1, b2;
479
480			return (stat(f1, &b1) == 0 &&
481			stat(f2, &b2) == 0 &&
482			b1.st_mtime > b2.st_mtime);
483			}
484
485			static int
486			olderf(const char f1, const char f2)
487			{
488			struct stat b1, b2;
489
490			return (stat(f1, &b1) == 0 &&
491			stat(f2, &b2) == 0 &&
492			b1.st_mtime < b2.st_mtime);
493			}
494
495			static int
496			equalf(const char f1, const char f2)
497			{
498			struct stat b1, b2;
499
500			return (stat(f1, &b1) == 0 &&
501			stat(f2, &b2) == 0 &&
502			b1.st_dev == b2.st_dev &&
503			b1.st_ino == b2.st_ino);
504			}