Return to gprof2dag.awk CVS log

Up to [Research Unix] / researchv10no / cmd / dag

Annotation of researchv10no/cmd/dag/gprof2dag.awk, revision 1.1

1.1     ! root        1: BEGIN                  {
        !             2:        total = -1.0;
        !             3:        maxcolor = .65
        !             4:        minsaturation = .3;
        !             5: 
        !             6:        print ".GS";
        !             7:        print ".PS";
        !             8:        print"/ShadedEllipse {";
        !             9:        print"    /height exch def";
        !            10:        print"    /width exch def";
        !            11:        print"    /nodename exch def";
        !            12:        print"    currentpoint            % save for label";
        !            13:        print"    % distort user space";
        !            14:        print"    gsave";
        !            15:        print"        currentpoint translate";
        !            16:        print"        0 0 moveto";
        !            17:        print"        width height div 1 scale    % scale in x";
        !            18:        print"        height 2 div 0 rmoveto";
        !            19:        print"        0 0 height 2 div 0 360 arc closepath";
        !            20:        print"        gsave";
        !            21:        print"            fill";
        !            22:        print"        grestore";
        !            23:        print"        0 setgray stroke";
        !            24:        print"    grestore";
        !            25:        print"    moveto";
        !            26:        print"    gsave";
        !            27:        print"        0 setgray";
        !            28:        print"        nodename width .9 mul height .9 mul daglabel";
        !            29:        print"    grestore";
        !            30:        print"} def";
        !            31:        print"/ShadedEllipse_clip {Ellipse_clip} bind def";
        !            32:        print".PE";
        !            33:        printf ("draw nodes as ShadedEllipse color \"[%.2f %.2f 1]\";\n",maxcolor,minsaturation);
        !            34: 
        !            35: }
        !            36: 
        !            37: $1 ~ /\[/ && $0 !~ "as a"              {
        !            38:                                        if ($5 == "start") total = $3 + $4;
        !            39:                                        else {if (total <= 0.0) exit;}
        !            40:                                        if (NF == 6) {
        !            41:                                                tail = $5
        !            42:                                                source = 1
        !            43:                                        }
        !            44:                                        else {
        !            45:                                                tail = $6
        !            46:                                                source = 0
        !            47:                                        }
        !            48:                                        first = 1
        !            49: 
        !            50:                                        while (getline) {
        !            51:                                                if (NF == 0) {
        !            52:                                                        if (first == 1) {
        !            53:                                                                if (source == 1)
        !            54:                                                                        print "node " tail ";"
        !            55:                                                        }
        !            56:                                                        else
        !            57:                                                                print ";"
        !            58:                                                        break
        !            59:                                                }
        !            60:                                                if ( $2 ~ /\./ ) {
        !            61:                                                        color = maxcolor * (1.0 - ($1 + $2)/total)
        !            62: 
        !            63:                                                        if (first == 1) {
        !            64:                                                                first = 0
        !            65:                                                                printf ("edge from %s to %s color \"[%.2f 1 1]\"", tail, $4, color)
        !            66:                                                        }
        !            67:                                                        else  {
        !            68:                                                                printf (",\n\tto %s color \"[%.2f 1 1]\"", $4, color)
        !            69:                                                        }
        !            70:                                                        Indegree[$4] += 1;
        !            71:                                                }
        !            72:                                                else {          # Recursive call
        !            73:                                                        if (first == 1) {
        !            74:                                                                first = 0
        !            75:                                                                printf ("edge from %s to %s ", tail, $2)
        !            76:                                                        }
        !            77:                                                        else {
        !            78:                                                                printf (",\n\tto %s", $2)
        !            79:                                                        }
        !            80:                                                }
        !            81:                                        }
        !            82:                                }
        !            83: 
        !            84: $1 == "flat" {
        !            85:        while ($1 != "granularity:") getline;
        !            86:        getline;
        !            87:        getline;
        !            88:        getline;
        !            89:        getline;
        !            90:        while (Indegree[$(NF - 1)] <= 0) getline;
        !            91:        scale = $1;
        !            92:        while (NF > 0) {
        !            93:                if ($1 == "") exit;
        !            94:                if ($(NF - 2) == "<cycle") func_name = $(NF - 3);
        !            95:                else func_name = $(NF - 1);
        !            96:                if (Indegree[func_name] > 0) {
        !            97:                        color = maxcolor * (1.0 - $1/scale);
        !            98:                        saturation = minsaturation + ((1.0 - minsaturation) * $1/scale);
        !            99:                        printf("draw %s color \"[%.2f %.2f 1]\";\n",func_name,color,saturation);
        !           100:                }
        !           101:                getline;
        !           102:        }
        !           103:        exit;
        !           104: }
        !           105: 
        !           106: END                            { print ".GE" }

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