aboutsummaryrefslogtreecommitdiff
path: root/ovsdb/dot2pic
diff options
context:
space:
mode:
authorBen Pfaff <blp@nicira.com>2010-12-01 11:03:12 -0800
committerBen Pfaff <blp@nicira.com>2010-12-01 11:03:12 -0800
commit73ffb8e8c0c8dd5a07195827ca97f641faccc49f (patch)
treec477194228c3a23ffb47f549c105a0af447433e5 /ovsdb/dot2pic
parentcc01d0bb79103a01aa0afc3484249fd518b877ea (diff)
dot2pic: Be less picky parsing "dot" output.
Some versions of "dot" put two spaces after the "node" keyword instead of one, which didn't match the regular expression used in dot2pic. This commit changes dot2pic not to care about the number of spaces in "node" and "graph" lines. (The "graph" lines weren't actually a problem but I don't see a reason to be picky about them either.) Different versions of "dot" still produce different output for the same input, but I don't see how to avoid that. Reported-by: Justin Pettit <jpettit@nicira.com>
Diffstat (limited to 'ovsdb/dot2pic')
-rwxr-xr-xovsdb/dot2pic7
1 files changed, 4 insertions, 3 deletions
diff --git a/ovsdb/dot2pic b/ovsdb/dot2pic
index 3e2f3089..caca9f8d 100755
--- a/ovsdb/dot2pic
+++ b/ovsdb/dot2pic
@@ -21,9 +21,10 @@ my ($scale) = 1;
print ".PS\n";
print "linethick = 1;\n";
while (<>) {
- if (/graph (\S+) (\S+) (\S+)/) {
- $scale = $1;
- } elsif (my ($name, $x, $y, $width, $height, $label, $style, $shape, $color, $fillcolor) = /node (\S+) (\S+) (\S+) (\S+) (\S+) (\S+) (\S+) (\S+) (\S+) (\S+)/) {
+ if (/^graph/) {
+ (undef, $scale) = split;
+ } elsif (/^node/) {
+ my (undef, $name, $x, $y, $width, $height, $label, $style, $shape, $color, $fillcolor) = split;
$x *= $scale;
$y *= $scale;
$width *= $scale;