summaryrefslogtreecommitdiff
path: root/ToF/map2sqr
diff options
context:
space:
mode:
Diffstat (limited to 'ToF/map2sqr')
-rwxr-xr-xToF/map2sqr35
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;
+}