Return to bm.sh CVS log

Up to [Research Unix] / researchv10dc / vol2 / ADM

Annotation of researchv10dc/vol2/ADM/bm.sh, revision 1.1.1.1

1.1       root        1: #!/bin/sh
                      2: awk ' BEGIN    { pat = "^x X PI:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^,]*,[^,]*,[^,]*,"; }
                      3: /^x X COORD/   {
                      4:        found[$4] = 1
                      5:        coord[$4] = $11
                      6:        next
                      7: }
                      8: /^x X PI/      {
                      9:        split($3, a, ":")
                     10:        off = coord[a[6]]-a[2]
                     11:        if(found[a[6]] && off && match($0, pat)){
                     12:                pre = substr($0, RSTART, RLENGTH)
                     13:                post = substr($0, RSTART+RLENGTH)
                     14:                newx = post+off
                     15:                sub("^[0-9]*", "" newx, post)
                     16:                print "# increasing following xoff by " off
                     17:                $0 = pre post
                     18:        }
                     19: }
                     20:        { print $0 }
                     21: '

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.