diff options
Diffstat (limited to 'Master/tlpkg/libexec/ctan2tds')
-rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 33 |
1 files changed, 11 insertions, 22 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index a4df790a9f2..996684b147c 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -678,7 +678,6 @@ chomp (my $ctan_root = `tlpkginfo --ctan-root`); 'keys3', "die 'skipping, merged into expl3'", 'knit', "die 'skipping, ancient program'", 'knitting', "&MAKEflatten", - 'knuth', "die 'skipping, new top-level web/ dir? copies from sources?'", 'koi8', "die 'skipping, ca.1996, noinfo license'", 'koma-script-SFS', "die 'skipping, use koma-script-sfs'", 'koma-script-examples-3', "die 'skipping, just have koma-script-examples'", @@ -2424,6 +2423,7 @@ $standardtex 'junicode', 'fonts', 'kixfont', 'fonts', 'knitting', 'fonts', + 'knuth', 'generic', 'knuth-errata', 'generic', 'kotex-plain', 'plain', 'kpfonts', 'fonts', @@ -3684,12 +3684,15 @@ for (@ARGV) { sub sanitize_file_names { my ($dir) = @_; # -0 in case of spaces or other chars in filenames, which would be - # parsed into words by the shell otherwise. - &SYSTEM ("find $dir -print0 " - . "| xargs -0 /l/bin/rename 's![^-_A-Za-z0-9.,/+]!!g'"); + # parsed into words by the shell otherwise, cause trouble with svn, etc. + if (-d $dir) { + &SYSTEM ("find $dir -print0 " + . "| xargs -0 /l/bin/rename 's![^-_A-Za-z0-9.,/+]!!g'"); + } else { + die "$0:sanitize_file_names: not a directory, goodbye: $dir\n"; + } } - # Override our default guess of "latex" if we can intuit from the CTAN # path, which ctan2tl kindly passes us. @@ -5228,7 +5231,7 @@ sub MAKEltt { # pstricks packages usually support both plain and latex. # sub MAKEpst { - print "\t SPECIAL pst $package starts\n"; + print "\t SPECIAL MAKEpst - starts for $package"; # pst-laboObj.tex, pst-fp.sty, pst-vehicle need special cases: $standardtex = qq!^(($package(Obj)?)|pst-fp|ListVehicles)\.(tex|sty)!; $whichformat='generic'; @@ -6634,22 +6637,8 @@ sub POSTknitting { } sub POSTknuth { - print "POST$package - removing nonfree/duplicated files\n"; - # - &xchdir ($DEST); - &xmkdir ("doc/generic"); - &SYSTEM ("$MV doc/knuth doc/generic/"); - # - &xmkdir ("source/generic"); - &SYSTEM ("$MV source/knuth source/generic/"); - # - # remove nonfree. - &xchdir ("$DEST/doc/generic/knuth"); - &SYSTEM ("$RM tex/texbook.tex mf/mfbook.tex"); - # - # remove sources that are in build tree. - &xchdir ("$DEST/source/generic/knuth"); - &SYSTEM ("rm -rf etc mf mfware tex/tex.web tex/trip* texware web/*.web"); + print "POST$package - extract pwebmac/knuth-lib.tar.gz\n"; + #&xsystem ("tar xf knuth-lib.tar.gz"); } sub POSTknuth_lib { |