From e9a910b33c7837b4b868e3abda18eb4810df7f02 Mon Sep 17 00:00:00 2001
From: Leah Rowe <leah@libreboot.org>
Date: Sat, 4 Oct 2025 09:14:33 +0100
Subject: config/git: import suckless sbase

i currently use the output of sha512sum in several
places of xbmk, which is a bit unreliable in case
output changes.

other cases where i use util outputs in variables
are probably reliable, because i'm using mostly
posix utilities in those.

to mitigate this, i now import suckless sbase, which
has a reasonable sha512sum implementation.

*every* binary it builds is being placed in build.list,
because i'll probably start using more of them.

for example, i may start modifying the "date"
implementation, adding the GNU-specific options that
i need as mentioned on init.sh

i'm importing it in util/ because the sha512sum
util is needed for verifying project sources, so
if sbase itself is a "project source", that means
we can into a chicken and egg bootstrapping problem.

this is sbase at revision:
055cc1ae1b3a13c3d8f25af0a4a3316590efcd48

Signed-off-by: Leah Rowe <leah@libreboot.org>
---
 util/sbase/unexpand.c | 174 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 174 insertions(+)
 create mode 100644 util/sbase/unexpand.c

(limited to 'util/sbase/unexpand.c')

diff --git a/util/sbase/unexpand.c b/util/sbase/unexpand.c
new file mode 100644
index 00000000..1818691e
--- /dev/null
+++ b/util/sbase/unexpand.c
@@ -0,0 +1,174 @@
+/* See LICENSE file for copyright and license details. */
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "utf.h"
+#include "util.h"
+
+static int     aflag      = 0;
+static size_t *tablist    = NULL;
+static size_t  tablistlen = 8;
+
+static size_t
+parselist(const char *s)
+{
+	size_t i;
+	char  *p, *tmp;
+
+	tmp = estrdup(s);
+	for (i = 0; (p = strsep(&tmp, " ,")); i++) {
+		if (*p == '\0')
+			eprintf("empty field in tablist\n");
+		tablist = ereallocarray(tablist, i + 1, sizeof(*tablist));
+		tablist[i] = estrtonum(p, 1, MIN(LLONG_MAX, SIZE_MAX));
+		if (i > 0 && tablist[i - 1] >= tablist[i])
+			eprintf("tablist must be ascending\n");
+	}
+	tablist = ereallocarray(tablist, i + 1, sizeof(*tablist));
+
+	return i;
+}
+
+static void
+unexpandspan(size_t last, size_t col)
+{
+	size_t off, i, j;
+	Rune r;
+
+	if (tablistlen == 1) {
+		i = 0;
+		off = last % tablist[i];
+
+		if ((col - last) + off >= tablist[i] && last < col)
+			last -= off;
+
+		r = '\t';
+		for (; last + tablist[i] <= col; last += tablist[i])
+			efputrune(&r, stdout, "<stdout>");
+		r = ' ';
+		for (; last < col; last++)
+			efputrune(&r, stdout, "<stdout>");
+	} else {
+		for (i = 0; i < tablistlen; i++)
+			if (col < tablist[i])
+				break;
+		for (j = 0; j < tablistlen; j++)
+			if (last < tablist[j])
+				break;
+		r = '\t';
+		for (; j < i; j++) {
+			efputrune(&r, stdout, "<stdout>");
+			last = tablist[j];
+		}
+		r = ' ';
+		for (; last < col; last++)
+			efputrune(&r, stdout, "<stdout>");
+	}
+}
+
+static void
+unexpand(const char *file, FILE *fp)
+{
+	Rune r;
+	size_t last = 0, col = 0, i;
+	int bol = 1;
+
+	while (efgetrune(&r, fp, file)) {
+		switch (r) {
+		case ' ':
+			if (!bol && !aflag)
+				last++;
+			col++;
+			break;
+		case '\t':
+			if (tablistlen == 1) {
+				if (!bol && !aflag)
+					last += tablist[0] - col % tablist[0];
+				col += tablist[0] - col % tablist[0];
+			} else {
+				for (i = 0; i < tablistlen; i++)
+					if (col < tablist[i])
+						break;
+				if (!bol && !aflag)
+					last = tablist[i];
+				col = tablist[i];
+			}
+			break;
+		case '\b':
+			if (bol || aflag)
+				unexpandspan(last, col);
+			col -= (col > 0);
+			last = col;
+			bol = 0;
+			break;
+		case '\n':
+			if (bol || aflag)
+				unexpandspan(last, col);
+			last = col = 0;
+			bol = 1;
+			break;
+		default:
+			if (bol || aflag)
+				unexpandspan(last, col);
+			last = ++col;
+			bol = 0;
+			break;
+		}
+		if ((r != ' ' && r != '\t') || (!aflag && !bol))
+			efputrune(&r, stdout, "<stdout>");
+	}
+	if (last < col && (bol || aflag))
+		unexpandspan(last, col);
+}
+
+static void
+usage(void)
+{
+	eprintf("usage: %s [-a] [-t tablist] [file ...]\n", argv0);
+}
+
+int
+main(int argc, char *argv[])
+{
+	FILE *fp;
+	int ret = 0;
+	char *tl = "8";
+
+	ARGBEGIN {
+	case 't':
+		tl = EARGF(usage());
+		if (!*tl)
+			eprintf("tablist cannot be empty\n");
+		/* Fallthrough: -t implies -a */
+	case 'a':
+		aflag = 1;
+		break;
+	default:
+		usage();
+	} ARGEND
+
+	tablistlen = parselist(tl);
+
+	if (!argc) {
+		unexpand("<stdin>", stdin);
+	} else {
+		for (; *argv; argc--, argv++) {
+			if (!strcmp(*argv, "-")) {
+				*argv = "<stdin>";
+				fp = stdin;
+			} else if (!(fp = fopen(*argv, "r"))) {
+				weprintf("fopen %s:", *argv);
+				ret = 1;
+				continue;
+			}
+			unexpand(*argv, fp);
+			if (fp != stdin && fshut(fp, *argv))
+				ret = 1;
+		}
+	}
+
+	ret |= fshut(stdin, "<stdin>") | fshut(stdout, "<stdout>");
+
+	return ret;
+}
-- 
cgit v1.2.1