From 92e971ebe60f39f8244c1c8796219ad878b1617e Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Fri, 1 Feb 2013 23:42:25 +0000
Subject: ltxfileinfo shell script (1feb13)

git-svn-id: svn://tug.org/texlive/trunk@29005 c570f23f-e606-0410-a88d-b1316a301751
---
 .../source/texk/texlive/linked_scripts/Makefile.am |   1 +
 .../source/texk/texlive/linked_scripts/Makefile.in |   1 +
 .../texlive/linked_scripts/ltxfileinfo/ltxfileinfo | 385 +++++++++++++++++++++
 .../texk/texlive/linked_scripts/texlive/tlmgr.pl   |  35 +-
 4 files changed, 419 insertions(+), 3 deletions(-)
 create mode 100755 Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo

(limited to 'Build/source')

diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.am b/Build/source/texk/texlive/linked_scripts/Makefile.am
index 89dc0ad8307..b54181caf53 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.am
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.am
@@ -64,6 +64,7 @@ texmf_dist_shell_scripts = \
 	latexfileversion/latexfileversion \
 	listbib/listbib \
 	listings-ext/listings-ext.sh \
+	ltxfileinfo/ltxfileinfo \
 	lua2dox/lua2dox_lua \
 	pdfjam/pdf180 \
 	pdfjam/pdf270 \
diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.in b/Build/source/texk/texlive/linked_scripts/Makefile.in
index 79defdf5590..747ae7e9412 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.in
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.in
@@ -247,6 +247,7 @@ texmf_dist_shell_scripts = \
 	latexfileversion/latexfileversion \
 	listbib/listbib \
 	listings-ext/listings-ext.sh \
+	ltxfileinfo/ltxfileinfo \
 	lua2dox/lua2dox_lua \
 	pdfjam/pdf180 \
 	pdfjam/pdf270 \
diff --git a/Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo b/Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo
new file mode 100755
index 00000000000..f701a598b16
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/ltxfileinfo/ltxfileinfo
@@ -0,0 +1,385 @@
+#!/bin/bash
+
+<<LATEX
+= ltxfileinfo - print version information for a LaTeX files
+
+== Synopsis
+
+  ltxfileinfo [options] filename
+
+== Options
+
+  Options:
+  -h, --help      print this help
+  -d, --date      print file's date only
+  -v, --version   print file's version only
+  -i, --info      print file's description text only
+  -l, --location  print file's full path only (same output as kpsewhich)
+  -f, --flat      output as 1 line with 4 tab-separated file, date, version and info fields
+  -s, --star      mark mal-formatted data with a star
+  -c, --color     mark mal-formatted data with red color (ANSI coloring)
+
+== Description
+\textbf{ltxfileinfo} displays version information for LaTeX files. If no path
+information is given, the file is searched using kpsewhich. As an extra,
+for developers, the script will (use the |--star| or |--color| options)
+check the valididity of the |\Provides...| statement in the files.
+The script uses code from Uwe Lück's |readprov.sty|.
+
+Without an option, the output will be of the form:
+
+  $ ltxfileinfo ctable.sty
+  name: ctable.sty
+  date: 2012/08/23
+  vers: v1.24
+  info: Easy, key=value directed, option-rich, typesetting of floats
+  loca: /usr/local/texlive/2012/../texmf-local/tex/latex/ctable/ctable.sty
+
+Missing information is represented by |--|:
+
+  $ ltxfileinfo yhmath.sty
+  name: yhmath.sty
+  date: --
+  vers: --
+  info: --
+  loca: /usr/local/texlive/2012/texmf-dist/tex/latex/yhmath/yhmath.sty
+
+\textbf{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:
+
+  $ ltxfileinfo -c arfonts.sty
+  file: arfonts.sty (\Red{ARfonts.sty})
+  date: 2006/01/01
+  vers: \textcolor{red}{--}
+  info: Part of the Arabi package
+  loca: /usr/local/texlive/2012/texmf-dist/tex/latex/arabi/arfonts.sty
+
+We see here, that the |\ProvidesPackage| statement has an incorrect first
+argument and has no version information.
+
+== Other output formats
+With the |--date| option, only the file's date will be shown, unlabeled.
+The |--version|, |--location|, |--info| options are treated analogously.
+
+  $ ltxfileinfo -v chronology.sty
+  v1.0
+
+The |--flat| option prints the fields (except loca:, the last field) on one
+line, unlabeled and tab-separated:
+ 
+  $ ltxfileinfo --star --flat chronology.sty
+  chronology.sty        2010/6/12*      v1.0    Horizontal timeline
+
+The date is starred, because its format is not yyyy/mm/dd (and the |--star|
+option is given.)
+
+== Bugs
+
+On my system, I have a total of 8699 kpsewhich-detectable files that contain a |\Provides...| statement. 
+I ran them all through |ltxfileinfo| and made the following summary of detected errors:
+
+  8695  Total \Provides... containing files tested 
+  
+   660  \Provides... could not be interpreted; reason:
+        160  Argument of \Provides... not equal to file's name
+          8  Latex3 package (not handled yet)
+        480  Unidentified problem with \ProvidesPackage statement
+         12  \Provides... used in file without a ... extension
+  
+  8035  Files could be evaluated
+        482  had no date
+         95  had a mal-formatted date 
+       2666  had no version
+        357  had a mal-formatted version
+        765  had a \Provides... first argument different from the filename
+
+The .dtx files have more problems than other files:
+
+  1345  .dtx files:
+  
+   320   \Provides... could not be interpreted; reason:
+         81  Argument of \Provides... not equal to...
+          6  Latex3 package (not handled yet)
+        233  Unidentified problem with \ProvidesPackage statement
+  
+  1025  Files could be evaluated
+         49  had no date
+         15  had a mal-formatted date 
+         99  had no version
+         52  had a mal-formatted version
+        468  had a \Provides... first argument different from the filename
+LATEX
+
+# print error message, remove temporary files, and exit
+function die {
+   echo "$arg     `mark error:` $*"
+   exit 1
+}
+
+function help {
+   cat <<-'EOF'
+	This is ltxfileinfo version 2.00
+
+	ltxfileinfo [options] filename
+	
+	Options:
+	-h, --help      print this help
+	-d, --date      print file's date only
+	-v, --version   print file's version only
+	-i, --info      print file's description text only
+	-l, --location  print file's full path only (same output as kpsewhich)
+	-f, --flat      output as 1 line with 4 tab-separated file, date, version and info fields
+	-s, --star      mark improvements with respect to nicefilelist.sty with a star
+	-c, --color     mark improvements with respect to nicefilelist.sty with red color
+	-D, --debug     don't remove temporary files 
+	EOF
+   exit 0
+}
+
+# remove leading and trailing whitespace from a string
+function trim {
+   local var="$*"
+   var="${var#"${var%%[![:space:]]*}"}"   # remove leading whitespace
+   var="${var%"${var##*[![:space:]]}"}"   # remove trailing whitespace
+   echo -n "$var"
+}
+
+# mark a string by appending a * (--mark star)
+function mark {
+   echo "$mark1$*$mark2"
+}
+
+# special treatment for .mbs and .bst files:
+function dombsbst {
+   # look at the first \ProvidesFile only:
+   out="File: "`grep '\\ProvidesFile{' $loca |head -1 |sed 's/^[ %]*\\\\ProvidesFile{//;s/}\[/ /;s/\]$//'`
+}
+
+# unpack the fields
+function extract {
+  shift # remove File:
+  file=$1
+  shift # remove filename
+  if [ "$1" = "" ]; then
+     date=--; vers=--; info=--; return
+  elif [[ "$1" =~ ^[0-9]+/[0-9]+/[0-9]+ ]]; then
+     date=$1
+     shift
+  else
+     date="--"
+  fi
+  if [ "$1" = "" ]; then
+     vers=--; info=--; return
+  elif [[ "$1" =~ ^v?[[:digit:]][.[:digit:]]+[a-z]* ]]; then
+     vers=$1
+     shift
+     info="${*:---}"
+     return
+  else
+     fixed=
+     # sometimes the version is of the form v.1.3 or vers:1.3 or such:
+     for i in version ver. ver: ver v. V v; do
+        if [[ $1 =~ $i[[:digit:]][.[:digit:]]*[a-z]* ]]; then
+           vers=$1
+           shift
+           fixed=1
+           break
+        fi
+     done
+     if [ ! $fixed ]; then
+        # sometimes the version is reported as "v 1.3" or "vers: 1.3" or such:
+        for i in version ver: ver v. V v; do 
+           if [ $1 = $i ]; then
+              if [[ "$2" =~ [[:digit:]][.[:digit:]]+[a-z]* ]]; then
+                 vers="$1 $2"
+                 shift
+                 shift
+                 fixed=1
+                 break
+              fi
+           fi
+        done
+     fi
+     info="${*:---}"
+     if [ ! $fixed ]; then
+        vers=--
+     fi
+  fi
+}
+
+# display the results
+function display {
+   # file should be equal to arg (the argument)
+   test $file != $arg && file="$arg (`mark $file`)"
+   
+   # 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`
+      fi
+   fi
+   
+   # version should be 1.2 or 1.2.3, maybe prefixed with v and suffixed with zero or more lower case letters
+   if [[ ! "$vers" =~ ^v?[[:digit:]]+.[[:digit:]]+(.[[:digit:]]+)?[[:lower:]]*$ ]]; then vers=`mark $vers`; fi
+   
+   if [ ! "$key" ]; then
+      if [ $flat ]; then 
+         echo -e "$file\t$date\t$vers\t$info"
+      else
+         cat <<-EOF
+	file: $file
+	date: $date
+	vers: $vers
+	info: $info
+	loca: $loca
+	EOF
+      fi
+   else
+      eval "echo \$$key"
+   fi  
+}
+
+if ! options=$(getopt -o hdvlifcsD \
+                      -l help,date,version,location,info,flat,star,color,debug -- "$@"); then exit 1; fi
+eval set -- "$options"
+
+while [ $# -gt 0 ]; do
+   case $1 in
+   -h|--help)     help;;
+   -d|--date)     key=date;;
+   -v|--version)  key=vers;;
+   -i|--info)     key=info;;
+   -l|--location) key=loca;;
+   -f|--flat)     flat=1;;
+   -s|--star)     mark1=''; mark2='*';;
+   -c|--color)    mark1=''; mark2='';;
+   -D|--debug)    debug=1;;
+   (--)           shift; break;;
+   (*)            break;;
+   esac
+   shift
+done
+
+arg=$1
+test "$arg" = "" && help
+loca=`kpsewhich "$arg"`
+test "$loca" = ""                                       && die not found by kpsewhich
+prov=`grep '\\\\Provides' "$loca"`
+test "$prov" = ""                                       && die no \\Provides...
+test "$prov" = "${prov/ProvidesExplPackage//}"          || die 'Latex3 package (not handled yet)'
+
+# the file must contain a \ProvidesXXX statement, where XXX is Class, Package, or File:
+for i in Class Package File; do 
+   if [[ "$prov" =~ \\Provides$i[[:space:]]*\{ ]]; then found=1; break; fi
+done
+test $found || die Found no \\ProvidesClass/Package/File statement
+
+# readprov.sty does not work on .mbs and .bst files: special treatment;
+# \ProvideFile statements in them mostly refer to merlin.mbs, or other names
+if [[ $arg =~ \.mbs$ || $arg =~ \.bst$ ]]; then dombsbst; fi
+
+DIR=`mktemp -d`
+test $debug || trap "rm -rf $DIR" 0 1 2 15
+test $debug && echo $DIR
+cp "$loca" $DIR
+cd $DIR
+
+# The following code is mostly from Uwe Lueck's readprov.sty:
+echo '
+\makeatletter
+\def\GetFileInfo#1{%
+  \def\filename{#1}%
+  \def\@tempb##1 ##2 ##3\relax##4\relax{%
+    \def\filedate{##1}%
+    \def\fileversion{##2}%
+    \def\fileinfo{##3}}%
+    \read@file@info\@tempb{#1}} 
+\newcommand*{\read@file@info}[2]{%
+  \expandafter \expandafter \expandafter
+    #1\csname ver@#2\endcsname \relax? ? \relax\relax}
+\newcommand*{\ReadFileInfos}[1]{%
+  \begingroup
+    \let\RP@@provfile\@providesfile
+    \def\@providesfile##1[##2]{\RP@@provfile{##1}[{##2}]\endinput}%
+    \def\ProvidesClass  ##1{\ProvidesFile{##1.\@clsextension}}%
+    \def\ProvidesPackage##1{\ProvidesFile{##1.\@pkgextension}}%
+    \@for\@tempa:=#1\do{%
+      \edef\@tempa{\expandafter\read@no@spaces\@tempa\@nil}%
+      \input{\@tempa}%
+      \global\let\@gtempa\@tempa}%
+  \endgroup
+  \GetFileInfo\@gtempa%
+}
+\def\read@no@spaces#1#2\@nil{#1#2}%
+\def\NeedsTeXFormat#1{\expandafter\@needsformat}
+\ReadFileInfos{'$loca'}
+\endinput
+' > ltxfileinfo.tex
+
+pdflatex -interaction=batchmode ltxfileinfo.tex >& /dev/null
+
+IFS= # do not remove any whitespace
+base=${arg%.*} # strip the extension
+shopt -s nocasematch # MS people don't pay attention to case differences in file names...
+while read line; do
+   if [[ "$line" =~ ^File:.$base ]]; then 
+      out="$line"
+      while [ ${#line} -eq 79 ]; do # gather continuation lines
+         read line
+         out="$out$line"
+      done  
+   fi
+done <ltxfileinfo.log
+IFS=' '			# back to 
+shopt -u nocasematch	# normal
+
+# if the \Provides statement is not recognized, try to find out why, and die:
+if [ "$out" = "" ]; then
+   read -r provtype provarg <<<`sed -n '/\\Provides\(Class\|Package\|File\)\s*{[^}]*}/s/.*\(Class\|Package\|File\)\s*{\([^}]*\)}.*/\1 \2/p' "$loca"`
+   if [[ "$provarg" = "" || "$provarg" =~ '\\' ]]; then die Unidentified problem with \\ProvidesPackage statement; fi
+   case $provtype in
+   Package) 
+     if [[ ! "$arg" =~ \.(sty|dtx)$ ]]; then
+       die \\ProvidesPackage used in file without a .sty extension
+     elif [[ "$provarg" =~ \.sty$ ]]; then
+       die "Argument of \\ProvidesPackage ($provarg) should not contain .sty extension"
+     elif [ "$provarg" != "$base" ]; then
+       die "Argument of \\ProvidesPackage ($provarg) not equal to file's base name ($base)"
+     else
+       die Unidentified problem with \\ProvidesPackage statement
+     fi
+     ;;
+   Class)
+     if [[ ! "$arg" =~ \.(cls|dtx)$ ]]; then
+       die \\ProvidesClass used in file without a .cls extension
+     elif [[ "$provarg" =~ \.cls$ ]]; then
+       die "Argument of \\ProvidesClass ($provarg) should not contain .cls extension"
+     elif [ "$provarg" != "$base" ]; then
+       die "Argument of \\ProvidesClass ($provarg) not equal to file's base name ($base)"
+     else
+       die Unidentified problem with \\ProvidesPackage statement
+     fi
+     ;;
+   File)
+     if [ "$arg" != "$provarg" ]; then
+       die "Argument of \\ProvidesFile ($provarg) not equal to file's name ($arg)"
+     else
+       die Unidentified problem with \\ProvidesPackage statement
+     fi
+     ;;
+   *)
+     die Found \\Provides$provarg statement - cannot handle it
+     ;;  
+   esac
+fi
+
+extract $out
+display
diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
index 557b8316dd1..dfcf2a0e483 100755
--- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
+++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
@@ -1,12 +1,12 @@
 #!/usr/bin/env perl
-# $Id: tlmgr.pl 28216 2012-11-09 12:34:08Z preining $
+# $Id: tlmgr.pl 28995 2013-01-31 00:45:52Z preining $
 #
 # Copyright 2008, 2009, 2010, 2011, 2012 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 
-my $svnrev = '$Revision: 28216 $';
-my $datrev = '$Date: 2012-11-09 13:34:08 +0100 (Fri, 09 Nov 2012) $';
+my $svnrev = '$Revision: 28995 $';
+my $datrev = '$Date: 2013-01-31 01:45:52 +0100 (Thu, 31 Jan 2013) $';
 my $tlmgrrevision;
 my $prg;
 if ($svnrev =~ m/: ([0-9]+) /) {
@@ -4049,6 +4049,23 @@ sub action_platform {
       $localtlpdb->setting("available_architectures",@newarchs);
       $localtlpdb->save;
     }
+  } elsif ($what =~ m/^set$/i) {
+    return if !check_on_writable();
+    my $arg = shift @ARGV;
+    die "Missing argument to platform set" unless defined($arg);
+    my @already_installed_arch = $localtlpdb->available_architectures;
+    if ($arg =~ m/^auto$/i) {
+      info("Setting platform detection to auto mode.\n");
+      $localtlpdb->setting('-clear', 'platform');
+      $localtlpdb->save;
+    } else {
+      if (!TeXLive::TLUtils::member($arg, @already_installed_arch)) {
+        tlwarn("cannot set platform to a not installed one.\n");
+        return;
+      }
+      $localtlpdb->setting('platform', $arg);
+      $localtlpdb->save;
+    }
   } else {
     die "Unknown option for platform: $what";
   }
@@ -6438,6 +6455,10 @@ those extra settings at present.
 
 =head2 platform list|add|remove I<platform>...
 
+=head2 platform set I<platform>
+
+=head2 platform set auto
+
 C<platform list> lists the TeX Live names of all the platforms
 (a.k.a. architectures), (C<i386-linux>, ...) available at the package
 repository.
@@ -6449,6 +6470,14 @@ C<platform remove> I<platform>... removes the executables for each given
 platform I<platform> from the installation, but keeps the currently 
 running platform in any case.
 
+C<platform set> I<platform> switches TeX Live to always use the given
+platform instead of auto detection.
+
+C<platform set auto> switches TeX Live to auto detection mode for platform.
+
+Platform detection is needed to select the proper C<xz>, C<xzdec> and 
+C<wget> binaries that are shipped with TeX Live.
+
 C<arch> is a synonym for C<platform>.
 
 Options:
-- 
cgit v1.2.3