Rev 6418 | Rev 6435 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
6418 | bpr | 1 | !for a in $Tot_dom |
2 | !set t_dom=!lookup $a in $dir.$lang |
||
3 | !set draw$a=digraph bar {\ |
||
4 | rankdir=LR;\ |
||
5 | node [fontsize=10,width=".2", height=".2", margin=0 shape=rectangle]; |
||
6 | !set t_dom=!lookup $a in $dir.$lang |
||
7 | !set draw$a=$(draw$a)\ |
||
8 | "$a" [ label= "$t_dom"]; |
||
9 | !set t1=!lookup $a in $dir |
||
10 | !for t2l in $t1 |
||
11 | !set t2n=!lookup $t2l in $dir.$lang |
||
6419 | bpr | 12 | !default t2n=$t2l |
6418 | bpr | 13 | !set draw$a=$(draw$a)\ |
14 | "$a"-> "$t2n"; |
||
15 | !set t3=!lookup $t2l in $dir |
||
16 | !set cnt=!itemcnt $t3 |
||
17 | !if $cnt > 1 |
||
18 | !for t3l in $t3 |
||
19 | !set t3n=!lookup $t3l in $dir.$lang |
||
6419 | bpr | 20 | !default t3n=$t3l |
6418 | bpr | 21 | !set draw$a=$(draw$a)\ |
22 | "$t2n" -> "$t3n"; |
||
23 | !next |
||
24 | !endif |
||
25 | !next |
||
26 | !set draw$a=$(draw$a)\ |
||
27 | } |
||
28 | !set draw1=!exec graphviz $(draw$a) |
||
29 | <img src="$(draw1[1;])" /> |
||
30 | !next |