diff options
Diffstat (limited to 'ToF/map2sqr')
-rwxr-xr-x | ToF/map2sqr | 35 |
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; +} |