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