Subversion Repositories wimsdev

Rev

Rev 6458 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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