doclib/dot-munge.pl

   1 #!/usr/bin/perl -i -n
   2
   3 # Reduce font size
   4 s/fontsize=10/fontsize=8/g;
   5
   6 # Wrap long labels (templates)
   7 if (/label=\"([^"]*)\"/) {                                  #"])){ # To make emacs happy ...
   8     $pre=$`;
   9     $post=$';                                               #';    # To make emacs happy ...
  10     $label=$1;
  11
  12     # Break at each komma
  13     $label=~s/,/,\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
  14
  15     # If more than one '<' is in the label, break after each '<'
  16     if (($label=~tr/</</)>1) {
  17         $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
  18     }
  19
  20     # If at least one break is in there ...
  21     if ($label=~/\\r/) {
  22         # Make last line flush right
  23         $label.="\\r";
  24         # and first line flush left
  25         $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
  26     }
  27     print "${pre}label=\"${label}\"${post}";
  28 } else {
  29     print;
  30 }