Return to cfdag.awk CVS log

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

Annotation of researchv10no/cmd/dag/cfdag.awk, revision 1.1.1.1

1.1       root        1: BEGIN {print ".GS"; print "draw nodes pointsize 30;"; print "separate ranks 6;"}
                      2: 
                      3: {      sub("[0-9]*",""); 
                      4:        for (i = 0; substr($0,i,1) == "\t"; i++);
                      5:        i--;
                      6:        inp = substr($0,i+1,length($0));
                      7:        sub(":.*","",inp);
                      8:        if (i > 1) printf("%s %s ;\n",stack[i - 1],inp);
                      9:        stack[i] = inp;
                     10: }
                     11: 
                     12: END {print ".GE";}

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