Subversion Repositories wimsdev

Rev

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

Rev 6435 Rev 6458
Line 2... Line 2...
2 
  !exit
 2 
  !exit
3 
!endif
 3 
!endif
- 
 
 4 
 
- 
 
 5 
!set cat=A
- 
 
 6 
 
4 
!for a in $wims_read_parm
 7 
!for a in $wims_read_parm
5 
 !set t_dom=!lookup $a in $dir.$lang
 8 
 !set t_dom=!lookup $a in $dir.$lang
6 
 !set draw$a=digraph bar {\
 9 
 !set draw$a=digraph bar {\
7 
        rankdir=LR;\
 10 
        rankdir=LR;\
8 
        node [fontsize=10,width=".2", height=".2", margin=0 shape=rectangle];
 11 
        node [fontsize=12,width=".3", height=".3", margin=0.1 shape=ellipse color=blue];
9 
  !set t_dom=!lookup $a in $dir.$lang
 12 
  !set t_dom=!lookup $a in $dir.$lang
10 
   !set draw$a=$(draw$a)\
 13 
   !set draw$a=$(draw$a)\
11 
    "$a" [ label= "$t_dom"];
 14 
    "$a" [ label= "$t_dom"];
12 
   !set t1=!lookup $a in $dir
 15 
   !set t1=!lookup $a in $dir
13 
   !for t2l in $t1
 16 
   !for t2l in $t1
14 
     !set t2n=!lookup $t2l in $dir.$lang
 17 
     !set t2n=!lookup $t2l in $dir.$lang
15 
     !default t2n=$t2l
 18 
     !default t2n=$t2l
- 
 
 19 
!!!!!
- 
 
 20 
     !set key=!lookup $t2l in $dir
- 
 
 21 
     !default key=$t2l
- 
 
 22 
     !set key_l=!lookup $t2l in $dir_lang
- 
 
 23 
     !set key=!replace internal _ by $ $  in $t2l
- 
 
 24 
     !set key=$key,$key_l
- 
 
 25 
!!!!!
- 
 
 26 
     !!set more=!lookup $t in $dir
16 
     !set draw$a=$(draw$a)\
 27 
     !set draw$a=$(draw$a)\
- 
 
 28 
        "$t2n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\
17 
        "$a"-> "$t2n";
 29 
        "$a"-> "$t2n";
18 
     !set t3=!lookup $t2l in $dir
 30 
     !set t3=!lookup $t2l in $dir
19 
     !set cnt=!itemcnt $t3
 31 
     !set cnt=!itemcnt $t3
20 
     !if $cnt > 1
 32 
     !if $cnt > 1
21 
        !for t3l in $t3
 33 
        !for t3l in $t3
22 
          !set t3n=!lookup $t3l in $dir.$lang
 34 
          !set t3n=!lookup $t3l in $dir.$lang
23 
          !default t3n=$t3l
 35 
          !default t3n=$t3l
- 
 
 36 
!!!!!
- 
 
 37 
     !set key=!lookup $t3l in $dir
- 
 
 38 
     !default key=$t3l
- 
 
 39 
     !set key_l=!lookup $t3l in $dir_lang
- 
 
 40 
     !set key=!replace internal _ by $ $  in $t3l
- 
 
 41 
     !set key=$key,$key_l
- 
 
 42 
!!!!!
24 
         !set draw$a=$(draw$a)\
 43 
         !set draw$a=$(draw$a)\
- 
 
 44 
         "$t3n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\
25 
           "$t2n" -> "$t3n";
 45 
         "$t2n" -> "$t3n";
- 
 
 46 
         !set more=!lookup $t3l in $dir
- 
 
 47 
         !if $more !=$empty
- 
 
 48 
          !set draw$a=$(draw$a)\
- 
 
 49 
         "suite$t3n" [ label="suite" URL="$wims_ref_name?session=$wims_session&module=$module&job=$job&parm=$t3l" ];\
- 
 
 50 
         "$t3n" -> "suite$t3n";
- 
 
 51 
         !endif
26 
        !next
 52 
        !next
27 
     !endif
 53 
     !endif
28 
   !next
 54 
   !next
29 
  !set draw$a=$(draw$a)\
 55 
  !set draw$a=$(draw$a)\
30 
}
 56 
}
- 
 
 57 
!set graphviz_format=dot
- 
 
 58 
!set graphviz_output=svg
31 
!set draw1=!exec graphviz $(draw$a)
 59 
!set draw1=!exec graphviz $(draw$a)
- 
 
 60 
 
- 
 
 61 
$(draw1)
- 
 
 62 
 
32 
<img src="$(draw1[1;])" alt="$a"/>
 63 
!!<object type="image/svg+xml" data="$(draw1[1;])">
- 
 
 64 
!!    Le navigateur ne supporte pas les fichiers SVG !
- 
 
 65 
!!</object>
33 
!next
 66 
!next
34 
 
 67