doc/build.info

   1 SUBDIRS = man1
   2
   3 {-
   4  use File::Spec::Functions qw(:DEFAULT abs2rel rel2abs);
   5  use File::Basename;
   6
   7  foreach my $section ((1, 3, 5, 7)) {
   8      my @htmlfiles = ();
   9      my @manfiles = ();
  10      my %podfiles =
  11          map { $_ => 1 } glob catfile($sourcedir, "man$section", "*.pod");
  12      my %podinfiles =
  13          map { $_ => 1 } glob catfile($sourcedir, "man$section", "*.pod.in");
  14
  15      foreach (keys %podinfiles) {
  16          (my $p = $_) =~ s|\.in$||i;
  17          $podfiles{$p} = 1;
  18      }
  19
  20      foreach my $p (sort keys %podfiles) {
  21          my $podfile = abs2rel($p, $sourcedir);
  22          my $podname = basename($podfile, '.pod');
  23          my $podinfile = $podinfiles{"$p.in"} ? "$podfile.in" : undef;
  24
  25          my $podname = basename($podfile, ".pod");
  26
  27          my $htmlfile = abs2rel(catfile($buildtop, "doc", "html", "man$section",
  28                                         "$podname.html"),
  29                                 catdir($buildtop, "doc"));
  30          my $manfile = abs2rel(catfile($buildtop, "doc", "man", "man$section",
  31                                        "$podname.$section"),
  32                                catdir($buildtop, "doc"));
  33
  34          # The build.info format requires file specs to be in Unix format.
  35          # Especially, since VMS file specs use [ and ], the build.info parser
  36          # will otherwise get terribly confused.
  37          if ($^O eq 'VMS') {
  38              $htmlfile = VMS::Filespec::unixify($htmlfile);
  39              $manfile = VMS::Filespec::unixify($manfile);
  40              $podfile = VMS::Filespec::unixify($podfile);
  41              $podinfile = VMS::Filespec::unixify($podinfile)
  42                  if defined $podinfile;
  43          } elsif ($^O eq 'MSWin32') {
  44              $htmlfile =~ s|\\|/|g;
  45              $manfile =~ s|\\|/|g;
  46              $podfile =~ s|\\|/|g;
  47              $podinfile =~ s|\\|/|g
  48                  if defined $podinfile;
  49          }
  50          push @htmlfiles, $htmlfile;
  51          push @manfiles, $manfile;
  52          $OUT .= << "_____";
  53 DEPEND[$htmlfile]=$podfile
  54 GENERATE[$htmlfile]=$podfile
  55 DEPEND[$manfile]=$podfile
  56 GENERATE[$manfile]=$podfile
  57 _____
  58          $OUT .= << "_____" if $podinfile;
  59 GENERATE[$podfile]=$podinfile
  60 _____
  61      }
  62      $OUT .= "HTMLDOCS[man$section]=" . join(" \\\n", @htmlfiles) . "\n";
  63      $OUT .= "MANDOCS[man$section]=" . join(" \\\n", @manfiles) . "\n";
  64  }
  65  -}