Return to malloc.awk CVS log

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

Annotation of researchv10dc/vol2/anim/malloc.awk, revision 1.1

1.1     ! root        1: awk '
        !             2: BEGIN        { OFS = "\t"; w = 1024 }
        !             3: $1 == "m"     { s = $2
        !             4:                ehist[s] = e = s + $3
        !             5:                sx = s % w; sy = int(s / w)
        !             6:                ex = e % w; ey = int(e / w)
        !             7:                if (sy == ey) print "a" s ": line", sx, sy, ex, sy
        !             8:                else {  print "a" s ": line " sx " " sy " " w " " sy
        !             9:                        for (i = sy+1; i <= ey-1; i++)
        !            10:                                print "b" i ": line", 0, i, w, i
        !            11:                        print "c" ey ": line", 0, ey, ex, ey
        !            12:                }
        !            13:              }
        !            14: $1 == "f"     {        s = $2
        !            15:                e = ehist[s]
        !            16:                sx = s % w; sy = int(s / w)
        !            17:                ex = e % w; ey = int(e / w)
        !            18:                if (sy == ey) print "erase a" s
        !            19:                else {  print "erase a" s
        !            20:                        for (i = sy+1; i <= ey-1; i++)
        !            21:                                print "erase b" i
        !            22:                        print "erase c" ey
        !            23:                }
        !            24:              }
        !            25:              { print "click call" }
        !            26: ' $*

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