From: Keith Packard <keithp@keithp.com>
Date: Sun, 12 Aug 2012 08:17:14 +0000 (-0700)
Subject: Add retab to format partslist
X-Git-Tag: v0.1~10
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=4adcc8a236f126eee97c23795acfdba654bfa6ac;hp=449569ba95c38302b4d6e8f5915837ce775a5631;p=hw%2Fmicropeak

Add retab to format partslist
---

diff --git a/retab b/retab
new file mode 100644
index 0000000..b04ee10
--- /dev/null
+++ b/retab
@@ -0,0 +1,58 @@
+#!/usr/bin/nickle
+
+string[*][*]	lines;
+int[*]		widths;
+
+string[*] get_one(file in) {
+	string	l = File::fgets(in);
+	return String::wordsplit(l, "\t");
+}
+
+string[*][*] get_all(file in) {
+	string[...][*] l = {};
+	while (!File::end(in))
+		l[dim(l)] = get_one(in);
+	return l;
+}
+
+int[*] find_widths(string[*][*] lines) {
+	int[...]	w = {};
+	for (int r = 0; r < dim(lines); r++) {
+		for (int c = 0; c < dim(lines[r]); c++) {
+			int	len = String::length(lines[r][c]);
+			if (c >= dim(w))
+				w[c] = len;
+			else
+				w[c] = max(w[c], len);
+		}
+	}
+	return w;
+}
+
+void print_one(string s, int w) {
+	int	l = String::length(s);
+	printf ("%s ", s);
+	while (l < w) {
+		putchar(' ');
+		l++;
+	}
+}
+
+void print_line(string[*] line) {
+	for (int c = 0; c < dim(line); c++)
+		print_one(line[c], widths[c]);
+	putchar('\n');
+}
+
+void print_all() {
+	for (int r = 0; r < dim(lines); r++)
+		print_line(lines[r]);
+}
+
+void doit () {
+	lines = get_all(stdin);
+	widths = find_widths(lines);
+	print_all();
+}
+
+doit();