]>
Commit | Line | Data |
---|---|---|
df8f116e RL |
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; | |
df8f116e RL |
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 | -} |