summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/CJK/utils/subfonts/makefdx.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/CJK/utils/subfonts/makefdx.pl')
-rw-r--r--Master/texmf-dist/source/latex/CJK/utils/subfonts/makefdx.pl50
1 files changed, 45 insertions, 5 deletions
diff --git a/Master/texmf-dist/source/latex/CJK/utils/subfonts/makefdx.pl b/Master/texmf-dist/source/latex/CJK/utils/subfonts/makefdx.pl
index c2bd1c4d027..5b0666afe76 100644
--- a/Master/texmf-dist/source/latex/CJK/utils/subfonts/makefdx.pl
+++ b/Master/texmf-dist/source/latex/CJK/utils/subfonts/makefdx.pl
@@ -3,23 +3,43 @@
# This script creates proper entries for an FDX file as used by the
# CJK package for LaTeX.
#
-# As a prerequisite, it needs the file `aglfn13.txt', available from
+# As a prerequisite, it needs the file
#
-# http://partners.adobe.com/asn/developer/typeforum/unicodegn.html
+# http://partners.adobe.com/public/developer/en/opentype/aglfn13.txt
#
# Call the script as
#
# perl makefdx.pl vertref_afm_file sfd_file fdx_file
#
# `vertref_afm_file' is an AFM file as produced by the script `vertref.pe'.
-# `sfd_file' gives the subfont scheme to get the proper entries in
-# `fdx_file'.
+# The subfont definition file `sfd_file' gives the subfont scheme to get the
+# proper entries in `fdx_file'.
#
# Note that the created FDX file has to be completed manually.
#
# Example:
#
-# perl makefdx.pl bsmiuv.afm bsmiuvr.afm UBig5.sfd c00bsmi.fdx
+# perl makefdx.pl bsmiuvr.afm UBig5.sfd c00bsmi.fdx
+#
+# A collection of useful subfont definition files for CJK fonts can be found
+# in the ttf2pk package.
+
+# Copyright (C) 1994-2006 Werner Lemberg <wl@gnu.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program in doc/COPYING; if not, write to the Free
+# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
+# MA 02110-1301 USA
use strict;
@@ -64,6 +84,23 @@ open(FDX, ">", $fdxfile)
|| die("$prog: can't open \`$fdxfile': $!\n");
my $oldfh = select(FDX);
+print("% This is the file $fdxfile of the CJK package
+% for using Asian logographs (Chinese/Japanese/Korean) with LaTeX2e
+%
+% created by the script makefdx.pl for CJK Version 4.7.0 (17-Oct-2006).
+
+\\def\\fileversion{4.7.0}
+\\def\\filedate{2006/10/17}
+\\ProvidesFile{$fdxfile}[\\filedate\\space\\fileversion]
+
+\\CJKvdef{fullheight}{1em}
+\\CJKvdef{height}{.88em}
+\\CJKvdef{offset}{.6em}
+
+% Uncomment if necessary.
+%\\CJKvdef{norotate}{}
+");
+
foreach my $index (0 .. ($#vertref - 1)) {
my $glyphnameref = $vertref[$index];
my $unicode;
@@ -100,7 +137,10 @@ foreach my $index (0 .. ($#vertref - 1)) {
print("\\CJKvdef{m/n/$sfdentry}");
print("{\\def\\CJK\@plane{v}\\selectfont\\CJKsymbol{$index}}\n");
+ print("\\CJKvlet{bx/n/$sfdentry}");
+ print("{m/n/$sfdentry}\n");
}
+print("\n\\endinput");
# Read an AGL file.