now we use tlmgr check --use-svn all

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

2 files changed, 0 insertions, 286 deletions

diff --git a/Master/tlpkg/bin/check-collection-coverage b/Master/tlpkg/bin/check-collection-coverage
deleted file mode 100755
index a00aac3a2c1..00000000000
--- a/Master/tlpkg/bin/check-collection-coverage
+++ /dev/null
@@ -1,113 +0,0 @@
-#!/usr/bin/env perl
-# $Id: check-collection-coverage 0 2007-10-14 20:32:44Z karl $
-# Copyright 2007 Norbert Preining
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-# 
-# Check that all package are contained in some collection.
-
-BEGIN {
-  $^W = 1;
-  ($mydir = $0) =~ s,/[^/]*$,,;
-  unshift (@INC, "$mydir/..");
-}
-
-our $mydir;
-
-use strict;
-
-use TeXLive::TLConfig;
-use TeXLive::TLPOBJ;
-use TeXLive::TLPDB;
-use Getopt::Long;
-use Pod::Usage;
-use File::Path;
-
-my $help = 0;
-
-GetOptions("help|?"       => \$help) or pod2usage(1);
-pod2usage(-exitstatus => 0, -verbose => 2) if $help;
-
-exit (&main ());
-
-sub main
-{
-  # get the db.
-  chomp (my $Master = `cd $mydir/../.. && pwd`);  # xx TLPDB should default
-  my $tlpdb = TeXLive::TLPDB->new ("root" => "$Master");
-  die("Cannot find tlpdb in $Master!\n") unless defined($tlpdb);
-  my @colls = $tlpdb->collections;
-  my %found;
-  for my $pkg ($tlpdb->list_packages) {
-    my $cat = $tlpdb->get_package($pkg)->category;
-    # ignore collections and schemes
-    next if ($cat eq "Collection");
-    next if ($cat eq "Scheme");
-    next if ($pkg =~ m/\./);
-    $found{$pkg}{'present'} = 1;
-    foreach my $c (@colls) {
-      if (grep(/^$pkg$/,$tlpdb->get_package($c)->depends)) {
-        $found{$pkg}{$c} = 1;
-      }
-    }
-  }
-  my @notincolls;
-  my @multicolls;
-  foreach my $pkg (keys %found) {
-    my @k = keys %{$found{$pkg}};
-    if ($#k <= 0) { push @notincolls, $pkg; }
-    if ($#k > 1) { push @multicolls, $pkg; }
-  }
-  if (@notincolls) {
-    print "NOT COVERED PACKAGES:\n";
-    for my $pkg (@notincolls) {
-      print "\t$pkg\n";
-    }
-  }
-  if (@multicolls) {
-    print "MULTIPLE COVERED PACKAGES: \n";
-    for my $pkg (@multicolls) {
-      print "\t$pkg: ";
-      for my $c (keys %{$found{$pkg}}) {
-        print "$c " if ($c ne "present");
-      }
-      print "\n";
-    }
-  }
-}
-
-
-
-__END__
-
-=head1 NAME
-
-check-collection-coverage - check that all packages are contained in some collection
-
-=head1 SYNOPSIS
-
-check-collection-coverage
-
-=head1 OPTIONS
-
-There are no options bug C<-help>.
-
-=head1 DESCRIPTION
-
-Every package should be included in some collection. This program checks
-for that and echos found problems to stdout.
-
-=head1 AUTHORS AND COPYRIGHT
-
-This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
-GNU General Public License Version 2 or later.
-
-=cut
-
-### Local Variables:
-### perl-indent-level: 2
-### tab-width: 2
-### indent-tabs-mode: nil
-### End:
-# vim:set tabstop=2 expandtab: #
diff --git a/Master/tlpkg/bin/check-file-coverage b/Master/tlpkg/bin/check-file-coverage
deleted file mode 100755
index 89cf8ebb617..00000000000
--- a/Master/tlpkg/bin/check-file-coverage
+++ /dev/null
@@ -1,173 +0,0 @@
-#!/usr/bin/env perl
-# $Id: check-file-coverage 5846 2007-12-23 21:38:57Z preining $
-# Copyright 2007, 2008 Norbert Preining
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-# 
-# check the file coverage of a TLTREE wrt to a texlive.tlpdb
-
-BEGIN {
-  $^W = 1;
-  chomp ($mydir = `dirname $0`);
-  unshift (@INC, "$mydir/..");
-}
-
-use strict;
-
-use TeXLive::TLConfig;
-use TeXLive::TLPSRC;
-use TeXLive::TLPOBJ;
-use TeXLive::TLPDB;
-use TeXLive::TLTREE;
-use TeXLive::TLUtils qw(dirname info debug);
-use Getopt::Long;
-use Pod::Usage;
-use File::Path;
-
-# things listed in 00texlive.core.tlpsrc are effectively ignored also.
-my @IgnorePatterns = qw!
-  .mkisofsrc$ autorun.inf$
-  support/ source/ setuptl/
-  texmf-dist/ls-R$ texmf-doc/ls-R$ texmf/ls-R$
-  tlpkg/tlpsrc/
-  tlpkg/bin
-  tlpkg/lib/ tlpkg/tests/ tlpkg/etc/ 
-  tlpkg/texlive.tlpdb
-!;
-
-chomp (my $opt_master = `cd $::mydir/../.. && pwd`);
-my $opt_help = 0;
-
-TeXLive::TLUtils::process_logging_options();
-GetOptions(
-    "master=s" => \$opt_master,	# location of the TL tree
-    "help|?" => \$opt_help) or pod2usage(1);
-
-pod2usage ('-exitstatus' => 0, '-verbose' => 2) if $opt_help;
-
-exit (&main ());
-
-
-sub main
-{
-  if (! -d $opt_master) {
-    die "$0: Master $opt_master not a directory, goodbye.\n";
-  }
-
-  # checking for duplicates
-  my $pack = "";
-  open (TLPDB,"<$opt_master/tlpkg/texlive.tlpdb")
-    or die "Cannot open $opt_master/tlpkg/texlive.tlpdb for reading: $!\n";
-  my %filetopacks;
-  while (<TLPDB>) {
-    # ignore files mentioned in 00texlive.installer
-    next if m/^\s*#/;
-    next if m/^\s*$/;
-    next if m/^((bin|run|doc|src)files|depend|execute|category|revision|shortdesc|longdesc|catalogue)/;
-    if (m/^name\s+(\S+)\s+$/) {
-      $pack = "$1";
-      next;
-    }
-    next if ($pack eq "00texlive.installer");
-    if (m/^ ([^\s]+)\s+/) {
-      push @{$filetopacks{$1}}, $pack;
-      next;
-    } 
-    print "NOT HANDLED $_";
-  }
-
-  my @multiple = ();
-  foreach (keys %filetopacks) {
-    my @foo = @{$filetopacks{$_}};
-    if ($#foo < 0) {
-      warn "that shouldn't happen: $_\n";
-    } elsif ($#foo > 0) {
-      push @multiple, $_;
-    }
-  }
-  if ($#multiple >= 0) {
-    print "$0: MULTIPLE INCLUDED FILES:\n";
-    foreach (sort @multiple) {
-      my @foo = @{$filetopacks{$_}};
-      print "  $_ (@foo)\n";
-    }
-  }
-
-  debug("reading Master tree $opt_master, patience...\n");
-  my $tltree = TeXLive::TLTREE->new( "svnroot" => $opt_master );
-  $tltree->init_from_svn;
-
-  my %tltreefiles = %{$tltree->{'_allfiles'}};
-  my @tlpdbfiles =  `grep '^ ' $opt_master/tlpkg/texlive.tlpdb | awk '{print\$1}'`;
-  chomp(@tlpdbfiles);
-  my %tlpdbf;
-  for my $f (@tlpdbfiles) {
-    $tlpdbf{$f} = 1;
-  }
-  my @nothit;
-  for my $f (keys %tltreefiles) {
-    # if it is mentioned in the tlpdb or is ignored it is considered 
-    # as covered, thus, otherwise we push it onto the nothit list
-    if (!defined($tlpdbf{$f})) {
-      my $ignored = 0;
-      foreach my $p (@IgnorePatterns) {
-        if ($f =~ m/^$p/) {
-          $ignored = 1;
-          last;
-        }
-      }
-      if (!$ignored) {
-        push @nothit, $f;
-      }
-    }
-  }
-  if (@nothit) {
-    print "$0: NOT COVERED FILES:\n";
-    for my $f (sort @nothit) { print "\t$f\n"; }
-  }
-  return 0;
-}
-
-__END__
-
-=head1 NAME
-
-check-file-coverage - check file coverage TLTREE vs. texlive.tlpdb
-
-=head1 SYNOPSIS
-
-check-file-coverage [OPTION]...
-
-=head1 OPTIONS
-
-=over 4
-
-=item B<-master> I<Master_dir>
-The location given by B<-master> must point to a valid svn repository
-of TeX Live's Master direcory.  Defaults to C<../..> of C<$0>.
-
-=back
-
-The standard options C<-help> and C<-debug> are also accepted.
-See the tlpfiles documentation for details.
-
-=head1 DESCRIPTION
-
-Consistency check of the files in the master tree with the TeX Live
-database.  Report on files that are included in more than one package,
-and on files that are present in the tree but not in any package.
-
-=head1 AUTHORS AND COPYRIGHT
-
-This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
-GNU General Public License Version 2 or later.
-
-=cut
-
-### Local Variables:
-### perl-indent-level: 2
-### tab-width: 2
-### indent-tabs-mode: nil
-### End:
-# vim:set tabstop=2 expandtab: #