Subversion Repositories wimsdev

Rev

Rev 6418 | Rev 6435 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6418 Rev 6419
Line 7... Line 7...
7 
   !set draw$a=$(draw$a)\
 7 
   !set draw$a=$(draw$a)\
8 
    "$a" [ label= "$t_dom"];
 8 
    "$a" [ label= "$t_dom"];
9 
   !set t1=!lookup $a in $dir
 9 
   !set t1=!lookup $a in $dir
10 
   !for t2l in $t1
 10 
   !for t2l in $t1
11 
     !set t2n=!lookup $t2l in $dir.$lang
 11 
     !set t2n=!lookup $t2l in $dir.$lang
- 
 
 12 
     !default t2n=$t2l
12 
     !set draw$a=$(draw$a)\
 13 
     !set draw$a=$(draw$a)\
13 
        "$a"-> "$t2n";
 14 
        "$a"-> "$t2n";
14 
     !set t3=!lookup $t2l in $dir
 15 
     !set t3=!lookup $t2l in $dir
15 
     !set cnt=!itemcnt $t3
 16 
     !set cnt=!itemcnt $t3
16 
     !if $cnt > 1
 17 
     !if $cnt > 1
17 
        !for t3l in $t3
 18 
        !for t3l in $t3
18 
          !set t3n=!lookup $t3l in $dir.$lang
 19 
          !set t3n=!lookup $t3l in $dir.$lang
- 
 
 20 
          !default t3n=$t3l
19 
         !set draw$a=$(draw$a)\
 21 
         !set draw$a=$(draw$a)\
20 
           "$t2n" -> "$t3n";
 22 
           "$t2n" -> "$t3n";
21 
        !next
 23 
        !next
22 
     !endif
 24 
     !endif
23 
   !next
 25 
   !next