1 files changed, 62 insertions, 0 deletions

diff --git a/manual/latexfilter.pl b/manual/latexfilter.pl
new file mode 100755
index 0000000000..45d7cedbdc
--- /dev/null
+++ b/manual/latexfilter.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl -s
+#
+#             __________               __   ___.
+#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+#                     \/            \/     \/    \/            \/
+#
+
+my $verbose = $v;
+my $reflowed = "";
+my $last = "";
+my $currentfile;
+while(<STDIN>) {
+    chomp $_;
+    $reflowed .= $_;
+    if(/^.{79,}$/) {
+        # collapse all "full" lines
+    }
+    elsif(/^!/) {
+        # collapse lines indicating an error with next one and append a space.
+        $reflowed .= " ";
+    }
+    else {
+        # skip empty lines
+        if(length($reflowed) > 0) {
+            # collapse with previous line if it continues some "area".
+            if($reflowed =~ /^\s*(\]|\[|\\|\)|<)/) {
+                $last .= $reflowed;
+            }
+            else {
+                # find current input file
+                my @inputfile = $last =~ /\(([a-zA-Z_\-\/\.]+\.tex)/g;
+                foreach(@inputfile) {
+                    if($verbose) {
+                        print "\n";
+                    }
+                    print "LaTeX processing $_\n";
+                    $currentfile = $_;
+                }
+                if($verbose) {
+                    print $last;
+                }
+                # check for error
+                if($reflowed =~ /^!\s*(.*)/) {
+                    my $l = $reflowed;
+                    $l =~ s/^!\s*(.*)l.(\d+) /$2: $1/;
+                    print "$currentfile:$l\n";
+                }
+                # restart for next reflowed line
+                $last = $reflowed;
+            }
+        }
+        # restart reflowing.
+        $reflowed = "";
+    }
+}
+if($verbose) {
+    print $last;
+}
+