4 s/fontsize=10/fontsize=8/g;
6 # Wrap long labels (templates)
7 if (/label=\"([^"]*)\"/) { #"])){ # To make emacs happy ...
9 $post=$'; #'; # To make emacs happy ...
13 $label=~s/,/,\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
15 # If more than one '<' is in the label, break after each '<'
16 if (($label=~tr/</</)>1) {
17 $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
20 # If at least one break is in there ...
22 # Make last line flush right
24 # and first line flush left
25 $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
27 print "${pre}label=\"${label}\"${post}";