X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=ovsdb%2Fdot2pic;h=d682be5f96107c4178a6f600f685c3a1dd8cb1fb;hb=HEAD;hp=7b0ec36b3ab8e18f0fa262cd20af9191faddc837;hpb=e0edde6fee279cdbbf3c179f5f50adaf0c7c7f1e;p=sliver-openvswitch.git

diff --git a/ovsdb/dot2pic b/ovsdb/dot2pic
index 7b0ec36b3..d682be5f9 100755
--- a/ovsdb/dot2pic
+++ b/ovsdb/dot2pic
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 
-# Copyright (c) 2009, 2010, 2011 Nicira, Inc.
+# Copyright (c) 2009, 2010, 2011, 2013 Nicira, Inc.
 #
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.
@@ -17,7 +17,13 @@
 use strict;
 use warnings;
 
+use Getopt::Long;
+
+my $font_scale = 0;
+GetOptions("f=i" => \$font_scale) || exit 1;
+
 my ($scale) = 1;
+printf ".ps %+d\n", -$font_scale if $font_scale;
 print ".PS\n";
 print "linethick = 1;\n";
 while (<>) {
@@ -70,4 +76,5 @@ while (<>) {
     }
 
 }
+printf ".ps %+d\n", $font_scale if $font_scale;
 print ".PE\n";