typedref doc update

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

1 files changed, 31 insertions, 7 deletions

diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 61b45be1833..418d76f8b5c 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -460,7 +460,7 @@ sub do_tlp
   my $needed = 0;
   
   my $tlp = $tlpdb->get_package($tlpn);
-  if (not(defined($tlp))) {
+  if (!defined($tlp)) {
     warn "$0: no package $tlpn\n";
     return 1;
   }
@@ -475,12 +475,16 @@ sub do_tlp
   push @tl_files, $tlp->docfiles;
   push @tl_files, $tlp->srcfiles;
   if ($tlp->relocated) { for (@tl_files) { s:^$RelocPrefix/:$RelocTree/:; } }
-  # we don't push bin files, should we?
-  
+  # we don't push bin files.
+  my @tl_basefiles = ();  # compare with CTAN after the loop
+    
   my @compared = ();
   for my $file (@tl_files) {
-#warn "checking file $file\n";
-    # no point yet in comparing ours, we have generated too many.
+    (my $basefile = $file) =~ s,^.*/,,;
+#warn "checking file $file -> $basefile\n";
+    push (@tl_basefiles, $basefile);
+
+    # no point yet in comparing our pdfs, we have generated too many.
     # revisit this someday to see how many of ours are actually different.
     # However, for lshort translations, the pdf is often the only thing
     # we have to compare.
@@ -492,7 +496,6 @@ sub do_tlp
       next;
     }
     
-    (my $basefile = $file) =~ s,^.*/,,;
     chomp (my @ctan_files = `find $ctan_dir/ -name $basefile`);
 #warn "ctan find $basefile: @ctan_files\n";
     # the trailing / is so if we happen to hit a symlink on CTAN, it'll
@@ -523,7 +526,28 @@ sub do_tlp
     }
   }
   
-  # xx check ctan dir for new files somehow?
+  # unfortunately, we cannot do this.  There are many PDF's on CTAN
+  # which have no sources or otherwise problematic for TL.  Perhaps one
+  # day we could use the %moreclean hash from ctan2tds as an additional
+  # filter, i.e., put all those ctan2tds tables in an external file.
+  # 
+  # # check for PDF files on CTAN that we don't have.
+  # my @ctan_pdf_needed = ();
+  # chomp (my @ctan_files = `find $ctan_dir -name \*.pdf`);
+  # for my $cfile (@ctan_files) {
+  #   (my $base_cfile = $cfile) =~ s,^.*/,,;
+  #   if (! grep { $_ eq $base_cfile } @tl_basefiles) {
+  #     push (@ctan_pdf_needed, $base_cfile);
+  #   }
+  # }
+  # if (@ctan_pdf_needed) {
+  #   if (! $needed) {
+  #     # if this is the first thing needed (no diffs), print package name.
+  #     print "# $tlpn\n";
+  #     $needed = 1;
+  #   }
+  #   print "# new on ctan: @ctan_pdf_needed\n";
+  # }
   
   if (@compared == 0) {
     warn "\n$tlpn: no files to compare in $ctan_dir, fixme!\n";