1 files changed, 35 insertions, 0 deletions
diff --git a/ToF/map2sqr b/ToF/map2sqr
new file mode 100755
index 0000000..a5739a0
--- /dev/null
+++ b/ToF/map2sqr
@@ -0,0 +1,35 @@
+#!/usr/bin/awk -f
+BEGIN {
+    ol = -1;
+}
+
+NR <= 4 {
+    print $0;
+}
+
+NR > 4 {
+    f = $1;
+    l = $2;
+    c = l - f + 1;
+    if ((ol + 1) != f) {
+	print "You blew it @ line", NR > "/dev/stderr"
+	exit -1;
+    }
+    ol = l;
+    print c;
+    
+    d = $3;
+    print d;
+    d = $4;
+    print d;
+
+    for (i = 5; i <= NF; i++) {
+	$(i - 4) = $i;
+    }
+    NF -= 4;
+    print $0;
+}
+
+END {
+    print 0;
+}