Subversion Repositories wimsdev

Rev

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