From 5c01d6ca1760f78d5b83b08e695e958618044348 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 31 Jan 2012 01:17:53 +0000 Subject: tipa non-update, for vowel.pdf (29jan12) git-svn-id: svn://tug.org/texlive/trunk@25247 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/libexec/ctan2tds | 41 +++++++++++++++-------------------------- 1 file changed, 15 insertions(+), 26 deletions(-) (limited to 'Master/tlpkg/libexec/ctan2tds') 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. # -- cgit v1.2.3