new script tlcritical-diff; exclude mathdesign, eq2db from checks

git-svn-id: svn://tug.org/texlive/trunk@39258 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 74 insertions, 14 deletions

diff --git a/Master/tlpkg/bin/check-files-by-format b/Master/tlpkg/bin/check-files-by-format
index fa2704d8fc2..116b5fc8011 100755
--- a/Master/tlpkg/bin/check-files-by-format
+++ b/Master/tlpkg/bin/check-files-by-format
@@ -52,7 +52,7 @@ my $exclude_pdf = {
      # 15dec12 derekn says will be fixed in next xpdf after 3.03:
      # (causes seg fault now):
   'texmf-dist/doc/latex/ocgx/demo-ocgx.pdf' => -1,
-      # not a PDF file:
+     # not a PDF file:
   'texmf-dist/dvips/tetex/config.pdf' => -1,
 };
 
@@ -88,15 +88,14 @@ my $exclude_pfb = { '*base*' => 'texmf-dist/fonts/type1',
   'public/carolmin-ps/' => 1,
   'public/chemarrow/' => 1,
   'public/cjhebrew/' => 1,
-  'public/cmcyr/' => 1,
   'public/cm-super/' => 1,
-  'texmf-dist/doc/fonts/cm-unicode/Fontmap.CMU.pfb' => 1,
   'public/cm-unicode/cmunobi.pfb' => 1,
+  'public/cmcyr/' => 1,
   'public/countriesofeurope/' => 1, # 22apr12 not reported
   'public/cs/' => 1,
   'public/doublestroke/' => 1,
-  'public/epiolmec/' => 1,
   'public/ebgaramond/' => 1,	# 9jul14 bug in fontforge/t1lint, not reported
+  'public/epiolmec/' => 1,
   'public/esstix/' => 1,	# 12may11 author fixed some, others will remain
   'public/ethiop-t1/' => 1,
   'public/eurosym/' => 1,
@@ -123,16 +122,17 @@ my $exclude_pfb = { '*base*' => 'texmf-dist/fonts/type1',
   'public/linearA/' => 1,
   'public/lm/' => 1,
   'public/lxfonts/' => 1,
-  'public/mathabx-type1/' => 1,  # 14jan11 wrote bnb/preining --karl
   'public/marvosym/' => 1,
+  'public/mathabx-type1/' => 1, # 14jan11 wrote bnb/preining --karl
+  'public/mathdesign/' => 1,	# 3jan16 author informed long ago, no release
   'public/mathpazo/' => 1,
   'public/ocherokee/' => 1,
   'public/oinuit/' => 1,
   'public/old-arrows/' => 1,	# 2015 author unable/unwilling
   'public/omega/' => 1,
   'public/phaistos/' => 1,
-  'public/playfair/' => 1,	# 15mar14 known hinting issues
   'public/pl/' => 1,
+  'public/playfair/' => 1,	# 15mar14 known hinting issues
   'public/pxfonts/' => 1,
   'public/rsfs/' => 1,
   'public/starfont/' => 1,	# 4oct10 reported to author 
@@ -145,6 +145,7 @@ my $exclude_pfb = { '*base*' => 'texmf-dist/fonts/type1',
   'public/wasy2-ps/' => 1,	# too old, will not be updated
   'public/xypic/' => 1,
   'public/yhmath/' => 1,
+  'texmf-dist/doc/fonts/cm-unicode/Fontmap.CMU.pfb' => 1,
   'uhc/umj/' => 1,
   'urw/avantgar/' => 1,
   'urw/bookman/' => 1,
@@ -177,9 +178,10 @@ my $exclude_tfm = { '*base*' => 'texmf-dist/fonts/tfm',
   'public/cmcyr/' => 1,
   'public/dozenal/' => 1,	# wrote author 31oct12
   'public/gfsbodoni/' => 1,	# wrote author 12dec12
-  'public/malayalam/' => 1,
-  'public/japanese-otf/' => 1,	# japanese tfm's
   'public/japanese-otf-uptex/' => 1, # japanese tfm's
+  'public/japanese-otf/' => 1,	# japanese tfm's
+  'public/malayalam/' => 1,
+  'public/mathdesign/' => 1,	# 3jan16 author informed long ago, no release
   'public/wnri/' => 1,
   'public/wsuipa/' => 1,
 };
@@ -187,6 +189,7 @@ my $exclude_tfm = { '*base*' => 'texmf-dist/fonts/tfm',
 
 # the value has no meaning here
 my $exclude_vf = { '*base*' => 'texmf-dist/fonts/vf',
+  'public/ae/' => 1,
   'public/bgreek/' => 1,
   'public/eco/' => 1,
   'public/epigrafica/' => 1,
@@ -199,14 +202,11 @@ my $exclude_vf = { '*base*' => 'texmf-dist/fonts/vf',
   'public/gfssolomos/' => 1,
   'public/hfoldsty/' => 1,
   'public/kerkis/' => 1,
+  'public/mathdesign/' => 1,	# 3jan16 author informed long ago, no release
   'public/sansmathfonts/' => 2,	# 20may13 ok with cmssbx12.tfm from sauter
-  'mathdesign/mdbch/' => 1,
-  'mathdesign/mdput/' => 1,
-  'mathdesign/mdugm/' => 1,
   'public/txfontsb/' => 1,
-  'vntex/comicsansvn/' => 1,
   'public/zefonts/' => 1,
-  'public/ae/' => 1,
+  'vntex/comicsansvn/' => 1,
 };
 
 
@@ -308,7 +308,7 @@ sub check_pfb {
   my $errfile = "$tmpdir/pfberr";
   unlink($errfile);
   my $bad = system("t1lint -q $tlroot/$file");
-  print "Bad PFB: $file\n" if $bad;
+  print "Bad pfb: $file\n" if $bad;
 }
 
 sub check_tfm {
diff --git a/Master/tlpkg/bin/tlcritical-diff b/Master/tlpkg/bin/tlcritical-diff
new file mode 100755
index 00000000000..2e170c611a4
--- /dev/null
+++ b/Master/tlpkg/bin/tlcritical-diff
@@ -0,0 +1,59 @@
+#!/bin/sh
+# $Id$
+# Assuming tlcritical and tlnet repos at same level under $tlftp,
+# show diffs of non-architecture-dependent files.
+
+: ${tlftp=/home/ftp/texlive}
+cd $tlftp || exit 1
+
+tlcrit=tlcritical/archive
+if test ! -d $tlcrit; then
+  echo "$0: no $tlcrit under `pwd`" >&2
+  exit 1
+fi
+#
+tlnet=tlnet/archive
+if test ! -d $tlnet; then
+  echo "$0: no $tlnet under `pwd`" >&2
+  exit 1
+fi
+
+# Function to compare two tar files.
+# For our purposes here, assume $1 is for tlnet and $2 for tlcrit.
+tmp=/tmp/tlcritdiff
+rm -rf $tmp
+tardiff () 
+{
+  mkdir -p $tmp/tlnet $tmp/tlcrit
+  origdir=`pwd`
+  cd $tmp/tlnet && tar xf $origdir/$1
+  cd $tmp/tlcrit && tar xf $origdir/$2
+  cd $tmp || exit 1
+  diff -u0r tlnet tlcrit
+  cd $origdir || exit 1
+}
+
+# all the critical generic packages have a corresponding doc archive,
+# so use that pattern to find the list, for simplicity.
+# assume no weird characters.
+for tlcrit_docpkg in $tlcrit/*.doc.tar.xz; do
+  tlcrit_pkg=`echo $tlcrit_docpkg | sed 's/doc\.//'`
+  if test ! -s "$tlcrit_pkg"; then
+    echo "$0: no tlcritical package: $tlcrit_pkg (in `pwd`)" >&2
+    exit 1
+  fi
+  
+  tlnet_docpkg=`echo $tlcrit_docpkg | sed s,$tlcrit,$tlnet,`
+  if test ! -s $tlnet_docpkg; then
+    echo "$0: no tlnet doc package: $tlnet_docpkg (in `pwd`)" >&2
+    exit 1
+  fi
+  tlnet_pkg=`echo $tlnet_docpkg | sed 's/doc\.//'`
+  if test ! -s "$tlnet_pkg"; then
+    echo "$0: no tlnet package: $tlnet_pkg (in `pwd`)" >&2
+    exit 1
+  fi
+  
+  tardiff $tlnet_docpkg $tlcrit_docpkg
+  tardiff $tlnet_pkg $tlcrit_pkg
+done
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index e7f4147727c..c92696a0dbb 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -382,6 +382,7 @@ chomp ($Build = `cd $Master/../Build/source && pwd`);
  'epix',        "die 'skipping, needs C++'",
  'epspdf',      "die 'skipping, siep does it by hand'", #"&MAKEflatten",
  'epspdf-setup',"die 'skipping, siep does it by hand'",
+ 'eq2db',	"die 'skipping, author request (and nonfree requirements)'",
  'eqexam',      "die 'skipping, per author request'",
  'eqmark',      "die 'skipping, latex 2.09, was never in TL'",
  'esindex',     "die 'skipping, use bezos'",