summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-10-03 16:59:41 +0000
committerKarl Berry <karl@freefriends.org>2009-10-03 16:59:41 +0000
commitc4964f48405965ac9c70d20e44e681012cd34c7d (patch)
tree611fc2ed46601816964ba6c87d4123fe3fcedfd0 /Master/tlpkg
parentb316efb7c226ec53ad21c090980220a4dacd15ff (diff)
new latex package rangen 1.3e (30sep09)
git-svn-id: svn://tug.org/texlive/trunk@15613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check2
-rwxr-xr-xMaster/tlpkg/libexec/ctan2tds28
-rw-r--r--Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc1
-rw-r--r--Master/tlpkg/tlpsrc/rangen.tlpsrc0
4 files changed, 26 insertions, 5 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 6ce71dfdf89..7591b6613b8 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -213,7 +213,7 @@ my @WorkingTLP = qw(
pst2pdf pstool pstricks pstricks-add
psu-thesis ptptex purifyeps pxfonts
qcm qobitree qstest qsymbols qtree quotmark
- r_und_s randbild rccol rcs rcs-multi rcsinfo
+ r_und_s randbild rangen rccol rcs rcs-multi rcsinfo
recipe recipecard recycle
refman refstyle regcount register resumemac
rjlparshap
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index add8c4f5444..1bcaf1478d1 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -2070,29 +2070,45 @@ sub runjob
# if MORE is true, remove additional files matching something in
# $moreclean and create a README.TEXLIVE which lists the removed files.
#
-# This only deletes files in the current directory. Should fix.
+# As a kludge created for rangen, if KILLPATT starts with a directory
+# path (e.g., doc/), we cd to that directory before globbing (and cd
+# back at the end).
+#
+# (Switching all the kill patterns to globs, so we could just use the
+# glob function, seemed too ugly. And removing the file in a posthook
+# would have meant a separate fn for README.TEXLIVE, also ugly.)
#
sub killfiles
{
my ($killpatt,$more) = @_;
+ print "killfiles($killpatt,$more)\n";
+ return unless $killpatt;
+
+ # cd to a leading directory name in KILLPATT.
+ my $origdir = "";
+ if ($killpatt =~ m,^(.*)/,,) {
+ chomp ($origdir = `pwd`);
+ &xchdir ($1);
+ $killpatt =~ s,^$1/,,;
+ }
+
local *DOT;
opendir (DOT, ".") || die "opendir(.) failed: $! in " . `pwd`;
my @delfiles = ();
for (grep (/$killpatt/, readdir (DOT))) {
- print "\t Removing $_\n";
if (unlink ($_)) {
+ print "\t Removing $_\n";
push (@delfiles, $_);
} else {
warn "unlink($_) failed: $!";
}
}
-
for (grep (/\.ps$/, @filenames)) {
(my $pdf = $_) =~ s/ps$/pdf/;
next unless grep (/$pdf/, @filenames);
- print "\t Remove ps $_ (since have $pdf)\n";
+ print "\t Removing ps $_ (since have $pdf)\n";
unlink ($_) && push (@delfiles, $_);
}
@@ -2111,6 +2127,10 @@ EOF
}
close RTL;
}
+
+ # if we cd'd, cd back.
+ &xchdir ($origdir) if $origdir;
+
&buildfilelist();
}
diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
index b472dc66e7b..01c8c243a98 100644
--- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
@@ -441,6 +441,7 @@ depend qsymbols
depend quotchap
depend quotmark
depend randtext
+depend rangen
depend rccol
depend rcs-multi
depend rcsinfo
diff --git a/Master/tlpkg/tlpsrc/rangen.tlpsrc b/Master/tlpkg/tlpsrc/rangen.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/rangen.tlpsrc