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>

1 files changed, 188 insertions, 0 deletions

diff --git a/util/sbase/printf.c b/util/sbase/printf.c
new file mode 100644
index 00000000..039dac71
--- /dev/null
+++ b/util/sbase/printf.c
@@ -0,0 +1,188 @@
+/* See LICENSE file for copyright and license details. */
+#include <ctype.h>
+#include <errno.h>
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "utf.h"
+#include "util.h"
+
+static void
+usage(void)
+{
+	eprintf("usage: %s format [arg ...]\n", argv0);
+}
+
+int
+main(int argc, char *argv[])
+{
+	Rune *rarg;
+	size_t i, j, argi, lastargi, formatlen, blen;
+	long long num;
+	double dou;
+	int cooldown = 0, width, precision, ret = 0;
+	char *format, *tmp, *arg, *fmt, flag;
+
+	argv0 = argv[0];
+	if (argc < 2)
+		usage();
+
+	format = argv[1];
+	if ((tmp = strstr(format, "\\c"))) {
+		*tmp = 0;
+		cooldown = 1;
+	}
+	formatlen = unescape(format);
+	if (formatlen == 0)
+		return 0;
+	lastargi = 0;
+	for (i = 0, argi = 2; !cooldown || i < formatlen; i++, i = cooldown ? i : (i % formatlen)) {
+		if (i == 0) {
+			if (lastargi == argi)
+				break;
+			lastargi = argi;
+		}
+		if (format[i] != '%') {
+			putchar(format[i]);
+			continue;
+		}
+
+		/* flag */
+		for (flag = '\0', i++; strchr("#-+ 0", format[i]); i++) {
+			flag = format[i];
+		}
+
+		/* field width */
+		width = -1;
+		if (format[i] == '*') {
+			if (argi < argc)
+				width = estrtonum(argv[argi++], 0, INT_MAX);
+			else
+				cooldown = 1;
+			i++;
+		} else {
+			j = i;
+			for (; strchr("+-0123456789", format[i]); i++);
+			if (j != i) {
+				tmp = estrndup(format + j, i - j);
+				width = estrtonum(tmp, 0, INT_MAX);
+				free(tmp);
+			} else {
+				width = 0;
+			}
+		}
+
+		/* field precision */
+		precision = -1;
+		if (format[i] == '.') {
+			if (format[++i] == '*') {
+				if (argi < argc)
+					precision = estrtonum(argv[argi++], 0, INT_MAX);
+				else
+					cooldown = 1;
+				i++;
+			} else {
+				j = i;
+				for (; strchr("+-0123456789", format[i]); i++);
+				if (j != i) {
+					tmp = estrndup(format + j, i - j);
+					precision = estrtonum(tmp, 0, INT_MAX);
+					free(tmp);
+				} else {
+					precision = 0;
+				}
+			}
+		}
+
+		if (format[i] != '%') {
+			if (argi < argc)
+				arg = argv[argi++];
+			else {
+				arg = "";
+				cooldown = 1;
+			}
+		} else {
+			putchar('%');
+			continue;
+		}
+
+		switch (format[i]) {
+		case 'b':
+			if ((tmp = strstr(arg, "\\c"))) {
+				*tmp = 0;
+				blen = unescape(arg);
+				fwrite(arg, sizeof(*arg), blen, stdout);
+				return 0;
+			}
+			blen = unescape(arg);
+			fwrite(arg, sizeof(*arg), blen, stdout);
+			break;
+		case 'c':
+			unescape(arg);
+			rarg = ereallocarray(NULL, utflen(arg) + 1, sizeof(*rarg));
+			utftorunestr(arg, rarg);
+			efputrune(rarg, stdout, "<stdout>");
+			free(rarg);
+			break;
+		case 's':
+			fmt = estrdup(flag ? "%#*.*s" : "%*.*s");
+			if (flag)
+				fmt[1] = flag;
+			printf(fmt, width, precision, arg);
+			free(fmt);
+			break;
+		case 'd': case 'i': case 'o': case 'u': case 'x': case 'X':
+			for (j = 0; isspace(arg[j]); j++);
+			if (arg[j] == '\'' || arg[j] == '\"') {
+				arg += j + 1;
+				unescape(arg);
+				rarg = ereallocarray(NULL, utflen(arg) + 1, sizeof(*rarg));
+				utftorunestr(arg, rarg);
+				num = rarg[0];
+			} else if (arg[0]) {
+				errno = 0;
+				if (format[i] == 'd' || format[i] == 'i')
+					num = strtol(arg, &tmp, 0);
+				else
+					num = strtoul(arg, &tmp, 0);
+
+				if (tmp == arg || *tmp != '\0') {
+					ret = 1;
+					weprintf("%%%c %s: conversion error\n",
+					    format[i], arg);
+				}
+				if (errno == ERANGE) {
+					ret = 1;
+					weprintf("%%%c %s: out of range\n",
+					    format[i], arg);
+				}
+			} else {
+					num = 0;
+			}
+			fmt = estrdup(flag ? "%#*.*ll#" : "%*.*ll#");
+			if (flag)
+				fmt[1] = flag;
+			fmt[flag ? 7 : 6] = format[i];
+			printf(fmt, width, precision, num);
+			free(fmt);
+			break;
+		case 'a': case 'A': case 'e': case 'E': case 'f': case 'F': case 'g': case 'G':
+			fmt = estrdup(flag ? "%#*.*#" : "%*.*#");
+			if (flag)
+				fmt[1] = flag;
+			fmt[flag ? 5 : 4] = format[i];
+			dou = (strlen(arg) > 0) ? estrtod(arg) : 0;
+			printf(fmt, width, precision, dou);
+			free(fmt);
+			break;
+		default:
+			eprintf("Invalid format specifier '%c'.\n", format[i]);
+		}
+		if (argi >= argc)
+			cooldown = 1;
+	}
+
+	return fshut(stdout, "<stdout>") | ret;
+}