LaTeX 字体安装程序 (更好的选择)

蓝铃

这些从SuSE 里面拷贝出来的脚本 (bash 和 perl ），是SuSEconfig 的一个组件。
为了让更多的人方便的使用LaTeX，所以贴在这里。而且：
希望有人能把这里面SuSE 特有的部分替换，扩展脚本通用性，完善脚本，从而让更多人受益。

组件1：bash 脚本 SuSEconfig.cjk-latex

1. 
   
2. #!/bin/sh
   
3. #
   
4. # Copyright (c) 2002 SuSE Linux AG, Nuernberg, Germany.  All rights reserved.
   
5. #
   
6. # Author: Mike Fabian <mfabian@suse.de>, 2002
   
7. #
   
8. 
   
9. # check if we are started as root
   
10. # only one of UID and USER must be set correctly
    
11. 
    
12. if test "$UID" != 0 -a "$USER" != root; then
    
13.     echo "You must be root to start $0."
    
14.     exit 1
    
15. fi
    
16. 
    
17. test -n "$ROOT" && exit 0
    
18. 
    
19. # call perl script to generate .tfm files and .pfb files:
    
20. LC_ALL=POSIX /usr/sbin/cjk-latex-config
    
21. 
    
22. for map in wadalab.map
    
23. do
    
24.     updmap --enable Map=$map
    
25. done
    
26. 
    

复制代码

组件2：perl 脚本 cjk-latex-config

1. 
   
2. #!/usr/bin/perl -w
   
3. #
   
4. # Copyright (c) 2002 SuSE Linux AG, Nuernberg, Germany.  All rights reserved.
   
5. #
   
6. # Author: Mike Fabian <mfabian@suse.de>, 2002
   
7. #
   
8. 
   
9. use English;
   
10. use Getopt::Long;
    
11. 
    
12. # check if we are started as root
    
13. # only one of UID and USER must be set correctly
    
14. 
    
15. if ($UID != 0 && $ENV{USER} !~ /root/) {
    
16.     print "You must be root to start $0\n";
    
17.     exit 1;
    
18. }
    
19. 
    
20. if (system ("rpm -q freetype-tools >/dev/null 2>&1") != 0) {
    
21.   print "freetype-tools package missing, exiting.\n";
    
22.   exit 1;
    
23. }
    
24. 
    
25. 
    
26. sub usage {
    
27.   print "Usage: cjk-latex-config [--verbose|v] [--force|f] [--type1|t] [--smoothing|s]\n";
    
28.   exit 1;
    
29. }
    
30. 
    
31. # Process command line options
    
32. my %opt;
    
33. unless (GetOptions(\%opt,
    
34.                    'verbose|v', \$OPT_VERBOSE,
    
35.                    'force|f',   \$OPT_FORCE,
    
36.                    'type1|t',   \$OPT_TYPE1,
    
37.                    'smoothing|s', \$OPT_SMOOTHING,
    
38.                   )) {
    
39.   &usage();
    
40.   exit 1;
    
41. }
    
42. 
    
43. # to make sure ttf2tfm finds the .sdf files:
    
44. system("texhash");
    
45. 
    
46. $tfm_created = 0;
    
47. $type1_created = 0;
    
48. 
    
49. system("mkdir -p /usr/share/texmf/fonts/truetype/");
    
50. 
    
51. open (TTFONTS_MAP, "/etc/ttf2pk/ttfonts.map");
    
52. 
    
53. while (<TTFONTS_MAP>) {
    
54.   
    
55.   chomp($ARG);
    
56.   
    
57.   if ($ARG =~ /\@[a-zA-Z0-9\/]+\@/) {
    
58. 
    
59.     if($OPT_VERBOSE) {
    
60.       print "----------------------------------------------------------------------\n";
    
61.       print "$ARG\n";
    
62.     }
    
63.    
    
64.     @fields = split(/\s+/, $ARG);
    
65.    
    
66.     $tt_dir = "/usr/X11R6/lib/X11/fonts/truetype/";
    
67.     $tt_basename = $fields[1];
    
68.    
    
69.     if ($fields[0] =~ /([^\s]+)\@[a-zA-Z0-9\/]+\@/) {
    
70.       $latex_font_name = $1;
    
71.     } else {
    
72.       print "can't find latex font name.\n";
    
73.       exit 1
    
74.     }
    
75.    
    
76.     if ($fields[0] =~ /\@([a-zA-Z0-9\/]+)\@/) {
    
77.       $sfd_name = $1;
    
78.       $sfd_name =~ /.*\/([a-zA-Z0-9]+)/;
    
79.       $sfd_basename = $1;
    
80.     } else {
    
81.       print "can't find sfd_name.\n";
    
82.       exit 1
    
83.     }
    
84. 
    
85.     if ($ARG =~ /Pid=([0-9]+)/) {
    
86.       $pid = "$1";
    
87.     } else {
    
88.       $pid = "3";
    
89.     }
    
90. 
    
91.     if ($ARG =~ /Eid=([0-9]+)/) {
    
92.       $eid = "$1";
    
93.     } else {
    
94.       $eid = "1";
    
95.     }
    
96. 
    
97.     if ($ARG =~ /Slant=([0-9.]+)/) {
    
98.       $slant = $1;
    
99.       $slant_opt = "-s $1";
    
100.     } else {
     
101.       $slant = 0;
     
102.       $slant_opt = "-s 0";
     
103.     }
     
104. 
     
105.     if ($ARG =~ /Rotate=(Yes)/) {
     
106.       $rotate = 1;
     
107.       $rotate_opt = "-x";
     
108.     } else {
     
109.       $rotate = 0;
     
110.       $rotate_opt = "";
     
111.     }
     
112. 
     
113.     if (-e "$tt_dir/$tt_basename") {
     
114.       symlink("$tt_dir/$tt_basename",
     
115.               "/usr/share/texmf/fonts/truetype/$tt_basename");
     
116.       $tfm_dir = "/usr/share/texmf/fonts/tfm/cjk-latex/";
     
117.       $type1_dir = "/usr/share/texmf/fonts/type1/cjk-latex/";
     
118. 
     
119.       if (0 != create_or_update_tfm ()) {
     
120.         print "creating .tfm failed.\n";
     
121.       }
     
122.       if ($OPT_TYPE1 && $slant == 0 && $rotate == 0) {
     
123.         if (0 != create_or_update_type1 ()) {
     
124.           print "creating type1 font failed.\n";
     
125.         }
     
126.       }
     
127.     }
     
128.   }
     
129. }
     
130. 
     
131. if ($type1_created) {
     
132.   $command = "cjk-latex-t1mapgen $type1_dir";
     
133.   if (0 != system ($command)) {
     
134.     print "$command failed.\n";
     
135.     exit 1;
     
136.   }
     
137. }
     
138. 
     
139. if ($tfm_created || $type1_created) {
     
140.   system("texhash");
     
141. }
     
142. 
     
143. 
     
144. exit 0;
     
145. 
     
146. 
     
147. ######################################################################
     
148. 
     
149. sub create_or_update_tfm {
     
150.   
     
151.   if ($OPT_FORCE ||
     
152.       mtime_differs_or_missing ("$tt_dir/$tt_basename",
     
153.                                 "$tfm_dir/$sfd_basename/$latex_font_name/")) {
     
154.       
     
155.     if (0 != system ("mkdir -p $tfm_dir/$sfd_basename/$latex_font_name/")) {
     
156.       print "mkdir -p $tfm_dir/$sfd_basename/$latex_font_name/ failed.\n";
     
157.       exit 1;
     
158.     }
     
159.     if (! chdir ("$tfm_dir/$sfd_basename/$latex_font_name/")) {
     
160.       print "can't chdir to $tfm_dir/$sfd_basename/$latex_font_name/\n";
     
161.       exit 1;
     
162.     }
     
163.    
     
164.     $command = "ttf2tfm $tt_dir/$tt_basename ";
     
165.     unless ($OPT_VERBOSE) {
     
166.       $command .= " -q";
     
167.     }
     
168.     $command .= " -P $pid -E $eid $rotate_opt $slant_opt $latex_font_name\@$sfd_name\@";
     
169.     if ($OPT_VERBOSE) {
     
170.       print "$command\n";
     
171.     } else {
     
172.       $command .= " > /dev/null 2>&1";
     
173.       print "$latex_font_name\@$sfd_name\@: calling ttf2tfm ...\n";
     
174.     }
     
175.     if (0 != system($command)) {
     
176.       print "$command failed.\n";
     
177.       return 1;
     
178.     }
     
179. 
     
180.     # success, mark this by giving the created directory the same time stamp
     
181.     # as the TT-font:
     
182.     system("touch -r $tt_dir/$tt_basename $tfm_dir/$sfd_basename/$latex_font_name/");
     
183.     $tfm_created = 1;
     
184.     return 0;
     
185.   }
     
186.   
     
187. }
     
188. 
     
189. ######################################################################
     
190. 
     
191. sub create_or_update_type1 {
     
192. 
     
193.   if ($OPT_FORCE ||
     
194.       mtime_differs_or_missing ("$tt_dir/$tt_basename",
     
195.                                 "$type1_dir/$sfd_basename/$latex_font_name/")) {
     
196.       
     
197.     if (0 != system ("mkdir -p $type1_dir/$sfd_basename/$latex_font_name/")) {
     
198.       print "mkdir -p $type1_dir/$sfd_basename/$latex_font_name/ failed.\n";
     
199.       exit 1;
     
200.     }
     
201.     if (! chdir ("$type1_dir/$sfd_basename/$latex_font_name/")) {
     
202.       print "can't chdir to $type1_dir/$sfd_basename/$latex_font_name/\n";
     
203.       exit 1;
     
204.     }
     
205. 
     
206.     if (grep(/$tt_basename/,("wadalab-gothic.ttf","watanabe-mincho.ttf"))) {
     
207.       print "$tt_basename does not work with ttf2pt1, skipping ...\n";
     
208.       return 0;
     
209.     }
     
210.    
     
211.     # disable smoothing of outlines by default, who knows how many
     
212.     # broken fonts are out there (for details see 'man ttf2pt1'):
     
213.     my $smoothing_opt = " -O s ";
     
214.     # switch smoothing on only on special request:
     
215.     if ($OPT_SMOOTHING) {
     
216.       $smoothing_opt = " ";
     
217.     }
     
218.     # always force disabling of outline smoothing for known problematic fonts:
     
219.     if (grep(/$tt_basename/,("kochi-gothic.ttf", "kochi-mincho.ttf",
     
220.                              "kochi-gothic-subst.ttf", "kochi-mincho-subst.ttf"))) {
     
221.       print "$tt_basename broken, disabling smoothing of outlines.\n";
     
222.        $smoothing_opt = " -O s ";
     
223.     }   
     
224.    
     
225.     $sfd_file = "/usr/share/texmf/ttf2tfm/$sfd_basename.sfd";
     
226.     $map_file = `mktemp /tmp/cjk-latex-config-map.XXXXXX`;
     
227.     chomp $map_file;
     
228.     if ($map_file eq "") {
     
229.       print "mktemp /tmp/cjk-latex-config-map.XXXXXX failed.\n";
     
230.     }
     
231.    
     
232.     @planes = sfd2map($sfd_file,$map_file);
     
233.     if ($#planes == -1) {
     
234.       print "sfd2map($sfd_file,$map_file) failed.\n";
     
235.       unlink $map_file;
     
236.       return 1;
     
237.     }
     
238.    
     
239.     for my $plane (@planes) {
     
240.       if ($OPT_VERBOSE) {
     
241.         $command = "ttf2pt1 -W 99 ";
     
242.       } else {
     
243.         $command = "ttf2pt1 -W 0 ";
     
244.       }
     
245.       $command .= $smoothing_opt;
     
246.       $command .= " -p ft -b -G a -m h=5000 ";
     
247.       $command .= " -L $map_file+pid=$pid,eid=$eid,$plane ";
     
248.       $command .= " $tt_dir/$tt_basename $latex_font_name$plane";
     
249.       if ($OPT_VERBOSE) {
     
250.         print "$command\n";
     
251.       } else {
     
252.         $command .= " > /dev/null 2>&1";
     
253.         print "$latex_font_name\@$sfd_name\@, plane=$plane: calling ttf2pt1 ...\n";
     
254.       }
     
255.       if (0 != system($command)) {
     
256.         print "$command failed.\n";
     
257.         unlink $map_file;
     
258.         return 1;
     
259.       }      
     
260.     }
     
261. 
     
262.     unlink $map_file;
     
263.    
     
264.     # success, mark this by giving the created directory the same time stamp
     
265.     # as the TT-font:
     
266.     system("touch -r $tt_dir/$tt_basename $type1_dir/$sfd_basename/$latex_font_name/");
     
267.     $type1_created = 1;
     
268.     return 0;
     
269.   }
     
270. }
     
271. 
     
272. ######################################################################
     
273. 
     
274. sub sfd2map {
     
275.   my($sfd_file,$map_file) = @_;
     
276.   if (! open (SFD, "<$sfd_file")) {
     
277.     print "cannot open $sfd_file\n";
     
278.     return ();
     
279.   }
     
280.   if (! open (MAP, ">$map_file")) {
     
281.     print "cannot open $map_file\n";
     
282.     close (SFD);
     
283.     return ();
     
284.   }
     
285. 
     
286.   my(@planes) = ();
     
287. 
     
288.   while (<SFD>) {
     
289.   
     
290.     if ( ! ($ARG =~ /^[[:space:]]*\#/)) {  # skip comment lines
     
291. 
     
292.       # handle plane numbers:
     
293.       if ( $ARG =~ /^([[:xdigit:]]{2})[[:space:]]*/ ) {
     
294.         $ARG =~ s/^([[:xdigit:]]{2})[[:space:]]*/   /;
     
295.         print MAP "plane $1\n";
     
296.         print MAP "at 0x00\n";
     
297.         $planes[$#planes + 1] = $1;
     
298.       }
     
299.    
     
300.       # remove continuation chars '\':
     
301.       $ARG =~ s/\\$//;
     
302.    
     
303.       $ARG =~ s/(0x[[:xdigit:]]{1,4})/$1,/g;
     
304.       # handle ranges like 0xF800_0xF8FF
     
305.       $ARG =~ s/(0x[[:xdigit:]]{1,4}),_/$1-/g;
     
306.     }
     
307. 
     
308.     print MAP $ARG;
     
309. 
     
310.   }
     
311. 
     
312.   close (MAP);
     
313.   close (SFD);
     
314.   return @planes;
     
315. }
     
316. 
     
317. 
     
318. # Returns true if the modification time of $f1 differs from
     
319. # the modification time of $f2
     
320. sub mtime_differs {
     
321.   my($f1,$f2) = @_;
     
322.   if( -e $f1 && -e $f2) {
     
323.     local (@f1s) = stat ($f1);
     
324.     local (@f2s) = stat ($f2);
     
325.     return ($f1s[9] != $f2s[9]);
     
326.   } else {
     
327.     return 0;
     
328.   }
     
329. }
     
330. 
     
331. # Returns true if the modification time of $f1 differs from
     
332. # the modification time of $f2 or if one of the files is missing
     
333. sub mtime_differs_or_missing {
     
334.     my($f1,$f2) = @_;
     
335.     if (! -e $f1 || ! -e $f2 || mtime_differs($f1,$f2)) {
     
336.       return 1;
     
337.     } else {
     
338.       return 0;
     
339.     }
     
340. }  
     
341. 
     
342. # Returns true if $f1 is newer than $f2
     
343. sub newer {
     
344.   my($f1,$f2) = @_;
     
345.   if( -e $f1 && -e $f2) {
     
346.     local (@f1s) = stat ($f1);
     
347.     local (@f2s) = stat ($f2);
     
348.     return ($f1s[9] > $f2s[9]);
     
349.   } else {
     
350.     return 0;
     
351.   }
     
352. }
     
353. 
     
354. # Returns true if $f1 is newer than $f2 or if one of the files is missing
     
355. sub newer_or_missing {
     
356.     my($f1,$f2) = @_;
     
357.     if (! -e $f1 || ! -e $f2 || newer($f1,$f2)) {
     
358.       return 1;
     
359.     } else {
     
360.       return 0;
     
361.     }
     
362. }
     

复制代码

组件3：bash  脚本 cjk-latex-t1mapgen

1. 
   
2. #!/bin/sh
   
3. #
   
4. # Copyright (c) 2002, 2003 SuSE Linux AG, Nuernberg, Germany.  All rights reserved.
   
5. #
   
6. # Author: Mike Fabian <mfabian@suse.de>, 2002
   
7. #
   
8. 
   
9. TYPE1_DIR=$1
   
10. if [ -z $TYPE1_DIR ] ; then
    
11.     TYPE1_DIR=/usr/share/texmf/fonts/type1/cjk-latex/
    
12. fi
    
13. 
    
14. CJK_LATEX_TYPE1_MAP_DIR=/usr/share/texmf/fonts/map/dvips/cjk-latex
    
15. mkdir -p $CJK_LATEX_TYPE1_MAP_DIR
    
16. CJK_LATEX_TYPE1_MAP_FILE=${CJK_LATEX_TYPE1_MAP_DIR}/cjk-latex.map
    
17. 
    
18. echo "creating $CJK_LATEX_TYPE1_MAP_FILE ..."
    
19. 
    
20. TMPFILE=`mktemp /tmp/cjk-latex-t1mapgen.XXXXXX` || exit 1
    
21. 
    
22. if [ -d $TYPE1_DIR ] ; then
    
23.     for FILE in $( find $TYPE1_DIR -name "*.pfb" )
    
24.     do
    
25.         BASENAME_WITHOUT_EXT=$( basename $FILE )
    
26.         BASENAME_WITHOUT_EXT=${BASENAME_WITHOUT_EXT%.pfb}
    
27.         FONT_NAME=$( awk '/\/FontName/ { print substr($2,2); exit }' ${FILE} )
    
28.         echo "${BASENAME_WITHOUT_EXT} ${FONT_NAME} <${BASENAME_WITHOUT_EXT}.pfb" >> $TMPFILE
    
29.     done
    
30. fi
    
31. 
    
32. mv $TMPFILE $CJK_LATEX_TYPE1_MAP_FILE
    
33. chmod 644 $CJK_LATEX_TYPE1_MAP_FILE
    
34. 
    
35. texhash
    
36. for map in cjk-latex.map
    
37. do
    
38.     updmap --enable Map=$map
    
39. done
    
40. 
    
41. # pdflatex seems to prefer pk fonts if they exist. That seems strange
    
42. # but I couldn't find out how to change this.
    
43. # Deleting all the pk fonts from /var/cache/fonts/pk/ is probably a bit overkill
    
44. # but it helps. 'dvips' will regenerate the pk fonts as needed but will not
    
45. # regenerate pk fonts for the pfb fonts listed in the map file generated above.
    
46. # Therefore, deleting /var/cache/fonts/pk/* makes sure that all available pfb
    
47. # fonts are used:
    
48. 
    
49. find /var/cache/fonts/pk/ -type f -print0 | xargs -r -l100 -0 -- /usr/bin/safe-rm
    

复制代码

组件4：perl 脚本 sfd2map

1. 
   
2. #!/usr/bin/perl -w
   
3. #
   
4. # Copyright (c) 2002 Mike Fabian <mike.fabian@gmx.de>
   
5. #
   
6. # This program is free software; you can redistribute it and/or modify it
   
7. # under the terms of the GNU General Public License as published by
   
8. # the Free Software Foundation; either version 2, or (at your option)
   
9. # any later version.
   
10. #
    
11. # This program is distributed in the hope that it will be useful, but
    
12. # WITHOUT ANY WARRANTY; without even the implied warranty of
    
13. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    
14. # General Public License for more details.
    
15. 
    
16. use English;
    
17. use Getopt::Long;
    
18. 
    
19. sub usage {
    
20.   print "Usage: sfd2map [-debug|d]\n\n";
    
21.   print "Converts a .sfd files in the format used by ttf2pk and ttf2tfm\n";
    
22.   print "into .map files in the format expected by ttf2pt1. For example:\n\n";
    
23.   print "    sfd2map < UJIS.sfd > UJIS.map \n\n";
    
24.   exit 1;
    
25. }
    
26. 
    
27. # Process command line options
    
28. my %opt;
    
29. unless (GetOptions(\%opt,
    
30.         '-debug|d' , \$OPT_DEBUG
    
31.        )) {
    
32.     &usage();
    
33.     exit 1;
    
34. }
    
35. 
    
36. if($OPT_DEBUG) {
    
37. }
    
38. 
    
39. open (MAP, ">&STDOUT");
    
40. open (SFD, "<&STDIN");
    
41. 
    
42. print MAP "# generated from a .sfd file by sfd2map to make it usable with ttf2pt1\n";
    
43. print MAP "#\n";
    
44. 
    
45. while (<SFD>) {
    
46.   
    
47.   if ( ! ($ARG =~ /^[[:space:]]*\#/)) { # skip comment lines
    
48. 
    
49.     # handle plane numbers:
    
50.     if ( $ARG =~ /^([[:xdigit:]]{2})[[:space:]]*/ ) {
    
51.       $ARG =~ s/^([[:xdigit:]]{2})[[:space:]]*/   /;
    
52.       print MAP "plane $1\n";
    
53.       print MAP "at 0x00\n";
    
54.     }
    
55.    
    
56.     # remove continuation chars '\':
    
57.     $ARG =~ s/\\$//;
    
58. 
    
59.     $ARG =~ s/(0x[[:xdigit:]]{1,4})/$1,/g;
    
60.     # handle ranges like 0xF800_0xF8FF
    
61.     $ARG =~ s/(0x[[:xdigit:]]{1,4}),_/$1-/g;
    
62.    
    
63.   }
    
64. 
    
65.   print MAP $ARG;
    
66. 
    
67. }
    
68. 
    
69. 
    

复制代码

注释和说明
1 /usr/X11R6/lib/X11/fonts/truetype/ 是SuSE 的 ttf 字体的目录，一般的发行版是/usr/share/fonts/truetype 。
2 这些脚本的大致作用是把一个ttf 字体仍到/usr/X11R6/lib/X11/fonts/truetype/， LaTeX 就也可以使用了。

jhuangjiahua

赞一下 SUSE

CJK-latex 是他们做的

流行的 Uming 上海宋字体 也是 德国人做的

tingxx

不懂perl

mrkissinger

Post by jhuangjiahua

流行的Uming 上海宋字体也是 德国人做的

没看出来是德国人做的，那些名字很象是中国人的。

jhuangjiahua

上海宋字体的作者是  Arne Goetje <arne (at)  linux.org.tw>

是个现在居住在我国台湾的德国骇客

还会说点客家话

herberteuler

Post by jhuangjiahua
上海宋字体的作者是  Arne Goetje <arne _A__T_ linux.org.tw>

是个现在居住在我国台湾的德国骇客

还会说点客家话

jhuangjiahua 把邮件地址修改一下吧

mrkissinger

Post by jhuangjiahua
上海宋字体的作者是  Arne Goetje <arne@linux.org.tw>

是个现在居住在我国台湾的德国骇客

还会说点客家话

这么严重！
难怪上面看到有haka的输入法。
服了。