Perl is unfashionable and Python is more widely available and understood, so this commit converts one of the OVS uses of Perl into Python.
Signed-off-by: Ben Pfaff <[email protected]> --- ovn/automake.mk | 4 +- ovsdb/dot2pic | 155 +++++++++++++++++++++++++++++++-------------------- vswitchd/automake.mk | 2 +- vtep/automake.mk | 2 +- 4 files changed, 100 insertions(+), 63 deletions(-) diff --git a/ovn/automake.mk b/ovn/automake.mk index c5925e9285ac..b33112ef14e5 100644 --- a/ovn/automake.mk +++ b/ovn/automake.mk @@ -11,7 +11,7 @@ if HAVE_DOT ovn/ovn-sb.gv: ovsdb/ovsdb-dot.in ovn/ovn-sb.ovsschema $(AM_V_GEN)$(OVSDB_DOT) --no-arrows $(srcdir)/ovn/ovn-sb.ovsschema > $@ ovn/ovn-sb.pic: ovn/ovn-sb.gv ovsdb/dot2pic - $(AM_V_GEN)(dot -T plain < ovn/ovn-sb.gv | $(PERL) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ + $(AM_V_GEN)(dot -T plain < ovn/ovn-sb.gv | $(PYTHON) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ mv [email protected] $@ OVN_SB_PIC = ovn/ovn-sb.pic OVN_SB_DOT_DIAGRAM_ARG = --er-diagram=$(OVN_SB_PIC) @@ -45,7 +45,7 @@ if HAVE_DOT ovn/ovn-nb.gv: ovsdb/ovsdb-dot.in ovn/ovn-nb.ovsschema $(AM_V_GEN)$(OVSDB_DOT) --no-arrows $(srcdir)/ovn/ovn-nb.ovsschema > $@ ovn/ovn-nb.pic: ovn/ovn-nb.gv ovsdb/dot2pic - $(AM_V_GEN)(dot -T plain < ovn/ovn-nb.gv | $(PERL) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ + $(AM_V_GEN)(dot -T plain < ovn/ovn-nb.gv | $(PYTHON) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ mv [email protected] $@ OVN_NB_PIC = ovn/ovn-nb.pic OVN_NB_DOT_DIAGRAM_ARG = --er-diagram=$(OVN_NB_PIC) diff --git a/ovsdb/dot2pic b/ovsdb/dot2pic index d682be5f9610..51d454b62e18 100755 --- a/ovsdb/dot2pic +++ b/ovsdb/dot2pic @@ -1,6 +1,6 @@ -#! /usr/bin/perl +#! /usr/bin/env python -# Copyright (c) 2009, 2010, 2011, 2013 Nicira, Inc. +# Copyright (c) 2009, 2010, 2011, 2013, 2017 Nicira, Inc. # # Licensed under the Apache License, Version 2.0 (the "License"); # you may not use this file except in compliance with the License. @@ -14,67 +14,104 @@ # See the License for the specific language governing permissions and # limitations under the License. -use strict; -use warnings; +import getopt +import sys -use Getopt::Long; +def dot2pic(src, dst): + scale = 1.0 + while True: + line = src.readline() + if not line: + break -my $font_scale = 0; -GetOptions("f=i" => \$font_scale) || exit 1; + words = line.split() + command = words[0] + if command == 'graph': + scale = float(words[1]) + elif command == 'node': + name = words[1] + x = float(words[2]) + y = float(words[3]) + width = float(words[4]) + height = float(words[5]) + label, style, shape, color, fillcolor = words[6:11] + x *= scale + y *= scale + width *= scale + height *= scale + dst.write("linethick = %f;\n" % (0.5 if style == 'bold' else 1.0)) + dst.write('box at %f,%f wid %f height %f "%s"\n' + % (x, y, width, height, name)) + if style == 'bold': + inset = 2.0 / 72.0 + width -= inset * 2 + height -= inset * 2 + dst.write("box at %f,%f wid %f height %f\n" + % (x, y, width, height)) + elif command == 'edge': + tail = words[1] + head = words[2] + n = int(words[3]) -my ($scale) = 1; -printf ".ps %+d\n", -$font_scale if $font_scale; -print ".PS\n"; -print "linethick = 1;\n"; -while (<>) { - 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; - $height *= $scale; - print "linethick = ", ($style eq 'bold' ? 0.5 : 1.0), ";\n"; - print "box at $x,$y wid $width height $height \"$name\"\n"; - if ($style eq 'bold') { - my $inset = 2.0 / 72.0; - $width -= $inset * 2; - $height -= $inset * 2; - print "box at $x,$y wid $width height $height\n"; - } - } elsif (/edge/) { - my (undef, $tail, $head, $n, $rest) = split(' ', $_, 5); - my @xy; - for (1...$n) { - my ($x, $y); - ($x, $y, $rest) = split(' ', $rest, 3); - push(@xy, [$x * $scale, $y * $scale]); - } - my ($label, $xl, $yl); - if (scalar(my @junk = split(' ', $rest)) > 2) { - if ($rest =~ s/^"([^"]*)"\s+//) { - $label = $1; - } else { - ($label, $rest) = split(' ', $rest, 2); - } - ($xl, $yl, $rest) = split(' ', $rest, 3); - $xl *= $scale; - $yl *= $scale; - } - my ($style, $color) = split(' ', $rest); + # Extract x,y coordinates. + words = words[4:] + xy = [] + for i in range(n): + x = float(words[0]) * scale + y = float(words[1]) * scale + words = words[2:] + xy.append((x, y)) - print "linethick = ", ($style eq 'dotted' ? 0.5 : 1), ";\n"; + # Extract style and color from end of words. + style, color = words[-2:] + words = words[:-2] - print "spline -> from $xy[0][0],$xy[0][1]"; - for (my ($i) = 0; $i <= $#xy; $i++) { - print " to $xy[$i][0],$xy[$i][1]"; - } - print "\n"; + # If there's anything left, that's the label. + if words: + xl = float(words[-2]) * scale + yl = float(words[-1]) * scale + label = ' '.join(words[:-2]) + if label.startswith('"') and label.endswith('"'): + label = label[1:-1] + else: + label = None + + dst.write("linethick = %f;\n" + % (0.5 if style == 'dotted' else 1.0)) + dst.write("spline -> from %f,%f" % xy[0]) + for x, y in xy: + dst.write(" to %f,%f" % (x, y)) + dst.write('\n') - print "\"$label\" at $xl,$yl\n" if defined($label); - } + if label: + dst.write('"%s" at %f,%f\n' % (label, xl, yl)) + elif command == 'stop': + break + else: + sys.stderr.write("%s\n" % command) + assert False + + +options, args = getopt.gnu_getopt(sys.argv[1:], 'f:', []) + +font_scale = 0 +for key, value in options: + if key == '-f': + font_scale = int(value) + else: + raise False + +if font_scale: + print(".ps %+d" % -font_scale) + +print(".PS") +print("linethick = 1;") +if args: + for arg in args: + dot2pic(open(arg), sys.stdout) +else: + dot2pic(sys.stdin, sys.stdout) +if font_scale: + print(".ps %+d" % font_scale) +print(".PE") -} -printf ".ps %+d\n", $font_scale if $font_scale; -print ".PE\n"; diff --git a/vswitchd/automake.mk b/vswitchd/automake.mk index aa4224561f3d..abdbcc698ba7 100644 --- a/vswitchd/automake.mk +++ b/vswitchd/automake.mk @@ -31,7 +31,7 @@ if HAVE_DOT vswitchd/vswitch.gv: ovsdb/ovsdb-dot.in vswitchd/vswitch.ovsschema $(AM_V_GEN)$(OVSDB_DOT) --no-arrows $(srcdir)/vswitchd/vswitch.ovsschema > $@ vswitchd/vswitch.pic: vswitchd/vswitch.gv ovsdb/dot2pic - $(AM_V_GEN)(dot -T plain < vswitchd/vswitch.gv | $(PERL) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ + $(AM_V_GEN)(dot -T plain < vswitchd/vswitch.gv | $(PYTHON) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ mv [email protected] $@ VSWITCH_PIC = vswitchd/vswitch.pic VSWITCH_DOT_DIAGRAM_ARG = --er-diagram=$(VSWITCH_PIC) diff --git a/vtep/automake.mk b/vtep/automake.mk index 069e1906c565..0f313dce3efc 100644 --- a/vtep/automake.mk +++ b/vtep/automake.mk @@ -58,7 +58,7 @@ if HAVE_DOT vtep/vtep.gv: ovsdb/ovsdb-dot.in vtep/vtep.ovsschema $(AM_V_GEN)$(OVSDB_DOT) --no-arrows $(srcdir)/vtep/vtep.ovsschema > $@ vtep/vtep.pic: vtep/vtep.gv ovsdb/dot2pic - $(AM_V_GEN)(dot -T plain < vtep/vtep.gv | $(PERL) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ + $(AM_V_GEN)(dot -T plain < vtep/vtep.gv | $(PYTHON) $(srcdir)/ovsdb/dot2pic -f 3) > [email protected] && \ mv [email protected] $@ VTEP_PIC = vtep/vtep.pic VTEP_DOT_DIAGRAM_ARG = --er-diagram=$(VTEP_PIC) -- 2.10.2 _______________________________________________ dev mailing list [email protected] https://mail.openvswitch.org/mailman/listinfo/ovs-dev
