summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-docindex
blob: 8b943095c6e577a2720be0504afcdf289e09a790 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#!/usr/bin/env perl
# $Id$
# Make index file of all HTML and PDF documentation (printed on stdout).
# Originally written 2009, Manuel Pégourié-Gonnard. WTFPL v2.

BEGIN {
    $0 =~ m#(.*)/(.*)#; ($progdir, $progname) = ($1, $2);
    unshift @INC, "$progdir/..";
}

use warnings FATAL => 'all';
use Fatal qw(:void open close opendir closedir chdir mkdir);

use TeXLive::TLPDB;
use File::Basename;

exit(main());

sub main {
    my $tlpdb = TeXLive::TLPDB->new('root' => "$progdir/../..");
    die "$progname: unable to load TLPDB\n" unless defined $tlpdb;

    print <<END_HEADER;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
 <title>TeX Live documentation</title>
 <style type="text/css"> ol { padding-left: 4em } </style>
</head>
<body>
<h1>TeX Live documentation</h1>

<p>This document lists links to all HTML and PDF files for packages and guides
contained in TeX Live, sorted by package name.</p>
END_HEADER

    print_all_pkg($tlpdb);

    # print footer
    chomp (my $date = `LC_ALL=C date`);
    print <<END_TRAILER;
<hr />
<small>Generated $date by $progname.</small>
</body></html>
END_TRAILER

    return 0;
}

# print the links for letters, then packages
sub print_all_pkg {
    my ($tlpdb) = @_;

    # @lines is the big list, @letters the list of initials of package names
    local (@lines, @letters, $current_letter, $n);
    $current_letter = "\0";

    # first build the output and the list of initials
    for my $tlpn (sort {lc $a cmp lc $b} $tlpdb->list_packages) {
        my $tlpkg = $tlpdb->get_package($tlpn);
        push_pkg_list($tlpkg);
    }
    push @lines, "\n</ol>\n\n";

    # then actually print them
    my $access = "\n<p>" . join(" - ", @letters) . "</p>\n";
    print $access;
    print @lines;
    print $access;
}

# push the content for a package to the list of lines
sub push_pkg_list {
    my ($tlpkg) = @_;
    my $name = $tlpkg->name;
    my @docfiles = $tlpkg->docfiles;

    # if no adequate documentation is found, print nothing
    @docfiles = grep { m/\.(html|pdf)/ } @docfiles;
    return if @docfiles == 0;
    $n++; # list counter

    # check initial
    my $init = uc substr $name, 0, 1;
    unless ($init eq $current_letter) {
        $current_letter = $init;
        # put header in the big list...
        push @lines, "\n</ol>\n" unless $n == 1;
        push @lines, qq#\n<h2 id="letter-$init">$init</h2>\n#;
        push @lines, qq#\n<ol start="$n">\n#;
        # ... and a reference in quick access list
        push @letters, qq!<a href="#letter-$init">$init</a>!;
    }

    # if there is an index.html file, drop the rest
    # currently (2009-10-07) catches: FAQ-en bosisio epspdf fontname jadetex
    # metapost ppower4 sttools tds tex4ht
    my @index = grep /\/index\.html/, @docfiles;
    if (@index == 1) {
        #warn "Using index.html for $name\n";
        @docfiles = @index;
    }

    # print package name with shortdesc
    my $dir = dirname($docfiles[0]);
    push @lines, qq#\n<li><b><a href="$dir">$name</a></b>:<small>\n#;
    my $shortdesc = $tlpkg->shortdesc;
    push @lines, "$shortdesc\n" if defined $shortdesc;
    #warn "$name\n" if not defined $shortdesc;

    # now the list of docfiles
    my $list;
    for my $file (@docfiles) {
        my $name = basename($file);
        $list .= qq#<a href="$file">$name</a>#;
        my $dflanguage = $tlpkg->{'docfiledata'}{$file}{'language'};
        $list .= " ($dflanguage)" if defined $dflanguage;
        $list .= ",\n";
    }
    $list =~ s/,\n$/./;
    push @lines, "$list\n</small></li>\n";
}