From 57bb135001b2aca6873b7e1e0f47d8a975db988d Mon Sep 17 00:00:00 2001
From: Karl Berry
Date: Mon, 18 Mar 2019 17:40:47 +0000
Subject: add ctan link in doc.html
git-svn-id: svn://tug.org/texlive/trunk@50443 c570f23f-e606-0410-a88d-b1316a301751
---
Master/tlpkg/bin/tl-update-auto | 2 +-
Master/tlpkg/bin/tl-update-docindex | 17 ++++++++++-------
2 files changed, 11 insertions(+), 8 deletions(-)
(limited to 'Master')
diff --git a/Master/tlpkg/bin/tl-update-auto b/Master/tlpkg/bin/tl-update-auto
index 96beacf3282..166a2733d21 100755
--- a/Master/tlpkg/bin/tl-update-auto
+++ b/Master/tlpkg/bin/tl-update-auto
@@ -223,7 +223,7 @@ grep -v 'Generated' doc.html >$temp.doc.cur
if $diff $temp.doc.cur $temp.doc.new >$temp.doc.diff; then
$verbose " doc.html ok."
else
- $chicken $cp $temp.doc.new doc.html
+ $chicken $cp $temp.doc doc.html
update_list="$update_list doc.html"
fi
fi # !config_scripts_only
diff --git a/Master/tlpkg/bin/tl-update-docindex b/Master/tlpkg/bin/tl-update-docindex
index 8b943095c6e..102ba619227 100755
--- a/Master/tlpkg/bin/tl-update-docindex
+++ b/Master/tlpkg/bin/tl-update-docindex
@@ -1,7 +1,7 @@
#!/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.
+# Originally written 2009, Manuel P\'egouri\'e-Gonnard. WTFPL v2.
BEGIN {
$0 =~ m#(.*)/(.*)#; ($progdir, $progname) = ($1, $2);
@@ -32,7 +32,8 @@ sub main {
TeX Live documentation
This document lists links to all HTML and PDF files for packages and guides
-contained in TeX Live, sorted by package name.
+contained in TeX Live, sorted by
+package name.
END_HEADER
print_all_pkg($tlpdb);
@@ -76,7 +77,7 @@ sub push_pkg_list {
my $name = $tlpkg->name;
my @docfiles = $tlpkg->docfiles;
- # if no adequate documentation is found, print nothing
+ # if no adequate documentation is found, print nothing
@docfiles = grep { m/\.(html|pdf)/ } @docfiles;
return if @docfiles == 0;
$n++; # list counter
@@ -104,7 +105,8 @@ sub push_pkg_list {
# print package name with shortdesc
my $dir = dirname($docfiles[0]);
- push @lines, qq#\n$name:\n#;
+ push @lines, qq#\n$name\n#;
+ push @lines, qq#(CTAN):\n#;
my $shortdesc = $tlpkg->shortdesc;
push @lines, "$shortdesc\n" if defined $shortdesc;
#warn "$name\n" if not defined $shortdesc;
@@ -115,10 +117,11 @@ sub push_pkg_list {
my $name = basename($file);
$list .= qq#$name#;
my $dflanguage = $tlpkg->{'docfiledata'}{$file}{'language'};
- $list .= " ($dflanguage)" if defined $dflanguage;
- $list .= ",\n";
+ $list .= " ($dflanguage) "
+ if (defined $dflanguage && $dflanguage ne "en");
+ $list .= "\n";
}
- $list =~ s/,\n$/./;
+ $list =~ s/( )?\n$/./;
push @lines, "$list\n\n";
}
--
cgit v1.2.3