From c19473a09f0e7a0262a603faee0b0e50654c0bae Mon Sep 17 00:00:00 2001
From: Pixel <Pixel>
Date: Sat, 25 May 2002 05:35:07 +0000
Subject: Welcome to the DTE thing.

---
 VP/map2sqr | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 VP/map2sqr

(limited to 'VP')

diff --git a/VP/map2sqr b/VP/map2sqr
new file mode 100755
index 0000000..a5739a0
--- /dev/null
+++ b/VP/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;
+}
-- 
cgit v1.2.3