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     ! 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.