/* Copyright (c) 1996-2006 Han The Thanh, 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 (fontnumber 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 (fontnumber 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 (fontnumber 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 (fontnumber 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 (fontnumber 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 (fontnumber 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 (fontnumber 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 (fontnumber 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; 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); /* clear for next run */ e->objnum = 0; } } } } } } boolean dopsfont (fontnumber f) { 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; }