diff options
author | Karl Berry <karl@freefriends.org> | 2009-10-03 16:59:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-10-03 16:59:41 +0000 |
commit | c4964f48405965ac9c70d20e44e681012cd34c7d (patch) | |
tree | 611fc2ed46601816964ba6c87d4123fe3fcedfd0 /Master/tlpkg | |
parent | b316efb7c226ec53ad21c090980220a4dacd15ff (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-x | Master/tlpkg/bin/tlpkg-ctan-check | 2 | ||||
-rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 28 | ||||
-rw-r--r-- | Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc | 1 | ||||
-rw-r--r-- | Master/tlpkg/tlpsrc/rangen.tlpsrc | 0 |
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 |