summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-06-04 15:55:42 +0000
committerKarl Berry <karl@freefriends.org>2010-06-04 15:55:42 +0000
commit10b3616c81915ea975b13297a010e4de0fe193d4 (patch)
tree8b9fbc1e0ab767dda6929e659f161b648f6a6378 /Master/tlpkg
parent098d058ae43c2ce7d0d6458e68e4b743df8f7538 (diff)
typedref doc update
git-svn-id: svn://tug.org/texlive/trunk@18731 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check38
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";