Subversion Repositories wimsdev

Rev

Rev 6435 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !if $wims_read_parm=$empty
  2.   !exit
  3. !endif
  4.  
  5. !set cat=A
  6.  
  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
  13.    !set draw$a=$(draw$a)\
  14.     "$a" [ label= "$t_dom"];
  15.    !set t1=!lookup $a in $dir
  16.    !for t2l in $t1
  17.      !set t2n=!lookup $t2l in $dir.$lang
  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
  27.      !set draw$a=$(draw$a)\
  28.         "$t2n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\
  29.         "$a"-> "$t2n";
  30.      !set t3=!lookup $t2l in $dir
  31.      !set cnt=!itemcnt $t3
  32.      !if $cnt > 1
  33.         !for t3l in $t3
  34.           !set t3n=!lookup $t3l in $dir.$lang
  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. !!!!!
  43.          !set draw$a=$(draw$a)\
  44.          "$t3n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\
  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
  52.         !next
  53.      !endif
  54.    !next
  55.   !set draw$a=$(draw$a)\
  56. }
  57. !set graphviz_format=dot
  58. !set graphviz_output=svg
  59. !set draw1=!exec graphviz $(draw$a)
  60.  
  61. $(draw1)
  62.  
  63. !!<object type="image/svg+xml" data="$(draw1[1;])">
  64. !!    Le navigateur ne supporte pas les fichiers SVG !
  65. !!</object>
  66. !next
  67.  
  68.