From 3c5263791a2db0a013beab5b5a3bcfed77acf2db Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 9 Feb 2014 22:59:41 +0000 Subject: basque-book git-svn-id: svn://tug.org/texlive/trunk@32924 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/libexec/ctan2tds | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'Master/tlpkg/libexec') diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index cd2288c2251..dd04a135ad9 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1196,7 +1196,6 @@ chomp ($Build = `cd $Master/../Build/source && pwd`); 'pxbase' => '&POSTpxbase', 'pxchfon' => '&POSTpxchfon', 'splitindex' => '&POST_do_man', - 'stix' => '&POSTstix', 'tap', => '&POSTtap', 'texdraw', => '&POSTtexdraw', 'tipa-de' => '&POST_rmsymlink', @@ -2122,6 +2121,7 @@ my $core_latex = "$Master/texmf-dist/tex/latex"; 'apa6e' => 'latex', # requires interaction 'babel-serbianc' => 'latex',# requires interaction 'beamersubframe' => 'latex',# requires interaction + 'basque-book' => 'latex', # requires interaction 'basque-date' => 'latex', # requires interaction 'bguq' => 'latex', # requires interaction 'bosisio' => 'latex -translate-file=empty.tcx', # ^^, no 8-bit @@ -2690,8 +2690,19 @@ for (@ARGV) { } else { &donormal; } + &sanitize_file_names ($COOKED_PKG); + + &xchdir ($RAW_DIR); # pop back to top-level raw dir for next package. +} - &xchdir ($RAW_DIR); + +# we do not want to deal with anything but "normal" characters, a subset +# of 7-bit ASCII. The file names appear in too many contexts for +# anything else to reliably work. +# +sub sanitize_file_names { + my ($dir) = @_; + &SYSTEM ("find $dir -print | xargs rename 's![^-_A-Za-z0-9.,/+]!!g'") } @@ -5628,14 +5639,6 @@ sub POSTpxchfon { &SYSTEM ("$MV $srcdir/*.sfd $sfddir/"); } -sub POSTstix { - print "POST$package - unspacify\n"; - &SYSTEM ('find . -name \*\ \* -print | rename "s/ /_/g"'); -# . '-exec mv "{}" ' -# . '"`echo \"{}\" | tr -d \ `" ' -# . '\;'); -} - sub POSTtap { print "POST$package - mv tapdoc dir\n"; &SYSTEM ("$MV tapdoc/* ."); -- cgit v1.2.3