multilib is correct now
[dcc-suckless-config] / bdmenu-based / stest.c
1 /* See LICENSE file for copyright and license details. */
2 #include <sys/stat.h>
3
4 #include <dirent.h>
5 #include <limits.h>
6 #include <stdio.h>
7 #include <stdlib.h>
8 #include <string.h>
9 #include <unistd.h>
10
11 #include "arg.h"
12 char *argv0;
13
14 #define FLAG(x)  (flag[(x)-'a'])
15
16 static void test(const char *, const char *);
17 static void usage(void);
18
19 static int match = 0;
20 static int flag[26];
21 static struct stat old, new;
22
23 static void
24 test(const char *path, const char *name)
25 {
26         struct stat st, ln;
27
28         if ((!stat(path, &st) && (FLAG('a') || name[0] != '.')        /* hidden files      */
29         && (!FLAG('b') || S_ISBLK(st.st_mode))                        /* block special     */
30         && (!FLAG('c') || S_ISCHR(st.st_mode))                        /* character special */
31         && (!FLAG('d') || S_ISDIR(st.st_mode))                        /* directory         */
32         && (!FLAG('e') || access(path, F_OK) == 0)                    /* exists            */
33         && (!FLAG('f') || S_ISREG(st.st_mode))                        /* regular file      */
34         && (!FLAG('g') || st.st_mode & S_ISGID)                       /* set-group-id flag */
35         && (!FLAG('h') || (!lstat(path, &ln) && S_ISLNK(ln.st_mode))) /* symbolic link     */
36         && (!FLAG('n') || st.st_mtime > new.st_mtime)                 /* newer than file   */
37         && (!FLAG('o') || st.st_mtime < old.st_mtime)                 /* older than file   */
38         && (!FLAG('p') || S_ISFIFO(st.st_mode))                       /* named pipe        */
39         && (!FLAG('r') || access(path, R_OK) == 0)                    /* readable          */
40         && (!FLAG('s') || st.st_size > 0)                             /* not empty         */
41         && (!FLAG('u') || st.st_mode & S_ISUID)                       /* set-user-id flag  */
42         && (!FLAG('w') || access(path, W_OK) == 0)                    /* writable          */
43         && (!FLAG('x') || access(path, X_OK) == 0)) != FLAG('v')) {   /* executable        */
44                 if (FLAG('q'))
45                         exit(0);
46                 match = 1;
47                 puts(name);
48         }
49 }
50
51 static void
52 usage(void)
53 {
54         fprintf(stderr, "usage: %s [-abcdefghlpqrsuvwx] "
55                 "[-n file] [-o file] [file...]\n", argv0);
56         exit(2); /* like test(1) return > 1 on error */
57 }
58
59 int
60 main(int argc, char *argv[])
61 {
62         struct dirent *d;
63         char path[PATH_MAX], *line = NULL, *file;
64         size_t linesiz = 0;
65         ssize_t n;
66         DIR *dir;
67         int r;
68
69         ARGBEGIN {
70         case 'n': /* newer than file */
71         case 'o': /* older than file */
72                 file = EARGF(usage());
73                 if (!(FLAG(ARGC()) = !stat(file, (ARGC() == 'n' ? &new : &old))))
74                         perror(file);
75                 break;
76         default:
77                 /* miscellaneous operators */
78                 if (strchr("abcdefghlpqrsuvwx", ARGC()))
79                         FLAG(ARGC()) = 1;
80                 else
81                         usage(); /* unknown flag */
82         } ARGEND;
83
84         if (!argc) {
85                 /* read list from stdin */
86                 while ((n = getline(&line, &linesiz, stdin)) > 0) {
87                         if (line[n - 1] == '\n')
88                                 line[n - 1] = '\0';
89                         test(line, line);
90                 }
91                 free(line);
92         } else {
93                 for (; argc; argc--, argv++) {
94                         if (FLAG('l') && (dir = opendir(*argv))) {
95                                 /* test directory contents */
96                                 while ((d = readdir(dir))) {
97                                         r = snprintf(path, sizeof path, "%s/%s",
98                                                      *argv, d->d_name);
99                                         if (r >= 0 && (size_t)r < sizeof path)
100                                                 test(path, d->d_name);
101                                 }
102                                 closedir(dir);
103                         } else {
104                                 test(*argv, *argv);
105                         }
106                 }
107         }
108         return match ? 0 : 1;
109 }