X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=retab;fp=retab;h=0000000000000000000000000000000000000000;hb=ea334d5bb93d4a54c8954855bf7226b4ee2acbbb;hp=b04ee10537a945d91d42bf8f6c57fdb2054eef39;hpb=89aa1c3d304b1b3b10ba84d1e6775b8dea5128db;p=hw%2Ftelegps

diff --git a/retab b/retab
deleted file mode 100644
index b04ee10..0000000
--- a/retab
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/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();