intcmp(1): new tool; npc(1): new tool; scrut(1): new tool; str(1): new tool; strcmp(1): new tool; tests: added POSIX compatibility test and C compiler compatibility test; Makefile: converted to GNUmakefile; README: added README; docs: added docs

2023-12-24 17:13:17 -07:00
parent b1f6caaf41
commit ef1416cd42
25 changed files with 997 additions and 487 deletions
--- a/src/scrut.c
+++ b/src/scrut.c
@@ -0,0 +1,98 @@
+/*
+ * Copyright (c) 2023 DTB <trinity@trinity.moe>
+ * SPDX-License-Identifier: AGPL-3.0-or-later
+ *
+ * This program is free software: you can redistribute it and/or modify it under
+ * the terms of the GNU Affero General Public License as published by the Free
+ * Software Foundation, either version 3 of the License, or (at your option) any
+ * later version.
+ * 
+ * This program is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ * FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+ * details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program. If not, see https://www.gnu.org/licenses/.
+ */
+
+#include <stdio.h> /* fprintf(3), stderr, NULL */
+#include <string.h> /* strchr(3) */
+#ifndef EX_USAGE
+#	include <sysexits.h>
+#endif
+#include <unistd.h> /* access(3), getopt(3), F_OK, R_OK, W_OK, X_OK */
+#include <sys/stat.h> /* lstat(3), stat struct, S_ISBLK, S_ISCHR, S_ISDIR,
+                       * S_ISFIFO, S_ISGID, S_ISREG, S_ISLNK, S_ISSOCK,
+                       * S_ISUID, S_ISVTX */
+
+static char args[] = "bcdefghkprsuwxLS";
+static char ops[(sizeof args) / (sizeof *args)];
+static char *program_name = "scrut";
+
+int main(int argc, char *argv[]){
+	struct stat buf;
+	int c;
+	size_t i;
+
+	if(argc < 2)
+		goto usage;
+
+	i = 0;
+	while((c = getopt(argc, argv, args)) != -1)
+		if(strchr(args, c) == NULL)
+			goto usage;
+		else
+			ops[i++] = c;
+	ops[i] = '\0';
+
+	if(optind == argc)
+		goto usage;
+
+	argv += optind;
+	do{	if(access(*argv, F_OK) != 0 || lstat(*argv, &buf) == -1)
+			return 1; /* doesn't exist or isn't stattable */
+
+		for(i = 0; ops[i] != '\0'; ++i)
+			if(ops[i] == 'e')
+				continue;
+			else if(ops[i] == 'h'){
+usage:				fprintf(stderr, "Usage: %s (-%s) [file...]\n",
+					argv[0] == NULL
+						? program_name
+						: argv[0],
+					args);
+
+				return EX_USAGE;
+			}else if(
+					(ops[i] == 'b'
+						&& !S_ISBLK(buf.st_mode))
+					|| (ops[i] == 'c'
+						&& !S_ISCHR(buf.st_mode))
+					|| (ops[i] == 'd'
+						&& !S_ISDIR(buf.st_mode))
+					|| (ops[i] == 'f'
+						&& !S_ISREG(buf.st_mode))
+					|| (ops[i] == 'g'
+						&& !(buf.st_mode & S_ISGID))
+					|| (ops[i] == 'k'
+						&& !(buf.st_mode & S_ISVTX))
+					|| (ops[i] == 'p'
+						&& !S_ISFIFO(buf.st_mode))
+					|| (ops[i] == 'r'
+						&& access(*argv, R_OK) != 0)
+					|| (ops[i] == 'u'
+						&& !(buf.st_mode & S_ISUID))
+					|| (ops[i] == 'w'
+						&& access(*argv, W_OK) != 0)
+					|| (ops[i] == 'x'
+						&& access(*argv, X_OK) != 0)
+					|| (ops[i] == 'L'
+						&& !S_ISLNK(buf.st_mode))
+					|| (ops[i] == 'S'
+						&& !S_ISSOCK(buf.st_mode)))
+				return 1;
+	}while(*++argv != NULL);
+
+	return 0;
+}