colspec-fix.pl:

  Script that takes the relative values in the 
  colspec tags and converts them to absolute values.

1 files changed, 50 insertions, 0 deletions

diff --git a/Docs/Support/colspec-fix.pl b/Docs/Support/colspec-fix.pl
new file mode 100755
index 00000000000..48913d6d638
--- /dev/null
+++ b/Docs/Support/colspec-fix.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl -w
+
+#
+# Script to rewrite colspecs from relative values to absolute values
+#
+
+use strict;
+
+my $table_width  = 12.75;   # cm
+my $gutter_width =  0.09;   # cm
+
+my $str = join '', <>;
+
+$str =~ s{([\t ]*(<colspec colwidth=\".+?\" />\s*)+)}
+         {&rel2abs($1)}ges;
+
+print STDOUT $str;
+exit;
+
+#
+# Definitions for helper sub-routines
+#
+
+sub msg {
+    print STDERR shift, "\n";
+}
+
+sub rel2abs {
+    my $str = shift;
+
+    my @widths = ();
+    my $total  = 0;
+    my $output = '';
+    
+    $str =~ /^(\s+)/;
+    my $ws = $1;
+    
+    while ($str =~ m/<colspec colwidth="(\d+)\*" \/>/g) {
+        $total += $1;
+        push @widths, $1;
+    }
+
+    my $unit = ($table_width - ($#widths * $gutter_width)) / ($total);
+
+    foreach (@widths) {
+        $output .= $ws . '<colspec colwidth="'. sprintf ("%0.2f", $_ * $unit) .'" />' . "\n";
+    }
+    
+    return $output . "\n$ws";
+}