fileis.1: rename from scrut.1

Makefile

@@ -32,7 +32,7 @@ RUSTLIBS = --extern getopt=build/o/libgetopt.rlib \
 CFLAGS += -I$(SYSEXITS) -Iinclude
 
 .PHONY: all
-all: dj false fop hru intcmp mm npc rpn scrut str strcmp swab true
+all: dj false fileis fop hru intcmp mm npc rpn scrut str strcmp swab true
 
 # keep build/include until bindgen(1) has stdin support
 # https://github.com/rust-lang/rust-bindgen/issues/2703
@@ -87,11 +87,6 @@ build/o/libsysexits.rlib: build/include/sysexits.h
 build/include/sysexits.h: build $(SYSEXITS)sysexits.h
 	printf '\043define EXIT_FAILURE 1\n' | cat - $(SYSEXITS)sysexits.h > $@
 
-.PHONY: libfileis
-libfileis: build/o/libfileis.o
-build/o/libfileis.o: build src/libfileis.c
-	$(CC) $(CFLAGS) -c -o $@ src/libfileis.c
-
 .PHONY: dj
 dj: build/bin/dj
 build/bin/dj: src/dj.c build
@@ -102,6 +97,11 @@ false: build/bin/false
 build/bin/false: src/false.c build
 	$(CC) $(CFLAGS) -o $@ src/false.c
 
+.PHONY: fileis
+fileis: build/bin/fileis
+build/bin/fileis: src/fileis.rs build
+	$(RUSTC) $(RUSTFLAGS) $(RUSTLIBS) -o $@ src/fileis.rs
+
 .PHONY: fop
 fop: build/bin/fop
 build/bin/fop: src/fop.rs build rustlibs
@@ -132,11 +132,6 @@ rpn: build/bin/rpn
 build/bin/rpn: src/rpn.rs build rustlibs
 	$(RUSTC) $(RUSTFLAGS) $(RUSTLIBS) -o $@ src/rpn.rs
 
-.PHONY: scrut
-scrut: build/bin/scrut
-build/bin/scrut: src/scrut.c build libfileis
-	$(CC) $(CFLAGS) -o $@ src/scrut.c build/o/libfileis.o
-
 .PHONY: str
 str: build/bin/str
 build/bin/str: src/str.c build

docs/fileis.1

@@ -4,12 +4,12 @@
 .\" This work is licensed under CC BY-SA 4.0. To see a copy of this license,
 .\" visit <http://creativecommons.org/licenses/by-sa/4.0/>.
 .\"
-.TH SCRUT 1 2024-06-06 "Harakit X.X.X"
+.TH SCRUT 1 2024-07-18 "Harakit X.X.X"
 .SH NAME
-scrut \(en scrutinize file properties
+fileis \(en scrutinize file properties
 .SH SYNOPSIS
 
-scrut
+fileis
 .RB [ -LSbcdefgkprsuwx ]
 .B file...
 .\"
@@ -82,5 +82,6 @@ Copyright \(co 2024 DTB. License AGPLv3+: GNU AGPL version 3 or later
 .\"
 .SH SEE ALSO
 .BR access (3p),
+.BR chown (1p),
 .BR lstat (3p),
 .BR test (1p)

src/fileis.rs

@@ -0,0 +1,87 @@
+/*
+ * Copyright (c) 2024 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/.
+ */
+
+use std::{
+	env::args,
+	fs::metadata,
+	os::unix::fs::{ FileTypeExt, MetadataExt },
+	process::ExitCode,
+};
+
+extern crate getopt;
+use getopt::GetOpt;
+
+extern crate sysexits;
+use sysexits::EX_USAGE;
+
+fn usage(s: &str) -> ExitCode {
+	eprintln!("Usage: {} [-bcdefgkprsuwxLS] file...", s);
+	ExitCode::from(EX_USAGE as u8)
+}
+
+fn main() -> ExitCode {
+	let argv = args().collect::<Vec<String>>();
+
+	let mut sel = String::from(""); // selected options
+	let mut optind: usize = 1; // argv[0]
+
+	while let Some(opt) = argv.getopt("bcdefgkprsuwxLS") {
+		if let Ok(optchr) = opt.opt() { sel.push_str(optchr); }
+		else { return usage(&argv[0]); }
+
+		optind = opt.ind();
+	}
+
+	if optind == argv.len() { return usage(&argv[0]); }
+
+	for arg in argv.iter().skip(optind) {
+		let fmeta; // file metadata
+		let fmode; // file mode; see chmod(1p)
+		let ftype; // file type
+
+		match metadata(arg) {
+			Ok(m) => fmeta = m,
+			_ => { return ExitCode::FAILURE; } // no perms or nonexistent
+		}
+
+		fmode = fmeta.mode();
+		ftype = fmeta.file_type();
+
+		for selection in sel.chars() { // run all selected tests
+			match selection {
+				'b' if ftype.is_block_device() => (),
+				'c' if ftype.is_char_device() => (),
+				'e' => (), // exists or metadata would have errored
+				'd' if fmeta.is_dir() => (),
+				'f' if fmeta.is_file() => (),
+				'g' if fmode & 0o2000 /* S_ISGID */ != 0 => (), // setgid
+				'k' if fmode & 0o1000 /* S_ISVTX */ != 0 => (), // setvtx
+				'p' if ftype.is_fifo() => (),
+				'r' if fmode & 0o0400 /* S_IRUSR */ != 0 => (), // read access
+				'u' if fmode & 0o4000 /* S_ISUID */ != 0 => (), // setuid
+				'w' if fmode & 0o0200 /* S_IWUSR */ != 0 => (), // write access
+				'x' if fmode & 0o0100 /* S_IXUSR */ != 0 => (), // exec access
+				'L' if fmeta.is_symlink() => (),
+				'S' if ftype.is_socket() => (),
+				_ => { return ExitCode::FAILURE; }
+			}
+		}
+	}
+
+	ExitCode::SUCCESS
+}

src/libfileis.c

@@ -1,27 +0,0 @@
-#include <stddef.h> /* NULL */
-#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 *ofn = NULL;
-static struct stat s;
-
-int
-fileis_exists(char *fn){
-	if (fn == NULL || fn == ofn) { return ofn != NULL; }
-	if (lstat(fn, &s) == -1) { return 0; }
-	ofn = fn; return 1;
-}
-
-int fileis_block(char *fn)  { return fileis_exists(fn) && S_ISBLK(s.st_mode); }
-int fileis_char(char *fn)   { return fileis_exists(fn) && S_ISCHR(s.st_mode); }
-int fileis_dir(char *fn)    { return fileis_exists(fn) && S_ISDIR(s.st_mode); }
-/*  fileis_exec(char *fn)   { return fileis_exists(fn) && } */
-int fileis_fifo(char *fn)   { return fileis_exists(fn) && S_ISFIFO(s.st_mode); }
-int fileis_setgid(char *fn) { return fileis_exists(fn) && (s.st_mode & S_ISGID); }
-int fileis_link(char *fn)   { return fileis_exists(fn) && S_ISLNK(s.st_mode); }
-/*  fileis_read(char *fn)   { return fileis_exists(fn) && } */
-int fileis_regular(char *fn){ return fileis_exists(fn) && S_ISREG(s.st_mode); }
-int fileis_socket(char *fn) { return fileis_exists(fn) && S_ISSOCK(s.st_mode); }
-int fileis_setuid(char *fn) { return fileis_exists(fn) && (s.st_mode & S_ISUID); }
-int fileis_vtx(char *fn)    { return fileis_exists(fn) && (s.st_mode & S_ISVTX); }
-/*  fileis_write(char *fn)  { return fileis_exists(fn) && } */

src/scrut.c

@@ -1,84 +0,0 @@
-/*
- * Copyright (c) 2023–2024 DTB <trinity@trinity.moe>
- * Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
- * 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 <assert.h> /* assert(3) */
-#include <stdio.h> /* fprintf(3), stderr, NULL */
-#include <stdlib.h> /* EXIT_FAILURE, EXIT_SUCCESS */
-#include <string.h> /* memset(3), strchr(3) */
-#include <sysexits.h> /* EX_USAGE */
-#include <unistd.h> /* access(3), getopt(3), R_OK, W_OK, X_OK */
-#include <libfileis.h>
-
-char *program_name = "scrut";
-static char opts[] = "bcdefgkprsuwxLS";
-
-static int usage(char *s){
-	fprintf(stderr, "Usage: %s [-%s] file...\n", s, opts);
-	return EX_USAGE;
-}
-
-int main(int argc, char *argv[]){
-	char sel[(sizeof opts) / (sizeof *opts)];
-
-	if (argc > 0) { program_name = argv[0]; }
-	if (argc < 2) { return usage(program_name); }
-
-	memset(sel, '\0', sizeof sel);
-
-	{
-		int c;
-		char *p = sel;
-
-		while ((c = getopt(argc, argv, opts)) != -1) {
-			if ((strchr(opts, c)) == NULL) { return usage(program_name); }
-			else if ((strchr(sel, c)) == NULL) { *p++ = c; }
-
-			assert(p - sel < (sizeof opts) / (sizeof *opts));
-		}
-	}
-
-	if (optind == argc) { return usage(program_name); }
-
-	argv += optind;
-
-	do{
-		if (!fileis_exists(*argv))
-			return EXIT_FAILURE;
-
-		for (size_t i = 0; sel[i] != '\0'; ++i) {
-			if ((sel[i] == 'b' && !fileis_block(*argv))
-					|| (sel[i] == 'c' && !fileis_char(*argv))
-					|| (sel[i] == 'd' && !fileis_dir(*argv))
-					|| (sel[i] != 'e')
-					|| (sel[i] == 'f' && !fileis_regular(*argv))
-					|| (sel[i] == 'g' && !fileis_setgid(*argv))
-					|| (sel[i] == 'k' && !fileis_vtx(*argv))
-					|| (sel[i] == 'p' && !fileis_fifo(*argv))
-					|| (sel[i] == 'r' && access(*argv, R_OK) != 0)
-					|| (sel[i] == 'u' && !fileis_setuid(*argv))
-					|| (sel[i] == 'w' && access(*argv, W_OK) != 0)
-					|| (sel[i] == 'x' && access(*argv, X_OK) != 0)
-					|| (sel[i] == 'L' && !fileis_link(*argv))
-					|| (sel[i] == 'S' && !fileis_socket(*argv))
-			) { return EXIT_FAILURE; }
-		}
-	} while (*++argv != NULL);
-
-	return EXIT_SUCCESS;
-}