1 files changed, 98 insertions, 0 deletions
diff --git a/util/sbase/strings.c b/util/sbase/strings.c
new file mode 100644
index 00000000..8f5a1540
--- /dev/null
+++ b/util/sbase/strings.c
@@ -0,0 +1,98 @@
+/* See LICENSE file for copyright and license details. */
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "utf.h"
+#include "util.h"
+
+static char *format = "";
+
+static void
+strings(FILE *fp, const char *fname, size_t min)
+{
+	Rune r, *rbuf;
+	size_t i, bread;
+	off_t off;
+
+	rbuf = ereallocarray(NULL, min, sizeof(*rbuf));
+
+	for (off = 0, i = 0; (bread = efgetrune(&r, fp, fname)); ) {
+		off += bread;
+		if (r == Runeerror)
+			continue;
+		if (!isprintrune(r)) {
+			if (i == min)
+				putchar('\n');
+			i = 0;
+			continue;
+		}
+		if (i == min) {
+			efputrune(&r, stdout, "<stdout>");
+			continue;
+		}
+		rbuf[i++] = r;
+		if (i < min)
+			continue;
+		printf(format, (long)off - i);
+		for (i = 0; i < min; i++)
+			efputrune(rbuf + i, stdout, "<stdout>");
+	}
+	free(rbuf);
+}
+
+static void
+usage(void)
+{
+	eprintf("usage: %s [-a] [-n num] [-t format] [file ...]\n", argv0);
+}
+
+int
+main(int argc, char *argv[])
+{
+	FILE *fp;
+	size_t min = 4;
+	int ret = 0;
+	char f;
+
+	ARGBEGIN {
+	case 'a':
+		break;
+	case 'n':
+		min = estrtonum(EARGF(usage()), 1, LLONG_MAX);
+		break;
+	case 't':
+		format = estrdup("%8l#: ");
+		f = *EARGF(usage());
+		if (f == 'd' || f == 'o' || f == 'x')
+			format[3] = f;
+		else
+			usage();
+		break;
+	default:
+		usage();
+	} ARGEND
+
+	if (!argc) {
+		strings(stdin, "<stdin>", min);
+	} 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;
+			}
+			strings(fp, *argv, min);
+			if (fp != stdin && fshut(fp, *argv))
+				ret = 1;
+		}
+	}
+
+	ret |= fshut(stdin, "<stdin>") | fshut(stdout, "<stdout>");
+
+	return ret;
+}