Commit | Line | Data |
---|---|---|
805e021f CE |
1 | #!/usr/bin/perl |
2 | eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' | |
3 | if $running_under_some_shell; | |
4 | ||
5 | @sections = ('1', '5', '8'); | |
6 | ||
7 | $TOP_SRCDIR = shift @ARGV; | |
8 | $doc_man_pages = sprintf "%s/../doc/man-pages", $TOP_SRCDIR; | |
9 | ||
10 | open(ENTITIES, ">entities.dtd") || die; | |
11 | ||
12 | foreach $section (@sections) { | |
13 | printf "generating section %s...\n", $section; | |
14 | ||
15 | mkdir(sprintf "sect%d", $section); | |
16 | opendir($DIR, sprintf "%s/pod%d", $doc_man_pages, $section) || die; | |
17 | open(SECT, sprintf ">sect%d.xml", $section) || die; | |
18 | while ($podfile = readdir($DIR)) { | |
19 | next unless $podfile =~ /\.pod$/; | |
20 | ||
21 | ($xmlfile = $podfile) =~ s/\.pod$/.xml/; | |
22 | ($entity = $xmlfile) =~ s/\.xml$//; | |
23 | ||
24 | printf "pod2refentry < %s > %s\n", $podfile, $xmlfile; | |
25 | ||
26 | system(sprintf "./pod2refentry --section=%d < %s/pod%d/%s > sect%d/%s", | |
27 | $section, $doc_man_pages, $section, $podfile, $section, $xmlfile); | |
28 | ||
29 | printf ENTITIES "<!ENTITY %s%s SYSTEM \"sect%d/%s\">\n", | |
30 | $entity, $section, $section, $xmlfile; | |
31 | printf SECT "&%s%s;\n", $entity, $section; | |
32 | } | |
33 | closedir($DIR); | |
34 | close(SECT); | |
35 | } | |
36 | ||
37 | close(ENTITIES); |