iadding the mighty stest.c from dmenu - iomenu - interactive terminal-based selection menu Err bitreich.org 70 hgit clone git://bitreich.org/iomenu git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/iomenu URL:git://bitreich.org/iomenu git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/iomenu bitreich.org 70 1Log /scm/iomenu/log.gph bitreich.org 70 1Files /scm/iomenu/files.gph bitreich.org 70 1Refs /scm/iomenu/refs.gph bitreich.org 70 1Tags /scm/iomenu/tag bitreich.org 70 1README /scm/iomenu/file/README.gph bitreich.org 70 1LICENSE /scm/iomenu/file/LICENSE.gph bitreich.org 70 i--- Err bitreich.org 70 1commit b95967e4d0296ca835ced868042b837f840d8019 /scm/iomenu/commit/b95967e4d0296ca835ced868042b837f840d8019.gph bitreich.org 70 1parent fff2395e59b4a9b4b6a59e7c32345abde0209230 /scm/iomenu/commit/fff2395e59b4a9b4b6a59e7c32345abde0209230.gph bitreich.org 70 hAuthor: Josuah Demangeon URL:mailto:mail@josuah.net bitreich.org 70 iDate: Thu, 13 Apr 2017 12:51:48 +0200 Err bitreich.org 70 i Err bitreich.org 70 iadding the mighty stest.c from dmenu Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M .gitignore | 1 + Err bitreich.org 70 i M Makefile | 4 ++-- Err bitreich.org 70 i A stest.1 | 90 +++++++++++++++++++++++++++++++ Err bitreich.org 70 i A stest.c | 162 ++++++++++++++++++++++++++++++ Err bitreich.org 70 i Err bitreich.org 70 i4 files changed, 255 insertions(+), 2 deletions(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/.gitignore b/.gitignore /scm/iomenu/file/.gitignore.gph bitreich.org 70 i@@ -1 +1,2 @@ Err bitreich.org 70 i iomenu Err bitreich.org 70 i+stest Err bitreich.org 70 1diff --git a/Makefile b/Makefile /scm/iomenu/file/Makefile.gph bitreich.org 70 i@@ -1,7 +1,7 @@ Err bitreich.org 70 i CFLAGS = -std=c99 -Wpedantic -Wall -Wextra -g # -static Err bitreich.org 70 i OBJ = ${SRC:.c=.o} Err bitreich.org 70 i Err bitreich.org 70 i-all: clean iomenu Err bitreich.org 70 i+all: clean iomenu stest Err bitreich.org 70 i Err bitreich.org 70 i clean: Err bitreich.org 70 i rm -f iomenu ${OBJ} Err bitreich.org 70 i@@ -9,4 +9,4 @@ clean: Err bitreich.org 70 i install: iomenu Err bitreich.org 70 i mkdir -p $(PREFIX)/bin $(PREFIX)/man/man1 Err bitreich.org 70 i cp *.1 $(PREFIX)/man/man1/ Err bitreich.org 70 i- cp iomenu $(PREFIX)/bin/ Err bitreich.org 70 i+ cp iomenu stest $(PREFIX)/bin/ Err bitreich.org 70 1diff --git a/stest.1 b/stest.1 /scm/iomenu/file/stest.1.gph bitreich.org 70 i@@ -0,0 +1,90 @@ Err bitreich.org 70 i+.TH STEST 1 dmenu\-VERSION Err bitreich.org 70 i+.SH NAME Err bitreich.org 70 i+stest \- filter a list of files by properties Err bitreich.org 70 i+.SH SYNOPSIS Err bitreich.org 70 i+.B stest Err bitreich.org 70 i+.RB [ -abcdefghlpqrsuwx ] Err bitreich.org 70 i+.RB [ -n Err bitreich.org 70 i+.IR file ] Err bitreich.org 70 i+.RB [ -o Err bitreich.org 70 i+.IR file ] Err bitreich.org 70 i+.RI [ file ...] Err bitreich.org 70 i+.SH DESCRIPTION Err bitreich.org 70 i+.B stest Err bitreich.org 70 i+takes a list of files and filters by the files' properties, analogous to Err bitreich.org 70 i+.IR test (1). Err bitreich.org 70 i+Files which pass all tests are printed to stdout. If no files are given, stest Err bitreich.org 70 i+reads files from stdin. Err bitreich.org 70 i+.SH OPTIONS Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-a Err bitreich.org 70 i+Test hidden files. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-b Err bitreich.org 70 i+Test that files are block specials. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-c Err bitreich.org 70 i+Test that files are character specials. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-d Err bitreich.org 70 i+Test that files are directories. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-e Err bitreich.org 70 i+Test that files exist. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-f Err bitreich.org 70 i+Test that files are regular files. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-g Err bitreich.org 70 i+Test that files have their set-group-ID flag set. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-h Err bitreich.org 70 i+Test that files are symbolic links. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-l Err bitreich.org 70 i+Test the contents of a directory given as an argument. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.BI \-n " file" Err bitreich.org 70 i+Test that files are newer than Err bitreich.org 70 i+.IR file . Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.BI \-o " file" Err bitreich.org 70 i+Test that files are older than Err bitreich.org 70 i+.IR file . Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-p Err bitreich.org 70 i+Test that files are named pipes. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-q Err bitreich.org 70 i+No files are printed, only the exit status is returned. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-r Err bitreich.org 70 i+Test that files are readable. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-s Err bitreich.org 70 i+Test that files are not empty. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-u Err bitreich.org 70 i+Test that files have their set-user-ID flag set. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-v Err bitreich.org 70 i+Invert the sense of tests, only failing files pass. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-w Err bitreich.org 70 i+Test that files are writable. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B \-x Err bitreich.org 70 i+Test that files are executable. Err bitreich.org 70 i+.SH EXIT STATUS Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B 0 Err bitreich.org 70 i+At least one file passed all tests. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B 1 Err bitreich.org 70 i+No files passed all tests. Err bitreich.org 70 i+.TP Err bitreich.org 70 i+.B 2 Err bitreich.org 70 i+An error occurred. Err bitreich.org 70 i+.SH SEE ALSO Err bitreich.org 70 i+.IR dmenu (1), Err bitreich.org 70 i+.IR test (1) Err bitreich.org 70 1diff --git a/stest.c b/stest.c /scm/iomenu/file/stest.c.gph bitreich.org 70 i@@ -0,0 +1,162 @@ Err bitreich.org 70 i+/* MIT/X Consortium License Err bitreich.org 70 i+ * Err bitreich.org 70 i+ * copyright (c) 2006-2014 Anselm R Garbe Err bitreich.org 70 i+ * copyright (c) 2010-2012 Connor Lane Smith Err bitreich.org 70 i+ * copyright (c) 2009 Gottox Err bitreich.org 70 i+ * copyright (c) 2009 Markus Schnalke Err bitreich.org 70 i+ * copyright (c) 2009 Evan Gates Err bitreich.org 70 i+ * copyright (c) 2006-2008 Sander van Dijk Err bitreich.org 70 i+ * copyright (c) 2006-2007 Michał Janeczek Err bitreich.org 70 i+ * copyright (c) 2014-2015 Hiltjo Posthuma Err bitreich.org 70 i+ * Err bitreich.org 70 i+ * Permission is hereby granted, free of charge, to any person obtaining a Err bitreich.org 70 i+ * copy of this software and associated documentation files (the "Software"), Err bitreich.org 70 i+ * to deal in the Software without restriction, including without limitation Err bitreich.org 70 i+ * the rights to use, copy, modify, merge, publish, distribute, sublicense, Err bitreich.org 70 i+ * and/or sell copies of the Software, and to permit persons to whom the Err bitreich.org 70 i+ * Software is furnished to do so, subject to the following conditions: Err bitreich.org 70 i+ * Err bitreich.org 70 i+ * The above copyright notice and this permission notice shall be included in Err bitreich.org 70 i+ * all copies or substantial portions of the Software. Err bitreich.org 70 i+ * Err bitreich.org 70 i+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR Err bitreich.org 70 i+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, Err bitreich.org 70 i+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL Err bitreich.org 70 i+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER Err bitreich.org 70 i+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING Err bitreich.org 70 i+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER Err bitreich.org 70 i+ * DEALINGS IN THE SOFTWARE. Err bitreich.org 70 i+ */ Err bitreich.org 70 i+ Err bitreich.org 70 i+#define _POSIX_C_SOURCE 200809L Err bitreich.org 70 i+ Err bitreich.org 70 i+#include Err bitreich.org 70 i+ Err bitreich.org 70 i+#include Err bitreich.org 70 i+#include Err bitreich.org 70 i+#include Err bitreich.org 70 i+#include Err bitreich.org 70 i+#include Err bitreich.org 70 i+#include Err bitreich.org 70 i+ Err bitreich.org 70 i+static char *argv0; Err bitreich.org 70 i+ Err bitreich.org 70 i+#define FLAG(x) (flag[(x)-'a']) Err bitreich.org 70 i+ Err bitreich.org 70 i+static void test(const char *, const char *); Err bitreich.org 70 i+static void usage(void); Err bitreich.org 70 i+ Err bitreich.org 70 i+static int match = 0; Err bitreich.org 70 i+static int flag[26]; Err bitreich.org 70 i+static struct stat old, new; Err bitreich.org 70 i+ Err bitreich.org 70 i+static void Err bitreich.org 70 i+test(const char *path, const char *name) Err bitreich.org 70 i+{ Err bitreich.org 70 i+ struct stat st, ln; Err bitreich.org 70 i+ Err bitreich.org 70 i+ if ((!stat(path, &st) && (FLAG('a') || name[0] != '.') /* hidden files */ Err bitreich.org 70 i+ && (!FLAG('b') || S_ISBLK(st.st_mode)) /* block special */ Err bitreich.org 70 i+ && (!FLAG('c') || S_ISCHR(st.st_mode)) /* character special */ Err bitreich.org 70 i+ && (!FLAG('d') || S_ISDIR(st.st_mode)) /* directory */ Err bitreich.org 70 i+ && (!FLAG('e') || access(path, F_OK) == 0) /* exists */ Err bitreich.org 70 i+ && (!FLAG('f') || S_ISREG(st.st_mode)) /* regular file */ Err bitreich.org 70 i+ && (!FLAG('g') || st.st_mode & S_ISGID) /* set-group-id flag */ Err bitreich.org 70 i+ && (!FLAG('h') || (!lstat(path, &ln) && S_ISLNK(ln.st_mode))) /* symbolic link */ Err bitreich.org 70 i+ && (!FLAG('n') || st.st_mtime > new.st_mtime) /* newer than file */ Err bitreich.org 70 i+ && (!FLAG('o') || st.st_mtime < old.st_mtime) /* older than file */ Err bitreich.org 70 i+ && (!FLAG('p') || S_ISFIFO(st.st_mode)) /* named pipe */ Err bitreich.org 70 i+ && (!FLAG('r') || access(path, R_OK) == 0) /* readable */ Err bitreich.org 70 i+ && (!FLAG('s') || st.st_size > 0) /* not empty */ Err bitreich.org 70 i+ && (!FLAG('u') || st.st_mode & S_ISUID) /* set-user-id flag */ Err bitreich.org 70 i+ && (!FLAG('w') || access(path, W_OK) == 0) /* writable */ Err bitreich.org 70 i+ && (!FLAG('x') || access(path, X_OK) == 0)) != FLAG('v')) { /* executable */ Err bitreich.org 70 i+ if (FLAG('q')) Err bitreich.org 70 i+ exit(0); Err bitreich.org 70 i+ match = 1; Err bitreich.org 70 i+ puts(name); Err bitreich.org 70 i+ } Err bitreich.org 70 i+} Err bitreich.org 70 i+ Err bitreich.org 70 i+static void Err bitreich.org 70 i+usage(void) Err bitreich.org 70 i+{ Err bitreich.org 70 i+ fprintf(stderr, "usage: %s [-abcdefghlpqrsuvwx] " Err bitreich.org 70 i+ "[-n file] [-o file] [file...]\n", argv0); Err bitreich.org 70 i+ exit(2); /* like test(1) return > 1 on error */ Err bitreich.org 70 i+} Err bitreich.org 70 i+ Err bitreich.org 70 i+int Err bitreich.org 70 i+main(int argc, char *argv[]) Err bitreich.org 70 i+{ Err bitreich.org 70 i+ struct dirent *d; Err bitreich.org 70 i+ char path[PATH_MAX], *line = NULL, *file; Err bitreich.org 70 i+ size_t linesiz = 0; Err bitreich.org 70 i+ ssize_t n; Err bitreich.org 70 i+ DIR *dir; Err bitreich.org 70 i+ int r; Err bitreich.org 70 i+ Err bitreich.org 70 i+ for ( Err bitreich.org 70 i+ argv0 = *argv, argv++, argc--; Err bitreich.org 70 i+ argv[0] && argv[0][0] == '-' && argv[0][1]; Err bitreich.org 70 i+ argv++, argc-- Err bitreich.org 70 i+ ) { Err bitreich.org 70 i+ int brk = 0; Err bitreich.org 70 i+ Err bitreich.org 70 i+ if (argv[0][1] == '-' && argv[0][2] == '\0') { Err bitreich.org 70 i+ argv++, argc--; Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ } Err bitreich.org 70 i+ Err bitreich.org 70 i+ for (argv[0]++; !brk && argv[0][0]; argv[0]++) { Err bitreich.org 70 i+ char f = argv[0][1]; Err bitreich.org 70 i+ Err bitreich.org 70 i+ switch (f) { Err bitreich.org 70 i+ Err bitreich.org 70 i+ case 'n': /* newer than file */ Err bitreich.org 70 i+ case 'o': /* older than file */ Err bitreich.org 70 i+ if (argv[0][1] == '\0' && argv[1] == NULL) Err bitreich.org 70 i+ usage(); Err bitreich.org 70 i+ Err bitreich.org 70 i+ file = (brk = 1, (argv[0][1] != '\0') ? Err bitreich.org 70 i+ (&argv[0][1]) : (argc--, argv++, argv[0])); Err bitreich.org 70 i+ Err bitreich.org 70 i+ if (!(FLAG(f) = !stat(file, (f == 'n' ? &new : &old)))) Err bitreich.org 70 i+ perror(file); Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ default: Err bitreich.org 70 i+ /* miscellaneous operators */ Err bitreich.org 70 i+ if (strchr("abcdefghlpqrsuvwx", f)) Err bitreich.org 70 i+ FLAG(f) = 1; Err bitreich.org 70 i+ else Err bitreich.org 70 i+ usage(); /* unknown flag */ Err bitreich.org 70 i+ } Err bitreich.org 70 i+ } Err bitreich.org 70 i+ } Err bitreich.org 70 i+ Err bitreich.org 70 i+ if (!argc) { Err bitreich.org 70 i+ /* read list from stdin */ Err bitreich.org 70 i+ while ((n = getline(&line, &linesiz, stdin)) > 0) { Err bitreich.org 70 i+ if (n && line[n - 1] == '\n') Err bitreich.org 70 i+ line[n - 1] = '\0'; Err bitreich.org 70 i+ test(line, line); Err bitreich.org 70 i+ } Err bitreich.org 70 i+ free(line); Err bitreich.org 70 i+ } else { Err bitreich.org 70 i+ for (; argc; argc--, argv++) { Err bitreich.org 70 i+ if (FLAG('l') && (dir = opendir(*argv))) { Err bitreich.org 70 i+ /* test directory contents */ Err bitreich.org 70 i+ while ((d = readdir(dir))) { Err bitreich.org 70 i+ r = snprintf(path, sizeof path, "%s/%s", Err bitreich.org 70 i+ *argv, d->d_name); Err bitreich.org 70 i+ if (r >= 0 && (size_t)r < sizeof path) Err bitreich.org 70 i+ test(path, d->d_name); Err bitreich.org 70 i+ } Err bitreich.org 70 i+ closedir(dir); Err bitreich.org 70 i+ } else { Err bitreich.org 70 i+ test(*argv, *argv); Err bitreich.org 70 i+ } Err bitreich.org 70 i+ } Err bitreich.org 70 i+ } Err bitreich.org 70 i+ return match ? 0 : 1; Err bitreich.org 70 i+} Err bitreich.org 70 .