diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2009-09-05 10:03:00 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2009-09-05 10:03:00 +0000 |
commit | 92f4775db4905b7c83bc4b42948b6dd69fb6f4c5 (patch) | |
tree | 4e8577bdee7db8a419a38b09af50f08ce3a64a4a /Master/tlpkg/bin/tl-update-docindex | |
parent | 6008bfb4a8cee7161a2a66e038a0b51782319f9c (diff) |
Don't mention the old texmf-doc in doc.html any more.
git-svn-id: svn://tug.org/texlive/trunk@15122 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-docindex')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-docindex | 55 |
1 files changed, 6 insertions, 49 deletions
diff --git a/Master/tlpkg/bin/tl-update-docindex b/Master/tlpkg/bin/tl-update-docindex index ef3febfa04b..03bcffcf03c 100755 --- a/Master/tlpkg/bin/tl-update-docindex +++ b/Master/tlpkg/bin/tl-update-docindex @@ -1,6 +1,6 @@ #!/usr/bin/env perl # $Id$ -# Make index file of all HTML and PDF documentation. +# Make index file of all HTML and PDF documentation (printed on stdout). # Originally written 2004, Karl Berry. Public domain. exit (&main ()); @@ -9,6 +9,7 @@ sub main { (my $progname = $0) =~ s,^.*/,,; umask (0); + $ENV{'LC_ALL'} = 'C'; # for the date command used below chomp (my $mydir = `dirname $0`); chdir ("$mydir/../..") || exit 1; # Master @@ -22,33 +23,15 @@ sub main print <<END_HEADER; <html> <body> -<h1>TeX Live documentation</h2> +<h1>TeX Live documentation</h1> -<a name="packagedoc"></a> -<h2>1. Package documentation</h2> - -<p>This section lists links to all HTML and PDF files for packages (in -the <a href="texmf/">texmf</a> and <a href="texmf-dist/">texmf-dist</a> -directories), sorted by package name. - -<p><a href="#guidedoc">Jump to guide documentation</a>. +<p>This document lists links to all HTML and PDF files for packages and guides +contained in TeX Live (in the <a href="texmf/">texmf</a> and <a +href="texmf-dist/">texmf-dist</a> directories), sorted by package name.</p> END_HEADER &do_package_list (); - print <<END_BETWEEN; -<a name="guidedoc"></a> -<h2>2. Guide documentation</h2> - -<p>This section lists links to all guides, that is, packages consisting -only of documentation (in the <a href="texmf-doc/">texmf-doc</a> -directory), sorted by language. - -<p><a href="#packagedoc">Jump to package documentation</a>. -END_BETWEEN - - &do_guide_list (); - chomp (my $date = `date`); print <<END_TRAILER; <hr> @@ -70,32 +53,6 @@ sub do_package_list -# Guide doc (texmf-doc), by language. In order to generate a list of -# all the languages at the beginning, we generate everything before -# writing anything. -# -sub do_guide_list -{ - # each subdir in texmf-doc is a language, except general. - my @langs = map { s,.*/,,; $_ } glob ("texmf-doc/doc/*"); - my @langs = grep { $_ ne "general" } @langs; - - print "\n<p>Languages:\n<ul>\n"; - print map { qq!<li><a href="#$_">$_</a>\n! } @langs; - print "</ul>\n"; - - $count = 0; # for subsection numbers - for my $lang (@langs) { - $count++; - print qq!<a name="#$lang"></a>\n!; - print qq!<h3>2.$count <a href="texmf-doc/doc/$lang/">$lang</a></h3>\n!; - - &do_filelist ("find texmf-doc/doc/$lang $FIND_POST"); - } -} - - - # Process all files resulting from OPENCMD. # sub do_filelist |