Subversion Repositories wimsdev

Rev

Rev 6419 | Rev 6458 | 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. !for a in $wims_read_parm
  5.  !set t_dom=!lookup $a in $dir.$lang
  6.  !set draw$a=digraph bar {\
  7.         rankdir=LR;\
  8.         node [fontsize=10,width=".2", height=".2", margin=0 shape=rectangle];
  9.   !set t_dom=!lookup $a in $dir.$lang
  10.    !set draw$a=$(draw$a)\
  11.     "$a" [ label= "$t_dom"];
  12.    !set t1=!lookup $a in $dir
  13.    !for t2l in $t1
  14.      !set t2n=!lookup $t2l in $dir.$lang
  15.      !default t2n=$t2l
  16.      !set draw$a=$(draw$a)\
  17.         "$a"-> "$t2n";
  18.      !set t3=!lookup $t2l in $dir
  19.      !set cnt=!itemcnt $t3
  20.      !if $cnt > 1
  21.         !for t3l in $t3
  22.           !set t3n=!lookup $t3l in $dir.$lang
  23.           !default t3n=$t3l
  24.          !set draw$a=$(draw$a)\
  25.            "$t2n" -> "$t3n";
  26.         !next
  27.      !endif
  28.    !next
  29.   !set draw$a=$(draw$a)\
  30. }
  31. !set draw1=!exec graphviz $(draw$a)
  32. <img src="$(draw1[1;])" alt="$a"/>
  33. !next
  34.  
  35.