home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-src.tgz / tar.out / contrib / unixtex / web2c / lib / MakeTeXPK.pl < prev    next >
Perl Script  |  1996-09-28  |  6KB  |  178 lines
  1. #! /usr/local/bin/perl
  2. #
  3. # From: Martin Ward <Martin.Ward@durham.ac.uk>
  4. # Date: Fri, 28 Jan 94 15:40:14 GMT
  5. # 
  6. # Here's my MakeTeXPK. Currently it puts all the .pk files in 
  7. # $prefix/texmf/fonts/pk/dpiNNN/name.pk  and the .tfm files in
  8. # $prefix/texmf/fonts/tfm
  9. # With the automatic generation of pk's and tfm's (and a 40 MIP sparcstation 2
  10. # to run metafont on!) I can get by quite happily with a minimal set of fonts.
  11. # 
  12. #   This script file makes a new TeX PK font, because one wasn't
  13. #   found.  Parameters are:
  14. #
  15. #   name dpi bdpi magnification [mode]
  16. #
  17. #   `name' is the name of the font, such as `cmr10'.  `dpi' is
  18. #   the resolution the font is needed at.  `bdpi' is the base
  19. #   resolution, useful for figuring out the mode to make the font
  20. #   in.  `magnification' is a string to pass to MF as the
  21. #   magnification.  `mode', if supplied, is the mode to use.
  22. #
  23. #   Note that this file must execute Metafont, and then gftopk,
  24. #   and place the result in the correct location for the PostScript
  25. #   driver to find it subsequently.  If this doesn't work, it will
  26. #   be evident because MF will be invoked over and over again.
  27. #
  28. #   Modified to generate dc fonts automatically. To generate dcXXXnn:
  29. #   (1) Create dcXXXnn.mf in current dir, containing the lines:
  30. #         if unknown dxbase: input dxbase fi;
  31. #         gensize:=nnn;
  32. #         generate dcXXX
  33. #   (2) Use dxbase base file
  34.  
  35. print STDERR "MakeTeXPK @ARGV\n";
  36.  
  37. # Old defaults:
  38. #$base = "/home/ws-csm3/user15/gnu/lib/tex/fonts";
  39. #$pkbase = "/home/ws-csm3/user15/gnu/lib/tex/fonts/pk.RicohA";  # Default pk dir#$stdmode = "RicohA";                   # Default mode_def (write-white):
  40. #$pkdefault = "/home/ws-csm3/user15/gnu/lib/tex/fonts/RicohA";
  41.  
  42. # Default paths:
  43. $prefix = "/local/home/user15/gnu/lib";
  44. $base = "$prefix/texmf/fonts";
  45. $pkbase = "$prefix/texmf/fonts/pk";     # Default pk dir
  46. $stdmode = "CanonCX";                   # Default mode_def (write-black):
  47. $pkdefault = "$prefix/texmf/fonts/canon300";
  48. $TEMPDIR = "/tmp";
  49. $name = $ARGV[0];
  50. $dpi = $ARGV[1];
  51. $bdpi = $ARGV[2];
  52. $mag = $ARGV[3];
  53. $mode = $ARGV[4];
  54.  
  55. $FINALname = "$pkbase/dpi$dpi/$name.pk";
  56. # cd to TEMPDIR if current dir is not writable:
  57. chdir($TEMPDIR) if (! -w ".");
  58. if (-f "$pkdefault/dpi$dpi/$name.pk") { # check if file exists
  59.   die "dpi$dpi/$name.pk already exists in $pkdefault\n";
  60. }
  61. if (-f "$pkbase/dpi$dpi/$name.pk") {    # check if file exists
  62.   die "dpi$dpi/$name.pk already exists in $pkbase\n";
  63. }
  64. if (-f $FINALname) {
  65.   die "$FINALname already exists!\n";
  66. }
  67. if (! -w $pkbase) {
  68.   mkdir($pkbase, 755);
  69.   chmod 0755, $pkbase;
  70.   if (! -w $pkbase) {
  71.     die "Can't write to $pkbase\n";
  72.   }
  73. }
  74. if ($mode eq "") {
  75.   if ($bdpi = 300) {
  76.     $mode = $stdmode;
  77.   } elsif ($bdpi = 118) {
  78.     $mode = "sun";
  79.   } else {
  80.   die "I don't know the mode for $bdpi\n";
  81.   }
  82. }
  83.  
  84. &grokformat;
  85.  
  86. # redirect stdout to stderr
  87. open(SAVEOUT, ">&STDOUT");
  88. open(STDOUT, ">&STDERR");
  89. print "Running Metafont...\n";
  90. # the split gives an array which prevents perl from using the shell:
  91. $line = "virmf $fmt \\mode:=$mode; \\mag:=$mag; input $name";
  92. print "$line\n";
  93. system split(/\s/, $line);
  94. if (!-f "$name.${dpi}gf") {
  95.   $dpi++;
  96.   if (!-f "$name.${dpi}gf") { 
  97.     $dpi--; $dpi--;
  98.     if (!-f "$name.${dpi}gf") { 
  99.       die "Metafont failed to create $name.${dpi}gf\n";
  100.     }
  101.   }
  102. }
  103. system "gftopk ./$name.${dpi}gf";
  104. die "gftopk failed on $name.${dpi}gf\n" unless (-f "$name.${dpi}pk");
  105. if (! -d "$pkbase/dpi$dpi") {   # make the directory:
  106.   mkdir("$pkbase/dpi$dpi",755);
  107.   chmod 0755, "$pkbase/dpi$dpi";
  108. }
  109. system "mv $name.${dpi}pk $pkbase/dpi$dpi/$name.pk";
  110. chmod 0644, "$pkbase/dpi$dpi/$name.pk";
  111. if (! $mfpic) {
  112.   system "mv $name.tfm $base/tfm";
  113.   chmod 0644, "$base/tfm/$name.tfm";
  114. }
  115. unlink "$name.${dpi}gf";
  116. unlink "$name.mf" if ($name =~ /^dc/);
  117.  
  118. # tell dvipsk where the pk file is:
  119. print SAVEOUT "$pkbase/dpi$dpi/$name.pk\n";
  120.  
  121.  
  122. exit(0);
  123.  
  124.  
  125. sub grokformat {
  126.   # See what fmt (if any) to use:
  127.   if ($plain) {         # -plain option
  128.     $fmt = '&plain';
  129.   } elsif ($name =~ /^cm/) {    # computer modern
  130.     $fmt = '&cmbase';
  131.   } elsif ($name =~ /^dc/) {    # DC fonts
  132.     $fmt = '&dxbase';
  133.     # Create the .mf file in current directory:
  134.     $name =~ m/^([a-zA-Z]+)(\d+)$/ || die "Error in dc font name: $name\n";
  135.     $basename = $1;
  136.     $designsize = $2;
  137.     open(MFFILE, ">$name.mf");
  138.     print MFFILE <<END;
  139. if unknown dxbase: input dxbase fi;
  140. gensize:=$designsize;
  141. generate $basename
  142. END
  143.     close (MFFILE);
  144.   } elsif (($name =~ /circle/)  || # latex circle fonts
  145.            ($name =~ /^line/)   || # latex line fonts
  146.            ($name =~ /^chess/)  || # chess font
  147.            ($name =~ /^knot/)   || # Celtic knotwork fonts
  148.            ($name =~ /^bbold/)  || # blackboard bold font
  149.            ($name =~ /^pn/)     || # Pandora fonts
  150.            ($name =~ /^uic/)    || # modified Pandora fonts
  151.            ($name =~ /^blackletter/) || # blackletter
  152.            ($name =~ /^manfnt/) || # TeX and METAFONT manuals special font
  153.            ($name =~ /^ark/)    || # hands and pencils
  154.            ($name =~ /^dingbat/)|| # nice borders
  155.            ($name =~ /^font29/)  || # large headings font
  156.            ($name =~ /^beam/)   || # music font
  157.            ($name =~ /^music/)  || # music font
  158.            ($name =~ /^slur/))   { # music font
  159.     $fmt = '&plain';
  160.   } elsif ($name =~ /^logo/) {  # logo font
  161.     $fmt = '&logo';
  162.   } elsif ($name =~ /^eu/) {    # Euler fonts
  163.     $fmt = '&plain';
  164.   } else {                      # some other font - use cmbase
  165.     $fmt = '&cmbase';
  166.   }
  167.   # mfpic hack! If the mf file is in current dir, and contains
  168.   # the string "graphbase" then its an mfpic file, so use plain base:
  169.   if (-r "$name.mf") {
  170.     system "egrep -s 'graphbase' $name.mf";
  171.     if ($? == 0) {
  172.       $mfpic = 1;
  173.       $fmt = '&plain';
  174.       $pkbase = ".";
  175.     }
  176.   }
  177. }
  178.