Google Git
Sign in
skia / third_party / poppler / 9a65ab0f43bf3fe1c60da0a0657ccdbaddaba1e5 / . / poppler / GfxFont.cc
blob: cdf8975b42ca5643a07665b976d8ec66f61f8363 [file] [log] [blame]
//========================================================================
//
// GfxFont.cc
//
// Copyright 1996-2003 Glyph & Cog, LLC
//
//========================================================================
//========================================================================
//
// Modified under the Poppler project - http://poppler.freedesktop.org
//
// All changes made under the Poppler project to this file are licensed
// under GPL version 2 or later
//
// Copyright (C) 2005, 2006, 2008-2010, 2012, 2014, 2015, 2017-2019 Albert Astals Cid <aacid@kde.org>
// Copyright (C) 2005, 2006 Kristian Høgsberg <krh@redhat.com>
// Copyright (C) 2006 Takashi Iwai <tiwai@suse.de>
// Copyright (C) 2007 Julien Rebetez <julienr@svn.gnome.org>
// Copyright (C) 2007 Jeff Muizelaar <jeff@infidigm.net>
// Copyright (C) 2007 Koji Otani <sho@bbr.jp>
// Copyright (C) 2007 Ed Catmur <ed@catmur.co.uk>
// Copyright (C) 2008 Jonathan Kew <jonathan_kew@sil.org>
// Copyright (C) 2008 Ed Avis <eda@waniasset.com>
// Copyright (C) 2008, 2010 Hib Eris <hib@hiberis.nl>
// Copyright (C) 2009 Peter Kerzum <kerzum@yandex-team.ru>
// Copyright (C) 2009, 2010 David Benjamin <davidben@mit.edu>
// Copyright (C) 2011 Axel Strübing <axel.struebing@freenet.de>
// Copyright (C) 2011, 2012, 2014 Adrian Johnson <ajohnson@redneon.com>
// Copyright (C) 2012 Yi Yang <ahyangyi@gmail.com>
// Copyright (C) 2012 Suzuki Toshiya <mpsuzuki@hiroshima-u.ac.jp>
// Copyright (C) 2012, 2017 Thomas Freitag <Thomas.Freitag@alfa.de>
// Copyright (C) 2013-2016, 2018 Jason Crain <jason@aquaticape.us>
// Copyright (C) 2014 Olly Betts <olly@survex.com>
// Copyright (C) 2018 Klarälvdalens Datakonsult AB, a KDAB Group company, <info@kdab.com>. Work sponsored by the LiMux project of the city of Munich
// Copyright (C) 2018 Adam Reichold <adam.reichold@t-online.de>
// Copyright (C) 2019 LE GARREC Vincent <legarrec.vincent@gmail.com>
//
// To see a description of the changes please see the Changelog file that
// came with your tarball or type make ChangeLog if you are building from git
//
//========================================================================
#include <config.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <math.h>
#include <limits.h>
#include <algorithm>
#include "goo/gmem.h"
#include "Error.h"
#include "Object.h"
#include "Dict.h"
#include "GlobalParams.h"
#include "CMap.h"
#include "CharCodeToUnicode.h"
#include "FontEncodingTables.h"
#include "BuiltinFontTables.h"
#include "UnicodeTypeTable.h"
#include <fofi/FoFiIdentifier.h>
#include <fofi/FoFiType1.h>
#include <fofi/FoFiType1C.h>
#include <fofi/FoFiTrueType.h>
#include "GfxFont.h"
#include "PSOutputDev.h"
//------------------------------------------------------------------------
struct Base14FontMapEntry {
const char *altName;
const char *base14Name;
};
static const Base14FontMapEntry base14FontMap[] = {
{ "Arial", "Helvetica" },
{ "Arial,Bold", "Helvetica-Bold" },
{ "Arial,BoldItalic", "Helvetica-BoldOblique" },
{ "Arial,Italic", "Helvetica-Oblique" },
{ "Arial-Bold", "Helvetica-Bold" },
{ "Arial-BoldItalic", "Helvetica-BoldOblique" },
{ "Arial-BoldItalicMT", "Helvetica-BoldOblique" },
{ "Arial-BoldMT", "Helvetica-Bold" },
{ "Arial-Italic", "Helvetica-Oblique" },
{ "Arial-ItalicMT", "Helvetica-Oblique" },
{ "ArialMT", "Helvetica" },
{ "Courier", "Courier" },
{ "Courier,Bold", "Courier-Bold" },
{ "Courier,BoldItalic", "Courier-BoldOblique" },
{ "Courier,Italic", "Courier-Oblique" },
{ "Courier-Bold", "Courier-Bold" },
{ "Courier-BoldOblique", "Courier-BoldOblique" },
{ "Courier-Oblique", "Courier-Oblique" },
{ "CourierNew", "Courier" },
{ "CourierNew,Bold", "Courier-Bold" },
{ "CourierNew,BoldItalic", "Courier-BoldOblique" },
{ "CourierNew,Italic", "Courier-Oblique" },
{ "CourierNew-Bold", "Courier-Bold" },
{ "CourierNew-BoldItalic", "Courier-BoldOblique" },
{ "CourierNew-Italic", "Courier-Oblique" },
{ "CourierNewPS-BoldItalicMT", "Courier-BoldOblique" },
{ "CourierNewPS-BoldMT", "Courier-Bold" },
{ "CourierNewPS-ItalicMT", "Courier-Oblique" },
{ "CourierNewPSMT", "Courier" },
{ "Helvetica", "Helvetica" },
{ "Helvetica,Bold", "Helvetica-Bold" },
{ "Helvetica,BoldItalic", "Helvetica-BoldOblique" },
{ "Helvetica,Italic", "Helvetica-Oblique" },
{ "Helvetica-Bold", "Helvetica-Bold" },
{ "Helvetica-BoldItalic", "Helvetica-BoldOblique" },
{ "Helvetica-BoldOblique", "Helvetica-BoldOblique" },
{ "Helvetica-Italic", "Helvetica-Oblique" },
{ "Helvetica-Oblique", "Helvetica-Oblique" },
{ "Symbol", "Symbol" },
{ "Symbol,Bold", "Symbol" },
{ "Symbol,BoldItalic", "Symbol" },
{ "Symbol,Italic", "Symbol" },
{ "SymbolMT", "Symbol" },
{ "SymbolMT,Bold", "Symbol" },
{ "SymbolMT,BoldItalic", "Symbol" },
{ "SymbolMT,Italic", "Symbol" },
{ "Times-Bold", "Times-Bold" },
{ "Times-BoldItalic", "Times-BoldItalic" },
{ "Times-Italic", "Times-Italic" },
{ "Times-Roman", "Times-Roman" },
{ "TimesNewRoman", "Times-Roman" },
{ "TimesNewRoman,Bold", "Times-Bold" },
{ "TimesNewRoman,BoldItalic", "Times-BoldItalic" },
{ "TimesNewRoman,Italic", "Times-Italic" },
{ "TimesNewRoman-Bold", "Times-Bold" },
{ "TimesNewRoman-BoldItalic", "Times-BoldItalic" },
{ "TimesNewRoman-Italic", "Times-Italic" },
{ "TimesNewRomanPS", "Times-Roman" },
{ "TimesNewRomanPS-Bold", "Times-Bold" },
{ "TimesNewRomanPS-BoldItalic", "Times-BoldItalic" },
{ "TimesNewRomanPS-BoldItalicMT", "Times-BoldItalic" },
{ "TimesNewRomanPS-BoldMT", "Times-Bold" },
{ "TimesNewRomanPS-Italic", "Times-Italic" },
{ "TimesNewRomanPS-ItalicMT", "Times-Italic" },
{ "TimesNewRomanPSMT", "Times-Roman" },
{ "TimesNewRomanPSMT,Bold", "Times-Bold" },
{ "TimesNewRomanPSMT,BoldItalic", "Times-BoldItalic" },
{ "TimesNewRomanPSMT,Italic", "Times-Italic" },
{ "ZapfDingbats", "ZapfDingbats" }
};
//------------------------------------------------------------------------
// index: {fixed:0, sans-serif:4, serif:8} + bold*2 + italic
// NB: must be in same order as psSubstFonts in PSOutputDev.cc
static const char *base14SubstFonts[14] = {
"Courier",
"Courier-Oblique",
"Courier-Bold",
"Courier-BoldOblique",
"Helvetica",
"Helvetica-Oblique",
"Helvetica-Bold",
"Helvetica-BoldOblique",
"Times-Roman",
"Times-Italic",
"Times-Bold",
"Times-BoldItalic",
// the last two are never used for substitution
"Symbol",
"ZapfDingbats"
};
//------------------------------------------------------------------------
static int parseCharName(char *charName, Unicode *uBuf, int uLen,
bool names, bool ligatures,
bool numeric, bool hex, bool variants);
//------------------------------------------------------------------------
static int readFromStream(void *data) {
return ((Stream *)data)->getChar();
}
//------------------------------------------------------------------------
// GfxFontLoc
//------------------------------------------------------------------------
GfxFontLoc::GfxFontLoc() {
path = nullptr;
fontNum = 0;
encoding = nullptr;
substIdx = -1;
}
GfxFontLoc::~GfxFontLoc() {
if (path) {
delete path;
}
if (encoding) {
delete encoding;
}
}
//------------------------------------------------------------------------
// GfxFont
//------------------------------------------------------------------------
GfxFont *GfxFont::makeFont(XRef *xref, const char *tagA, Ref idA, Dict *fontDict) {
GooString *nameA;
Ref embFontIDA;
GfxFontType typeA;
GfxFont *font;
// get base font name
nameA = nullptr;
Object obj1 = fontDict->lookup("BaseFont");
if (obj1.isName()) {
nameA = new GooString(obj1.getName());
}
// get embedded font ID and font type
typeA = getFontType(xref, fontDict, &embFontIDA);
// create the font object
font = nullptr;
if (typeA < fontCIDType0) {
font = new Gfx8BitFont(xref, tagA, idA, nameA, typeA, embFontIDA,
fontDict);
} else {
font = new GfxCIDFont(xref, tagA, idA, nameA, typeA, embFontIDA,
fontDict);
}
return font;
}
GfxFont::GfxFont(const char *tagA, Ref idA, GooString *nameA,
GfxFontType typeA, Ref embFontIDA) {
ok = false;
tag = new GooString(tagA);
id = idA;
name = nameA;
type = typeA;
embFontID = embFontIDA;
embFontName = nullptr;
family = nullptr;
stretch = StretchNotDefined;
weight = WeightNotDefined;
refCnt = 1;
encodingName = new GooString("");
hasToUnicode = false;
}
GfxFont::~GfxFont() {
delete tag;
delete family;
if (name) {
delete name;
}
if (embFontName) {
delete embFontName;
}
if (encodingName) {
delete encodingName;
}
}
void GfxFont::incRefCnt() {
refCnt++;
}
void GfxFont::decRefCnt() {
if (--refCnt == 0)
delete this;
}
// This function extracts three pieces of information:
// 1. the "expected" font type, i.e., the font type implied by
// Font.Subtype, DescendantFont.Subtype, and
// FontDescriptor.FontFile3.Subtype
// 2. the embedded font object ID
// 3. the actual font type - determined by examining the embedded font
// if there is one, otherwise equal to the expected font type
// If the expected and actual font types don't match, a warning
// message is printed. The expected font type is not used for
// anything else.
GfxFontType GfxFont::getFontType(XRef *xref, Dict *fontDict, Ref *embID) {
GfxFontType t, expectedType;
FoFiIdentifierType fft;
Dict *fontDict2;
bool isType0, err;
t = fontUnknownType;
*embID = Ref::INVALID();
err = false;
Object subtype = fontDict->lookup("Subtype");
expectedType = fontUnknownType;
isType0 = false;
if (subtype.isName("Type1") || subtype.isName("MMType1")) {
expectedType = fontType1;
} else if (subtype.isName("Type1C")) {
expectedType = fontType1C;
} else if (subtype.isName("Type3")) {
expectedType = fontType3;
} else if (subtype.isName("TrueType")) {
expectedType = fontTrueType;
} else if (subtype.isName("Type0")) {
isType0 = true;
} else {
error(errSyntaxWarning, -1, "Unknown font type: '{0:s}'",
subtype.isName() ? subtype.getName() : "???");
}
fontDict2 = fontDict;
Object obj1 = fontDict->lookup("DescendantFonts");
Object obj2; // Do not move to inside the if
// we need it around so that fontDict2 remains valid
if (obj1.isArray()) {
if (obj1.arrayGetLength() == 0) {
error(errSyntaxWarning, -1, "Empty DescendantFonts array in font");
} else {
obj2 = obj1.arrayGet(0);
if (obj2.isDict()) {
if (!isType0) {
error(errSyntaxWarning, -1, "Non-CID font with DescendantFonts array");
}
fontDict2 = obj2.getDict();
subtype = fontDict2->lookup("Subtype");
if (subtype.isName("CIDFontType0")) {
if (isType0) {
expectedType = fontCIDType0;
}
} else if (subtype.isName("CIDFontType2")) {
if (isType0) {
expectedType = fontCIDType2;
}
}
}
}
}
Object fontDesc = fontDict2->lookup("FontDescriptor");
if (fontDesc.isDict()) {
Object obj3 = fontDesc.dictLookupNF("FontFile").copy();
if (obj3.isRef()) {
*embID = obj3.getRef();
if (expectedType != fontType1) {
err = true;
}
}
if (*embID == Ref::INVALID() && (obj3 = fontDesc.dictLookupNF("FontFile2").copy(), obj3.isRef())) {
*embID = obj3.getRef();
if (isType0) {
expectedType = fontCIDType2;
} else if (expectedType != fontTrueType) {
err = true;
}
}
if (*embID == Ref::INVALID() && (obj3 = fontDesc.dictLookupNF("FontFile3").copy(), obj3.isRef())) {
*embID = obj3.getRef();
Object obj4 = obj3.fetch(xref);
if (obj4.isStream()) {
subtype = obj4.streamGetDict()->lookup("Subtype");
if (subtype.isName("Type1")) {
if (expectedType != fontType1) {
err = true;
expectedType = isType0 ? fontCIDType0 : fontType1;
}
} else if (subtype.isName("Type1C")) {
if (expectedType == fontType1) {
expectedType = fontType1C;
} else if (expectedType != fontType1C) {
err = true;
expectedType = isType0 ? fontCIDType0C : fontType1C;
}
} else if (subtype.isName("TrueType")) {
if (expectedType != fontTrueType) {
err = true;
expectedType = isType0 ? fontCIDType2 : fontTrueType;
}
} else if (subtype.isName("CIDFontType0C")) {
if (expectedType == fontCIDType0) {
expectedType = fontCIDType0C;
} else {
err = true;
expectedType = isType0 ? fontCIDType0C : fontType1C;
}
} else if (subtype.isName("OpenType")) {
if (expectedType == fontTrueType) {
expectedType = fontTrueTypeOT;
} else if (expectedType == fontType1) {
expectedType = fontType1COT;
} else if (expectedType == fontCIDType0) {
expectedType = fontCIDType0COT;
} else if (expectedType == fontCIDType2) {
expectedType = fontCIDType2OT;
} else {
err = true;
}
} else {
error(errSyntaxError, -1, "Unknown font type '{0:s}'",
subtype.isName() ? subtype.getName() : "???");
}
}
}
}
t = fontUnknownType;
if (*embID != Ref::INVALID()) {
Object obj3(*embID);
Object obj4 = obj3.fetch(xref);
if (obj4.isStream()) {
obj4.streamReset();
fft = FoFiIdentifier::identifyStream(&readFromStream, obj4.getStream());
obj4.streamClose();
switch (fft) {
case fofiIdType1PFA:
case fofiIdType1PFB:
t = fontType1;
break;
case fofiIdCFF8Bit:
t = isType0 ? fontCIDType0C : fontType1C;
break;
case fofiIdCFFCID:
t = fontCIDType0C;
break;
case fofiIdTrueType:
case fofiIdTrueTypeCollection:
t = isType0 ? fontCIDType2 : fontTrueType;
break;
case fofiIdOpenTypeCFF8Bit:
t = expectedType; // hack: open type always == expected type? s. bug-poppler20605.pdf
break;
case fofiIdOpenTypeCFFCID:
t = fontCIDType0COT;
break;
default:
error(errSyntaxError, -1, "Embedded font file may be invalid");
break;
}
}
}
if (t == fontUnknownType) {
t = expectedType;
}
if (t != expectedType) {
err = true;
}
if (err) {
error(errSyntaxWarning, -1,
"Mismatch between font type and embedded font file");
}
return t;
}
void GfxFont::readFontDescriptor(XRef *xref, Dict *fontDict) {
double t;
// assume Times-Roman by default (for substitution purposes)
flags = fontSerif;
missingWidth = 0;
Object obj1 = fontDict->lookup("FontDescriptor");
if (obj1.isDict()) {
// get flags
Object obj2 = obj1.dictLookup("Flags");
if (obj2.isInt()) {
flags = obj2.getInt();
}
// get name
obj2 = obj1.dictLookup("FontName");
if (obj2.isName()) {
embFontName = new GooString(obj2.getName());
}
if (embFontName == nullptr) {
// get name with typo
obj2 = obj1.dictLookup("Fontname");
if (obj2.isName()) {
embFontName = new GooString(obj2.getName());
error(errSyntaxWarning, -1, "The file uses Fontname instead of FontName please notify the creator that the file is broken");
}
}
// get family
obj2 = obj1.dictLookup("FontFamily");
if (obj2.isString()) family = new GooString(obj2.getString());
// get stretch
obj2 = obj1.dictLookup("FontStretch");
if (obj2.isName()) {
if (strcmp(obj2.getName(), "UltraCondensed") == 0) stretch = UltraCondensed;
else if (strcmp(obj2.getName(), "ExtraCondensed") == 0) stretch = ExtraCondensed;
else if (strcmp(obj2.getName(), "Condensed") == 0) stretch = Condensed;
else if (strcmp(obj2.getName(), "SemiCondensed") == 0) stretch = SemiCondensed;
else if (strcmp(obj2.getName(), "Normal") == 0) stretch = Normal;
else if (strcmp(obj2.getName(), "SemiExpanded") == 0) stretch = SemiExpanded;
else if (strcmp(obj2.getName(), "Expanded") == 0) stretch = Expanded;
else if (strcmp(obj2.getName(), "ExtraExpanded") == 0) stretch = ExtraExpanded;
else if (strcmp(obj2.getName(), "UltraExpanded") == 0) stretch = UltraExpanded;
else error(errSyntaxWarning, -1, "Invalid Font Stretch");
}
// get weight
obj2 = obj1.dictLookup("FontWeight");
if (obj2.isNum()) {
if (obj2.getNum() == 100) weight = W100;
else if (obj2.getNum() == 200) weight = W200;
else if (obj2.getNum() == 300) weight = W300;
else if (obj2.getNum() == 400) weight = W400;
else if (obj2.getNum() == 500) weight = W500;
else if (obj2.getNum() == 600) weight = W600;
else if (obj2.getNum() == 700) weight = W700;
else if (obj2.getNum() == 800) weight = W800;
else if (obj2.getNum() == 900) weight = W900;
else error(errSyntaxWarning, -1, "Invalid Font Weight");
}
// look for MissingWidth
obj2 = obj1.dictLookup("MissingWidth");
if (obj2.isNum()) {
missingWidth = obj2.getNum();
}
// get Ascent and Descent
obj2 = obj1.dictLookup("Ascent");
if (obj2.isNum()) {
t = 0.001 * obj2.getNum();
// some broken font descriptors specify a negative ascent
if (t < 0) {
t = -t;
}
// some broken font descriptors set ascent and descent to 0;
// others set it to ridiculous values (e.g., 32768)
if (t != 0 && t < 3) {
ascent = t;
}
}
obj2 = obj1.dictLookup("Descent");
if (obj2.isNum()) {
t = 0.001 * obj2.getNum();
// some broken font descriptors specify a positive descent
if (t > 0) {
t = -t;
}
// some broken font descriptors set ascent and descent to 0
if (t != 0 && t > -3) {
descent = t;
}
}
// font FontBBox
obj2 = obj1.dictLookup("FontBBox");
if (obj2.isArray()) {
for (int i = 0; i < 4 && i < obj2.arrayGetLength(); ++i) {
Object obj3 = obj2.arrayGet(i);
if (obj3.isNum()) {
fontBBox[i] = 0.001 * obj3.getNum();
}
}
}
}
}
CharCodeToUnicode *GfxFont::readToUnicodeCMap(Dict *fontDict, int nBits,
CharCodeToUnicode *ctu) {
GooString *buf;
Object obj1 = fontDict->lookup("ToUnicode");
if (!obj1.isStream()) {
return nullptr;
}
buf = new GooString();
obj1.getStream()->fillGooString(buf);
obj1.streamClose();
if (ctu) {
ctu->mergeCMap(buf, nBits);
} else {
ctu = CharCodeToUnicode::parseCMap(buf, nBits);
}
hasToUnicode = true;
delete buf;
return ctu;
}
GfxFontLoc *GfxFont::locateFont(XRef *xref, PSOutputDev *ps) {
GfxFontLoc *fontLoc;
SysFontType sysFontType;
GooString *path, *base14Name, *substName;
int substIdx, fontNum;
bool embed;
if (type == fontType3) {
return nullptr;
}
//----- embedded font
if (embFontID != Ref::INVALID()) {
embed = true;
Object refObj(embFontID);
Object embFontObj = refObj.fetch(xref);
if (!embFontObj.isStream()) {
error(errSyntaxError, -1, "Embedded font object is wrong type");
embed = false;
}
if (embed) {
if (ps) {
switch (type) {
case fontType1:
case fontType1C:
case fontType1COT:
embed = ps->getEmbedType1();
break;
case fontTrueType:
case fontTrueTypeOT:
embed = ps->getEmbedTrueType();
break;
case fontCIDType0C:
case fontCIDType0COT:
embed = ps->getEmbedCIDPostScript();
break;
case fontCIDType2:
case fontCIDType2OT:
embed = ps->getEmbedCIDTrueType();
break;
default:
break;
}
}
if (embed) {
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocEmbedded;
fontLoc->fontType = type;
fontLoc->embFontID = embFontID;
return fontLoc;
}
}
}
//----- PS passthrough
if (ps && !isCIDFont() && ps->getFontPassthrough()) {
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocResident;
fontLoc->fontType = fontType1;
fontLoc->path = name->copy();
return fontLoc;
}
//----- PS resident Base-14 font
if (ps && !isCIDFont() && ((Gfx8BitFont *)this)->base14) {
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocResident;
fontLoc->fontType = fontType1;
fontLoc->path = new GooString(((Gfx8BitFont *)this)->base14->base14Name);
return fontLoc;
}
//----- external font file (fontFile, fontDir)
if (name && (path = globalParams->findFontFile(name))) {
if ((fontLoc = getExternalFont(path, isCIDFont()))) {
return fontLoc;
}
}
//----- external font file for Base-14 font
if (!ps && !isCIDFont() && ((Gfx8BitFont *)this)->base14) {
base14Name = new GooString(((Gfx8BitFont *)this)->base14->base14Name);
if ((path = globalParams->findBase14FontFile(base14Name, this))) {
if ((fontLoc = getExternalFont(path, false))) {
delete base14Name;
return fontLoc;
}
}
delete base14Name;
}
//----- system font
if ((path = globalParams->findSystemFontFile(this, &sysFontType,
&fontNum))) {
if (isCIDFont()) {
if (sysFontType == sysFontTTF || sysFontType == sysFontTTC) {
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocExternal;
fontLoc->fontType = fontCIDType2;
fontLoc->path = path;
fontLoc->fontNum = fontNum;
return fontLoc;
}
} else {
if (sysFontType == sysFontTTF || sysFontType == sysFontTTC) {
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocExternal;
fontLoc->fontType = fontTrueType;
fontLoc->path = path;
return fontLoc;
} else if (sysFontType == sysFontPFA || sysFontType == sysFontPFB) {
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocExternal;
fontLoc->fontType = fontType1;
fontLoc->path = path;
fontLoc->fontNum = fontNum;
return fontLoc;
}
}
delete path;
}
if (!isCIDFont()) {
//----- 8-bit font substitution
if (flags & fontFixedWidth) {
substIdx = 0;
} else if (flags & fontSerif) {
substIdx = 8;
} else {
substIdx = 4;
}
if (isBold()) {
substIdx += 2;
}
if (isItalic()) {
substIdx += 1;
}
substName = new GooString(base14SubstFonts[substIdx]);
if (ps) {
error(errSyntaxWarning, -1, "Substituting font '{0:s}' for '{1:s}'",
base14SubstFonts[substIdx], name ? name->c_str() : "null");
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocResident;
fontLoc->fontType = fontType1;
fontLoc->path = substName;
fontLoc->substIdx = substIdx;
return fontLoc;
} else {
path = globalParams->findFontFile(substName);
delete substName;
if (path) {
if ((fontLoc = getExternalFont(path, false))) {
error(errSyntaxWarning, -1, "Substituting font '{0:s}' for '{1:s}'",
base14SubstFonts[substIdx], name ? name->c_str() : "");
name = new GooString(base14SubstFonts[substIdx]);
fontLoc->substIdx = substIdx;
return fontLoc;
}
}
}
// failed to find a substitute font
return nullptr;
}
// failed to find a substitute font
return nullptr;
}
GfxFontLoc *GfxFont::locateBase14Font(GooString *base14Name) {
GooString *path;
path = globalParams->findFontFile(base14Name);
if (!path) {
return nullptr;
}
return getExternalFont(path, false);
}
GfxFontLoc *GfxFont::getExternalFont(GooString *path, bool cid) {
FoFiIdentifierType fft;
GfxFontType fontType;
GfxFontLoc *fontLoc;
fft = FoFiIdentifier::identifyFile(path->c_str());
switch (fft) {
case fofiIdType1PFA:
case fofiIdType1PFB:
fontType = fontType1;
break;
case fofiIdCFF8Bit:
fontType = fontType1C;
break;
case fofiIdCFFCID:
fontType = fontCIDType0C;
break;
case fofiIdTrueType:
case fofiIdTrueTypeCollection:
fontType = cid ? fontCIDType2 : fontTrueType;
break;
case fofiIdOpenTypeCFF8Bit:
fontType = fontType1COT;
break;
case fofiIdOpenTypeCFFCID:
fontType = fontCIDType0COT;
break;
case fofiIdUnknown:
case fofiIdError:
default:
fontType = fontUnknownType;
break;
}
if (fontType == fontUnknownType ||
(cid ? (fontType < fontCIDType0)
: (fontType >= fontCIDType0))) {
delete path;
return nullptr;
}
fontLoc = new GfxFontLoc();
fontLoc->locType = gfxFontLocExternal;
fontLoc->fontType = fontType;
fontLoc->path = path;
return fontLoc;
}
char *GfxFont::readEmbFontFile(XRef *xref, int *len) {
char *buf;
Stream *str;
Object obj1(embFontID);
Object obj2 = obj1.fetch(xref);
if (!obj2.isStream()) {
error(errSyntaxError, -1, "Embedded font file is not a stream");
embFontID = Ref::INVALID();
*len = 0;
return nullptr;
}
str = obj2.getStream();
buf = (char*)str->toUnsignedChars(len);
str->close();
return buf;
}
struct AlternateNameMap {
const char *name;
const char *alt;
};
static const AlternateNameMap alternateNameMap[] =
{
{ "fi", "f_i" },
{ "fl", "f_l" },
{ "ff", "f_f" },
{ "ffi", "f_f_i" },
{ "ffl", "f_f_l" },
{ nullptr, nullptr }
};
const char *GfxFont::getAlternateName(const char *name) {
const AlternateNameMap *map = alternateNameMap;
while (map->name) {
if (strcmp(name, map->name) == 0) {
return map->alt;
}
map++;
}
return nullptr;
}
//------------------------------------------------------------------------
// Gfx8BitFont
//------------------------------------------------------------------------
// Parse character names of the form 'Axx', 'xx', 'Ann', 'ABnn', or
// 'nn', where 'A' and 'B' are any letters, 'xx' is two hex digits,
// and 'nn' is decimal digits.
static bool parseNumericName(const char *s, bool hex, unsigned int *u) {
char *endptr;
// Strip leading alpha characters.
if (hex) {
int n = 0;
// Get string length while ignoring junk at end.
while (isalnum(s[n]))
++n;
// Only 2 hex characters with optional leading alpha is allowed.
if (n == 3 && isalpha(*s)) {
++s;
} else if (n != 2) {
return false;
}
} else {
// Strip up to two alpha characters.
for (int i = 0; i < 2 && isalpha(*s); ++i)
++s;
}
int v = strtol(s, &endptr, hex ? 16 : 10);
if (endptr == s)
return false;
// Skip trailing junk characters.
while (*endptr != '\0' && !isalnum(*endptr))
++endptr;
if (*endptr == '\0') {
if (u)
*u = v;
return true;
}
return false;
}
// Returns true if the font has character names like xx or Axx which
// should be parsed for hex or decimal values.
static bool testForNumericNames(Dict *fontDict, bool hex) {
bool numeric = true;
Object enc = fontDict->lookup("Encoding");
if (!enc.isDict()) {
return false;
}
Object diff = enc.dictLookup("Differences");
if (!diff.isArray()) {
return false;
}
for (int i = 0; i < diff.arrayGetLength() && numeric; ++i) {
Object obj = diff.arrayGet(i);
if (obj.isInt()) {
// All sequences must start between character codes 0 and 5.
if (obj.getInt() > 5)
numeric = false;
} else if (obj.isName()) {
// All character names must successfully parse.
if (!parseNumericName(obj.getName(), hex, nullptr))
numeric = false;
} else {
numeric = false;
}
}
return numeric;
}
Gfx8BitFont::Gfx8BitFont(XRef *xref, const char *tagA, Ref idA, GooString *nameA,
GfxFontType typeA, Ref embFontIDA, Dict *fontDict):
GfxFont(tagA, idA, nameA, typeA, embFontIDA) {
GooString *name2;
BuiltinFont *builtinFont;
const char **baseEnc;
bool baseEncFromFontFile;
char *buf;
int len;
FoFiType1 *ffT1;
FoFiType1C *ffT1C;
char *charName;
bool missing, hex;
bool numeric;
Unicode toUnicode[256];
Unicode uBuf[8];
double mul;
int firstChar, lastChar;
unsigned short w;
Object obj1;
int n, i, a, b, m;
refCnt = 1;
ctu = nullptr;
// do font name substitution for various aliases of the Base 14 font
// names
base14 = nullptr;
if (name) {
name2 = name->copy();
i = 0;
while (i < name2->getLength()) {
if (name2->getChar(i) == ' ') {
name2->del(i);
} else {
++i;
}
}
a = 0;
b = sizeof(base14FontMap) / sizeof(Base14FontMapEntry);
// invariant: base14FontMap[a].altName <= name2 < base14FontMap[b].altName
while (b - a > 1) {
m = (a + b) / 2;
if (name2->cmp(base14FontMap[m].altName) >= 0) {
a = m;
} else {
b = m;
}
}
if (!name2->cmp(base14FontMap[a].altName)) {
base14 = &base14FontMap[a];
}
delete name2;
}
// is it a built-in font?
builtinFont = nullptr;
if (base14) {
for (i = 0; i < nBuiltinFonts; ++i) {
if (!strcmp(base14->base14Name, builtinFonts[i].name)) {
builtinFont = &builtinFonts[i];
break;
}
}
}
// default ascent/descent values
if (builtinFont) {
ascent = 0.001 * builtinFont->ascent;
descent = 0.001 * builtinFont->descent;
fontBBox[0] = 0.001 * builtinFont->bbox[0];
fontBBox[1] = 0.001 * builtinFont->bbox[1];
fontBBox[2] = 0.001 * builtinFont->bbox[2];
fontBBox[3] = 0.001 * builtinFont->bbox[3];
} else {
ascent = 0.95;
descent = -0.35;
fontBBox[0] = fontBBox[1] = fontBBox[2] = fontBBox[3] = 0;
}
// get info from font descriptor
readFontDescriptor(xref, fontDict);
// for non-embedded fonts, don't trust the ascent/descent/bbox
// values from the font descriptor
if (builtinFont && embFontID == Ref::INVALID()) {
ascent = 0.001 * builtinFont->ascent;
descent = 0.001 * builtinFont->descent;
fontBBox[0] = 0.001 * builtinFont->bbox[0];
fontBBox[1] = 0.001 * builtinFont->bbox[1];
fontBBox[2] = 0.001 * builtinFont->bbox[2];
fontBBox[3] = 0.001 * builtinFont->bbox[3];
}
// get font matrix
fontMat[0] = fontMat[3] = 1;
fontMat[1] = fontMat[2] = fontMat[4] = fontMat[5] = 0;
obj1 = fontDict->lookup("FontMatrix");
if (obj1.isArray()) {
for (i = 0; i < 6 && i < obj1.arrayGetLength(); ++i) {
Object obj2 = obj1.arrayGet(i);
if (obj2.isNum()) {
fontMat[i] = obj2.getNum();
}
}
}
// get Type 3 bounding box, font definition, and resources
if (type == fontType3) {
obj1 = fontDict->lookup("FontBBox");
if (obj1.isArray()) {
for (i = 0; i < 4 && i < obj1.arrayGetLength(); ++i) {
Object obj2 = obj1.arrayGet(i);
if (obj2.isNum()) {
fontBBox[i] = obj2.getNum();
}
}
}
charProcs = fontDict->lookup("CharProcs");
if (!charProcs.isDict()) {
error(errSyntaxError, -1,
"Missing or invalid CharProcs dictionary in Type 3 font");
charProcs.setToNull();
}
resources = fontDict->lookup("Resources");
if (!resources.isDict()) {
resources.setToNull();
}
}
//----- build the font encoding -----
// Encodings start with a base encoding, which can come from
// (in order of priority):
// 1. FontDict.Encoding or FontDict.Encoding.BaseEncoding
// - MacRoman / MacExpert / WinAnsi / Standard
// 2. embedded or external font file
// 3. default:
// - builtin --> builtin encoding
// - TrueType --> WinAnsiEncoding
// - others --> StandardEncoding
// and then add a list of differences (if any) from
// FontDict.Encoding.Differences.
// check FontDict for base encoding
hasEncoding = false;
usesMacRomanEnc = false;
baseEnc = nullptr;
baseEncFromFontFile = false;
obj1 = fontDict->lookup("Encoding");
if (obj1.isDict()) {
Object obj2 = obj1.dictLookup("BaseEncoding");
if (obj2.isName("MacRomanEncoding")) {
hasEncoding = true;
usesMacRomanEnc = true;
baseEnc = macRomanEncoding;
} else if (obj2.isName("MacExpertEncoding")) {
hasEncoding = true;
baseEnc = macExpertEncoding;
} else if (obj2.isName("WinAnsiEncoding")) {
hasEncoding = true;
baseEnc = winAnsiEncoding;
}
} else if (obj1.isName("MacRomanEncoding")) {
hasEncoding = true;
usesMacRomanEnc = true;
baseEnc = macRomanEncoding;
} else if (obj1.isName("MacExpertEncoding")) {
hasEncoding = true;
baseEnc = macExpertEncoding;
} else if (obj1.isName("WinAnsiEncoding")) {
hasEncoding = true;
baseEnc = winAnsiEncoding;
}
// check embedded font file for base encoding
// (only for Type 1 fonts - trying to get an encoding out of a
// TrueType font is a losing proposition)
ffT1 = nullptr;
ffT1C = nullptr;
buf = nullptr;
if (type == fontType1 && embFontID != Ref::INVALID()) {
if ((buf = readEmbFontFile(xref, &len))) {
if ((ffT1 = FoFiType1::make(buf, len))) {
if (ffT1->getName()) {
if (embFontName) {
delete embFontName;
}
embFontName = new GooString(ffT1->getName());
}
if (!baseEnc) {
baseEnc = (const char **)ffT1->getEncoding();
baseEncFromFontFile = true;
}
}
gfree(buf);
}
} else if (type == fontType1C && embFontID != Ref::INVALID()) {
if ((buf = readEmbFontFile(xref, &len))) {
if ((ffT1C = FoFiType1C::make(buf, len))) {
if (ffT1C->getName()) {
if (embFontName) {
delete embFontName;
}
embFontName = new GooString(ffT1C->getName());
}
if (!baseEnc) {
baseEnc = (const char **)ffT1C->getEncoding();
baseEncFromFontFile = true;
}
}
gfree(buf);
}
}
// get default base encoding
if (!baseEnc) {
if (builtinFont && embFontID == Ref::INVALID()) {
baseEnc = builtinFont->defaultBaseEnc;
hasEncoding = true;
} else if (type == fontTrueType) {
baseEnc = winAnsiEncoding;
} else {
baseEnc = standardEncoding;
}
}
if (baseEncFromFontFile) {
encodingName->Set("Builtin");
} else if (baseEnc == winAnsiEncoding) {
encodingName->Set("WinAnsi");
} else if (baseEnc == macRomanEncoding) {
encodingName->Set("MacRoman");
} else if (baseEnc == macExpertEncoding) {
encodingName->Set("MacExpert");
} else if (baseEnc == symbolEncoding) {
encodingName->Set("Symbol");
} else if (baseEnc == zapfDingbatsEncoding) {
encodingName->Set("ZapfDingbats");
} else {
encodingName->Set("Standard");
}
// copy the base encoding
for (i = 0; i < 256; ++i) {
enc[i] = (char *)baseEnc[i];
if ((encFree[i] = baseEncFromFontFile) && enc[i]) {
enc[i] = copyString(baseEnc[i]);
}
}
// some Type 1C font files have empty encodings, which can break the
// T1C->T1 conversion (since the 'seac' operator depends on having
// the accents in the encoding), so we fill in any gaps from
// StandardEncoding
if (type == fontType1C && embFontID != Ref::INVALID() && baseEncFromFontFile) {
for (i = 0; i < 256; ++i) {
if (!enc[i] && standardEncoding[i]) {
enc[i] = (char *)standardEncoding[i];
encFree[i] = false;
}
}
}
// merge differences into encoding
if (obj1.isDict()) {
Object obj2 = obj1.dictLookup("Differences");
if (obj2.isArray()) {
encodingName->Set("Custom");
hasEncoding = true;
int code = 0;
for (i = 0; i < obj2.arrayGetLength(); ++i) {
Object obj3 = obj2.arrayGet(i);
if (obj3.isInt()) {
code = obj3.getInt();
} else if (obj3.isName()) {
if (code >= 0 && code < 256) {
if (encFree[code]) {
gfree(enc[code]);
}
enc[code] = copyString(obj3.getName());
encFree[code] = true;
++code;
}
} else {
error(errSyntaxError, -1,
"Wrong type in font encoding resource differences ({0:s})",
obj3.getTypeName());
}
}
}
}
delete ffT1;
delete ffT1C;
//----- build the mapping to Unicode -----
// pass 1: use the name-to-Unicode mapping table
missing = hex = false;
bool isZapfDingbats = name && name->endsWith("ZapfDingbats");
for (int code = 0; code < 256; ++code) {
if ((charName = enc[code])) {
if (isZapfDingbats) {
// include ZapfDingbats names
toUnicode[code] = globalParams->mapNameToUnicodeAll(charName);
} else {
toUnicode[code] = globalParams->mapNameToUnicodeText(charName);
}
if (!toUnicode[code] && strcmp(charName, ".notdef")) {
// if it wasn't in the name-to-Unicode table, check for a
// name that looks like 'Axx' or 'xx', where 'A' is any letter
// and 'xx' is two hex digits
if ((strlen(charName) == 3 &&
isalpha(charName[0]) &&
isxdigit(charName[1]) && isxdigit(charName[2]) &&
((charName[1] >= 'a' && charName[1] <= 'f') ||
(charName[1] >= 'A' && charName[1] <= 'F') ||
(charName[2] >= 'a' && charName[2] <= 'f') ||
(charName[2] >= 'A' && charName[2] <= 'F'))) ||
(strlen(charName) == 2 &&
isxdigit(charName[0]) && isxdigit(charName[1]) &&
// Only check idx 1 to avoid misidentifying a decimal
// number like a0
((charName[1] >= 'a' && charName[1] <= 'f') ||
(charName[1] >= 'A' && charName[1] <= 'F')))) {
hex = true;
}
missing = true;
}
} else {
toUnicode[code] = 0;
}
}
numeric = testForNumericNames(fontDict, hex);
// construct the char code -> Unicode mapping object
ctu = CharCodeToUnicode::make8BitToUnicode(toUnicode);
// pass 1a: Expand ligatures in the Alphabetic Presentation Form
// block (eg "fi", "ffi") to normal form
for (int code = 0; code < 256; ++code) {
if (unicodeIsAlphabeticPresentationForm(toUnicode[code])) {
Unicode *normalized = unicodeNormalizeNFKC(&toUnicode[code], 1, &len, nullptr);
if (len > 1)
ctu->setMapping((CharCode)code, normalized, len);
gfree(normalized);
}
}
// pass 2: try to fill in the missing chars, looking for ligatures, numeric
// references and variants
if (missing) {
for (int code = 0; code < 256; ++code) {
if (!toUnicode[code]) {
if ((charName = enc[code]) && strcmp(charName, ".notdef")
&& (n = parseCharName(charName, uBuf, sizeof(uBuf)/sizeof(*uBuf),
false, // don't check simple names (pass 1)
true, // do check ligatures
numeric,
hex,
true))) { // do check variants
ctu->setMapping((CharCode)code, uBuf, n);
continue;
}
// do a simple pass-through
// mapping for unknown character names
uBuf[0] = code;
ctu->setMapping((CharCode)code, uBuf, 1);
}
}
}
// merge in a ToUnicode CMap, if there is one -- this overwrites
// existing entries in ctu, i.e., the ToUnicode CMap takes
// precedence, but the other encoding info is allowed to fill in any
// holes
readToUnicodeCMap(fontDict, 16, ctu);
//----- get the character widths -----
// initialize all widths
for (int code = 0; code < 256; ++code) {
widths[code] = missingWidth * 0.001;
}
// use widths from font dict, if present
obj1 = fontDict->lookup("FirstChar");
firstChar = obj1.isInt() ? obj1.getInt() : 0;
if (firstChar < 0 || firstChar > 255) {
firstChar = 0;
}
obj1 = fontDict->lookup("LastChar");
lastChar = obj1.isInt() ? obj1.getInt() : 255;
if (lastChar < 0 || lastChar > 255) {
lastChar = 255;
}
mul = (type == fontType3) ? fontMat[0] : 0.001;
obj1 = fontDict->lookup("Widths");
if (obj1.isArray()) {
flags |= fontFixedWidth;
if (obj1.arrayGetLength() < lastChar - firstChar + 1) {
lastChar = firstChar + obj1.arrayGetLength() - 1;
}
for (int code = firstChar; code <= lastChar; ++code) {
Object obj2 = obj1.arrayGet(code - firstChar);
if (obj2.isNum()) {
widths[code] = obj2.getNum() * mul;
if (fabs(widths[code] - widths[firstChar]) > 0.00001) {
flags &= ~fontFixedWidth;
}
}
}
// use widths from built-in font
} else if (builtinFont) {
// this is a kludge for broken PDF files that encode char 32
// as .notdef
if (builtinFont->widths->getWidth("space", &w)) {
widths[32] = 0.001 * w;
}
for (int code = 0; code < 256; ++code) {
if (enc[code] && builtinFont->widths->getWidth(enc[code], &w)) {
widths[code] = 0.001 * w;
}
}
// couldn't find widths -- use defaults
} else {
// this is technically an error -- the Widths entry is required
// for all but the Base-14 fonts -- but certain PDF generators
// apparently don't include widths for Arial and TimesNewRoman
if (isFixedWidth()) {
i = 0;
} else if (isSerif()) {
i = 8;
} else {
i = 4;
}
if (isBold()) {
i += 2;
}
if (isItalic()) {
i += 1;
}
builtinFont = builtinFontSubst[i];
// this is a kludge for broken PDF files that encode char 32
// as .notdef
if (builtinFont->widths->getWidth("space", &w)) {
widths[32] = 0.001 * w;
}
for (int code = 0; code < 256; ++code) {
if (enc[code] && builtinFont->widths->getWidth(enc[code], &w)) {
widths[code] = 0.001 * w;
}
}
}
ok = true;
}
Gfx8BitFont::~Gfx8BitFont() {
int i;
for (i = 0; i < 256; ++i) {
if (encFree[i] && enc[i]) {
gfree(enc[i]);
}
}
ctu->decRefCnt();
}
// This function is in part a derived work of the Adobe Glyph Mapping
// Convention: http://www.adobe.com/devnet/opentype/archives/glyph.html
// Algorithmic comments are excerpted from that document to aid
// maintainability.
static int parseCharName(char *charName, Unicode *uBuf, int uLen,
bool names, bool ligatures,
bool numeric, bool hex, bool variants)
{
if (uLen <= 0) {
error(errInternal, -1, "Zero-length output buffer (recursion overflow?) in "
"parseCharName, component \"{0:s}\"", charName);
return 0;
}
// Step 1: drop all the characters from the glyph name starting with the
// first occurrence of a period (U+002E FULL STOP), if any.
if (variants) {
char *var_part = strchr(charName, '.');
if (var_part == charName) {
return 0; // .notdef or similar
} else if (var_part != nullptr) {
// parse names of the form 7.oldstyle, P.swash, s.sc, etc.
char *main_part = copyString(charName, var_part - charName);
bool namesRecurse = true, variantsRecurse = false;
int n = parseCharName(main_part, uBuf, uLen, namesRecurse, ligatures,
numeric, hex, variantsRecurse);
gfree(main_part);
return n;
}
}
// Step 2: split the remaining string into a sequence of components, using
// underscore (U+005F LOW LINE) as the delimiter.
if (ligatures && strchr(charName, '_')) {
// parse names of the form A_a (e.g. f_i, T_h, l_quotesingle)
char *lig_part, *lig_end, *lig_copy;
int n = 0, m;
lig_part = lig_copy = copyString(charName);
do {
if ((lig_end = strchr(lig_part, '_')))
*lig_end = '\0';
if (lig_part[0] != '\0') {
bool namesRecurse = true, ligaturesRecurse = false;
if ((m = parseCharName(lig_part, uBuf + n, uLen - n, namesRecurse,
ligaturesRecurse, numeric, hex, variants)))
n += m;
else
error(errSyntaxWarning, -1, "Could not parse ligature component \"{0:s}\" of \"{1:s}\" in "
"parseCharName", lig_part, charName);
}
lig_part = lig_end + 1;
} while (lig_end && n < uLen);
gfree(lig_copy);
return n;
}
// Step 3: map each component to a character string according to the
// procedure below, and concatenate those strings; the result is the
// character string to which the glyph name is mapped.
// 3.1. if the font is Zapf Dingbats (PostScript FontName ZapfDingbats), and
// the component is in the ZapfDingbats list, then map it to the
// corresponding character in that list.
// 3.2. otherwise, if the component is in the Adobe Glyph List, then map it
// to the corresponding character in that list.
if (names && (uBuf[0] = globalParams->mapNameToUnicodeText(charName))) {
return 1;
}
unsigned int n = strlen(charName);
// 3.3. otherwise, if the component is of the form "uni" (U+0075 U+006E
// U+0069) followed by a sequence of uppercase hexadecimal digits (0 .. 9,
// A .. F, i.e. U+0030 .. U+0039, U+0041 .. U+0046), the length of that
// sequence is a multiple of four, and each group of four digits represents
// a number in the set {0x0000 .. 0xD7FF, 0xE000 .. 0xFFFF}, then interpret
// each such number as a Unicode scalar value and map the component to the
// string made of those scalar values. Note that the range and digit length
// restrictions mean that the "uni" prefix can be used only with Unicode
// values from the Basic Multilingual Plane (BMP).
if (n >= 7 && (n % 4) == 3 && !strncmp(charName, "uni", 3)) {
int i;
unsigned int m;
for (i = 0, m = 3; i < uLen && m < n; m += 4) {
if (isxdigit(charName[m]) && isxdigit(charName[m + 1]) &&
isxdigit(charName[m + 2]) && isxdigit(charName[m + 3])) {
unsigned int u;
sscanf(charName + m, "%4x", &u);
if (u <= 0xD7FF || (0xE000 <= u && u <= 0xFFFF)) {
uBuf[i++] = u;
}
}
}
return i;
}
// 3.4. otherwise, if the component is of the form "u" (U+0075) followed by
// a sequence of four to six uppercase hexadecimal digits {0 .. 9, A .. F}
// (U+0030 .. U+0039, U+0041 .. U+0046), and those digits represent a
// number in {0x0000 .. 0xD7FF, 0xE000 .. 0x10FFFF}, then interpret this
// number as a Unicode scalar value and map the component to the string
// made of this scalar value.
if (n >= 5 && n <= 7 && charName[0] == 'u' && isxdigit(charName[1]) &&
isxdigit(charName[2]) && isxdigit(charName[3]) && isxdigit(charName[4])
&& (n <= 5 || isxdigit(charName[5]))
&& (n <= 6 || isxdigit(charName[6]))) {
unsigned int u;
sscanf(charName + 1, "%x", &u);
if (u <= 0xD7FF || (0xE000 <= u && u <= 0x10FFFF)) {
uBuf[0] = u;
return 1;
}
}
// Not in Adobe Glyph Mapping convention: look for names like xx
// or Axx and parse for hex or decimal values.
if (numeric && parseNumericName(charName, hex, uBuf))
return 1;
// 3.5. otherwise, map the component to the empty string
return 0;
}
int Gfx8BitFont::getNextChar(const char *s, int len, CharCode *code,
Unicode **u, int *uLen,
double *dx, double *dy, double *ox, double *oy) const {
CharCode c;
*code = c = (CharCode)(*s & 0xff);
*uLen = ctu->mapToUnicode(c, u);
*dx = widths[c];
*dy = *ox = *oy = 0;
return 1;
}
const CharCodeToUnicode *Gfx8BitFont::getToUnicode() const {
return ctu;
}
int *Gfx8BitFont::getCodeToGIDMap(FoFiTrueType *ff) {
int *map;
int cmapPlatform, cmapEncoding;
int unicodeCmap, macRomanCmap, msSymbolCmap, cmap;
bool useMacRoman, useUnicode;
char *charName;
Unicode u;
int code, i, n;
map = (int *)gmallocn(256, sizeof(int));
for (i = 0; i < 256; ++i) {
map[i] = 0;
}
// To match up with the Adobe-defined behaviour, we choose a cmap
// like this:
// 1. If the PDF font has an encoding:
// 1a. If the TrueType font has a Microsoft Unicode
// cmap or a non-Microsoft Unicode cmap, use it, and use the
// Unicode indexes, not the char codes.
// 1b. If the PDF font specified MacRomanEncoding and the
// TrueType font has a Macintosh Roman cmap, use it, and
// reverse map the char names through MacRomanEncoding to
// get char codes.
// 1c. If the PDF font is symbolic and the TrueType font has a
// Microsoft Symbol cmap, use it, and use char codes
// directly (possibly with an offset of 0xf000).
// 1d. If the TrueType font has a Macintosh Roman cmap, use it,
// as in case 1a.
// 2. If the PDF font does not have an encoding or the PDF font is
// symbolic:
// 2a. If the TrueType font has a Macintosh Roman cmap, use it,
// and use char codes directly (possibly with an offset of
// 0xf000).
// 2b. If the TrueType font has a Microsoft Symbol cmap, use it,
// and use char codes directly (possible with an offset of
// 0xf000).
// 3. If none of these rules apply, use the first cmap and hope for
// the best (this shouldn't happen).
unicodeCmap = macRomanCmap = msSymbolCmap = -1;
for (i = 0; i < ff->getNumCmaps(); ++i) {
cmapPlatform = ff->getCmapPlatform(i);
cmapEncoding = ff->getCmapEncoding(i);
if ((cmapPlatform == 3 && cmapEncoding == 1) ||
cmapPlatform == 0) {
unicodeCmap = i;
} else if (cmapPlatform == 1 && cmapEncoding == 0) {
macRomanCmap = i;
} else if (cmapPlatform == 3 && cmapEncoding == 0) {
msSymbolCmap = i;
}
}
cmap = 0;
useMacRoman = false;
useUnicode = false;
if (hasEncoding || type == fontType1) {
if (unicodeCmap >= 0) {
cmap = unicodeCmap;
useUnicode = true;
} else if (usesMacRomanEnc && macRomanCmap >= 0) {
cmap = macRomanCmap;
useMacRoman = true;
} else if ((flags & fontSymbolic) && msSymbolCmap >= 0) {
cmap = msSymbolCmap;
} else if ((flags & fontSymbolic) && macRomanCmap >= 0) {
cmap = macRomanCmap;
} else if (macRomanCmap >= 0) {
cmap = macRomanCmap;
useMacRoman = true;
}
} else {
if (msSymbolCmap >= 0) {
cmap = msSymbolCmap;
} else if (macRomanCmap >= 0) {
cmap = macRomanCmap;
}
}
// reverse map the char names through MacRomanEncoding, then map the
// char codes through the cmap
if (useMacRoman) {
for (i = 0; i < 256; ++i) {
if ((charName = enc[i])) {
if ((code = globalParams->getMacRomanCharCode(charName))) {
map[i] = ff->mapCodeToGID(cmap, code);
}
} else {
map[i] = -1;
}
}
// map Unicode through the cmap
} else if (useUnicode) {
Unicode *uAux;
for (i = 0; i < 256; ++i) {
if (((charName = enc[i]) && (u = globalParams->mapNameToUnicodeAll(charName))))
map[i] = ff->mapCodeToGID(cmap, u);
else
{
n = ctu->mapToUnicode((CharCode)i, &uAux);
if (n > 0) map[i] = ff->mapCodeToGID(cmap, uAux[0]);
else map[i] = -1;
}
}
// map the char codes through the cmap, possibly with an offset of
// 0xf000
} else {
for (i = 0; i < 256; ++i) {
if (!(map[i] = ff->mapCodeToGID(cmap, i))) {
map[i] = ff->mapCodeToGID(cmap, 0xf000 + i);
}
}
}
// try the TrueType 'post' table to handle any unmapped characters
for (i = 0; i < 256; ++i) {
if (map[i] <= 0 && (charName = enc[i])) {
map[i] = ff->mapNameToGID(charName);
}
}
return map;
}
Dict *Gfx8BitFont::getCharProcs() {
return charProcs.isDict() ? charProcs.getDict() : nullptr;
}
Object Gfx8BitFont::getCharProc(int code) {
if (enc[code] && charProcs.isDict()) {
return charProcs.dictLookup(enc[code]);
} else {
return Object(objNull);
}
}
Object Gfx8BitFont::getCharProcNF(int code) {
if (enc[code] && charProcs.isDict()) {
return charProcs.dictLookupNF(enc[code]).copy();
} else {
return Object(objNull);
}
}
Dict *Gfx8BitFont::getResources() {
return resources.isDict() ? resources.getDict() : nullptr;
}
//------------------------------------------------------------------------
// GfxCIDFont
//------------------------------------------------------------------------
struct cmpWidthExcepFunctor {
bool operator()(const GfxFontCIDWidthExcep w1,
const GfxFontCIDWidthExcep w2) {
return w1.first < w2.first;
}
};
struct cmpWidthExcepVFunctor {
bool operator()(const GfxFontCIDWidthExcepV &w1,
const GfxFontCIDWidthExcepV &w2) {
return w1.first < w2.first;
}
};
GfxCIDFont::GfxCIDFont(XRef *xref, const char *tagA, Ref idA, GooString *nameA,
GfxFontType typeA, Ref embFontIDA, Dict *fontDict):
GfxFont(tagA, idA, nameA, typeA, embFontIDA)
{
Dict *desFontDict;
Object desFontDictObj;
Object obj1, obj2, obj3, obj4, obj5, obj6;
int c1, c2;
int excepsSize, j, k;
refCnt = 1;
ascent = 0.95;
descent = -0.35;
fontBBox[0] = fontBBox[1] = fontBBox[2] = fontBBox[3] = 0;
collection = nullptr;
cMap = nullptr;
ctu = nullptr;
ctuUsesCharCode = true;
widths.defWidth = 1.0;
widths.defHeight = -1.0;
widths.defVY = 0.880;
widths.exceps = nullptr;
widths.nExceps = 0;
widths.excepsV = nullptr;
widths.nExcepsV = 0;
cidToGID = nullptr;
cidToGIDLen = 0;
// get the descendant font
obj1 = fontDict->lookup("DescendantFonts");
if (!obj1.isArray() || obj1.arrayGetLength() == 0) {
error(errSyntaxError, -1, "Missing or empty DescendantFonts entry in Type 0 font");
return;
}
desFontDictObj = obj1.arrayGet(0);
if (!desFontDictObj.isDict()) {
error(errSyntaxError, -1, "Bad descendant font in Type 0 font");
return;
}
desFontDict = desFontDictObj.getDict();
// get info from font descriptor
readFontDescriptor(xref, desFontDict);
//----- encoding info -----
// char collection
obj1 = desFontDict->lookup("CIDSystemInfo");
if (!obj1.isDict()) {
error(errSyntaxError, -1, "Missing CIDSystemInfo dictionary in Type 0 descendant font");
return;
}
obj2 = obj1.dictLookup("Registry");
obj3 = obj1.dictLookup("Ordering");
if (!obj2.isString() || !obj3.isString()) {
error(errSyntaxError, -1, "Invalid CIDSystemInfo dictionary in Type 0 descendant font");
return;
}
collection = obj2.getString()->copy()->append('-')->append(obj3.getString());
// look for a ToUnicode CMap
if (!(ctu = readToUnicodeCMap(fontDict, 16, nullptr))) {
ctuUsesCharCode = false;
// use an identity mapping for the "Adobe-Identity" and
// "Adobe-UCS" collections
if (!collection->cmp("Adobe-Identity") ||
!collection->cmp("Adobe-UCS")) {
ctu = CharCodeToUnicode::makeIdentityMapping();
} else {
// look for a user-supplied .cidToUnicode file
if (!(ctu = globalParams->getCIDToUnicode(collection))) {
// I'm not completely sure that this is the best thing to do
// but it seems to produce better results when the .cidToUnicode
// files from the poppler-data package are missing. At least
// we know that assuming the Identity mapping is definitely wrong.
// -- jrmuizel
static const char * knownCollections [] = {
"Adobe-CNS1",
"Adobe-GB1",
"Adobe-Japan1",
"Adobe-Japan2",
"Adobe-Korea1",
};
for (size_t i = 0; i < sizeof(knownCollections)/sizeof(knownCollections[0]); i++) {
if (collection->cmp(knownCollections[i]) == 0) {
error(errSyntaxError, -1, "Missing language pack for '{0:t}' mapping", collection);
return;
}
}
error(errSyntaxError, -1, "Unknown character collection '{0:t}'",
collection);
// fall-through, assuming the Identity mapping -- this appears
// to match Adobe's behavior
}
}
}
// encoding (i.e., CMap)
obj1 = fontDict->lookup("Encoding");
if (obj1.isNull()) {
error(errSyntaxError, -1, "Missing Encoding entry in Type 0 font");
return;
}
if (!(cMap = CMap::parse(nullptr, collection, &obj1))) {
return;
}
if (cMap->getCMapName()) {
encodingName->Set(cMap->getCMapName()->c_str());
} else {
encodingName->Set("Custom");
}
// CIDToGIDMap (for embedded TrueType fonts)
if (type == fontCIDType2 || type == fontCIDType2OT) {
obj1 = desFontDict->lookup("CIDToGIDMap");
if (obj1.isStream()) {
cidToGIDLen = 0;
int i = 64;
cidToGID = (int *)gmallocn(i, sizeof(int));
obj1.streamReset();
while ((c1 = obj1.streamGetChar()) != EOF &&
(c2 = obj1.streamGetChar()) != EOF) {
if (cidToGIDLen == i) {
i *= 2;
cidToGID = (int *)greallocn(cidToGID, i, sizeof(int));
}
cidToGID[cidToGIDLen++] = (c1 << 8) + c2;
}
} else if (!obj1.isName("Identity") && !obj1.isNull()) {
error(errSyntaxError, -1, "Invalid CIDToGIDMap entry in CID font");
}
}
//----- character metrics -----
// default char width
obj1 = desFontDict->lookup("DW");
if (obj1.isInt()) {
widths.defWidth = obj1.getInt() * 0.001;
}
// char width exceptions
obj1 = desFontDict->lookup("W");
if (obj1.isArray()) {
excepsSize = 0;
int i = 0;
while (i + 1 < obj1.arrayGetLength()) {
obj2 = obj1.arrayGet(i);
obj3 = obj1.arrayGet(i + 1);
if (obj2.isInt() && obj3.isInt() && i + 2 < obj1.arrayGetLength()) {
obj4 = obj1.arrayGet(i + 2);
if (obj4.isNum()) {
if (widths.nExceps == excepsSize) {
excepsSize += 16;
widths.exceps = (GfxFontCIDWidthExcep *)
greallocn(widths.exceps,
excepsSize, sizeof(GfxFontCIDWidthExcep));
}
widths.exceps[widths.nExceps].first = obj2.getInt();
widths.exceps[widths.nExceps].last = obj3.getInt();
widths.exceps[widths.nExceps].width = obj4.getNum() * 0.001;
++widths.nExceps;
} else {
error(errSyntaxError, -1, "Bad widths array in Type 0 font");
}
i += 3;
} else if (obj2.isInt() && obj3.isArray()) {
if (widths.nExceps + obj3.arrayGetLength() > excepsSize) {
excepsSize = (widths.nExceps + obj3.arrayGetLength() + 15) & ~15;
widths.exceps = (GfxFontCIDWidthExcep *)
greallocn(widths.exceps,
excepsSize, sizeof(GfxFontCIDWidthExcep));
}
j = obj2.getInt();
for (k = 0; k < obj3.arrayGetLength(); ++k) {
obj4 = obj3.arrayGet(k);
if (obj4.isNum()) {
widths.exceps[widths.nExceps].first = j;
widths.exceps[widths.nExceps].last = j;
widths.exceps[widths.nExceps].width = obj4.getNum() * 0.001;
++j;
++widths.nExceps;
} else {
error(errSyntaxError, -1, "Bad widths array in Type 0 font");
}
}
i += 2;
} else {
error(errSyntaxError, -1, "Bad widths array in Type 0 font");
++i;
}
}
std::sort(widths.exceps, widths.exceps + widths.nExceps,
cmpWidthExcepFunctor());
}
// default metrics for vertical font
obj1 = desFontDict->lookup("DW2");
if (obj1.isArray() &&
obj1.arrayGetLength() == 2) {
obj2 = obj1.arrayGet(0);
if (obj2.isNum()) {
widths.defVY = obj2.getNum() * 0.001;
}
obj2 = obj1.arrayGet(1);
if (obj2.isNum()) {
widths.defHeight = obj2.getNum() * 0.001;
}
}
// char metric exceptions for vertical font
obj1 = desFontDict->lookup("W2");
if (obj1.isArray()) {
excepsSize = 0;
int i = 0;
while (i + 1 < obj1.arrayGetLength()) {
obj2 = obj1.arrayGet(i);
obj3 = obj1.arrayGet(i+ 1);
if (obj2.isInt() && obj3.isInt() && i + 4 < obj1.arrayGetLength()) {
if ((obj4 = obj1.arrayGet(i + 2), obj4.isNum()) &&
(obj5 = obj1.arrayGet(i + 3), obj5.isNum()) &&
(obj6 = obj1.arrayGet(i + 4), obj6.isNum())) {
if (widths.nExcepsV == excepsSize) {
excepsSize += 16;
widths.excepsV = (GfxFontCIDWidthExcepV *)
greallocn(widths.excepsV,
excepsSize, sizeof(GfxFontCIDWidthExcepV));
}
widths.excepsV[widths.nExcepsV].first = obj2.getInt();
widths.excepsV[widths.nExcepsV].last = obj3.getInt();
widths.excepsV[widths.nExcepsV].height = obj4.getNum() * 0.001;
widths.excepsV[widths.nExcepsV].vx = obj5.getNum() * 0.001;
widths.excepsV[widths.nExcepsV].vy = obj6.getNum() * 0.001;
++widths.nExcepsV;
} else {
error(errSyntaxError, -1, "Bad widths (W2) array in Type 0 font");
}
i += 5;
} else if (obj2.isInt() && obj3.isArray()) {
if (widths.nExcepsV + obj3.arrayGetLength() / 3 > excepsSize) {
excepsSize =
(widths.nExcepsV + obj3.arrayGetLength() / 3 + 15) & ~15;
widths.excepsV = (GfxFontCIDWidthExcepV *)
greallocn(widths.excepsV,
excepsSize, sizeof(GfxFontCIDWidthExcepV));
}
j = obj2.getInt();
for (k = 0; k < obj3.arrayGetLength(); k += 3) {
if ((obj4 = obj3.arrayGet(k), obj4.isNum()) &&
(obj5 = obj3.arrayGet(k+1), obj5.isNum()) &&
(obj6 = obj3.arrayGet(k+2), obj6.isNum())) {
widths.excepsV[widths.nExcepsV].first = j;
widths.excepsV[widths.nExcepsV].last = j;
widths.excepsV[widths.nExcepsV].height = obj4.getNum() * 0.001;
widths.excepsV[widths.nExcepsV].vx = obj5.getNum() * 0.001;
widths.excepsV[widths.nExcepsV].vy = obj6.getNum() * 0.001;
++j;
++widths.nExcepsV;
} else {
error(errSyntaxError, -1, "Bad widths (W2) array in Type 0 font");
}
}
i += 2;
} else {
error(errSyntaxError, -1, "Bad widths (W2) array in Type 0 font");
++i;
}
}
std::sort(widths.excepsV, widths.excepsV + widths.nExcepsV,
cmpWidthExcepVFunctor());
}
ok = true;
}
GfxCIDFont::~GfxCIDFont() {
if (collection) {
delete collection;
}
if (cMap) {
cMap->decRefCnt();
}
if (ctu) {
ctu->decRefCnt();
}
gfree(widths.exceps);
gfree(widths.excepsV);
if (cidToGID) {
gfree(cidToGID);
}
}
int GfxCIDFont::getNextChar(const char *s, int len, CharCode *code,
Unicode **u, int *uLen,
double *dx, double *dy, double *ox, double *oy) const {
CID cid;
CharCode dummy;
double w, h, vx, vy;
int n, a, b, m;
if (!cMap) {
*code = 0;
*uLen = 0;
*dx = *dy = 0;
return 1;
}
*code = (CharCode)(cid = cMap->getCID(s, len, &dummy, &n));
if (ctu) {
if (hasToUnicode) {
int i = 0, c = 0;
while (i < n) {
c = (c << 8 ) + (s[i] & 0xff);
++i;
}
*uLen = ctu->mapToUnicode(c, u);
} else {
*uLen = ctu->mapToUnicode(cid, u);
}
} else {
*uLen = 0;
}
// horizontal
if (cMap->getWMode() == 0) {
w = getWidth(cid);
h = vx = vy = 0;
// vertical
} else {
w = 0;
h = widths.defHeight;
vx = getWidth(cid) / 2;
vy = widths.defVY;
if (widths.nExcepsV > 0 && cid >= widths.excepsV[0].first) {
a = 0;
b = widths.nExcepsV;
// invariant: widths.excepsV[a].first <= cid < widths.excepsV[b].first
while (b - a > 1) {
m = (a + b) / 2;
if (widths.excepsV[m].last <= cid) {
a = m;
} else {
b = m;
}
}
if (cid <= widths.excepsV[a].last) {
h = widths.excepsV[a].height;
vx = widths.excepsV[a].vx;
vy = widths.excepsV[a].vy;
}
}
}
*dx = w;
*dy = h;
*ox = vx;
*oy = vy;
return n;
}
int GfxCIDFont::getWMode() {
return cMap ? cMap->getWMode() : 0;
}
const CharCodeToUnicode *GfxCIDFont::getToUnicode() const {
return ctu;
}
const GooString *GfxCIDFont::getCollection() const {
return cMap ? cMap->getCollection() : nullptr;
}
int GfxCIDFont::mapCodeToGID(FoFiTrueType *ff, int cmapi,
Unicode unicode, bool wmode) {
unsigned short gid = ff->mapCodeToGID(cmapi,unicode);
if (wmode) {
unsigned short vgid = ff->mapToVertGID(gid);
if (vgid != 0) gid = vgid;
}
return gid;
}
int *GfxCIDFont::getCodeToGIDMap(FoFiTrueType *ff, int *mapsizep) {
#define N_UCS_CANDIDATES 2
/* space characters */
static const unsigned long spaces[] = {
0x2000,0x2001,0x2002,0x2003,0x2004,0x2005,0x2006,0x2007,
0x2008,0x2009,0x200A,0x00A0,0x200B,0x2060,0x3000,0xFEFF,
0
};
static const char *adobe_cns1_cmaps[] = {
"UniCNS-UTF32-V",
"UniCNS-UCS2-V",
"UniCNS-UTF32-H",
"UniCNS-UCS2-H",
nullptr
};
static const char *adobe_gb1_cmaps[] = {
"UniGB-UTF32-V",
"UniGB-UCS2-V",
"UniGB-UTF32-H",
"UniGB-UCS2-H",
nullptr
};
static const char *adobe_japan1_cmaps[] = {
"UniJIS-UTF32-V",
"UniJIS-UCS2-V",
"UniJIS-UTF32-H",
"UniJIS-UCS2-H",
nullptr
};
static const char *adobe_japan2_cmaps[] = {
"UniHojo-UTF32-V",
"UniHojo-UCS2-V",
"UniHojo-UTF32-H",
"UniHojo-UCS2-H",
nullptr
};
static const char *adobe_korea1_cmaps[] = {
"UniKS-UTF32-V",
"UniKS-UCS2-V",
"UniKS-UTF32-H",
"UniKS-UCS2-H",
nullptr
};
static struct CMapListEntry {
const char *collection;
const char *scriptTag;
const char *languageTag;
const char *toUnicodeMap;
const char **CMaps;
} CMapList[] = {
{
"Adobe-CNS1",
"hani", "CHN ",
"Adobe-CNS1-UCS2",
adobe_cns1_cmaps,
},
{
"Adobe-GB1",
"hani", "CHN ",
"Adobe-GB1-UCS2",
adobe_gb1_cmaps,
},
{
"Adobe-Japan1",
"kana", "JAN ",
"Adobe-Japan1-UCS2",
adobe_japan1_cmaps,
},
{
"Adobe-Japan2",
"kana", "JAN ",
"Adobe-Japan2-UCS2",
adobe_japan2_cmaps,
},
{
"Adobe-Korea1",
"hang", "KOR ",
"Adobe-Korea1-UCS2",
adobe_korea1_cmaps,
},
{nullptr, nullptr, nullptr, nullptr, nullptr}
};
Unicode *humap = nullptr;
Unicode *vumap = nullptr;
Unicode *tumap = nullptr;
int *codeToGID = nullptr;
unsigned long n;
int i;
unsigned long code;
int wmode;
const char **cmapName;
CMapListEntry *lp;
int cmap;
int cmapPlatform, cmapEncoding;
Ref embID;
*mapsizep = 0;
if (!ctu || !getCollection()) return nullptr;
if (getCollection()->cmp("Adobe-Identity") == 0) return nullptr;
if (getEmbeddedFontID(&embID)) {
/* if this font is embedded font,
* CIDToGIDMap should be embedded in PDF file
* and already set. So return it.
*/
*mapsizep = getCIDToGIDLen();
return getCIDToGID();
}
/* we use only unicode cmap */
cmap = -1;
for (i = 0; i < ff->getNumCmaps(); ++i) {
cmapPlatform = ff->getCmapPlatform(i);
cmapEncoding = ff->getCmapEncoding(i);
if (cmapPlatform == 3 && cmapEncoding == 10) {
/* UCS-4 */
cmap = i;
/* use UCS-4 cmap */
break;
} else if (cmapPlatform == 3 && cmapEncoding == 1) {
/* Unicode */
cmap = i;
} else if (cmapPlatform == 0 && cmap < 0) {
cmap = i;
}
}
if (cmap < 0)
return nullptr;
wmode = getWMode();
for (lp = CMapList;lp->collection != nullptr;lp++) {
if (strcmp(lp->collection,getCollection()->c_str()) == 0) {
break;
}
}
n = 65536;
tumap = new Unicode[n];
humap = new Unicode[n*N_UCS_CANDIDATES];
memset(humap,0,sizeof(Unicode)*n*N_UCS_CANDIDATES);
if (lp->collection != nullptr) {
CharCodeToUnicode *tctu;
GooString tname(lp->toUnicodeMap);
if ((tctu = CharCodeToUnicode::parseCMapFromFile(&tname,16)) != nullptr) {
CharCode cid;
for (cid = 0;cid < n ;cid++) {
int len;
Unicode *ucodes;
len = tctu->mapToUnicode(cid,&ucodes);
if (len == 1) {
tumap[cid] = ucodes[0];
} else {
/* if not single character, ignore it */
tumap[cid] = 0;
}
}
delete tctu;
}
vumap = new Unicode[n];
memset(vumap,0,sizeof(Unicode)*n);
for (cmapName = lp->CMaps;*cmapName != nullptr;cmapName++) {
GooString cname(*cmapName);
CMap *cnameCMap;
if ((cnameCMap = globalParams->getCMap(getCollection(),&cname))
!= nullptr) {
if (cnameCMap->getWMode()) {
cnameCMap->setReverseMap(vumap,n,1);
} else {
cnameCMap->setReverseMap(humap,n,N_UCS_CANDIDATES);
}
cnameCMap->decRefCnt();
}
}
ff->setupGSUB(lp->scriptTag, lp->languageTag);
} else {
error(errSyntaxError, -1, "Unknown character collection {0:t}\n",
getCollection());
if (ctu) {
CharCode cid;
for (cid = 0;cid < n ;cid++) {
Unicode *ucode;
if (ctu->mapToUnicode(cid, &ucode))
humap[cid*N_UCS_CANDIDATES] = ucode[0];
else
humap[cid*N_UCS_CANDIDATES] = 0;
for (i = 1;i < N_UCS_CANDIDATES;i++) {
humap[cid*N_UCS_CANDIDATES+i] = 0;
}
}
}
}
// map CID -> Unicode -> GID
codeToGID = (int *)gmallocn(n, sizeof(int));
for (code = 0; code < n; ++code) {
Unicode unicode;
unsigned long gid;
unicode = 0;
gid = 0;
if (humap != nullptr) {
for (i = 0;i < N_UCS_CANDIDATES
&& gid == 0 && (unicode = humap[code*N_UCS_CANDIDATES+i]) != 0;i++) {
gid = mapCodeToGID(ff,cmap,unicode,false);
}
}
if (gid == 0 && vumap != nullptr) {
unicode = vumap[code];
if (unicode != 0) {
gid = mapCodeToGID(ff,cmap,unicode,true);
if (gid == 0 && tumap != nullptr) {
if ((unicode = tumap[code]) != 0) {
gid = mapCodeToGID(ff,cmap,unicode,true);
}
}
}
}
if (gid == 0 && tumap != nullptr) {
if ((unicode = tumap[code]) != 0) {
gid = mapCodeToGID(ff,cmap,unicode,false);
}
}
if (gid == 0) {
/* special handling space characters */
const unsigned long *p;
if (humap != nullptr) unicode = humap[code];
if (unicode != 0) {
/* check if code is space character , so map code to 0x0020 */
for (p = spaces;*p != 0;p++) {
if (*p == unicode) {
unicode = 0x20;
gid = mapCodeToGID(ff,cmap,unicode,wmode);
break;
}
}
}
}
codeToGID[code] = gid;
}
*mapsizep = n;
if (humap != nullptr) delete[] humap;
if (tumap != nullptr) delete[] tumap;
if (vumap != nullptr) delete[] vumap;
return codeToGID;
}
double GfxCIDFont::getWidth(CID cid) const {
double w;
int a, b, m;
w = widths.defWidth;
if (widths.nExceps > 0 && cid >= widths.exceps[0].first) {
a = 0;
b = widths.nExceps;
// invariant: widths.exceps[a].first <= cid < widths.exceps[b].first
while (b - a > 1) {
m = (a + b) / 2;
if (widths.exceps[m].first <= cid) {
a = m;
} else {
b = m;
}
}
if (cid <= widths.exceps[a].last) {
w = widths.exceps[a].width;
}
}
return w;
}
double GfxCIDFont::getWidth (char* s, int len) const {
int nUsed;
CharCode c;
CID cid = cMap->getCID(s, len, &c, &nUsed);
return getWidth(cid);
}
//------------------------------------------------------------------------
// GfxFontDict
//------------------------------------------------------------------------
GfxFontDict::GfxFontDict(XRef *xref, Ref *fontDictRef, Dict *fontDict) {
int i;
Ref r;
numFonts = fontDict->getLength();
fonts = (GfxFont **)gmallocn(numFonts, sizeof(GfxFont *));
for (i = 0; i < numFonts; ++i) {
const Object &obj1 = fontDict->getValNF(i);
Object obj2 = obj1.fetch(xref);
if (obj2.isDict()) {
if (obj1.isRef()) {
r = obj1.getRef();
} else if (fontDictRef) {
// legal generation numbers are five digits, so we use a
// 6-digit number here
r.gen = 100000 + fontDictRef->num;
r.num = i;
} else {
// no indirect reference for this font, or for the containing
// font dict, so hash the font and use that
r.gen = 100000;
r.num = hashFontObject(&obj2);
}
fonts[i] = GfxFont::makeFont(xref, fontDict->getKey(i),
r, obj2.getDict());
if (fonts[i] && !fonts[i]->isOk()) {
// XXX: it may be meaningful to distinguish between
// NULL and !isOk() so that when we do lookups
// we can tell the difference between a missing font
// and a font that is just !isOk()
fonts[i]->decRefCnt();
fonts[i] = nullptr;
}
} else {
error(errSyntaxError, -1, "font resource is not a dictionary");
fonts[i] = nullptr;
}
}
}
GfxFontDict::~GfxFontDict() {
int i;
for (i = 0; i < numFonts; ++i) {
if (fonts[i]) {
fonts[i]->decRefCnt();
}
}
gfree(fonts);
}
GfxFont *GfxFontDict::lookup(const char *tag) {
int i;
for (i = 0; i < numFonts; ++i) {
if (fonts[i] && fonts[i]->matches(tag)) {
return fonts[i];
}
}
return nullptr;
}
// FNV-1a hash
class FNVHash {
public:
FNVHash() {
h = 2166136261U;
}
void hash(char c) {
h ^= c & 0xff;
h *= 16777619;
}
void hash(const char *p, int n) {
int i;
for (i = 0; i < n; ++i) {
hash(p[i]);
}
}
int get31() {
return (h ^ (h >> 31)) & 0x7fffffff;
}
private:
unsigned int h;
};
int GfxFontDict::hashFontObject(Object *obj) {
FNVHash h;
hashFontObject1(obj, &h);
return h.get31();
}
void GfxFontDict::hashFontObject1(const Object *obj, FNVHash *h) {
const GooString *s;
const char *p;
double r;
int n, i;
switch (obj->getType()) {
case objBool:
h->hash('b');
h->hash(obj->getBool() ? 1 : 0);
break;
case objInt:
h->hash('i');
n = obj->getInt();
h->hash((char *)&n, sizeof(int));
break;
case objReal:
h->hash('r');
r = obj->getReal();
h->hash((char *)&r, sizeof(double));
break;
case objString:
h->hash('s');
s = obj->getString();
h->hash(s->c_str(), s->getLength());
break;
case objName:
h->hash('n');
p = obj->getName();
h->hash(p, (int)strlen(p));
break;
case objNull:
h->hash('z');
break;
case objArray:
h->hash('a');
n = obj->arrayGetLength();
h->hash((char *)&n, sizeof(int));
for (i = 0; i < n; ++i) {
const Object &obj2 = obj->arrayGetNF(i);
hashFontObject1(&obj2, h);
}
break;
case objDict:
h->hash('d');
n = obj->dictGetLength();
h->hash((char *)&n, sizeof(int));
for (i = 0; i < n; ++i) {
p = obj->dictGetKey(i);
h->hash(p, (int)strlen(p));
const Object &obj2 = obj->dictGetValNF(i);
hashFontObject1(&obj2, h);
}
break;
case objStream:
// this should never happen - streams must be indirect refs
break;
case objRef:
h->hash('f');
n = obj->getRefNum();
h->hash((char *)&n, sizeof(int));
n = obj->getRefGen();
h->hash((char *)&n, sizeof(int));
break;
default:
h->hash('u');
break;
}
}