summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-10-16 23:02:37 +0000
committerKarl Berry <karl@freefriends.org>2015-10-16 23:02:37 +0000
commited67531025ccdee2fdad3bd612486c01fbcf563e (patch)
treecab445e132ac29cbd6c813049e64d649c0c86b35 /Build
parentc1b5bed49c0955a235c7709f9766a8c7b4c42472 (diff)
ltxfileinfo (16oct15)
git-svn-id: svn://tug.org/texlive/trunk@38663 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo67
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/texlive/fmtutil.pl8
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/texlive/tlmgr.pl10
3 files changed, 32 insertions, 53 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo b/Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo
index b9c5fc30347..9b74dd95a8d 100755
--- a/Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo
+++ b/Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo
@@ -1,6 +1,6 @@
#!/bin/bash
-version=2.03
+version=2.04
myname=$(basename "$0")
<<'DOC'
@@ -49,12 +49,11 @@ ltxfileinfo tries to detect (and report) mal-formatted dates and versions;
use the |--star| option to mark such fields with a star, of use the |--color|
option to color invalid fields red, if you work in a terminal with ANSI-coloring
capabilities.
-These options are useful for developers
-who want to check the correctness of their |\Provides...| statements.
-For example:
+These options are useful for developers who want to check the correctness
+of their |\Provides...| statements. For example:
$ ltxfileinfo -s arfonts.sty
- file: arfonts.sty (ARfonts.sty*)
+ file: ARfonts.sty* (case difference in \Provides statement)
date: 2006/01/01
vers: --*
info: Part of the Arabi package
@@ -139,7 +138,7 @@ function trim {
echo -n "$var"
}
-# mark a string by appending a * (--mark star)
+# mark a string by appending a * (--star and --color options)
function mark {
echo "$mark1${*}$mark2"
}
@@ -204,16 +203,25 @@ function extract {
# display the results
function display {
# file should be equal to arg (the argument)
- [[ $file != "$arg" ]] && file="$arg ($(mark "$file"))"
+ if [[ $file != "$arg" ]] && [[ -n $mark2 ]]; then
+ file="$(mark "$file") (case difference in \\Provides statement)"
+ fi
# to be correct, date must be of the form yyyy/mm/dd
- if [[ ! $date =~ ^[[:digit:]]{4}/[[:digit:]]{2}/[[:digit:]]{2}$ ]]; then
- date=$(mark $date)
- else
- # also, the number must be valid:
- if [ "$( date -d "$date" +%arg 2>&1 | grep invalid )" != "" ] ; then
- date=$(mark "$date")
+ if [[ $date == -- ]]; then
+ date="$(mark $date) (file modification date: $(stat -c %z "$loca"|sed -e 's/\..*//'))"
+ elif [[ -n $mark2 ]]; then
+ local wrong=false add=''
+ if [[ ! $date =~ ^[[:digit:]]{4}/[[:digit:]]{2}/[[:digit:]]{2}$ ]]; then
+ add+=" (wrong format)"
+ wrong=true
+ fi
+ if [ "$(date -d "$date" +%arg 2>&1 | grep invalid)" != "" ]; then
+ # even if it matches, the date must be valid:
+ add+=" (invalid date)"
+ wrong=true
fi
+ if $wrong; then date="$(mark "$date")$add"; fi
fi
# version should be 1.2 or 1.2.3, maybe prefixed with v and suffixed with zero or more lower case letters
@@ -319,7 +327,7 @@ cp "$loca" "$dir"
cd "$dir" || die "Could not cd to $dir"
# The following code is mostly from Uwe Lueck's readprov.sty:
-echo '
+printf %s '
\makeatletter
\def\GetFileInfo#1{%
\def\filename{#1}%
@@ -411,34 +419,3 @@ fi
out=($out)
extract "${out[@]}"
display
-exit 0
-
-# template for README file:
-<<'README'
-This is release %version% of the ltxfileinfo script
-License: GPL
-
-Short description:
-ltxfileinfo is a bash script; it prints information about a latex class,
-style and other files to standard output.
-The script is based on Uwe Lueck's readprov.sty, so it prints information
-only for files that contain a \ProvidesFile, \ProvidesClass or
-\ProvidesPackage statement.
-The script tries to correct errors in these \Provides... statements and it
-has options, useful for developers, to make errors in those statements visible.
-
-Usage example:
-
-$ ltxfileinfo article.cls
-name: article.cls
-date: 2007/10/19
-vers: v1.4h
-info: Standard LaTeX document class
-loca: /usr/local/texlive/2009/texmf-dist/tex/latex/base/article.cls
-
-major changes of release %version% relative to 1.1
-- completely rewritten as a bash script, using code from readprov.sty
-- now also can evaluate xelatex oriented files
-- can now handle any LaTeX file containing a \Provides... statement
-- options for \Provides... statement validation
-README
diff --git a/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl b/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
index f3b09ceab7b..ff2463fc8d9 100755
--- a/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
+++ b/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: fmtutil.pl 37583 2015-06-17 05:51:36Z preining $
+# $Id: fmtutil.pl 38582 2015-10-07 22:32:58Z karl $
# fmtutil - utility to maintain format files.
# (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.)
#
@@ -25,11 +25,11 @@ BEGIN {
}
-my $svnid = '$Id: fmtutil.pl 37583 2015-06-17 05:51:36Z preining $';
-my $lastchdate = '$Date: 2015-06-17 07:51:36 +0200 (Wed, 17 Jun 2015) $';
+my $svnid = '$Id: fmtutil.pl 38582 2015-10-07 22:32:58Z karl $';
+my $lastchdate = '$Date: 2015-10-08 00:32:58 +0200 (Thu, 08 Oct 2015) $';
$lastchdate =~ s/^\$Date:\s*//;
$lastchdate =~ s/ \(.*$//;
-my $svnrev = '$Revision: 37583 $';
+my $svnrev = '$Revision: 38582 $';
$svnrev =~ s/^\$Revision:\s*//;
$svnrev =~ s/\s*\$$//;
my $version = "r$svnrev ($lastchdate)";
diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
index 80539d38d28..bc9e33cc78d 100755
--- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
+++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
@@ -1,13 +1,13 @@
#!/usr/bin/env perl
-# $Id: tlmgr.pl 38566 2015-10-06 02:49:58Z preining $
+# $Id: tlmgr.pl 38618 2015-10-12 02:51:38Z preining $
#
# Copyright 2008-2015 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
#
-my $svnrev = '$Revision: 38566 $';
-my $datrev = '$Date: 2015-10-06 04:49:58 +0200 (Tue, 06 Oct 2015) $';
+my $svnrev = '$Revision: 38618 $';
+my $datrev = '$Date: 2015-10-12 04:51:38 +0200 (Mon, 12 Oct 2015) $';
my $tlmgrrevision;
my $prg;
if ($svnrev =~ m/: ([0-9]+) /) {
@@ -3023,7 +3023,9 @@ sub action_update {
# - then it is tried to be updated here, which is not working!
# report that and ask for report
if (!defined($tlp)) {
- tlwarn("$prg: inconsistency on the server:\n");
+ my %servers = repository_to_array($location);
+ my $servers = join("\n ", values(%servers));
+ tlwarn("$prg: inconsistency on (one of) the server(s): $servers\n");
tlwarn("$prg: tlp for package $pkg cannot be found, please report.\n");
$ret |= $F_WARNING;
next;