tests: bonsai/fop.mk: fixes record separators

CONTRIBUTING

@@ -99,9 +99,10 @@ their editor or terminal.
 
 For usage text and help messages, do not implement a -h option. Instead, print
 usage information when any erroneous option is specified. Follow the NetBSD
-style guide for the usage text’s output format [1].
+style guide for the usage text’s output format [0].
 
-[1] <http://cvsweb.netbsd.org/bsdweb.cgi/~checkout~/src/share/misc/style>
+If committing a new utility, please include tests and documentation (see
+tests/ and docs/) for the new tool.
 
 If committing a new source file, format the commit message following these
 guidelines:
@@ -130,6 +131,7 @@ $ git commit -m 'tool(1): fix #42 & add feature x'
 
 Commit messages should be written in the present tense.
 
+[0] <http://cvsweb.netbsd.org/bsdweb.cgi/~checkout~/src/share/misc/style>
 --
 This work © 2023–2024 by Emma Tebibyte is licensed under CC BY-SA 4.0. To view a
 copy of this license, visit <http://creativecommons.org/licenses/by-sa/4.0/>

Makefile

@@ -31,6 +31,13 @@ RUSTLIBS = --extern getopt=build/o/libgetopt.rlib \
 	--extern strerror=build/o/libstrerror.rlib
 CFLAGS += -I$(SYSEXITS)
 
+# testing requires the absolute path to the bin directory set
+BIN = build/bin
+include tests/tests.mk
+
+.PHONY: default
+default: all test
+
 .PHONY: all
 all: dj false fop hru intcmp mm npc rpn scrut str strcmp swab true
 
@@ -53,9 +60,9 @@ install: dist
 	cp -r $(DESTDIR)/* /
 
 .PHONY: test
-test: build /tmp/getopt
+test: all $(TESTS) /tmp/getopt
+	@echo $(TESTS)
 	/tmp/getopt
-	tests/posix-compat.sh
 
 /tmp/getopt: src/libgetopt.rs
 	$(RUSTC) --test -o /tmp/getopt src/libgetopt.rs
@@ -109,13 +116,13 @@ build/bin/hru: src/hru.rs build rustlibs
 
 .PHONY: intcmp
 intcmp: build/bin/intcmp
-build/bin/intcmp: src/intcmp.rs build rustlibs
-	$(RUSTC) $(RUSTFLAGS) $(RUSTLIBS) -o $@ src/intcmp.rs
+build/bin/intcmp: src/intcmp.c build
+	$(CC) $(CFLAGS) -o $@ src/intcmp.c
 
 .PHONY: mm
 mm: build/bin/mm
-build/bin/mm: src/mm.rs build rustlibs 
-	$(RUSTC) $(RUSTFLAGS) $(RUSTLIBS) -o $@ src/mm.rs
+build/bin/mm: src/mm.c build
+	$(CC) $(CFLAGS) -o $@ src/mm.c
 
 .PHONY: npc
 npc: build/bin/npc

STYLE

@@ -1,124 +0,0 @@
-The following guidelines are conducive to clear and readable code that is
-consistent with the style of the rest of the Bonsai Computer System.
-
-0. Braces are mandatory for all control flow.
-
-1. Nested indentation should be kept to a minimum.
-
-2. Empty lines should be placed between different kinds of statements:
-
-	int t;
-
-	assert(io->bufuse > 0);
-	assert(io->bufuse <= io->bs);
-
-	if ((t = write(io->fd, io->buf, io->bufuse)) < 0) {
-		io->error = errno;
-		t = 0;
-	} else if (t > 0) {
-		memmove(io->buf, &(io->buf)[t], (io->bufuse -= t));
-	}
-
-	io->bytes += t;
-	io->prec  += (t > 0 && io->bufuse > 0);
-	io->rec   += (t > 0 && io->bufuse == 0);
-
-	return io;
-
-3. Each block of code should be indented once more than the keyword which
-initiated the block:
-
-	switch (c) {
-		case 'e': mode |= EQUAL;   break;
-		case 'g': mode |= GREATER; break;
-		case 'l': mode |= LESS;    break;
-		default:  return usage(s);
-	}
-
-4. In C, spaces should be placed in control flow statements after the keyword
-and before the opening brace:
-
-	for (i = 2; i < argc; ++i) {
-
-5. If a function, a C control flow statement, or a Rust macro has arguments that
-cause the statement to be broken into multiple lines, this should be done by
-placing the arguments on a new line inside the parentheses: 
-
-	let usage = format!(
-		"Usage: {} [-d delimiter] index command [args...]",
-		argv[0],
-	);
-
-6. If Rust function arguments or fields are on their own lines, they should
-always have a trailing comma:
-
-	return Err(EvaluationError {
-		message: format!("{}: Invalid token", i),
-		code: EX_DATAERR,
-	})
-
-7. If text is on the same line as a brace, spaces should be placed after an
-opening curly brace and before a closing one:
-
-	use sysexits::{ EX_DATAERR, EX_IOERR, EX_UNAVAILABLE, EX_USAGE };
-
-8. If a control flow statement is short enough to be easily understood in a
-glance, it may be placed on a single line:
-
-	if !(argc < 0) { usage(program_name); }
-
-9. In C, note everything you use from a library in a comment subsequent to its
-#include statement:
-
-	#include <unistd.h> /* close(2), getopt(3), lseek(2), read(2), write(2),
-                         * optarg, optind, STDIN_FILENO, STDOUT_FILENO */
-
-10. In Rust, place extern statements after use statements that include standard
-library crates. Group alike statements:
-
-	use std::fs::Path;
-
-	extern crate strerror;
-	extern crate sysexits;
-
-	use strerror::StrError;
-	use sysexits::{ EX_OSERR, EX_USAGE };
-
-11. Do not use do while loops in C.
-
-12. Adhere to the following rules from the paper The Power of 10: Rules for
-Developing Safety-Critical Code [0]:
-	1. Avoid complex flow constructs, such as goto and recursion.
-	2. All loops must have fixed bounds. This prevents runaway code.
-	3. Avoid heap memory allocation.
-	4. Restrict functions to the length of a single printed page.
-
-	6. Restrict the scope of data to the smallest possible.
-	7. Check the return value of all non-void functions, or cast to void to
-	indicate the return value is useless (such as in the case of using
-	fprintf(3p)	to print to the standard error).
-	8. Use the preprocessor sparingly.
-	9. Limit pointer use to a single dereference, and do not use function
-	pointers.
-	10. Compile with all possible warnings active; all warnings should then be
-	addressed before release of the software (for C compilers, compile with
-	-Wpedantic).
-
-13. Remember this quote from The Elements of Programming Style by Brian
-Kernighan:
-	Everyone knows that debugging is twice as hard as writing a program in the
-	first place. So if you're as clever as you can be when you write it, how
-	will you ever debug it?
-
-
-References
-==========
-
-[0] <https://web.eecs.umich.edu/~imarkov/10rules.pdf>
-
---
-Copyright © 2024 Emma Tebibyte <emma@tebibyte.media>
-Copyright © Wikipedia contributors
-
-This work is licensed under CC BY-SA 4.0. To view a copy of this license, visit
-<http://creativecommons.org/licenses/by-sa/4.0/>.

docs/dj.1

@@ -4,7 +4,7 @@
 .\" 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 DJ 1 2024-07-14 "Harakit X.X.X"
+.TH DJ 1 2024-07-03 "Harakit X.X.X"
 .SH NAME
 dj \(en disk jockey
 .\"
@@ -56,9 +56,9 @@ bytes read to this point are discarded.
 .IP \fB-o\fP
 Takes a file path as an argument and opens it for use as an output.
 .IP \fB-B\fP\ \fIblock_size\fP
-Takes a numeric argument as the size in bytes of the output buffer, the default
-being 1024. Note that this option only affects the size of output writes and not
-the amount of output data itself. See the CAVEATS section.
+Does the same as
+.B -b
+but for the output buffer.
 .IP \fB-S\fP
 Takes a numeric argument as the index of the byte at which writing will
 commence; \(lqseeks\(rq that number of bytes. If the standard output is used,
@@ -68,8 +68,8 @@ Accepts a single literal byte with which the input buffer is padded in the event
 of an incomplete read from the input file. If the option argument is empty, the
 null byte is used.
 .IP \fB-c\fP
-Specifies a number of blocks to read. The default is 0, in which case the input
-is read until a partial or empty read is made.
+Specifies a number of reads to make. The default is 0, in which case the
+input is read until a partial or empty read is made.
 .IP \fB-H\fP
 Prints diagnostic messages in a human-readable manner as described in the
 DIAGNOSTICS section.
@@ -181,22 +181,15 @@ option is specified, this could make written data nonsensical.
 
 Existing files are not truncated on ouput and are instead overwritten.
 
-Option variants that have lowercase and uppercase forms could be confused for
-each other. The former affects input and the latter affects output.
-
-The
-.B -B
-option could be mistaken for the count in bytes of data written to the output.
-This conception is intuitive but incorrect, as the
-.B -c
-option controls the number of blocks to read and the
+The options
 .B -b
-option sets the size of the blocks. The
+and
 .B -B
-option is similar to the latter but sets the size of blocks to be written,
-regardless of the amount of data that will actually be written. In practice,
-this means the input buffer should be very large to make use of modern hardware
-input and output speeds.
+could be confused for each other, and so could
+.B -s
+and
+.BR -S .
+The lowercase option affects input and the capitalized option affects output.
 
 The skipped or sought bytes while processing irregular files, such as streams,
 are reported in the diagnostic output, because they were actually read or
@@ -223,4 +216,3 @@ Copyright \(co 2023 DTB. License AGPLv3+: GNU AGPL version 3 or later
 .SH SEE ALSO
 .BR dd (1p)
 .BR lseek (3p)
-.BR mm (1)

docs/mm.1

@@ -3,14 +3,14 @@
 .\" 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 MM 1 2024-07-14 "Harakit X.X.X"
+.TH MM 1 2024-06-17 "Harakit X.X.X"
 .SH NAME
 mm \(en middleman
 .\"
 .SH SYNOPSIS
 
 mm
-.RB [ -aetu ]
+.RB [ -aenu ]
 .RB [ -i\ input ]
 .RB [ -o\ output ]
 .\"
@@ -21,25 +21,19 @@ Catenate input files and write them to the start of each output file or stream.
 .SH OPTIONS
 
 .IP \fB-a\fP
-Opens outputs for appending rather than updating.
+Opens subsequent outputs for appending rather than updating.
 .IP \fB-e\fP
 Use the standard error as an output.
-.IP \fB-t\fP
-Causes outputs to be overwritten instead of being truncated.
-.IP \fB-u\fP
-Ensures neither input or output will be buffered.
 .IP \fB-i\fP\ \fIinput\fP
 Opens a path as an input. If one or more of the input files is \(lq-\(rq or if
-no inputs are specified, the standard input shall be used. If specified as the
-last option and if there are trailing arguments to the program, they shall be
-appended to the list of files to use as inputs.
+no inputs are specified, the standard input shall be used.
 .IP \fB-o\fP\ \fIoutput\fP
 Opens a path as an output. If one or more of the output files is \(lq-\(rq or if
-no outputs are specified and the
-.B -e
-option is not specified, the standard output shall be used. If specified as the
-last option and if there are trailing arguments to the program, they shall be
-appended to the list of files to use as outputs.
+no outputs are specified, the standard output shall be used.
+.IP \fB-u\fP
+Ensures neither input or output will be buffered.
+.IP \fB-n\fP
+Causes SIGINT signals to be ignored.
 .\"
 .SH DIAGNOSTICS
 
@@ -51,6 +45,10 @@ exits with the appropriate
 .BR sysexits.h (3)
 status.
 .\"
+.SH CAVEATS
+
+Existing files are not truncated on ouput and are instead overwritten.
+.\"
 .SH RATIONALE
 
 The

docs/strcmp.1

@@ -4,7 +4,7 @@
 .\" 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 STRCMP 1 2024-07-15 "Harakit X.X.X"
+.TH STRCMP 1 2024-06-17 "Harakit X.X.X"
 .SH NAME
 strcmp \(en compare strings
 .\"
@@ -20,15 +20,15 @@ Check whether string arguments are the same.
 .SH DIAGNOSTICS
 
 The program will exit successfully if the strings are identical. Otherwise, it
-will exit with an error code less than 128 if a string passed has a lesser byte
-value than one of the prior strings:
+will exit with an error code of 1 if a string passed has a lesser byte value
+than one of the prior strings:
 
 .RS
 strcmp b a
 .RE
 
-or with an error code greater than 128 if it has a greater byte value than one
-of the prior strings:
+or with an error code of 255 if it has a greater byte value than one of the
+prior strings:
 
 .RS
 strcmp a b

docs/swab.1

@@ -11,6 +11,7 @@ swab \(en swap bytes
 .SH SYNOPSIS
 
 swab
+.RB [ -f ]
 .RB [ -w\ word_size ]
 .\"
 .SH DESCRIPTION
@@ -19,6 +20,8 @@ Swap the latter and former halves of a block of bytes.
 .\"
 .SH OPTIONS
 
+.IP \fB-f\fP
+Ignore SIGINT signal.
 .IP \fB-w\fP\ \fIword_size\fP
 Configures the word size; that is, the size in bytes of the block size on which
 to operate. The default word size is 2. The word size must be cleanly divisible

src/dj.c

@@ -1,6 +1,5 @@
 /*
  * Copyright (c) 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
@@ -20,23 +19,26 @@
 #include <assert.h> /* assert(3) */
 #include <errno.h> /* errno */
 #include <fcntl.h> /* open(2) */
-#include <stdbool.h> /* bool */
 #include <stdio.h> /* fprintf(3), stderr */
 #include <stdlib.h> /* malloc(3), strtol(3), size_t */
 #include <string.h> /* memcpy(3), memmove(3), memset(3) */
-#include <sysexits.h> /* EX_OK, EX_OSERR, EX_USAGE */
+#if !defined EX_OK || !defined EX_OSERR || !defined EX_USAGE
+#	include <sysexits.h>
+#endif
 #include <unistd.h> /* close(2), getopt(3), lseek(2), read(2), write(2),
                      * optarg, optind, STDIN_FILENO, STDOUT_FILENO */
-#include <sys/stat.h> /* S_IRGRP, S_IROTH, S_IRUSR, S_IWGRP, S_IWOTH, S_IWUSR */
+#include <sys/stat.h> /* S_IRGRP, S_IROTH, S_IRUSR, S_IWGRP, S_IWOTH,
+                         S_IWUSR */
+extern int errno;
 
 char *program_name = "dj";
 
 /* dj uses two structures that respectively correspond to the reading and
  * writing ends of its jockeyed "pipe". User-configurable members are noted
  * with their relevant options. */
-struct Io {
-	char *buf;      /* buffer */
-	char *fn;       /* file name (-io) */
+struct Io{
+	char *buf;	  	/* buffer */
+	char *fn;	  	/* file name (-io) */
 	size_t bs;    	/* buffer size (-bB) */
 	size_t bufuse;	/* buffer usage */
 	size_t bytes; 	/* bytes processed */
@@ -44,10 +46,14 @@ struct Io {
 	size_t rec;   	/* records processed */
 	long seek;  	/* remaining bytes to seek/skip (-sS) */
 	int error;  	/* errno */
-	int fd;         /* file descriptor */
-	int fl;         /* file opening flags */
+	int fd;		  	/* file descriptor */
+	int fl;		  	/* file opening flags */
 };
 
+/* To be assigned to main:fmt and used with printio(). */
+static char *fmt_asv   = "%d\037%d\036%d\037%d\035%d\036%d\034";
+static char *fmt_human = "%d+%d > %d+%d; %d > %d\n";
+
 static char *stdin_name = "<stdin>";
 static char *stdout_name = "<stdout>";
 
@@ -61,15 +67,14 @@ static int write_flags = O_WRONLY | O_CREAT;
 /* Macro to check if fd is stdin or stdout */
 #define fdisstd(fd) ((fd) == STDIN_FILENO || (fd) == STDOUT_FILENO)
 
-/* Completes one Io block read */
 static struct Io *
-Io_read(struct Io *io) {
+Io_read(struct Io *io){
 	int t;
 
 	assert(io->bs > 0);
 	assert(io->bufuse < io->bs);
 
-	if ((t = read(io->fd, &(io->buf)[io->bufuse], io->bs - io->bufuse)) < 0) {
+	if((t = read(io->fd, &(io->buf)[io->bufuse], io->bs - io->bufuse)) < 0){
 		io->error = errno;
 		t = 0;
 	}
@@ -84,20 +89,18 @@ Io_read(struct Io *io) {
 	return io;
 }
 
-/* Completes one Io block write */
 static struct Io *
-Io_write(struct Io *io) {
+Io_write(struct Io *io){
 	int t;
 
 	assert(io->bufuse > 0);
 	assert(io->bufuse <= io->bs);
 
-	if ((t = write(io->fd, io->buf, io->bufuse)) < 0) {
+	if((t = write(io->fd, io->buf, io->bufuse)) < 0){
 		io->error = errno;
 		t = 0;
-	} else if (t > 0) {
-		(void)memmove(io->buf, &(io->buf)[t], (io->bufuse -= t));
-	}
+	}else if(t > 0)
+		memmove(io->buf, &(io->buf)[t], (io->bufuse -= t));
 
 	io->bytes += t;
 	io->prec  += (t > 0 && io->bufuse > 0);
@@ -107,79 +110,62 @@ Io_write(struct Io *io) {
 }
 
 static int
-oserr(char *e, int n) {
-	(void)fprintf(stderr, "%s: %s: %s\n", program_name, e, strerror(n));
-
+oserr(char *e, int n){
+	fprintf(stderr, "%s: %s: %s\n", program_name, e, strerror(n));
 	return EX_OSERR;
 }
 
 /* Prints statistics regarding the use of dj, particularly partially and
  * completely read and written records. */
-static int
-fprintio(FILE *stream, char *fmt, struct Io io[2]) {
-	return fprintf(
-		stream,
-		fmt,
-		io[0].rec,
-		io[0].prec,
-		io[1].rec,
-		io[1].prec,
-		io[0].bytes,
-		io[1].bytes
-	);
-}
+static void
+fprintio(FILE *stream, char *fmt, struct Io io[2]){
 
-/* To be assigned to main:fmt and used with printio(). */
-static char *fmt_asv =
-	"%d" /* io[0].rec   */ "\037" /* ASCII US */
-	"%d" /* io[0].prec  */ "\036" /* ASCII RS */
-	"%d" /* io[1].rec   */ "\037" /* ASCII US */
-	"%d" /* io[1].prec  */ "\035" /* ASCII GS */
-	"%d" /* io[0].bytes */ "\036" /* ASCII RS */
-	"%d" /* io[1].bytes */ "\034" /* ASCII FS */
-	"\n"
-;
-static char *fmt_human = "%d+%d > %d+%d; %d > %d\n";
+	fprintf(stream, fmt,
+		io[0].rec, io[0].prec, io[1].rec, io[1].prec,
+		io[0].bytes, io[1].bytes);
+
+	return;
+}
 
 /* Parses the string s to an integer, returning either the integer or in the
  * case of an error a negative integer. This is used for argument parsing
  * (e.g. -B [int]) in dj and no negative integer would be valid anyway. */
 static long
-parse(char *s) {
+parse(char *s){
 	long r;
 
 	errno = 0;
 	r = strtol(s, &s, 0);
-	return (*s == '\0' /* no chars left unparsed */ && errno == 0) ? r : -1;
+	return (*s == '\0' /* no chars left unparsed */ && errno == 0)
+		? r
+		: -1;
 }
 
 static int
-usage(char *argv0) {
-	(void)fprintf(
-		stderr,
-		"Usage: %s [-Hn] [-a byte] [-c count]\n"
+usage(char *s){
+
+	fprintf(stderr, "Usage: %s [-Hn] [-a byte] [-c count]\n"
 		"\t[-i file] [-b block_size] [-s offset]\n"
 		"\t[-o file] [-B block_size] [-S offset]\n",
-		argv0
-	);
+		program_name);
 
 	return EX_USAGE;
 }
 
-int main(int argc, char *argv[]) {
-   	int align;    /* low 8b used, negative if no alignment is being done */
-	int count;    /* -1 if dj(1) runs until no more reads are possible */
-	char *fmt;    /* set to fmt_asv (default) or fmt_human (-H) */
-	size_t i;     /* side of io (in or out) being modified */
-	bool retry;   /* false if exits on partial reads or writes */
+int main(int argc, char *argv[]){
+ 	int align;    /* low 8b used, negative if no alignment is being done */
+	int count;    /* 0 if dj(1) runs until no more reads are possible */
+	char *fmt;    /* == fmt_asv (default) or fmt_human (-H) */
+	size_t i;     /* side of io being modified */
+	char noerror; /* 0=exits (default) 1=retries on partial reads or writes */
 	struct Io io[2 /* { in, out } */];
 
 	/* Set defaults. */
 	align = -1;
-	count = -1;
+	count = 0;
 	fmt = fmt_asv;
-	retry = 0;
-	for (i = 0; i < (sizeof io) / (sizeof *io); ++i) {
+	noerror = 0;
+	for(i = 0; i < (sizeof io) / (sizeof *io); ++i){
 		io[i].bs = 1024 /* 1 KiB */; /* GNU dd(1) default; POSIX says 512B */
 		io[i].bufuse = 0;
 		io[i].bytes = 0;
@@ -192,228 +178,175 @@ int main(int argc, char *argv[]) {
 		io[i].seek = 0;
 	}
 
-	if (argc > 0) {
+	if(argc > 0){
 		int c;
 
 		program_name = argv[0];
-		while ((c = getopt(argc, argv, "a:b:B:c:i:hHns:S:o:")) != -1) {
-			switch (c) {
-				case 'i': case 'o': /* input, output */
-					i = (c == 'o');
+		while((c = getopt(argc, argv, ":a:b:B:c:i:hHns:S:o:")) != -1)
+			switch(c){
+			case 'i': case 'o': i = (c == 'o');
+				if(optarg[0] == '-' && optarg[1] == '\0'){ /* optarg == "-" */
+					io[i].fd = i == 0 ? STDIN_FILENO : STDOUT_FILENO;
+					io[i].fn = i == 0 ? stdin_name   : stdout_name;
+					break;
+				}else{
+					int fd;
 
-					/* optarg == "-" (stdin/stdout) */
-					if (optarg[0] == '-' && optarg[1] == '\0') { 
-						io[i].fd = i == 0 ? STDIN_FILENO : STDOUT_FILENO;
-						io[i].fn = i == 0 ? stdin_name   : stdout_name;
-						break;
-					} else {
-						int fd;
-
-						if (
-							(fd = open(optarg, io[i].fl, creat_mode)) != -1
-							&& (fdisstd(io[i].fd) || close(io[i].fd) == 0)
-						) {
-							io[i].fd = fd;
-							io[i].fn = optarg;
-							break;
-						}
-					}
-
-					return oserr(optarg, errno);
-					/* UNREACHABLE */
-				case 'n': retry = 1; break; /* retry failed reads once */
-				case 'H': fmt = fmt_human; break; /* human-readable output */
-				case 'a': /* input buffer padding */
-					if (optarg[0] == '\0' || optarg[1] == '\0') {
-						align = optarg[0];
+					if((fd = open(optarg, io[i].fl, creat_mode)) != -1
+							&& (fdisstd(io[i].fd) || close(io[i].fd) == 0)){
+						io[i].fd = fd;
+						io[i].fn = optarg;
 						break;
 					}
-					/* FALLTHROUGH */
-				case 'c': /* number of reads */
-				case 'b': case 'B': /* input/output block size */
-				case 's': case 'S': /* (s)kip/(S)eek in input/output */
-					if (c == 'c' && (count = parse(optarg)) >= 0) { break; }
-
-					i = (c >= 'A' && c <= 'Z');
-					c |= 0x20; /* 0b 0010 0000 (ASCII) make lowercase */
-
-					if ( /* if -b or -s is parsed out correctly */
-						(c == 'b' && (io[i].bs = parse(optarg)) > 0)
-						|| (c == 's' && (io[i].seek = parse(optarg)) >= 0)
-					) { break; } /* don't error */
-
-					/* FALLTHROUGH */
-				default:
-					return usage(program_name);
+				}
+				return oserr(optarg, errno);
+			case 'n': noerror = 1;     break;
+			case 'H': fmt = fmt_human; break;
+			case 'a':
+				if(optarg[0] == '\0' || optarg[1] == '\0'){
+					align = optarg[0];
+					break;
+				}
+				/* FALLTHROUGH */
+			case 'c': case 'b': case 's': case 'B': case 'S': /* numbers */
+				if(c == 'c' && (count = parse(optarg)) >= 0)
+					break;
+				i = (c >= 'A' && c <= 'Z');
+				c |= 0x20 /* 0b 0010 0000 */; /* (ASCII) make lowercase */
+				if((c == 'b' && (io[i].bs = parse(optarg)) > 0)
+						|| (c == 's' && (io[i].seek = parse(optarg)) >= 0))
+					break;
+				/* FALLTHROUGH */
+			default:
+				return usage(program_name);
 			}
-		}
 	}
 
 	assert(io->fd != STDIN_FILENO  || io->fl == read_flags);
 	assert(io->fd != STDOUT_FILENO || io->fl == write_flags);
 
-	if (argc > optind) { return usage(program_name); }
+	if(argc > optind)
+		return usage(program_name);
 
-	for (i = 0; i < (sizeof io) / (sizeof *io); ++i) {
+	for(i = 0; i < (sizeof io) / (sizeof *io); ++i){
 		/* buffer allocation */
-		if ((io[i].buf = malloc(io[i].bs * (sizeof *(io[i].buf)))) == NULL) {
-			(void)fprintf(
-				stderr, "%s: Failed to allocate %zd bytes\n",
-				program_name, io[i].bs
-			);
+		if((io[i].buf = malloc(io[i].bs * (sizeof *(io[i].buf)))) == NULL){
+			fprintf(stderr, "%s: Failed to allocate %zd bytes\n",
+				program_name, io[i].bs);
 			return EX_OSERR;
 		}
-
 		/* easy seeking */
-		if (!fdisstd(io[i].fd) && lseek(io[i].fd, io[i].seek, SEEK_SET) != -1) {
+		if(!fdisstd(io[i].fd) && lseek(io[i].fd, io[i].seek, SEEK_SET) != -1)
 			io[i].seek = 0;
-		}
 	}
 
-	assert(io[1].bufuse == 0); /* requirement for hard seeking */
-
-	/* hard seeking; t is io[1].bufuse, before Io_write subtracts from it */
-	for(size_t t; io[1].seek > 0; io[1].seek -= (t - io[1].bufuse)) {
-		(void)memset(
-			io[1].buf, '\0', /* set buf to all nulls */
-			(t = io[1].bufuse = MIN(io[1].bs, io[1].seek)) /* saturate block */
-		);
-
-		if (Io_write(&io[1])->bufuse == t && !retry && io[1].error == 0) {
-			(void)Io_write(&io[1]); /* second chance */
-		}
-
-		if (io[1].error != 0) { return oserr(io[1].fn, io[1].error); }
-
-		if (io[1].bufuse == t) { break; } /* all writes failed! */
+	/* hard seeking */
+	if(io[1].seek > 0){
+		size_t t;
+		do{
+			memset(io[1].buf, '\0',
+				(t = io[1].bufuse = MIN(io[1].bs, io[1].seek)));
+			if(Io_write(&io[1])->bufuse == t && !noerror && io[1].error == 0)
+				Io_write(&io[1]); /* second chance */
+			if(io[1].error != 0)
+				return oserr(io[1].fn, io[1].error);
+		}while((io[1].seek -= (t - io[1].bufuse)) > 0 && io[1].bufuse != t);
+		io[1].bufuse = 0;
 	}
 
-	io[1].bufuse = 0; /* reset after hard seek */
-
-	if (io[1].seek > 0) { /* hard seeking failed */
-		(void)fprintio(stderr, fmt, io);
+	if(io[1].seek > 0){
+		fprintio(stderr, fmt, io);
 		return oserr(io[1].fn, errno);
 	}
 
-	for (	;
-			count == -1 || count > 0;
-			count -= (count != -1) /* decrement if counting */
-	) {
+	do{
 		assert(io[0].bufuse == 0);
 
 		{ /* read */
-			long skipping;
+			char skipping;
 			size_t t;
 
 			/* hack to intentionally get a partial read from Io_read */
-			if ((skipping = MIN(io[0].seek, io[0].bs)) > 0) {
-				io[0].bufuse = io[0].bs - (size_t)skipping;
-			}
+			if((skipping = (io[0].seek > 0)) && io[0].seek < io[0].bs)
+				io[0].bufuse = io[0].bs - io[0].seek;
 
 			t = io[0].bufuse;
-			if (Io_read(&io[0])->bufuse == t && !retry && io[0].error == 0) {
-				(void)Io_read(&io[0]); /* second chance */
-			}
-
+			if(Io_read(&io[0])->bufuse == t && !noerror && io[0].error == 0)
+				Io_read(&io[0]); /* second chance */
 			assert(io[0].bufuse >= t);
+			if(io[0].bufuse == t) /* that's all she wrote */
+				break;
 
-			if (io[0].bufuse == t) { break; } /* that's all she wrote */
-
-			if (/* t < io[0].bufuse && */ io[0].bufuse < io[0].bs) {
-				(void)fprintf(stderr, "%s: Partial read:\n\t", program_name);
-				(void)fprintio(stderr, fmt, io);
-
-				if (!retry) { count = 1; }
-
-				if (align >= 0) {
+			if(/* t < io[0].bufuse && */ io[0].bufuse < io[0].bs){
+				fprintf(stderr, "%s: Partial read:\n\t", program_name);
+				fprintio(stderr, fmt, io);
+				if(!noerror)
+					count = 1;
+				if(align >= 0){
 					/* fill the rest of the ibuf with padding */
-					(void)memset(
-						&(io[0].buf)[io[0].bufuse],
-						align,
-						io[0].bs - io[0].bufuse
-					);
-
+					memset(&(io[0].buf)[io[0].bufuse], align,
+						io[0].bs - io[0].bufuse);
 					io->bufuse = io->bs;
 				}
 			}
 
-			if (skipping > 0) {
-				io[0].seek -= skipping;
+			if(skipping){
 				io[0].bufuse = 0;
-				count += (count != -1); /* increment if counting */
+				count += (count != 0);
 				continue;
 			}
 		}
 
-		assert(io[0].bufuse > 0);
+		/* write */
+		do{
+			int t;
 
-		while (io[0].bufuse > 0) { /* write */
-			if (io[0].bs <= io[1].bs) {
+			if(io[0].bs <= io[1].bs){
 				int n;
 
-				(void)memcpy( /* saturate obuf */
-					io[1].buf, io[0].buf,
-				   (io[1].bufuse = (n = MIN(io[0].bufuse, io[1].bs)))
-				);
-
+				/* saturate obuf */
+				memcpy(io[1].buf, io[0].buf,
+				       (io[1].bufuse = (n = MIN(io[0].bufuse, io[1].bs))));
 				/* permute the copied units out of ibuf */
-				(void)memmove(io[0].buf, &(io[0].buf)[n], (io[0].bufuse -= n));
-			} else /* if(io[0].bs > io[1].bs) */ {
+				memmove(io[0].buf, &(io[0].buf)[n], (io[0].bufuse -= n));
+			}else /* if(io[0].bs < io[1].bs) */ {
 				int n;
 
 				/* drain what we can from ibuf */
-				(void)memcpy(
-					&(io[1].buf)[io[1].bufuse], io[0].buf,
-				    (n = MIN(io[0].bufuse, io[1].bs - io[1].bufuse))
-				);
+				memcpy(&(io[1].buf)[io[1].bufuse], io[0].buf,
+				       (n = MIN(io[0].bufuse, io[1].bs - io[1].bufuse)));
 				io[1].bufuse += n;
-
 				/* permute out the copied units */
-				(void)memmove(io[0].buf, &(io[0].buf)[n], io[0].bs - n);
+				memmove(io[0].buf, &(io[0].buf)[n], io[0].bs - n);
 				io[0].bufuse -= n;
 
-				if(io[0].bs + io[1].bufuse <= io[1].bs && count != 1) {
+				if(io[0].bs + io[1].bufuse <= io[1].bs && count != 1)
 					continue; /* obuf not saturated - we could write more */
-				}
 			}
 
-			{ /* writes actually happen, or die */
-				size_t t;
+			t = io[1].bufuse;
+			if(Io_write(&io[1])->bufuse == t && !noerror && io[1].error == 0)
+				Io_write(&io[1]); /* second chance */
+			assert(io[1].bufuse <= t);
+			if(io[1].bufuse == t){ /* no more love */
+				count = 1;
+				break;
+			}
 
-				t = io[1].bufuse;
-				if (Io_write(&io[1])->bufuse == t
-						&& !retry
-						&& io[1].error == 0) {
-					(void)Io_write(&io[1]); /* second chance */
-				}
-
-				assert(io[1].error == 0 || io[1].bufuse == t);
-				/* if the Io_writes errored, bufuse wouldn't have changed, and
-				 * the error will be reported at the end of the read/write
-				 * loop */
-
-				assert(io[1].bufuse <= t);
-
-				if (io[1].bufuse == t) { /* no more love */
+			if(0 < io[1].bufuse /* && io[1].bufuse < t */){
+				fprintf(stderr, "%s: Partial write:\n\t", program_name);
+				fprintio(stderr, fmt, io);
+				if(!noerror)
 					count = 1;
-					break;
-				}
 			}
+		}while(io[0].bufuse > 0);
+	}while(count == 0 || --count > 0);
 
-			if (0 < io[1].bufuse /* && io[1].bufuse < t */) {
-				(void)fprintf(stderr, "%s: Partial write:\n\t", program_name);
-				(void)fprintio(stderr, fmt, io);
+	fprintio(stderr, fmt, io);
 
-				if(!retry) { count = 1; }
-			}
-		}
-	}
-
-	(void)fprintio(stderr, fmt, io);
-
-	for (i = 0; i < (sizeof io) / (sizeof *io); ++i) {
-		if (io[i].error) { return oserr(io[i].fn, io[i].error); }
-	}
+	for(i = 0; i < (sizeof io) / (sizeof *io); ++i)
+		if(io[i].error)
+			return oserr(io[i].fn, io[i].error);
 
 	return EX_OK;
 }

src/fop.rs

@@ -32,8 +32,8 @@ use sysexits::{ EX_DATAERR, EX_IOERR, EX_UNAVAILABLE, EX_USAGE };
 
 fn main() {
 	let argv = args().collect::<Vec<String>>();
-	let mut d = '\u{1E}'.to_string(); /* ASCII record separator */
-	let mut optind = 1;
+	let mut d = '\u{1E}'.to_string();
+	let mut index_arg = 0;
 
 	let usage = format!(
 		"Usage: {} [-d delimiter] index command [args...]",
@@ -42,62 +42,51 @@ fn main() {
 
 	while let Some(opt) = argv.getopt("d:") {
 		match opt.opt() {
-			Ok("d") => {
-				/* delimiter */
+			Ok(_) => {
+				/* unwrap because Err(OptError::MissingArg) will be returned if
+				 * opt.arg() is None */
 				d = opt.arg().unwrap();
-				optind = opt.ind();
+				index_arg = opt.ind();
 			},
-			_ => {
+			Err(_) => {
 				eprintln!("{}", usage);
 				exit(EX_USAGE);
 			}
 		};
 	}
 
-	/* parse the specified index as a number we can use */
-	let index = argv[optind].parse::<usize>().unwrap_or_else(|e| {
-		eprintln!("{}: {}: {}", argv[0], argv[1], e);
-		exit(EX_DATAERR);
-	});
+	let command_arg = index_arg as usize + 1;
 
-	/* index of the argv[0] for the operator command */
-	let command_arg = optind as usize + 1;
-
-	/* argv[0] of the operator command */
-	let operator = argv.get(command_arg).unwrap_or_else(|| {
+	argv.get(command_arg).unwrap_or_else(|| {
 		eprintln!("{}", usage);
 		exit(EX_USAGE);
 	});
 
-	/* read entire standard input into memory */
-	let mut buf = String::new();
-	if let Err(e) = stdin().read_to_string(&mut buf) {
-		eprintln!("{}: {}", argv[0], e.strerror());
-		exit(EX_IOERR);
-	};
+	let index = argv[index_arg].parse::<usize>().unwrap_or_else(|e| {
+		eprintln!("{}: {}: {}", argv[0], argv[1], e);
+		exit(EX_DATAERR);
+	});
 
-	/* split the buffer by the delimiter (by default, '\u{1E}') */
+	let mut buf = String::new();
+	let _ = stdin().read_to_string(&mut buf);
 	let mut fields = buf.split(&d).collect::<Vec<&str>>();
 
-	/* collect arguments for the operator command */
-	let command_args = argv
+	let opts = argv
 		.iter()
 		.clone()
-		.skip(command_arg + 1) /* skip the command name */
+		.skip(command_arg + 1)
 		.collect::<Vec<&String>>();
 
-	/* spawn the command to operate on the field */
-	let mut spawned = Command::new(operator)
-		.args(command_args) /* spawn with the specified arguments */
+	let mut spawned = Command::new(argv.get(command_arg).unwrap())
+		.args(opts)
 		.stdin(Stdio::piped())
-		.stdout(Stdio::piped()) /* piped stdout to handle output ourselves */
+		.stdout(Stdio::piped())
 		.spawn()
 		.unwrap_or_else( |e| {
 			eprintln!("{}: {}: {}", argv[0], argv[command_arg], e.strerror());
 			exit(EX_UNAVAILABLE);
 		});
 
-	/* get field we want to pipe into spawned program */
 	let field = fields.get(index).unwrap_or_else(|| {
 		eprintln!(
 			"{}: {}: No such index in input",
@@ -107,10 +96,9 @@ fn main() {
 		exit(EX_DATAERR);
 	});
 
-	/* get the stdin of the newly spawned program and feed it the field val */
 	if let Some(mut child_stdin) = spawned.stdin.take() {
 		let _ = child_stdin.write_all(field.as_bytes());
-		drop(child_stdin); /* stay safe! drop your children! */
+		drop(child_stdin);
 	}
 
 	let output = spawned.wait_with_output().unwrap_or_else(|e| {
@@ -118,27 +106,17 @@ fn main() {
 		exit(EX_IOERR);
 	});
 
-	/* get the output with which the original field will be replaced */
 	let mut replace = output.stdout.clone();
 
-	/* pop trailing newline out if the input did not contain it */
-	if fields[index].chars().last() != Some('\n') /* no newline */
-		&& replace.pop() != Some(b'\n') { /* pop last char of replacement */
-		/* restore replacement to original command output if popped char was not
-		 * a newline */
-		replace = output.stdout;
-	}
+	if replace.pop() != Some(b'\n') { replace = output.stdout; }
 
-	/* convert the output of the program to UTF-8 */
 	let new_field = String::from_utf8(replace).unwrap_or_else(|e| {
 		eprintln!("{}: {}: {}", argv[0], argv[command_arg], e);
 		exit(EX_IOERR);
 	});
 
-	/* store the new field in the old fields vector */
 	fields[index] = &new_field;
 
-	/* fop it */ 
 	stdout().write_all(
 		fields.join(&d.to_string()).as_bytes()
 	).unwrap_or_else(|e| {

src/hru.rs

@@ -29,45 +29,40 @@ extern crate sysexits;
 use strerror::StrError;
 use sysexits::{ EX_DATAERR, EX_IOERR, EX_SOFTWARE };
 
-/* list of SI prefixes */
 const LIST: [(u32, &str); 10] = [
-	(3, "k"), /* kilo */
-	(6, "M"), /* mega */
-	(9, "G"), /* giga */
-	(12, "T"), /* tera */
-	(15, "P"), /* peta */
-	(18, "E"), /* exa */
-	(21, "Z"), /* zetta */
-	(24, "Y"), /* yotta */
-	(27, "R"), /* ronna */
-	(30, "Q"), /* quetta */
+	(3, "k"),
+	(6, "M"),
+	(9, "G"),
+	(12, "T"),
+	(15, "P"),
+	(18, "E"),
+	(21, "Z"),
+	(24, "Y"),
+	(27, "R"),
+	(30, "Q")
 ];
 
 fn convert(input: u128) -> Result<(f64, (u32, &'static str)), String> {
-	/* preserve decimal places in output by casting to a float */
-	let mut out = (input as f64, (0_u32, "")); 
 
-	if input < 1000 { return Ok(out); } /* too low to convert */
+	let mut out = (input as f64, (0_u32, ""));
+	if input < 1000 { return Ok(out); }
 
 	for (n, p) in LIST {
 		let c = match 10_u128.checked_pow(n) {
 			Some(c) => c,
-			None => { /* too big for the laws of computing :( */
+			None => {
 				return Err(format!("10^{}: Integer overflow", n.to_string()));
 			},
 		};
 
 		match c.cmp(&input) {
-			Ordering::Less => { /* c < input */
-				/* the program will keep assigning out every loop until either
-				 * the list runs out of higher prefix bases or the input is
-				 * greater than the prefix base */
+			Ordering::Less => {
 				out = (input as f64 / c as f64, (n, p));
 			},
-			Ordering::Equal => { /* c == input */
+			Ordering::Equal => {
 				return Ok((input as f64 / c as f64, (n, p)));
 			},
-			Ordering::Greater => {}, /* c > input */
+			Ordering::Greater => {},
 		};
 	}
 
@@ -77,7 +72,6 @@ fn convert(input: u128) -> Result<(f64, (u32, &'static str)), String> {
 fn main() -> ExitCode {
 	let argv = args().collect::<Vec<String>>();
 	let mut buf = String::new();
-
 	while let Ok(_) = stdin().read_line(&mut buf) {
 		if buf.is_empty() { return ExitCode::SUCCESS; }
 
@@ -102,7 +96,6 @@ fn main() -> ExitCode {
 
 		let si_prefix = format!("{}B", prefix.1);
 
-		/* round output number to one decimal place */
 		let out = ((number * 10.0).round() / 10.0).to_string();
 
 		stdout().write_all(format!("{} {}\n", out, si_prefix).as_bytes())

src/intcmp.c

@@ -0,0 +1,82 @@
+/*
+ * 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 <errno.h> /* errno */
+#include <stdio.h> /* fprintf(3), stderr */
+#include <stdlib.h> /* strtol(3), size_t, EXIT_FAILURE */
+#include <unistd.h> /* getopt(3), optind */
+#include <sysexits.h>
+
+/* 0b00? */		/*                     Equal | -e  | 0b001 | 1 */
+#define EQUAL	0x01	/*                   Greater | -g  | 0b010 | 2 */
+/* 0b0?0 */		/*          Greater or Equal | -ge | 0b011 | 3 */
+#define GREATER	0x02	/*                      Less | -l  | 0b100 | 4 */
+/* 0b?00 */		/*             Less or Equal | -le | 0b101 | 5 */
+#define LESS	0x04	/* Inequal (Greater or Less) | -gl | 0b110 | 6 */
+
+static char *program_name = "intcmp";
+
+int main(int argc, char *argv[]){
+	int c;
+	size_t i;
+	unsigned char mode;
+	int r; /* reference integer */
+
+	mode = 0;
+
+	if(argc < 3)
+		goto usage;
+
+	while((c = getopt(argc, argv, "egl")) != -1)
+		switch(c){
+		case 'e': mode |= EQUAL;   break;
+		case 'g': mode |= GREATER; break;
+		case 'l': mode |= LESS;	   break;
+		default:  goto usage;
+		}
+
+	if(optind + 2 /* ref cmp */ > argc){
+usage:		fprintf(stderr,
+			"Usage: %s [-egl] integer integer...\n",
+			argv[0] == NULL ? program_name : argv[0]);
+		return EX_USAGE;
+	}
+
+	i = optind;
+
+	do{	r = c;
+		c = strtol(argv[i], &argv[i], 10);
+		if(*argv[i] != '\0' || errno != 0){
+			fprintf(stderr, "%s: argument #%d: Invalid integer\n",
+				argv[0], (int)i);
+			return EX_USAGE;
+		}
+
+		if(i == optind)
+			continue;
+
+		/* rule enforcement; if a mode isn't permitted and the numbers
+		 * correspond to it, return 1 */
+		if(		(!(mode & EQUAL) && r == c)
+				|| (!(mode & GREATER) && r > c)
+				|| (!(mode & LESS) && r < c))
+			return 1;
+	}while(++i < argc);
+	
+	return 0;
+}

src/intcmp.rs

@@ -1,79 +0,0 @@
-/*
- * Copyright (c) 2023–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,
-	process::ExitCode
-};
-
-extern crate getopt;
-use getopt::GetOpt;
-
-extern crate sysexits;
-use sysexits::EX_USAGE;
-
-fn usage(s: &str) -> ExitCode {
-	eprintln!("Usage: {} [-egl] integer integer...", s);
-	ExitCode::from(EX_USAGE as u8)
-}
-
-fn main() -> ExitCode {
-	let argv = args().collect::<Vec<String>>();
-	let mut e = false; /* args can be == */
-	let mut g = false; /* args can be > */
-	let mut l = false; /* args can be < */
-	let mut optind = 0;
-
-	if argv.len() < 3 { return usage(&argv[0]); }
-
-	while let Some(opt) = argv.getopt("egl") {
-		match opt.opt() {
-			Ok("e") => e = true,
-			Ok("g") => g = true,
-			Ok("l") => l = true,
-			_ => { return usage(&argv[0]); },
-		}
-		optind = opt.ind();
-	}
-
-	if argv.len() - optind < 2 /* see usage */ { return usage(&argv[0]); }
-
-	let mut prev: Option<usize> = None; /* no previous operand */
-	let mut currn: usize;
-
-	for arg in argv.iter().skip(optind) { /* iterate operands */
-		match arg.parse::<usize>() { /* parse current operand */
-			Ok(n) => currn = n,
-			_ => {
-				eprintln!("{}: {}: Invalid integer", &argv[0], arg);
-				return ExitCode::from(EX_USAGE as u8);
-			}
-		}
-
-		if let Some(prevn) = prev { /* if there was a previous opr., test */
-			if (!e && prevn == currn)
-					|| (!g && prevn > currn)
-					|| (!l && prevn < currn)
-				{ return ExitCode::FAILURE; }
-		}
-
-		prev = Some(currn); /* there is a previous operand */
-	}
-
-	ExitCode::SUCCESS
-}

src/mm.c

@@ -0,0 +1,236 @@
+/*
+ * 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/.
+ */
+
+#include <errno.h> /* errno */
+#include <signal.h> /* signal(2), SIG_ERR, SIG_IGN, SIGINT */
+#include <stdio.h> /* fclose(3), fopen(3), fprintf(3), getc(3), putc(3),
+                    * setvbuf(3), size_t, _IONBF, NULL */
+#include <stdlib.h> /* free(3), realloc(3) */
+#include <string.h> /* strcmp(3), strerror(3) */
+#include <unistd.h> /* getopt(3) */
+#if !defined EX_IOERR || !defined EX_OK || !defined EX_OSERR \
+		|| !defined EX_USAGE
+#	include <sysexits.h>
+#endif
+extern int errno;
+
+/* This structure is how open files are tracked. */
+struct Files{
+	size_t a;	/* allocation */
+	size_t s;	/* used size */
+	char *mode;	/* file opening mode */
+	char **names;	/* file names */
+	FILE **files;	/* file pointers */
+};
+
+/* How much to grow the allocation when it's saturated. */
+#ifndef ALLOC_INCREMENT
+#	define ALLOC_INCREMENT 1
+#endif
+
+/* How much to grow the allocation at program start. */
+#ifndef ALLOC_INITIAL
+#	define ALLOC_INITIAL 10
+#endif
+
+/* pre-allocated strings */
+static char *program_name = "<no argv[0]>";
+static char *stdin_name = "<stdin>";
+static char *stdout_name = "<stdout>";
+static char *stderr_name = "<stderr>";
+static char *(fmode[]) = { (char []){"rb"}, (char []){"rb+"} };
+static char *wharsh = "wb";
+
+/* Adds the open FILE pointer for the file at the path s to the files struct,
+ * returning the FILE if successful and NULL if not, allocating more memory in
+ * the files buffers as needed. */
+static FILE *
+Files_append(struct Files *files, FILE *file, char *name){
+
+	if(file == NULL || (files->s == files->a
+			&& ((files->files = realloc(files->files,
+					(files->a += (files->a == 0)
+						? ALLOC_INITIAL
+						: ALLOC_INCREMENT)
+					* sizeof *(files->files))) == NULL
+				|| (files->names = realloc(files->names,
+					files->a * sizeof *(files->names))) == NULL)))
+		return NULL;
+
+	files->names[files->s] = name;
+	return files->files[files->s++] = file;
+}
+
+/* Opens the file at the path p and puts it in the files struct, returning NULL
+ * if either the opening or the placement of the open FILE pointer fail. */
+#define Files_open(files, p) \
+	Files_append((files), fopen((p), (files)->mode), (p))
+
+/* Prints a diagnostic message based on errno and returns an exit status
+ * appropriate for an OS error. */
+static int
+oserr(char *s, char *r){
+
+	fprintf(stderr, "%s: %s: %s\n", s, r, strerror(errno));
+
+	return EX_OSERR;
+}
+
+/* Hijacks i and j from main and destructs the files[2] struct used by main by
+ * closing its files and freeing its files and names arrays, returning retval
+ * from main. */
+#define terminate \
+	for(i = 0; i < 2; ++i){ \
+		for(j = 0; j < files[i].s; ++j) \
+			if(files[i].files[j] != stdin \
+					&& files[i].files[j] != stdout \
+					&& files[i].files[j] != stderr) \
+				fclose(files[i].files[j]); \
+		free(files[i].files); \
+		free(files[i].names); \
+	} \
+	return retval
+
+/* Prints a usage text, in which s is the program being run (i.e. argv[0]), and
+ * returns an exit status appropriate for a usage error. */
+int usage(char *s){
+
+	fprintf(stderr, "Usage: %s [-aenu] [-i input]... [-o output]...\n", s);
+
+	return EX_USAGE;
+}
+
+int main(int argc, char *argv[]){
+	int c;
+	struct Files files[2]; /* {read, write} */
+	size_t i;
+	size_t j;
+	size_t k; /* loop index but also unbuffer status */
+	int retval;
+
+	/* Initializes the files structs with their default values, standard
+	 * input and standard output. If an input or an output is specified
+	 * these initial values will be overwritten, so to, say, use mm(1)
+	 * equivalently to tee(1p), -o - will need to be specified before
+	 * additional files to ensure standard output is still written. */
+	for(i = 0; i < 2; ++i){
+		files[i].a = 0;
+		files[i].s = 0;
+		files[i].mode = fmode[i];
+		files[i].files = NULL;
+		files[i].names = NULL;
+		Files_append(&files[i], i == 0 ? stdin : stdout,
+			i == 0 ? stdin_name : stdout_name);
+		files[i].s = 0;
+	}
+
+	k = 0;
+
+	if(argc > 0)
+		program_name = argv[0];
+
+	if(argc > 1)
+		while((c = getopt(argc, argv, "aehi:no:u")) != -1)
+			switch(c){
+			case 'a': /* "rb+" -> "ab" */
+				files[1].mode[0] = 'a';
+				files[1].mode[2] = '\0';
+				break;
+			case 'e':
+				if(Files_append(&files[1], stderr, stderr_name) != NULL)
+					break;
+				retval = oserr(argv[0], "-e");
+				terminate;
+			case 'i':
+				if((strcmp(optarg, "-") == 0 && Files_append(&files[0],
+							stdin, stdin_name) != NULL)
+						|| Files_open(&files[0], optarg) != NULL)
+					break;
+				retval = oserr(argv[0], optarg);
+				terminate;
+			case 'o':
+				if((strcmp(optarg, "-") == 0 && Files_append(&files[1],
+							stdout, stdout_name) != NULL)
+						|| Files_open(&files[1], optarg) != NULL)
+					break;
+				/* does not exist, so try to create it */
+				if(errno == ENOENT){
+					files[1].mode = wharsh;
+					if(Files_open(&files[1], optarg) != NULL){
+						files[1].mode = fmode[1];
+						break;
+					}
+				}
+				retval = oserr(argv[0], optarg);
+				terminate;
+			case 'n':
+				if(signal(SIGINT, SIG_IGN) != SIG_ERR)
+					break;
+				retval = oserr(argv[0], "-n");
+				terminate;
+			case 'u':
+				k = 1;
+				break;
+			default:
+				retval = usage(argv[0]);
+				terminate;
+			}
+
+	if(optind != argc){
+		retval = usage(argv[0]);
+		terminate;
+	}
+
+	files[0].s += files[0].s == 0;
+	files[1].s += files[1].s == 0;
+	
+	/* Unbuffer files. */
+	if(k){
+		for(i = 0;
+			i < files[0].s;
+			setvbuf(files[0].files[i++], NULL, _IONBF, 0));
+		for(i = 0;
+			i < files[1].s;
+			setvbuf(files[1].files[i++], NULL, _IONBF, 0));
+	}
+
+	retval = EX_OK;
+
+	/* Actual program loop. */
+	for(i = 0; i < files[0].s; ++i) /* iterate ins */
+		while((c = getc(files[0].files[i])) != EOF) /* iterate chars */
+			for(j = 0; j < files[1].s; ++j) /* iterate outs */
+				if(putc(c, files[1].files[j]) == EOF){
+					/* notebook's full */
+					retval = EX_IOERR;
+					fprintf(stderr, "%s: %s: %s\n",
+						program_name, files[1].names[j], strerror(errno));
+					if(fclose(files[1].files[j]) == EOF)
+						fprintf(stderr, "%s: %s: %s\n",
+							program_name, files[1].names[j], strerror(errno));
+					/* massage out the tense muscle */
+					for(k = j--; k < files[1].s - 1; ++k){
+						files[1].files[k] = files[1].files[k+1];
+						files[1].names[k] = files[1].names[k+1];
+					}
+					if(--files[1].s == 0)
+						terminate;
+				}
+
+	terminate;
+}

src/mm.rs

@@ -1,185 +0,0 @@
-/*
- * Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
- * 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::File,
-	io::{ stdin, stdout, stderr, BufWriter, Read, Write },
-	os::fd::{ AsRawFd, FromRawFd },
-	process::{ exit, ExitCode },
-};
-
-extern crate getopt;
-extern crate strerror;
-extern crate sysexits;
-
-use getopt::GetOpt;
-use strerror::StrError;
-use sysexits::{ EX_IOERR, EX_USAGE };
-
-use ArgMode::*;
-
-enum ArgMode { In, Out }
-
-fn main() -> ExitCode {
-	let argv = args().collect::<Vec<_>>();
-	let usage = format!("Usage: {} [-aetu] [-i input] [-o output]", argv[0]);
-
-	let mut a = false; /* append to the file */
-	let mut e = false; /* use stderr as an output */
-	let mut t = true; /* do not truncate the file before writing */
-	let mut u = false; /* unbuffer i/o */
-	let mut ins = Vec::new(); /* initial input file path vector */
-	let mut outs = Vec::new(); /* initial output file path vector */
-	let mut mode: Option<ArgMode> = None; /* mode set by last-used option */
-	let mut optind = 0;
-
-	while let Some(opt) = argv.getopt("aei:o:tu") {
-		match opt.opt() {
-			Ok("a") => a = true,
-			Ok("e") => e = true, 
-			Ok("u") => u = true,
-			Ok("t") => t = false,
-			Ok("i") => { /* add inputs */
-				let input = opt.arg().unwrap();
-				ins.push(input);
-				mode = Some(In); /* latest argument == -i */
-			},
-			Ok("o") => { /* add output */
-				let output = opt.arg().unwrap(); 
-				outs.push(output);
-				mode = Some(Out); /* latest argument == -o */
-			},
-			Err(_) | Ok(_) => {
-				eprintln!("{}", usage);
-				return ExitCode::from(EX_USAGE as u8);
-			},
-		};
-
-		optind = opt.ind();
-	}
-
-	let remaining = argv.iter().skip(optind);
-
-	/* check the last flag specified */
-	if let Some(m) = mode {
-		for arg in remaining {
-			/* move the subsequent arguments to the list of inputs or outputs */
-			match m {
-				In => ins.push(arg.to_string()),
-				Out => outs.push(arg.to_string()),
-			};
-		}
-	} else {
-		eprintln!("{}", usage);
-		return ExitCode::from(EX_USAGE as u8);
-	}
-
-	/* use stdin if no inputs are specified */
-	if ins.is_empty() { ins.push("-".to_string()); }
-
-	/* use stdout if no outputs are specified */
-	if outs.is_empty() && !e { outs.push("-".to_string()); }
-	
-	/* map all path strings to files */
-	let inputs = ins.iter().map(|file| {
-		/* if a file is “-”, it is stdin */
-		if *file == "-" {
-			/* portable way to access stdin as a file */
-			return unsafe { File::from_raw_fd(stdin().as_raw_fd()) };
-		}
-
-		match File::open(file) {
-			Ok(f) => f,
-			Err(e) => {
-				eprintln!("{}: {}: {}", argv[0], file, e.strerror());
-				exit(EX_IOERR);
-			},
-		}
-	}).collect::<Vec<_>>();
-
-	/* map all path strings to files */
-	let mut outputs = outs.iter().map(|file| {
-		/* of a file is “-”, it is stdout */
-		if *file == "-" {
-			/* portable way to access stdout as a file */
-			return unsafe { File::from_raw_fd(stdout().as_raw_fd()) }; 
-		}
-
-		let options = File::options()
-			/* don’t truncate if -t is specified, append if -a is specified */
-			.truncate(t)
-			.append(a)
-			/* enable the ability to create and write to files */
-			.create(true)
-			.write(true)
-			/* finally, open the file! */
-			.open(file);
-
-		match options {
-			Ok(f) => return f,
-			Err(e) => {
-				eprintln!("{}: {}: {}", argv[0], file, e.strerror());
-				exit(EX_IOERR);
-			},
-		};
-	}).collect::<Vec<_>>();
-
-	/* if -e is specified, use stderr */
-	if e {
-		/* portable way to access stderr as a file */
-		outputs.push(unsafe { File::from_raw_fd(stderr().as_raw_fd()) });
-	}
-
-	let mut outputs = outputs.iter().map(|o| {
-		if u {
-			/* unbuffered writing through a buffer of capacity 0 */
-			BufWriter::with_capacity(0, o)
-		} else {
-			/* theoretically buffered writing */
-			BufWriter::new(o)
-		}
-	}).collect::<Vec<_>>();
-
-	for file in inputs {
-		for byte in file.bytes().map(|b| {
-			b.unwrap_or_else(|e| {
-				eprintln!("{}: {}", argv[0], e.strerror());
-				exit(EX_IOERR);
-			})
-		}) {
-			for out in &mut outputs {
-				if let Err(e) = out.write(&[byte]) {
-					eprintln!("{}: {}", argv[0], e.strerror());
-					return ExitCode::from(EX_IOERR as u8);
-				}
-
-				if u {
-					/* immediately flush the output for -u */
-					if let Err(e) = out.flush() { 
-						eprintln!("{}: {}", argv[0], e.strerror());
-						return ExitCode::from(EX_IOERR as u8);
-					}
-				}
-			}
-		}
-	}
-
-	ExitCode::SUCCESS
-}

src/npc.c

@@ -1,6 +1,5 @@
 /*
  * Copyright (c) 2023 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
@@ -17,65 +16,46 @@
  * along with this program. If not, see https://www.gnu.org/licenses/.
  */
 
-#include <stdio.h> /* fprintf(3), fputs(3), getc(3), perror(3), putc(3), stdin,
-                    * stdout, EOF */
-#include <sysexits.h> /* EX_IOERR, EX_OK, EX_USAGE */
+#include <stdio.h> /* fprintf(3), fputs(3), getc(3), putc(3), stdin, stdout,
+                    * EOF */
+#include <stdlib.h> /* EXIT_FAILURE, EXIT_SUCCESS */
 #include <unistd.h> /* getopt(3) */
+#include <sysexits.h>
 
-char *program_name = "npc";
-
-static int
-ioerr(char *argv0) {
-	perror(argv0);
-
-	return EX_IOERR;
-}
-
-static int
-usage(char *argv0) {
-	(void)fprintf(stderr, "Usage: %s [-et]\n", argv0);
-
-	return EX_USAGE;
-}
-
-int main(int argc, char *argv[]) {
+int main(int argc, char *argv[]){
 	int c;
-	char showend = 0; /* print a dollar sign before each newline */
-	char showtab = 0; /* prints tab characters in caret notation */
+	char showend;
+	char showtab;
 
-	if (argc > 0) {
-		program_name = argv[0];
+	showend = 0;
+	showtab = 0;
 
-		while ((c = getopt(argc, argv, "et")) != -1) {
-			switch (c){
-				case 'e': showend = 1; break;
-				case 't': showtab = 1; break;
-				default:  return usage(program_name);
+	if(argc > 0)
+		while((c = getopt(argc, argv, "et")) != -1)
+			switch(c){
+			case 'e':	showend = 1; break;
+			case 't':	showtab = 1; break;
+			default:	goto usage;
 			}
-		}
+
+	if(argc > optind){
+usage:		fprintf(stderr, "Usage: %s [-et]\n", argv[0]);
+		return EX_USAGE;
 	}
 
-	if (argc > optind) { return usage(program_name); }
-
-	while ((c = getc(stdin)) != EOF) {
-		if ((c & 0x80) != 0 && fputs("M-", stdout) == EOF) {
-			return ioerr(argv[0]);
-		}
-
-		switch (c ^ 0x80 /* 0b 1000 0000 */) {
-			case 0x7f: /* ASCII DEL (127d) */
-				if(fputs("^?", stdout) == EOF) { return ioerr(argv[0]); }
+	while((c = getc(stdin)) != EOF){
+		if((c & 0x80) != 0)
+			fputs("M-", stdout);
+		switch(c ^ 0x80 /* 0b 1000 0000 */){
+		case 0x7f:	fputs("^?", stdout);
 				break;
-			case '\n':
-				if (showend && fputc('$', stdout) == EOF) {
-					return ioerr(argv[0]);
-				}
-			default:
-				if (c >= ' ' || c == '\n' || (!showtab && c == '\t')) {
-					if (fputc(c, stdout) == EOF) { return ioerr(argv[0]); }
-				} else if (fprintf(stdout, "^%c", c + '@') < 0) {
-					return ioerr(argv[0]);
-				}
+		case '\n':	if(showend)
+					putc('$', stdout);
+		default:
+			if(c >= ' ' || c == '\n' || (!showtab && c == '\t'))
+				putc(c, stdout);
+			else
+				fprintf(stdout, "^%c", c + '@');
 		}
 	}
 

src/rpn.rs

@@ -57,7 +57,7 @@ extern crate sysexits;
 use sysexits::EX_DATAERR;
 
 #[derive(Clone, PartialEq, PartialOrd, Debug)]
-/* enum CalcType is a type containing operations used in the calculator */
+// enum CalcType is a type containing operations used in the calculator
 enum CalcType {
 	Add,
 	Subtract,
@@ -117,8 +117,8 @@ struct EvaluationError {
 	code: i32,
 }
 
-/* I’m no math nerd but I want the highest possible approximation of 0.9
- * repeating and it seems this can give it to me */
+// I’m no math nerd but I want the highest possible approximation of 0.9
+// repeating and it seems this can give it to me
 const PRECISION_MOD: f64 = 0.9 + f64::EPSILON * 100.0;
 
 fn eval(
@@ -133,7 +133,7 @@ fn eval(
 		return Ok((stack, oper));
 	}
 
-	/* Split the input into tokens. */
+	// Split the input into tokens.
 	let mut toks: VecDeque<CalcType> = input
 		.split_whitespace()
 		.rev()
@@ -183,7 +183,7 @@ fn eval(
 	Ok((stack, oper))
 }
 
-/* Round a float to the given precision level */
+// Round a float to the given precision level
 fn round_precise(value: &f64, precision: usize) -> f64 {
 	let multiplier = 10_f64.powi(precision as i32);
 	(value * multiplier).round() / multiplier
@@ -193,11 +193,11 @@ fn main() -> ExitCode {
 	let argv = args().collect::<Vec<String>>();
 	let mut stack = VecDeque::new();
 	let mut buf = String::new();
-	/* Set floating-point precision for correcting rounding errors based on
-	 * machine epsilon */
+	// Set floating-point precision for correcting rounding errors based on
+	// machine epsilon
 	let precision = (-f64::EPSILON.log10() * PRECISION_MOD).ceil() as usize;
 	
-	if argv.get(1).is_none() { /* read from stdin */
+	if argv.get(1).is_none() {
 		while let Ok(_) = stdin().read_line(&mut buf) {
 			match eval(&buf.trim(), stack) {
 				Ok(s) => {
@@ -219,13 +219,12 @@ fn main() -> ExitCode {
 				},
 			};
 		}
-	} else { /* read from argv */
-		/* join argv into an owned String joined by spaces minus argv[0] */
+	} else {
 		let input = argv
 			.iter()
 			.skip(1)
 			.map(|x| x.to_owned())
-			.collect::<Vec<_>>()
+			.collect::<Vec<String>>()
 			.join(" ");
 
 		match eval(&input, stack) {
@@ -234,7 +233,7 @@ fn main() -> ExitCode {
 
 				let val = match stack.iter().last() {
 					Some(v) => v,
-					None => return ExitCode::SUCCESS,
+					None => return ExitCode::from(0),
 				};
 
 				println!("{}", round_precise(val, precision).to_string())
@@ -245,5 +244,5 @@ fn main() -> ExitCode {
 			},
 		};
 	}
-	ExitCode::SUCCESS
+	ExitCode::from(0)
 }

src/scrut.c

@@ -20,75 +20,88 @@
 #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 */
+#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 */
 
-char *program_name = "scrut";
-#define OPTS "bcdefgkprsuwxLS"
-static char *opts = OPTS;
+static char args[] = "bcdefghkprsuwxLS";
+static char ops[(sizeof args) / (sizeof *args)];
+static char *program_name = "scrut";
 
-static int
-usage(char *argv0) {
-	(void)fprintf(stderr, "Usage: %s [-" OPTS "] file...\n", argv0);
+int main(int argc, char *argv[]){
+	struct stat buf;
+	int c;
+	size_t i;
+	char *p;
 
-	return EX_USAGE;
-}
+	if(argc < 2)
+		goto usage;
 
-int main(int argc, char *argv[]) {
-	char sel[(sizeof opts) / (sizeof *opts)];
-
-	if (argc < 2) { return usage(argv[0] == NULL ? program_name : argv[0]); }
-
-	{ /* option parsing */
-		char *p;
-
-		memset(sel, '\0', sizeof sel);
-		for (int c; (c = getopt(argc, argv, opts)) != -1;) {
-			if ((p = strchr(opts, c)) == NULL) { return usage(argv[0]); }
-			else { sel[p - opts] = c; }
+	memset(ops, '\0', sizeof ops);
+	while((c = getopt(argc, argv, args)) != -1)
+		if((p = strchr(args, c)) == NULL)
+			goto usage;
+		else
+			ops[p - args] = c;
+	/* straighten out ops */
+	for(i = 0, p = ops; i < (sizeof ops) / (sizeof *ops); ++i)
+		if(ops[i] != '\0'){
+			*p = ops[i];
+			if(&ops[i] != p++)
+				ops[i] = '\0';
 		}
 
-		/* straighten out selections; permute out nulls */
-		p = sel;
-		for (size_t i = 0; i < (sizeof sel) / (sizeof *sel); ++i) {
-			if (sel[i] != '\0') {
-				*p = sel[i];
-				if (&sel[i] != p++) { sel[i] = '\0'; }
-			}
-		}
-	}
+	if(optind == argc)
+		goto usage;
 
-	if (optind == argc) { return usage(argv[0]); }
-
-	for (argv += optind ; *argv != NULL; ++argv) {
-		struct stat buf;
-
-		if(access(*argv, F_OK) != 0 || lstat(*argv, &buf) == -1) {
+	argv += optind;
+	do{	if(access(*argv, F_OK) != 0 || lstat(*argv, &buf) == -1)
 			return EXIT_FAILURE; /* doesn't exist or isn't stattable */
-		}
 
-		for (size_t i = 0; sel[i] != '\0'; ++i) {
-			if (
-					(sel[i] == 'b' && !S_ISBLK(buf.st_mode))
-					|| (sel[i] == 'c' && !S_ISCHR(buf.st_mode))
-					|| (sel[i] == 'd' && !S_ISDIR(buf.st_mode))
-					|| (sel[i] == 'e' && 0)
-					|| (sel[i] == 'f' && !S_ISREG(buf.st_mode))
-					|| (sel[i] == 'g' && !(buf.st_mode & S_ISGID))
-					|| (sel[i] == 'k' && !(buf.st_mode & S_ISVTX))
-					|| (sel[i] == 'p' && !S_ISFIFO(buf.st_mode))
-					|| (sel[i] == 'r' && access(*argv, R_OK) != 0)
-					|| (sel[i] == 'u' && !(buf.st_mode & S_ISUID))
-					|| (sel[i] == 'w' && access(*argv, W_OK) != 0)
-					|| (sel[i] == 'x' && access(*argv, X_OK) != 0)
-					|| (sel[i] == 'L' && !S_ISLNK(buf.st_mode))
-					|| (sel[i] == 'S' && !S_ISSOCK(buf.st_mode))
-			) { return EXIT_FAILURE; }
-		}
-	}
+		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 EXIT_FAILURE;
+	}while(*++argv != NULL);
 
 	return EXIT_SUCCESS;
 }

src/str.c

@@ -20,16 +20,16 @@
 #include <ctype.h>
 #include <stddef.h> /* NULL */
 #include <stdio.h> /* fprintf(3) */
-#include <stdlib.h> /* size_t, EXIT_FAILURE */
+#include <stdlib.h> /* EXIT_FAILURE */
 #include <string.h> /* strcmp(3) */
-#include <sysexits.h> /* EX_USAGE */
+#include <sysexits.h>
 
-char *program_name = "str";
+static char *program_name = "str";
 
 static struct {
 	char *name;
 	int (*f)(int);
-} ctypes[] = {
+}ctypes[] = {
 	{ "isalnum", isalnum },
 	{ "isalpha", isalpha },
 	{ "isblank", isblank },
@@ -41,44 +41,35 @@ static struct {
 	{ "isprint", isprint },
 	{ "ispunct", ispunct },
 	{ "isspace", isspace },
-	{ "isupper", isupper },
-	{ NULL, NULL } /* marks end */
+	{ "isupper", isupper }
 };
 
-static int
-usage(char *argv0) {
-	(void)fprintf(stderr, "Usage: %s type string...\n", argv0);
+int main(int argc, char *argv[]){
+	int ctype;
+	int i;
+	int r;
 
-	return EX_USAGE;
-}
-
-int main(int argc, char *argv[]) {
-	size_t ctype; // selected from ctypes.h; index of ctype
-	int retval; // initially fail but becomes success on the first valid char
-
-	if (argc < 3) { return usage(argv[0] == NULL ? program_name : argv[0]); }
-
-	for ( /* iterate ctypes */
-		ctype = 0;
-		ctypes[ctype].f != NULL /* break at the end of ctypes */
-			&& strcmp(argv[1], ctypes[ctype].name) != 0; /* break at match */
-		++ctype
-	);
-
-	if (ctypes[ctype].f == NULL) { return usage(argv[0]); }
-
-	/* iterate args */
-	for (argv += 2, retval = EXIT_FAILURE; *argv != NULL; ++argv) {
-		for (size_t i = 0; argv[0][i] != '\0'; ++i) { /* iterate arg bytes */
-			/* First checks if argv[0][i] is valid ASCII; ctypes(3) don't
-			 * handle non-ASCII. This is bad. */
-			if(
-				(unsigned char)argv[0][i] < 0x80 // argv[0][i] is ASCII,
-					&& !ctypes[ctype].f(argv[0][i]) // so use ctypes(3)
-			) { return EXIT_FAILURE; }
-			else { retval = EXIT_SUCCESS; }
-		}
+	if(argc >= 3){
+		for(ctype = 0; ctype < (sizeof ctypes) / (sizeof *ctypes);
+				++ctype)
+			if(strcmp(argv[1], ctypes[ctype].name) == 0)
+				goto pass;
 	}
 
-	return retval;
+	fprintf(stderr, "Usage: %s type string...\n",
+		argv[0] == NULL ? program_name : argv[0]);
+
+	return EX_USAGE;
+
+pass:	for(argv += 2, r = 1; *argv != NULL; ++argv)
+		for(i = 0; argv[0][i] != '\0'; ++i)
+			/* First checks if argv[0][i] is valid ASCII; ctypes(3)
+			 * don't handle non-ASCII.
+			 * This is bad. */
+			if((unsigned char)argv[0][i] < 0x80 && !ctypes[ctype].f(argv[0][i]))
+				return 1;
+			else
+				r = 0;
+
+	return r;
 }

src/strcmp.c

@@ -1,50 +1,24 @@
-/*
- * Copyright (c) 2023 DTB <trinity@trinity.moe>
- * Copyright (c) 2023–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 <stdio.h> /* fprintf(3), stderr */
-#include <sysexits.h> /* EX_OK, EX_USAGE */
+#include <stdlib.h> /* EXIT_FAILURE */
+#include <sysexits.h>
 
-char *program_name = "strcmp";
+static char *program_name = "strcmp";
 
-int main(int argc, char *argv[]) {
+int main(int argc, char *argv[]){
 	int i;
 
-	if (argc < 3) {
-		(void)fprintf(
-			stderr,
-			"Usage: %s string string...\n",
-			argv[0] == NULL ? program_name : argv[0]
-		);
-
+	if(argc < 3){
+		fprintf(stderr, "Usage: %s string string...\n",
+			argv[0] == NULL ? program_name : argv[0]);
 		return EX_USAGE;
 	}
 
-	for (; *argv[1] != '\0'; ++argv[1]) {
-		for (i = 2; i < argc; ++i) {
-			/* a former string has a greater byte value */
-			if (*argv[i-1] > *argv[i]) { 
+	for(; *argv[1] != '\0'; ++argv[1])
+		for(i = 2; i < argc; ++i)
+			if(*argv[i-1] > *argv[i])
 				return 1;
-			/* a latter string has a greater byte value */
-			} else if (*argv[i-1] < *argv[i]++) {
+			else if(*argv[i-1] < *argv[i]++)
 				return -1; /* actually 255 */
-			}
-		}
-	}
 
-	return EX_OK;
+	return 0;
 }

src/swab.rs

@@ -1,6 +1,5 @@
 /*
  * Copyright (c) 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
@@ -19,78 +18,72 @@
 
 use std::{
 	env::args,
-	io::{ stdin, stdout, Error, Read, Write },
+	io::{ stdin, stdout, Error, ErrorKind, Read, Write },
 	process::ExitCode,
 	vec::Vec
 };
 
 extern crate getopt;
-extern crate sysexits;
-extern crate strerror;
-
 use getopt::GetOpt;
-use sysexits::{ EX_IOERR, EX_OK, EX_OSERR, EX_USAGE };
+
+extern crate sysexits;
+use sysexits::{ EX_OK, EX_OSERR, EX_USAGE };
+
+extern crate strerror;
 use strerror::StrError;
 
-fn oserr(argv0: &str, e: Error) -> ExitCode {
-	eprintln!("{}: {}", argv0, e.strerror());
+fn oserr(s: &str, e: Error) -> ExitCode {
+	eprintln!("{}: {}", s, e.strerror());
 	ExitCode::from(EX_OSERR as u8)
 }
 
-fn ioerr(argv0: &str, e: Error) -> ExitCode {
-	eprintln!("{}: {}", argv0, e.strerror());
-	ExitCode::from(EX_IOERR as u8)
-}
-
 fn usage(s: &str) -> ExitCode {
-	eprintln!("Usage: {} [-w word_size]", s);
+	eprintln!("Usage: {} [-f] [-w word_size]", s);
 	ExitCode::from(EX_USAGE as u8)
 }
 
 fn main() -> ExitCode {
 	let argv = args().collect::<Vec<String>>();
-	let mut buf: Vec<u8> = Vec::new(); // holds the sequence getting swabbed
+	let mut buf: Vec<u8> = Vec::new();
 	let mut input = stdin();
 	let mut output = stdout().lock();
-	let mut optind: usize = 1;   // argv[0]
-	let mut wordsize: usize = 2; // default; mimics dd(1p) conv=swab
 
-	while let Some(opt) = argv.getopt("w:") {
+	let mut force = false;
+	let mut wordsize: usize = 2;
+
+	while let Some(opt) = argv.getopt("fw:") {
 		match opt.opt() {
+			Ok("f") => force = true,
 			Ok("w") => {
-					match opt.arg().unwrap().parse::<usize>() {
-						Ok(w) if w % 2 == 0 => { wordsize = w; },
+				if let Some(arg) = opt.arg() {
+					match arg.parse::<usize>() {
+						Ok(w) if w % 2 == 0 => { wordsize = w; () },
 						_ => { return usage(&argv[0]); },
 					}
-				optind = opt.ind();
+				}
 			},
 			_ => { return usage(&argv[0]); }
 		}
 	}
 
-	if optind < argv.len() {
-		return usage(&argv[0]);
-	}
-
 	buf.resize(wordsize, 0);
 
 	loop {
 		match input.read(&mut buf) {
-			Ok(0) => break ExitCode::from(EX_OK as u8), // read nothing; bye
-			Ok(v) if v == wordsize => { // read full block; swab
+			Ok(0) => break ExitCode::from(EX_OK as u8),
+			Ok(v) if v == wordsize => {
 				let (left, right) = buf.split_at(v/2);
-
 				if let Err(e) = output.write(&right)
 						.and_then(|_| output.write(&left)) {
-					break ioerr(&argv[0], e);
+					break oserr(&argv[0], e)
 				}
-
 			},
-			Ok(v) => { // partial read; partially write
+			Ok(v) => {
 				if let Err(e) = output.write(&buf[..v]) {
-					break ioerr(&argv[0], e);
+					break oserr(&argv[0], e)
 				}
 			},
+			Err(e) if e.kind() == ErrorKind::Interrupted && force => continue,
 			Err(e) => break oserr(&argv[0], e)
 		}
 	}

tests/README

@@ -0,0 +1,60 @@
+The testing suite contains two main trees (plus translations for strings used in
+the shell scripts): the Bonsai tree and the POSIX tree:
+
+.
+├── bonsai
+│   ├── test_env
+│   ├── dj.sh
+│   ├── false.sh
+│   ├── fop.sh
+│   ├── hru.sh
+│   ├── intcmp.sh
+│   ├── mm.sh
+│   ├── strcmp.sh
+│   └── true.sh
+├── locales
+│   ├── en_US.UTF-8
+│   └── tok
+├── posix
+│   ├── bin
+│   │   ├── cat
+│   │   ├── false
+│   │   └── true
+│   └── posix_env
+├── README
+└── test.sh
+
+The Bonsai tree tests the functionality of Harakit utilities for regressions and
+other issues relating to compliance to our standards of practice.
+
+The POSIX tree tests the use of Harakit utilities in place of the standard usage
+of POSIX utilities. These scripts test the ability of Harakit to comply to POSIX
+standards using its native utilities in shell scripts as a compatibility shim.
+Each shell script in the top directory should contain a set of tests for each
+POSIX utility and be named for that utility. The bin directory should contain
+a set of shim scripts which will be imported into the path as POSIX utilities.
+Each test will compare the behavior of the shim script to the real utility on
+the system.
+
+Currently, due to the limitations of POSIX shell quoting, a subset of argument
+parsing is supported: arguments containing characters from POSIX’s Portable
+Filename Character Set [0].
+
+The bonsai/test_env and posix/posix_env files contain prerequisite shared
+environments for each of the tests. These scripts both contain lines which set
+the shell to write all commands run in them (-x) and to fail if any command
+fails (-e). See set(1p) for more information.
+
+Both sets of tests also inherit the environment set by the test.sh script, which
+sets the $BIN environment variable to the bin directory at the root of the
+project for easy and idiomatic access to the built Harakit binaries. When
+calling the POSIX test scripts, test.sh also sets the variable $realutil to be
+the absolute path to the currently tested utility’s counterpart on the system.
+
+[0] <https://pubs.opengroup.org/onlinepubs/9699919799/basedefs/V1_chap03.html#tag_03_282>
+
+--
+Copyright © 2024 Emma Tebibyte <emma@tebibyte.media>
+
+This work is licensed under CC BY-SA 4.0. To view a copy of this license, visit
+<http://creativecommons.org/licenses/by-sa/4.0/>.

tests/bonsai/dj.mk

@@ -0,0 +1,48 @@
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+.PRAGMA: command_comment
+
+/dev/full:
+/dev/null:
+
+.PHONY: dj_tests
+dj_tests: dj_help dj_full dj_null # dj_skip_stdin
+
+.PHONY: dj_full
+# Linux has a /dev/full pseudodevice useful for testing errors.
+dj_full: $(BIN)/dj /dev/full
+	case "$$(uname)" in \
+	Linux) \
+		$(BIN)/dj -Hi /dev/zero -o /dev/full 2>&1 \
+			| tee /dev/tty \
+			| xargs -I out test '1+0 > 0+0; 1024 > 0' = out \
+		;; \
+	esac
+
+.PHONY: dj_help
+dj_help: $(BIN)/dj
+	! $(BIN)/dj -h
+
+.PHONY: dj_null
+# Read nothing from /dev/null, write nothing to /dev/null.
+dj_null: $(BIN)/dj /dev/null
+	$(BIN)/dj -Hi /dev/null -o /dev/null 2>&1 \
+		| tee /dev/tty \
+		| xargs -I out test '0+0 > 0+0; 0 > 0' = out
+
+# This test currently fails. This is probably due to dj(1) being stale relative
+# to the main harakit branch. TODO: Reassess once the testing branch is merged.
+# .PHONY: dj_skip_stdin
+# # Test skipping stdin.
+# dj_skip_stdin: $(BIN)/dj
+# 	# Pipe 1024B of '\0' into dj(1); skip the first 24B; expect 1000B written.
+# 	dd count=1 bs=1024 </dev/zero 2>/dev/null \
+# 		| $(BIN)/dj -H -s 24 -o /dev/null 2>&1 \
+# 		| tee /dev/tty \
+# 		| xargs -I out test '1+0 > 1+0; 1024 > 1000' = out

tests/bonsai/false.mk

@@ -0,0 +1,18 @@
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+.PHONY: false_tests
+false_tests: false_test false_help
+
+.PHONY: false
+false_test: $(BIN)/false
+	! $(BIN)/false
+
+.PHONY: false_help
+false_help: $(BIN)/false
+	! $(BIN)/false -h

tests/bonsai/fop.mk

@@ -0,0 +1,31 @@
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+.PHONY: fop_tests
+fop_tests: fop_functionality fop_delimiter fop_help fop_fail
+
+.PHONY: fop_help
+fop_help: $(BIN)/fop
+	! $(BIN)/fop -h
+
+.PHONY: fop_delimiter
+fop_delimiter: $(BIN)/fop
+	test "$$(printf 'test1 test1 test1\n' | $(BIN)/fop -d' ' 2 sed 's/2/4/g')" \
+		= 'test1 test1 test4'
+	test "$$(printf 'meowsetwoofsetribbit\n' \
+		| $(BIN)/fop -d 'set' 1 sed 's/woof/meow/g')" = 'meowsetmeowsetribbit'
+
+.PHONY: fop_fail
+fop_fail: $(BIN)/fop
+	! printf 'test\n' | $(BIN)/fop 1 cat
+	! printf 'test\n' | $(BIN)/fop 'test' cat
+	! printf 'test\n' | $(BIN)/fop -d'test' cat
+
+.PHONY: fop_functionality
+fop_functionality: $(BIN)/fop
+	test "$$(printf 'test1\036test1\036test1\n' | $(BIN)/fop 1 sed 's/1/4/g')" \
+		= "$$(printf 'test1\036test4\036test1\n')"

tests/bonsai/hru.mk

@@ -0,0 +1,35 @@
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+NAME = hru
+TARGET = $(NAME)_tests
+BINARY = $(BIN)/$(NAME)
+
+.PHONY: hru_tests
+hru_tests: $(BIN)/hru
+
+.PHONY: hru_functionality
+hru_functionality: $(BIN)/hru
+	test "$(printf '1234\n' | $(BIN)/hru)" = '1.2 kB'
+	test "$(printf '0\n' | $(BIN)/hru)" = '0 B'
+
+.PHONY: $(NAME_help)
+hru_help: $(BIN)/hru
+	! $(BIN)/hru -h
+
+.PHONY: hru_negative
+hru_negative: $(BIN)/hru
+	! printf '%s\n' '-1' | $(BIN)/hru
+
+.PHONY: hru_regressions
+hru_regressions: $(BIN)/hru
+	n=1; \
+	while true; \
+		do n="$$(($$n * 10))"; \
+		printf '%s\n' "$$n" | $(BIN)/hru || break; \
+	done; \
+	printf 'Max float: %s\n' "$$n"

tests/bonsai/intcmp.mk

@@ -0,0 +1,45 @@
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+.PHONY: intcmp_tests
+intcmp_tests: intcmp_help intcmp_e intcmp_g intcmp_l intcmp_combined
+
+.PHONY: intcmp_help
+intcmp_help: $(BIN)/intcmp
+	! $(BIN)/intcmp -h
+
+.PHONY: intcmp_e
+intcmp_e: $(BIN)/intcmp
+	$(BIN)/intcmp   -e   3 3 3    # ==
+	! $(BIN)/intcmp -e   1 2 3    # <
+	! $(BIN)/intcmp -e   3 2 1    # >
+
+.PHONY: intcmp_g
+intcmp_g: $(BIN)/intcmp
+	$(BIN)/intcmp   -g   3 2 1    # >
+	! $(BIN)/intcmp -g   3 3 3    # ==
+	! $(BIN)/intcmp -g   1 2 3    # <
+	$(BIN)/intcmp   -ge  3 3 1    # >=
+	! $(BIN)/intcmp -ge  1 2 3    # <
+
+.PHONY: intcmp_l
+intcmp_l: $(BIN)/intcmp
+	$(BIN)/intcmp   -l   1 2 3    # <
+	! $(BIN)/intcmp -l   3 3 3    # ==
+	! $(BIN)/intcmp -l   3 2 1    # >
+	$(BIN)/intcmp   -le  1 3 3    # <=
+	! $(BIN)/intcmp -le  3 2 1    # >
+
+.PHONY: intcmp_combined
+intcmp_combined: $(BIN)/intcmp
+	$(BIN)/intcmp   -gl  1 2 3    # <
+	$(BIN)/intcmp   -gl  3 2 1    # >
+	$(BIN)/intcmp   -gl  1 3 1    # !=
+	! $(BIN)/intcmp -gl  3 3 3    # ==
+	$(BIN)/intcmp   -egl 3 1 1 3  # >, ==, <
+	! $(BIN)/intcmp -egl foo      # huh?

tests/bonsai/mm.mk

@@ -0,0 +1,27 @@
+# Copyright (c) 2024 E$(NAME)a Tebibyte <e$(NAME)a@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+NAME = mm
+TARGET = $(NAME)_tests
+BINARY = $(BIN)/$(NAME)
+
+.PHONY: mm_tests
+mm_tests: mm_args mm_help mm_stderr
+
+.PHONY: mm_args
+# mm(1) will error if positional arguments are given without -i or -o
+mm_args: $(BIN)/mm
+	! $(BIN)/mm argument
+
+.PHONY: mm_help
+mm_help: $(BIN)/mm
+	! $(BIN)/mm -h
+
+.PHONY: mm_stderr
+# check if stderr is empty upon specifying -e
+mm_stderr: $(BIN)/mm
+	! test "$$(printf 'test\n' | $(BIN)/mm -i - -e 2>&1 >/dev/null)" = "test"

tests/bonsai/npc.mk

@@ -0,0 +1,42 @@
+#!/bin/sh
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+.PRAGMA: command_comment
+
+.PHONY: npc_tests
+npc_tests: npc_args npc_help
+
+.PHONY: npc_args
+# arg parsing
+npc_args:
+	$(BIN)/npc -e </dev/null
+	$(BIN)/npc -t </dev/null
+	$(BIN)/npc -et </dev/null
+	! $(BIN)/npc -et 5 </dev/null
+
+.PHONY: npc_help
+npc_help: $(BIN)/npc
+	! $(BIN)/npc -h
+
+#i=0; while "$BIN"/intcmp -l $i 178; do
+#	printf '\\%s\\n' "$i" \
+#		| xargs -I fmt printf fmt
+#
+#	# simulate octal
+#	i="$(printf '1 + %s\n' "$i" | bc)"
+#	printf '%s\n' "$i" \
+#			| tail -c 1 \
+#			| xargs "$BIN"/intcmp -e 8 \
+#		&& i="$(printf '2 + %s\n' "$i" | bc)"
+#	printf '%s\n' "$i" \
+#			| tail -c 2 \
+#			| dd count=1 bs=1 2>/dev/null \
+#			| xargs "$BIN"/intcmp -e 8 \
+#		&& i="$(printf '20 + %s\n' "$i" | bc)"
+#done

tests/bonsai/strcmp.mk

@@ -0,0 +1,31 @@
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+NAME = strcmp
+TARGET = $(NAME)_tests
+BINARY = $(BIN)/$(NAME)
+
+.PHONY: strcmp_tests
+strcmp_tests: strcmp_equals strcmp_help strcmp_nocmp strcmp_unequals
+
+.PHONY: strcmp_equals
+strcmp_equals: $(BIN)/strcmp
+	$(BIN)/strcmp equals equals
+	$(BIN)/strcmp - -
+
+.PHONY: strcmp_help
+strcmp_help: $(BIN)/strcmp
+	! $(BIN)/strcmp -h
+
+.PHONY: strcmp_nocmp
+strcmp_nocmp: $(BIN)/strcmp
+	! $(BIN)/strcmp nocmp
+
+.PHONY: strcmp_unequals
+strcmp_unequals: $(BIN)/strcmp
+	! $(BIN)/strcmp unequals equals

tests/bonsai/true.mk

@@ -0,0 +1,19 @@
+#!/bin/sh
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+.PHONY: true_tests
+true_tests: true_test
+
+.PHONY: true_help
+true_help: $(BIN)/true
+	$(BIN)/true -h
+
+.PHONY: true_test
+true_test: $(BIN)/true
+	$(BIN)/true

tests/posix-compat.sh

@@ -1,24 +0,0 @@
-#!/bin/sh
-
-# Copyright (c) 2023–2024 Emma Tebibyte <emma@tebibyte.media>
-# SPDX-License-Identifier: FSFAP
-#
-# Copying and distribution of this file, with or without modification, are
-# permitted in any medium without royalty provided the copyright notice and this
-# notice are preserved.  This file is offered as-is, without any warranty.
-
-set -e
-
-if ! ls Makefile >/dev/null 2>&1
-then
-	printf '%s: Run this script in the root of the project.\n' "$0" 1>&2 
-	exit 1
-fi
-
-printf "Starting POSIX compatibility testing.\n"
-
-for utility in tests/posix/*; do
-	printf '%s: %s: Testing utility.\n' "$0" "$utility"
-	"$utility"
-	printf '\n'
-done

tests/posix/bin/cat

@@ -0,0 +1,22 @@
+#!/bin/sh
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+# Strictly POSIX-compliant cat(1) implementation. See cat(1p)
+
+for arg in "$@"; do
+	case "$arg" in
+		-u) args="$(printf '%s	%s\n' "$args" "$arg")" ;;
+		*) args="$(printf -- '%s	-i	%s\n' "$args" "$arg")" ;;
+	esac
+done
+
+# See IEEE Std 1003.1-2017 3.282
+# https://pubs.opengroup.org/onlinepubs/9699919799/basedefs/V1_chap03.html#tag_03_282
+IFS='	'
+
+mm $args

tests/posix/bin/false

@@ -0,0 +1,12 @@
+#!/bin/sh
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+# Strictly POSIX-compliant false(1) implementation. See false(1p)
+
+false "$@"

tests/posix/bin/true

@@ -0,0 +1,11 @@
+#!/bin/sh
+# Copyright (c) 2024 DTB <trinity@trinity.moe>
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+# Strictly POSIX-compliant true(1) implementation. See true(1p)
+true "$@"

tests/posix/posix_env

@@ -0,0 +1,5 @@
+#!/bin/sh
+
+set -ex
+
+PATH="$PWD/bin:$PATH"

tests/tests.mk

@@ -0,0 +1,15 @@
+# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
+# SPDX-License-Identifier: FSFAP
+#
+# Copying and distribution of this file, with or without modification, are
+# permitted in any medium without royalty provided the copyright notice and this 
+# notice are preserved.  This file is offered as-is, without any warranty.
+
+
+#TESTFILES != for file in tests/bonsai/*.mk tests/posix/*.mk; do printf '%s ' "$$file"; done;
+TESTFILES != for file in tests/bonsai/*.mk; do printf '%s ' "$$file"; done;
+
+TESTS != printf '%s\n' "$(TESTFILES)" | xargs -n1 basename \
+	| sed 's/\.mk/_tests/g'
+
+include $(TESTFILES)