Subversion Repositories wimsdev

Rev

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

Rev 6419 Rev 6435
Line -... Line 1...
- 
 
 1 
!if $wims_read_parm=$empty
- 
 
 2 
  !exit
- 
 
 3 
!endif
1 
!for a in $Tot_dom
 4 
!for a in $wims_read_parm
2 
!set t_dom=!lookup $a in $dir.$lang
 5 
 !set t_dom=!lookup $a in $dir.$lang
3 
 !set draw$a=digraph bar {\
 6 
 !set draw$a=digraph bar {\
4 
        rankdir=LR;\
 7 
        rankdir=LR;\
5 
        node [fontsize=10,width=".2", height=".2", margin=0 shape=rectangle];
 8 
        node [fontsize=10,width=".2", height=".2", margin=0 shape=rectangle];
6 
  !set t_dom=!lookup $a in $dir.$lang
 9 
  !set t_dom=!lookup $a in $dir.$lang
7 
   !set draw$a=$(draw$a)\
 10 
   !set draw$a=$(draw$a)\
Line 24... Line 27...
24 
     !endif
 27 
     !endif
25 
   !next
 28 
   !next
26 
  !set draw$a=$(draw$a)\
 29 
  !set draw$a=$(draw$a)\
27 
}
 30 
}
28 
!set draw1=!exec graphviz $(draw$a)
 31 
!set draw1=!exec graphviz $(draw$a)
29 
<img src="$(draw1[1;])" />
 32 
<img src="$(draw1[1;])" alt="$a"/>
30 
!next
 33 
!next
- 
 
 34