texlive[68475] trunk: doc,sync

[commits+karl at tug.org]

Revision: 68475
          https://tug.org/svn/texlive?view=revision&revision=68475
Author:   karl
Date:     2023-10-07 23:41:12 +0200 (Sat, 07 Oct 2023)
Log Message:
-----------
doc,sync

Modified Paths:
--------------
    trunk/Build/source/texk/tests/TeXLive/TLUtils.pm
    trunk/Master/tlpkg/doc/releng.txt

Modified: trunk/Build/source/texk/tests/TeXLive/TLUtils.pm
===================================================================
--- trunk/Build/source/texk/tests/TeXLive/TLUtils.pm	2023-10-07 20:15:13 UTC (rev 68474)
+++ trunk/Build/source/texk/tests/TeXLive/TLUtils.pm	2023-10-07 21:41:12 UTC (rev 68475)
@@ -7,7 +7,7 @@
 
 package TeXLive::TLUtils;
 
-my $svnrev = '$Revision: 66420 $';
+my $svnrev = '$Revision: 68283 $';
 my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
 sub module_revision { return $_modulerevision; }
 
@@ -58,6 +58,8 @@
   TeXLive::TLUtils::copy($file, $target_dir);
   TeXLive::TLUtils::touch(@files);
   TeXLive::TLUtils::collapse_dirs(@files);
+  TeXLive::TLUtils::all_dirs_and_removed_dirs(@files);
+  TeXLive::TLUtils::dirs_of_files(@files);
   TeXLive::TLUtils::removed_dirs(@files);
   TeXLive::TLUtils::download_file($path, $destination);
   TeXLive::TLUtils::setup_programs($bindir, $platform);
@@ -209,6 +211,8 @@
     &copy
     &touch
     &collapse_dirs
+    &all_dirs_and_removed_dirs
+    &dirs_of_files
     &removed_dirs
     &install_package
     &install_packages
@@ -1613,30 +1617,14 @@
   return @ret;
 }
 
-=item C<removed_dirs(@files)>
+=item C<dirs_of_files(@files)>
 
-Returns all the directories from which all content will be removed.
-
-Here is the idea:
-
-=over 4
-
-=item create a hashes by_dir listing all files that should be removed
-   by directory, i.e., key = dir, value is list of files
-
-=item for each of the dirs (keys of by_dir and ordered deepest first)
-   check that all actually contained files are removed
-   and all the contained dirs are in the removal list. If this is the
-   case put that directory into the removal list
-
-=item return this removal list
-
-=back
+Returns all the directories in which at least one of the given
+files reside.
 =cut
 
-sub removed_dirs {
+sub dirs_of_files {
   my (@files) = @_;
-  my %removed_dirs;
   my %by_dir;
 
   # construct hash of all directories mentioned, values are lists of the
@@ -1662,6 +1650,21 @@
     $by_dir{$d} = \@a;
   }
 
+  return %by_dir;
+}
+
+=item C<all_dirs_and_removed_dirs(@files)>
+
+Returns all the directories for files and those from which all
+content will be removed.
+
+=cut
+
+sub all_dirs_and_removed_dirs {
+  my (@files) = @_;
+  my %removed_dirs;
+  my %by_dir = dirs_of_files(@files);
+
   # for each of our directories, see if we are removing everything in
   # the directory.  if so, return the directory; else return the
   # individual files.
@@ -1697,9 +1700,37 @@
       $removed_dirs{$d} = 1;
     }
   }
+  return (%by_dir, %removed_dirs);
+}
+
+=item C<removed_dirs(@files)>
+
+Returns all the directories from which all content will be removed.
+
+Here is the idea:
+
+=over 4
+
+=item create a hashes by_dir listing all files that should be removed
+   by directory, i.e., key = dir, value is list of files
+
+=item for each of the dirs (keys of by_dir and ordered deepest first)
+   check that all actually contained files are removed
+   and all the contained dirs are in the removal list. If this is the
+   case put that directory into the removal list
+
+=item return this removal list
+
+=back
+=cut
+
+sub removed_dirs {
+  my (@files) = @_;
+  my (%by_dir, %removed_dirs) = all_dirs_and_removed_dirs(@files);
   return keys %removed_dirs;
 }
 
+
 =item C<time_estimate($totalsize, $donesize, $starttime)>
 
 Returns the current running time and the estimated total time
@@ -5274,4 +5305,4 @@
 ### tab-width: 2
 ### indent-tabs-mode: nil
 ### End:
-# vim:set tabstop=2 expandtab: #
+# vim:set tabstop=2 shiftwidth=2 expandtab: #

Modified: trunk/Master/tlpkg/doc/releng.txt
===================================================================
--- trunk/Master/tlpkg/doc/releng.txt	2023-10-07 20:15:13 UTC (rev 68474)
+++ trunk/Master/tlpkg/doc/releng.txt	2023-10-07 21:41:12 UTC (rev 68475)
@@ -631,7 +631,7 @@
 # copy files from DVD:
 mount /mnt/tc
 cd /mnt/tc
-ls # check that it's the current release!
+ls -lt # check that it's the current release!
 cp -pR *.* setup /home/ftp/historic/systems/texcollection/$this
 #
 # copy ctan snapshot for TUG members: