mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00
Code

manfull.pl: Avoid silent failures

Browse Source 
* mk/manfull.pl: Report failures of patching of single-page HTML
manuals.

It should prevent silent generating of manual pages inconsistent with
provided CSS files when output of makeinfo will change next time.
This commit is contained in:
Max Nikulin 2021-10-02 23:41:23 +07:00 committed by Bastien
parent ffdf727842
commit 47e0cddbe3
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mk/manfull.pl
View File

@ -1,11 +1,14 @@
#!/usr/bin/perl
$failures = 0;
while ($page = shift) {
system "mv $page $page.orig";
open IN,"<$page.orig" or die "Cannot read from $page.orig\n";
open OUT,">$page" or die "Cannot write to $page\n";
$toc = undef;
while (<IN>) {
if (/<meta http-equiv="Content-Style-Type" content="text\/css">/) {
print OUT;
@ -25,4 +28,11 @@ while (<IN>) {
}
}
system "rm $page.orig";
if (!defined($toc) || $toc != 0) {
++$failures;
print STDERR "Patching of $page failed\n";
}
}
$failures == 0 or die "Patching of $failures files failed\n";