diff options
Diffstat (limited to 'Build/source/texk/web2c/mpdir/writefont.c')
| -rw-r--r-- | Build/source/texk/web2c/mpdir/writefont.c | 244 |
1 files changed, 244 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/mpdir/writefont.c b/Build/source/texk/web2c/mpdir/writefont.c new file mode 100644 index 00000000000..e88b4dbab7d --- /dev/null +++ b/Build/source/texk/web2c/mpdir/writefont.c @@ -0,0 +1,244 @@ +/* +Copyright (c) 1996-2006 Han The Thanh, <thanh@pdftex.org> + +This file is part of pdfTeX. + +pdfTeX 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. + +pdfTeX 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 pdfTeX; if not, write to the Free Software +Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + +$Id: writefont.c,v 1.3 2005/12/27 19:04:42 hahe Exp $ +*/ + +#include "mplib.h" + +static const char perforce_id[] = + "$Id: writefont.c,v 1.3 2005/12/27 19:04:42 hahe Exp $"; + +boolean fontfile_found; +boolean is_otf_font; +char fontname_buf[FONTNAME_BUF_SIZE]; + +boolean fontisreencoded (int f) { + fm_entry *fm; + if (fontsizes[f]!=0 && hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL + && (fm->ps_name != NULL) + && is_reencoded (fm)) + return 1; + } + return 0; +} + +boolean fontisincluded (int f) { + fm_entry *fm; + if (fontsizes[f]!=0 && hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL + && (fm->ps_name != NULL && fm->ff_name != NULL) + && is_included (fm)) + return 1; + } + return 0; +} + +boolean fontissubsetted (int f) { + fm_entry *fm; + if (fontsizes[f]!=0 && hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL + && (fm->ps_name != NULL && fm->ff_name != NULL) + && is_included (fm) && is_subsetted (fm)) + return 1; + } + return 0; +} + + +strnumber fmencodingname (int f) { + enc_entry *e; + fm_entry *fm; + if (hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL && (fm->ps_name != NULL)) { + if (is_reencoded (fm)) { + e = fm->encoding; + if (e->encname!=NULL) { + return maketexstring(e->encname); + } + } else { + return 0; + } + } + } + pdftex_fail ("fontmap encoding problems for font %s",makecstring (fontname[f])); + return 0; +} + +strnumber fmfontname (int f) { + fm_entry *fm; + if (hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL && (fm->ps_name != NULL)) { + if (fontisincluded(f) && !fontpsnamefixed[f]) { + /* find the real fontname, and update ps_name and subset_tag if needed */ + if(t1_updatefm(f,fm)) { + fontpsnamefixed[f] = true; + } else { + pdftex_fail ("font loading problems for font %s",makecstring (fontname[f])); + } + } + return maketexstring(fm->ps_name); + } + } + pdftex_fail ("fontmap name problems for font %s",makecstring (fontname[f])); + return 0; +} + +strnumber fmfontsubsetname (int f) { + fm_entry *fm; + char *s; + if (hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL && (fm->ps_name != NULL)) { + if (is_subsetted(fm)) { + s = xmalloc(strlen(fm->ps_name)+8); + snprintf(s,strlen(fm->ps_name)+8,"%s-%s",fm->subset_tag,fm->ps_name); + return maketexstring(s); + } else { + return maketexstring(fm->ps_name); + } + } + } + pdftex_fail ("fontmap name problems for font %s",makecstring (fontname[f])); + return 0; +} + + + +integer fmfontslant (int f) { + fm_entry *fm; + if (hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL && (fm->ps_name != NULL)) { + return fm->slant; + } + } + return 0; +} + +integer fmfontextend (int f) { + fm_entry *fm; + if (hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL && (fm->ps_name != NULL)) { + return fm->extend; + } + } + return 0; +} + + + +void mploadencodings (int lastfnum) { + int nullfont; + int f; + enc_entry *e; + fm_entry *fm_cur; + nullfont = getnullfont(); + for (f=nullfont+1;f<=lastfnum;f++) { + if (fontsizes[f]!=0 && hasfmentry (f)) { + fm_cur = (fm_entry *) mpfontmap[f]; + if (fm_cur != NULL && + fm_cur->ps_name != NULL && + is_reencoded (fm_cur)) { + e = fm_cur->encoding; + read_enc (e); + } + } + } +} + +void mpfontencodings (int lastfnum, int encodings_only) { + int nullfont; + int f,ff; + enc_entry *e; + fm_entry *fm; + nullfont = getnullfont(); + for (f=nullfont+1;f<=lastfnum;f++) { + if (fontsizes[f]!=0 && hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL && (fm->ps_name != NULL)) { + if (is_reencoded (fm)) { + if (encodings_only || (!is_subsetted (fm))) { + e = fm->encoding; + write_enc (NULL, e, 0); + } + } + } + } + } + for (f=nullfont+1;f<=lastfnum;f++) { + if (fontsizes[f]!=0 && hasfmentry (f)) { + fm = (fm_entry *) mpfontmap[f]; + if (fm != NULL && (fm->ps_name != NULL)) { + if (is_reencoded (fm)) { + if (encodings_only || (!is_subsetted (fm))) { + /* clear for next run */ + e->objnum = 0; + } + } + } + } + } +} + +boolean dopsfont (fontnumber f) +{ + int i; + fm_entry *fm_cur; + if (mpfontmap[f] == NULL) + pdftex_fail ("pdffontmap not initialized for font %s", + makecstring (fontname[f])); + if (hasfmentry (f)) + fm_cur = (fm_entry *) mpfontmap[f]; + else + fm_cur = NULL; + if (fm_cur == NULL) + return 1; + if (is_truetype(fm_cur) || + (fm_cur->ps_name == NULL && fm_cur->ff_name == NULL)) { + return 0; + } + + if (is_included(fm_cur)) { + printnl(maketexstring("%%BeginResource: font ")); + flushstr (last_tex_string); + if (is_subsetted(fm_cur)) { + print(maketexstring(fm_cur->subset_tag)); + flushstr (last_tex_string); + print(maketexstring("-")); + flushstr (last_tex_string); + } + print(maketexstring(fm_cur->ps_name)); + flushstr (last_tex_string); + println(); + writet1 (f,fm_cur); + printnl(maketexstring("%%EndResource")); + flushstr (last_tex_string); + println(); + } + return 1; +} + |