tipa non-update, for vowel.pdf (29jan12)

git-svn-id: svn://tug.org/texlive/trunk@25247 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 26 deletions

diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index 7ce470b3cc3..351d37d1974 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -1299,6 +1299,13 @@ $standardtex='\.(.bx|cfg|sty|clo|ldf|cls|def|fd|cmap|4ht)$';
  'ticket',	'\.tdf|' . $standardtex,
  'tikz-cd',	'tikz-cd.sty',		# not pgfmanual.sty
  'tikz-qtree',	'(pgf|tikz-)(subpic|q?tree(-compat)?)\.(tex|sty)',
+ # tipa: we want to install all .sty except tipaman|boxchar|codelist.
+ # i can't explain why ^(?!...), the "zero-width negative look-ahead
+ # assertion", is what works, but it does. found in (and modified from)
+ # the perl cookbook,
+ # http://docstore.mik.ua/orelly/perl/cookbook/ch06_18.htm,
+ # Expressing AND, OR, and NOT in a Single Pattern.  Fun, huh?
+ 'tipa',	'\.fd$|\.def$|^(?!tipaman|boxchar|codelist).*\.sty$',
  'tipa-de',	'NULL',			# doc package
  'titleref',	'^..[^s].*\.sty', 	# not miscdoc.sty
  'tkz-orm',	'tkz.*\.sty',		# no pgfmanual.sty
@@ -1943,6 +1950,7 @@ $standardmfinstall = '\.mf$';
  'ibygrk'	=> 'ibycus4\.map',			# tex|mf source
  'ifsym'	=> $standardmfinstall . '|\.gen',
  'niceframe',	=> '(karta|umrand).*\.mf',		# not bbding or dingbat
+ 'tipa'		=> $standardmfinstall . '|[^c]\.def$',
  'wnri'		=> $standardmfinstall . '|wnindic\.map',# mf source
 );
 
@@ -2968,16 +2976,14 @@ EOF
 }
 
 # rebuild list of input files, e.g., after flattening
-sub buildfilelist
-{
+sub buildfilelist {
   print "doing buildfilelist()...\n";
   opendir (DIR ,'.') || die "opendir(.) failed: $!";
   @filenames = grep (!/^\.\.?$/, readdir (DIR));
   closedir (DIR);
 }
 
-sub runmf
-{
+sub runmf {
   my ($mfpatt) = @_;
   print "\t doing runmf for $package ($mfpatt)\n";
   for my $file (grep (/$mfpatt/, @filenames)) { 
@@ -3002,7 +3008,7 @@ sub runfonts {
          }
          &SYSTEM("$MV $FileBase.vf $DEST/fonts/vf/$Foundry/$package  ");
     }
-   for (grep(/.tfm/,@filenames)) { 
+   for (grep(/\.tfm$/,@filenames)) { 
       $needdir=1;
       print "\t\t INSTALL tfm $_\n";
 ($FileBase,$Filepath,$Filesuffix) = fileparse($_,"\.[A-z]*");
@@ -3033,10 +3039,12 @@ sub MAKEflatten {
   &SYSTEM ("find . -type l | xargs --no-run-if-empty $RM");
 
   # mv foo/README to README.foo.  README.txt is for psfragx.
-  # LISEZ-MOI is for bclogo.
+  # LISEZ-MOI is for bclogo.  Makefile and 00README are for tipa.
   # Obviously should be generalized to non-README files.
   my $findcmd = "find . -mindepth 2 '(' "
-                . "-name README -o -name README.txt -o -name LISEZ-MOI ')'";
+                . "-name README -o -name README.txt -o -name LISEZ-MOI "
+                . "-o -name Makefile -o -name 00README "
+                . "')'";
   &SYSTEM ("for r in `$findcmd`; do"
            . ' mv $r $r.`basename \`dirname $r\``; done');
 
@@ -3816,25 +3824,6 @@ sub MAKEtkz {
   &SYSTEM ("find -depth -type d -print | xargs rmdir 2>/dev/null");
 }
 
-sub MAKEtipa {
-  &xchdir("$packagedir"); #/tipa-1.3");
-  my $Foundry = "public";
-  &runjob("mkdir -p $DEST/fonts/source/$Foundry/tipa");
-  &runjob("mkdir -p $DEST/fonts/type1/$Foundry/tipa");
-  &runjob("mkdir -p $DEST/fonts/tfm/$Foundry/tipa");
-  &runjob("mkdir -p $DEST/fonts/map/dvips/tipa");
-  &runjob("mkdir -p $DEST/tex/latex/tipa");
-  &runjob("mkdir -p $DEST/doc/fonts/tipa");
-  &runjob("mkdir -p $DEST/source/latex/tipa");
-  &runjob("$CP dvips/* $DEST/fonts/map/dvips/tipa");
-  &runjob("$CP sty/* $DEST/tex/latex/tipa");
-  &runjob("$CP tfm/* $DEST/fonts/tfm/$Foundry/tipa");
-  &runjob("$CP type1/* $DEST/fonts/type1/$Foundry/tipa");
-  &runjob("$CP mf/* $DEST/fonts/source/$Foundry/tipa");
-  &runjob("$CP doc/* $DEST/doc/fonts/tipa");
-  &runjob("$CP ../tipaman.pdf $DEST/doc/fonts/tipa");
-}
-
 # docs in two languages.  The English one is in a separate package,
 # mathmode.  Just remove it from the copy when building the German one.
 #