From 5393e6c9d24cd66aab57274665be1774beb4e732 Mon Sep 17 00:00:00 2001 From: Andrew Tridgell Date: Tue, 23 Feb 2010 09:04:44 +1100 Subject: build: recognise manpages keyword --- buildtools/mktowscript/mktowscript.pl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'buildtools/mktowscript/mktowscript.pl') diff --git a/buildtools/mktowscript/mktowscript.pl b/buildtools/mktowscript/mktowscript.pl index 2ebf2d92c2..86ff65bd2e 100755 --- a/buildtools/mktowscript/mktowscript.pl +++ b/buildtools/mktowscript/mktowscript.pl @@ -70,6 +70,13 @@ sub find_files($) my $list = shift; my $ret = ''; foreach my $f (split(/\s+/, $list)) { + if ($f =~ /\.[0-9]$/) { + # a man page + my $m = find_file($f . ".xml"); + die("Unable to find man page $f\n") if ($m eq ""); + $m =~ s/\.xml$//; + return $m; + } $f = find_file($f); $f =~ s/^[.]\///; $ret .= ' ' . $f; @@ -204,7 +211,6 @@ foreach my $s (sort {$result->{$a}->{SECNUMBER} <=> $result->{$b}->{SECNUMBER}} $k eq "GCOV" || $k eq "PC_FILES" || $k eq "PUBLIC_HEADERS" || - $k eq "MANPAGES" || $k eq "CONFIG4FILE" || $k eq "LMHOSTSFILE4") { $trailer .= sprintf(",\n\t# %s='%s'", $k, trim($sec->{$k})); @@ -267,6 +273,11 @@ foreach my $s (sort {$result->{$a}->{SECNUMBER} <=> $result->{$b}->{SECNUMBER}} $trailer .= sprintf(",\n\tautoproto='%s'", $list); next; } + if ($k eq "MANPAGES") { + my $list = trim(find_files(strlist($sec->{$k}))); + $trailer .= sprintf(",\n\tmanpages='%s'", $list); + next; + } if ($k eq "$s" . "_OBJ_FILES") { my $list = trim(strlist($sec->{$k})); $list =~ s/\.o/.c/g; -- cgit