summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDidier Raboud <odyx@debian.org>2018-12-01 01:39:17 +0100
committerDidier Raboud <odyx@debian.org>2019-09-15 14:11:12 +0200
commit1ea8a95944a46556eced0848466d6848ff007655 (patch)
tree994a33caca71f32496d747b7ed73ab6f04c1609e
parent45d7de6f4baa13f7cca4db326ca543510b7349aa (diff)
Mirror doc/developer/cleanwarnings.pl from upstream
Taken from upstream's master; it is needed to rebuild the doc PDFs from source
-rw-r--r--doc/developer/cleanwarnings.pl41
1 files changed, 41 insertions, 0 deletions
diff --git a/doc/developer/cleanwarnings.pl b/doc/developer/cleanwarnings.pl
new file mode 100644
index 0000000..42df778
--- /dev/null
+++ b/doc/developer/cleanwarnings.pl
@@ -0,0 +1,41 @@
+# -*- Mode: Perl -*-
+## Copyright (C) 2013 Robert Krawitz
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2, or (at your option)
+## any later version.
+##
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+# Remove annoying TeX warnings from db2pdf.
+
+$nc="";
+while (<>) {
+ next if /^$/;
+ chomp;
+ LINE:
+ if (/^Overfull \\hbox|^LaTeX Font Warning:|^LaTeX Warning: Reference.*undefined on input line|^Package hyperref Warning:/) {
+ $nc=" ";
+ $_=<>;
+ $_=<>;
+ while (<>) {
+ if (! /^ *$/) {
+ chomp;
+ goto LINE;
+ }
+ }
+ } else {
+ print "${nc}$_";
+ $nc="\n";
+ }
+}
+if ($nc ne "") {
+ print "\n";
+}