astro doc in fonts (luecking, 23 Jul 2007 13:47:15)

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

2 files changed, 24 insertions, 8 deletions

diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl
index ef6e92885d7..f1ae4ea2d50 100755
--- a/Build/cdbuild/ctan2tds.pl
+++ b/Build/cdbuild/ctan2tds.pl
@@ -1043,10 +1043,10 @@ $standardbib='\.bib$'; # $ so we don't find README.bibtex in IEEEtran
  'umthesis',	'NULL',
 );
 
-# packages which have Metafont sources to compile or install.
+# packages which have Metafont sources to run.
 $standardmf='[0-9]\.mf';
 %specialmf= (
- 'astro',	'astro.mf',
+ 'astro',	'astrosym.mf',
  'backgammon',	'bg\.mf',
  'cherokee',	'cherokee.mf',
  'circ',	'csybimos\.mf|csycirc\.mf|csydiod\.mf|csyrest\.mf|csywidko\.mf|csysym\.mf|optic\.mf',
@@ -1075,6 +1075,11 @@ $standardmf='[0-9]\.mf';
  'xq',		'xq(normal|large)\.mf',
 );
 
+# additional mf files to be installed but not run.
+%specialmfinstall = (
+ 'astro',	'astrosym.(cal|cmn|mac|uni|xtr)',
+);
+
 # packages which have dvips header files
 $standardpro='\.pro';
 %specialpro= (
@@ -1210,8 +1215,10 @@ sub set_dir_defaults
   my ($ctan_dir) = @_;
   my $changed = 1;
   
-  if ($ctan_dir =~ m!/graphics/metapost!) {
+  if ($ctan_dir =~ m!/graphics/metapost/!) {
     $standardfmt = $standarddocfmt = $standardsourcefmt = "metapost";
+  } elsif ($ctan_dir =~ m!/fonts/!) {
+    $standardfmt = $standarddocfmt = $standardsourcefmt = "fonts";
   } else {
     $changed = 0;
   }
@@ -1592,13 +1599,22 @@ sub runmf {
         &runjob("mktextfm --destdir=`pwd` $FileBase.tfm");
       }
    }
+
   if ($needdir) {
-    &SYSTEM("mkdir -p $DEST/fonts/source/$Foundry/$package");
+    my $mfdir = "$DEST/fonts/source/$Foundry/$package";
+    &SYSTEM ("mkdir -p $mfdir");
+    #
     # don't use $mfpatt since that's only the tfm-able mf files.
-    &runjob("$MV *.mf $DEST/fonts/source/$Foundry/$package");
-    &SYSTEM("rm -f *pk");  # not worth the space
+    &SYSTEM ("$MV *.mf $mfdir");
+    if (exists $specialmfinstall{$package}) {
+      my @inst = grep (/$specialmfinstall{$package}/, @filenames);
+      &SYSTEM ("$MV @inst $mfdir");
+    }
+    #
+    &SYSTEM ("rm -f *pk");  # not worth the space
+    
   } else {
-    print "\t (no $mfpatt)\n";
+    print "\t (no $mfpatt to runmf)\n";
   }
 }
 
diff --git a/Build/tools/tpm-ctan-check b/Build/tools/tpm-ctan-check
index c7f605ecda9..93c1d7dd91b 100755
--- a/Build/tools/tpm-ctan-check
+++ b/Build/tools/tpm-ctan-check
@@ -14,7 +14,7 @@ my @WorkingTPM = qw(
           alnumsec altfont ametsoc ams amsldoc-it amsrefs
           amsthdoc-it animate apacite appendix apl
           arabi arabtex arabxetex archaic arcs arev
-          armenian arrayjob arydshln ascii assignment attachfile
+          armenian arrayjob arydshln ascii assignment astro attachfile
           aurical authorindex auto-pst-pdf automata
         babelbib barcodes bbold
           beamer beamer-contrib beamer-tut-pt begriff bera betababel