summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/ctan2tds
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/ctan2tds')
-rwxr-xr-xMaster/tlpkg/bin/ctan2tds47
1 files changed, 19 insertions, 28 deletions
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds
index 26196caba81..d973a228b45 100755
--- a/Master/tlpkg/bin/ctan2tds
+++ b/Master/tlpkg/bin/ctan2tds
@@ -212,7 +212,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw
'lexitex', "die 'skipping, camel has replaced'",
'lfb', "&MAKElfb",
'lh', "&MAKEcopy",
- 'libertine', "&MAKElibertine",
+ 'libertine', "&MAKEcopy",
'lifia-th', "die 'skipping, '",
'linearA', "&MAKEflatten",
"lineno", "&MAKEnosymlinks",
@@ -434,6 +434,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw
'impatient' => '&POSTimpatient',
'interactiveworkbook' => '&POSTinteractiveworkbook',
'koma-script' => '&POSTkoma',
+ 'libertine' => '&POSTlibertine',
'pgf' => '&POSTpgf',
'pgfplots' => '&POSTpgfplots',
'polyglossia' => '&POSTpolyglossia',
@@ -1268,7 +1269,6 @@ $standardclean = '\.head|\.tmp|\.dvi|\.log|\.out|\.aux|\.toc|\.lof|\.lot'
'gfsneohellenic'=>'N*Specimen.pdf', # nonfree
'guitbeamer' => 'guitbeamer-de.pdf',
'jknapltx' => 'ubbold.fd', # clashes bbold's Ubbold.fd; sauter bbold fails
- 'libertine' => 'libertinedoku.pdf', # no source
'linguex' => 'cgloss4e.sty', # symlink
'piechartmp' => 'piechartmp.pdf',
'pst-3dplot' => 'tb72voss3d.pdf', # no source
@@ -1450,6 +1450,7 @@ sub MAKEcopy
&xchdir ($DEST);
&killfiles ($specialclean{$package} || $standardclean);
+ &killfiles ($moreclean{$package}, "more") if $moreclean{$package};
my $postaction = $specialpostaction{$package};
eval ($postaction) if $postaction;
@@ -1780,18 +1781,21 @@ sub runjob
}
}
-# remove additional files matching something in $moreclean
-# create a README.TEXLIVE which lists the removed files
-#
# remove all files matching something in $KILLPATT.
# also remove .ps files for which we have a .pdf.
#
+# 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.
+#
sub killfiles
{
my ($killpatt,$more) = @_;
local *DOT;
opendir (DOT, ".") || die "opendir(.) failed: $! in " . `pwd`;
+
my @delfiles = ();
for (grep (/$killpatt/, readdir (DOT))) {
print "\t Removing $_\n";
@@ -2803,29 +2807,6 @@ sub MAKElfb {
&SYSTEM("rm *pk");
}
-sub MAKElibertine
-{
- print "\t SPECIAL $package\n";
- &SYSTEM ("mkdir -p $DEST");
-
- # eliminate texmf level.
- &xchdir ("$packagedir/texmf");
-
- # do the copy.
- &SYSTEM ("$CP -rv * $DEST");
-
- # remove extra libertine.map.
- &SYSTEM ("$RM $DEST/dvips/config/libertine.map");
- &SYSTEM ("rmdir -p $DEST/dvips/config");
-
- # put other libertine.map in subdir.
- my $mapdir = "$DEST/fonts/map/dvips";
- &SYSTEM ("mkdir -p $mapdir/libertine/");
- &SYSTEM ("mv -v $mapdir/libertine.map $mapdir/libertine/");
-
- die "must also deal with enc's, sorry";
-}
-
sub MAKEliterat {
# this simply copies source files
chdir($packagedir) || die ("ERROR: cannot open directory");
@@ -3247,6 +3228,16 @@ sub POSTlatex2html
&SYSTEM ("$MV $DEST/scripts/latex2html/styles/$package.perl $dest");
}
+sub POSTlibertine
+{
+ # has to be a post routine instead of moreclean because we have to
+ # remove a file in a non-doc directory.
+ #
+ # no source for doku.pdf, ibyhyph.tex is duplicate
+ &SYSTEM ("$RM doc/fonts/libertine/libertinedoku.pdf");
+ &SYSTEM ("$RM tex/latex/libertine/babel/ibyhyph.tex");
+}
+
sub POSTpgf
{
print "POST$package - mv generic+latex directories\n";