From 7b9f8995f44482610d4f3452118e53c2f259511d Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Mon, 22 Feb 2021 06:49:24 +0100
Subject: Generate doc/build.info with 'make update' rather than on the fly

doc/build.info was essentially generated on the fly while running
Configure, something that takes a huge amount of time on slower file
systems (such as Windows).

Instead, we generate it with 'make update', saving the user from
having to wait for too long, at the small price for developers to have
to run 'make update' whenever they write a new manual file.

Reviewed-by: Tomas Mraz <tomas@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/14269)
---
 doc/build.info | 66 ----------------------------------------------------------
 1 file changed, 66 deletions(-)
 delete mode 100644 doc/build.info

(limited to 'doc/build.info')

diff --git a/doc/build.info b/doc/build.info
deleted file mode 100644
index 267629040d..0000000000
--- a/doc/build.info
+++ /dev/null
@@ -1,66 +0,0 @@
-SUBDIRS = man1
-
-{-
- use File::Spec::Functions qw(:DEFAULT abs2rel rel2abs);
- use File::Basename;
-
- foreach my $section ((1, 3, 5, 7)) {
-     my @htmlfiles = ();
-     my @manfiles = ();
-     my %podfiles =
-         map { $_ => 1 } glob catfile($sourcedir, "man$section", "*.pod");
-     my %podinfiles = 
-         map { $_ => 1 } glob catfile($sourcedir, "man$section", "*.pod.in");
-
-     foreach (keys %podinfiles) {
-         (my $p = $_) =~ s|\.in$||i;
-         $podfiles{$p} = 1;
-     }
-
-     foreach my $p (sort keys %podfiles) {
-         my $podfile = abs2rel($p, $sourcedir);
-         my $podname = basename($podfile, '.pod');
-         my $podinfile = $podinfiles{"$p.in"} ? "$podfile.in" : undef;
-
-         my $podname = basename($podfile, ".pod");
-
-         my $htmlfile = abs2rel(catfile($buildtop, "doc", "html", "man$section",
-                                        "$podname.html"),
-                                catdir($buildtop, "doc"));
-         my $manfile = abs2rel(catfile($buildtop, "doc", "man", "man$section",
-                                       "$podname.$section"),
-                               catdir($buildtop, "doc"));
-
-         # The build.info format requires file specs to be in Unix format.
-         # Especially, since VMS file specs use [ and ], the build.info parser
-         # will otherwise get terribly confused.
-         if ($^O eq 'VMS') {
-             $htmlfile = VMS::Filespec::unixify($htmlfile);
-             $manfile = VMS::Filespec::unixify($manfile);
-             $podfile = VMS::Filespec::unixify($podfile);
-             $podinfile = VMS::Filespec::unixify($podinfile)
-                 if defined $podinfile;
-         } elsif ($^O eq 'MSWin32') {
-             $htmlfile =~ s|\\|/|g;
-             $manfile =~ s|\\|/|g;
-             $podfile =~ s|\\|/|g;
-             $podinfile =~ s|\\|/|g
-                 if defined $podinfile;
-         }
-         push @htmlfiles, $htmlfile;
-         push @manfiles, $manfile;
-         $OUT .= << "_____";
-DEPEND[$htmlfile]=$podfile
-GENERATE[$htmlfile]=$podfile
-DEPEND[$manfile]=$podfile
-GENERATE[$manfile]=$podfile
-_____
-         $OUT .= << "_____" if $podinfile;
-DEPEND[$podfile]{pod}=$podinfile
-GENERATE[$podfile]=$podinfile
-_____
-     }
-     $OUT .= "HTMLDOCS[man$section]=" . join(" \\\n", @htmlfiles) . "\n";
-     $OUT .= "MANDOCS[man$section]=" . join(" \\\n", @manfiles) . "\n";
- }
- -}
-- 
cgit v1.2.3