Coverage Report

Created: 2025-06-24 07:01

/src/ghostpdl/pdf/pdf_fontTT.c
Line
Count
Source (jump to first uncovered line)
1
/* Copyright (C) 2019-2025 Artifex Software, Inc.
2
   All Rights Reserved.
3
4
   This software is provided AS-IS with no warranty, either express or
5
   implied.
6
7
   This software is distributed under license and may not be copied,
8
   modified or distributed except as expressly authorized under the terms
9
   of the license contained in the file LICENSE in this distribution.
10
11
   Refer to licensing information at http://www.artifex.com or contact
12
   Artifex Software, Inc.,  39 Mesa Street, Suite 108A, San Francisco,
13
   CA 94129, USA, for further information.
14
*/
15
16
/* code for TrueType font handling */
17
18
#include "pdf_int.h"
19
#include "pdf_font.h"
20
#include "pdf_fontTT.h"
21
#include "pdf_font1C.h" /* OTTO support */
22
#include "pdf_font_types.h"
23
#include "pdf_stack.h"
24
#include "pdf_file.h"
25
#include "pdf_dict.h"
26
#include "pdf_array.h"
27
#include "pdf_deref.h"
28
#include "gxfont42.h"
29
#include "gscencs.h"
30
#include "gsagl.h"
31
#include "gsutil.h"        /* For gs_next_ids() */
32
33
enum {
34
    CMAP_TABLE_NONE = 0,
35
    CMAP_TABLE_10_PRESENT = 1,
36
    CMAP_TABLE_30_PRESENT = 2,
37
    CMAP_TABLE_31_PRESENT = 4,
38
    CMAP_TABLE_310_PRESENT = 8
39
};
40
41
static int
42
pdfi_ttf_string_proc(gs_font_type42 * pfont, ulong offset, uint length, const byte ** pdata)
43
1.87G
{
44
1.87G
    pdf_font_truetype *ttfont = (pdf_font_truetype *)pfont->client_data;
45
1.87G
    int code = 0;
46
47
1.87G
    if ((uint64_t)offset + length > ttfont->sfnt->length) {
48
12.4M
        *pdata = NULL;
49
12.4M
        code = gs_note_error(gs_error_invalidfont);
50
12.4M
    }
51
1.86G
    else {
52
1.86G
        *pdata = ttfont->sfnt->data + offset;
53
1.86G
    }
54
1.87G
    return code;
55
1.87G
}
56
57
static gs_glyph pdfi_ttf_encode_char(gs_font *pfont, gs_char chr, gs_glyph_space_t sp)
58
8.23M
{
59
8.23M
    pdf_font_truetype *ttfont = (pdf_font_truetype *)pfont->client_data;
60
8.23M
    gs_glyph g = GS_NO_GLYPH;
61
8.23M
    uint ID;
62
8.23M
    int code;
63
64
8.23M
    if ((ttfont->descflags & 4) != 0 || sp == GLYPH_SPACE_INDEX) {
65
2.36M
        int code = pdfi_fapi_check_cmap_for_GID(pfont, (uint)chr, &ID);
66
2.36M
        if (code < 0 || ID == 0)
67
1.06M
            code = pdfi_fapi_check_cmap_for_GID(pfont, (uint)(chr | 0xf0 << 8), &ID);
68
2.36M
        g = (gs_glyph)ID;
69
2.36M
    }
70
5.86M
    else {
71
5.86M
        pdf_context *ctx = (pdf_context *)ttfont->ctx;
72
73
5.86M
        if (ttfont->Encoding != NULL) { /* safety */
74
5.86M
            pdf_name *GlyphName = NULL;
75
5.86M
            code = pdfi_array_get(ctx, ttfont->Encoding, (uint64_t)chr, (pdf_obj **)&GlyphName);
76
5.86M
            if (code >= 0) {
77
5.85M
                code = (*ctx->get_glyph_index)(pfont, (byte *)GlyphName->data, GlyphName->length, &ID);
78
5.85M
                pdfi_countdown(GlyphName);
79
5.85M
                if (code >= 0)
80
5.85M
                    g = (gs_glyph)ID;
81
5.85M
            }
82
5.86M
        }
83
5.86M
    }
84
85
8.23M
    return g;
86
8.23M
}
87
88
int pdfi_find_post_entry(gs_font_type42 *pfont, gs_const_string *gname, uint *cc)
89
2.02M
{
90
2.02M
    pdf_font_truetype *ttfont = (pdf_font_truetype *)pfont->client_data;
91
2.02M
    pdf_context *ctx = (pdf_context *)ttfont->ctx;
92
2.02M
    int code = 0;
93
2.02M
    if (ttfont->post != NULL) {
94
1.97M
        pdf_name *name = NULL;
95
1.97M
        pdf_num *n = NULL;
96
97
1.97M
        code = pdfi_name_alloc(ctx, (byte *)gname->data, gname->size, (pdf_obj **)&name);
98
1.97M
        if (code >= 0) {
99
1.97M
            pdfi_countup(name);
100
1.97M
            code = pdfi_dict_get_by_key(ctx, ttfont->post, name, (pdf_obj **)&n);
101
1.97M
            if (code >= 0 && pdfi_type_of(n) == PDF_INT) {
102
50.4k
                *cc = (uint)n->value.i;
103
50.4k
            }
104
1.92M
            else
105
1.92M
              *cc = 0;
106
1.97M
            pdfi_countdown(name);
107
1.97M
            pdfi_countdown(n);
108
1.97M
        }
109
1.97M
    }
110
47.8k
    else
111
47.8k
        code = gs_error_VMerror;
112
113
2.02M
    if (code == gs_error_VMerror){
114
47.8k
        uint i;
115
47.8k
        gs_string postname = {0};
116
117
47.8k
        code = gs_error_undefined;
118
47.8k
        if (pfont->data.numGlyphs > 0) { /* protect from corrupt font */
119
0
            for (i = 0; i < pfont->data.numGlyphs; i++) {
120
0
                code = gs_type42_find_post_name(pfont, (gs_glyph)i, &postname);
121
0
                if (code >= 0) {
122
0
                    if (gname->data[0] == postname.data[0]
123
0
                        && gname->size == postname.size
124
0
                        && !strncmp((char *)gname->data, (char *)postname.data, postname.size))
125
0
                    {
126
0
                        *cc = i;
127
0
                        code = 0;
128
0
                        break;
129
0
                    }
130
0
                }
131
0
            }
132
0
        }
133
47.8k
    }
134
2.02M
    return code;
135
2.02M
}
136
137
extern single_glyph_list_t SingleGlyphList[];
138
139
static uint pdfi_type42_get_glyph_index(gs_font_type42 *pfont, gs_glyph glyph)
140
5.34M
{
141
5.34M
    pdf_font_truetype *ttfont = (pdf_font_truetype *)pfont->client_data;
142
5.34M
    uint gind = 0;
143
5.34M
    uint cc = 0;
144
5.34M
    int i, code = 0;
145
146
5.34M
    if ((ttfont->descflags & 4) != 0 || glyph >= GS_MIN_GLYPH_INDEX) {
147
1.39M
        gind = (uint)glyph < GS_MIN_GLYPH_INDEX ? glyph : glyph - GS_MIN_GLYPH_INDEX;
148
1.39M
    }
149
3.94M
    else {
150
3.94M
        pdf_context *ctx = (pdf_context *)ttfont->ctx;
151
3.94M
        gs_const_string gname;
152
153
3.94M
        code = (*ctx->get_glyph_name)((gs_font *)pfont, glyph, &gname);
154
3.94M
        if (code < 0 || gname.data == NULL) {
155
0
            return (uint)glyph;
156
0
        }
157
3.94M
        if (gname.size == 7 && gname.data[0] == '.' && strncmp((char *)gname.data, ".notdef", 7) == 0) {
158
765k
            return 0; /* .notdef is GID 0, so short cut the rest of the function */
159
765k
        }
160
161
3.18M
        if (ttfont->cmap == pdfi_truetype_cmap_10) {
162
363k
            gs_glyph g;
163
164
363k
            g = gs_c_name_glyph((const byte *)gname.data, gname.size);
165
363k
            if (g != GS_NO_GLYPH) {
166
363k
                g = (gs_glyph)gs_c_decode(g, ENCODING_INDEX_MACROMAN);
167
363k
            }
168
0
            else {
169
0
                g = GS_NO_CHAR;
170
0
            }
171
172
363k
            if (g != GS_NO_CHAR) {
173
355k
                code = pdfi_fapi_check_cmap_for_GID((gs_font *)pfont, (uint)g, &cc);
174
355k
            }
175
176
363k
            if (code < 0 || cc == 0) {
177
250k
                code = pdfi_find_post_entry(pfont, &gname, &cc);
178
250k
                if (code < 0) {
179
247k
                    cc = 0;
180
247k
                    code = 0;
181
247k
                }
182
250k
            }
183
363k
        }
184
2.81M
        else {
185
            /* In theory, this should be 3,1 cmap, but we have examples that use 0,1 or other
186
               Unicode "platform" cmap tables, so "hail mary" just try it
187
             */
188
2.81M
            single_glyph_list_t *sgl = (single_glyph_list_t *)&(SingleGlyphList);
189
            /* Not to spec, but... if we get a "uni..." formatted name, use
190
               the hex value from that.
191
             */
192
2.81M
            if (gname.size == 7 && !strncmp((char *)gname.data, "uni", 3)) {
193
26.9k
                char gnbuf[64];
194
26.9k
                int l = (gname.size - 3) > 63 ? 63 : gname.size - 3;
195
196
26.9k
                memcpy(gnbuf, gname.data + 3, l);
197
26.9k
                gnbuf[l] = '\0';
198
26.9k
                l = sscanf(gnbuf, "%x", &gind);
199
26.9k
                if (l > 0)
200
26.9k
                    (void)pdfi_fapi_check_cmap_for_GID((gs_font *)pfont, (uint)gind, &cc);
201
0
                else
202
0
                    cc = 0;
203
26.9k
            }
204
2.79M
            else {
205
                /* Slow linear search */
206
5.39G
                for (i = 0; sgl->Glyph != 0x00; i++) {
207
5.39G
                    if (sgl->Glyph[0] == gname.data[0]
208
5.39G
                        && strlen(sgl->Glyph) == gname.size
209
5.39G
                        && !strncmp((char *)sgl->Glyph, (char *)gname.data, gname.size))
210
2.79M
                        break;
211
5.39G
                    sgl++;
212
5.39G
                }
213
2.79M
                if (sgl->Glyph != NULL) {
214
2.79M
                    code = pdfi_fapi_check_cmap_for_GID((gs_font *)pfont, (uint)sgl->Unicode, &cc);
215
2.79M
                    if (code < 0 || cc == 0)
216
1.75M
                        cc = 0;
217
2.79M
                }
218
113
                else
219
113
                    cc = 0;
220
221
2.79M
                if (cc == 0) {
222
1.75M
                    code = pdfi_find_post_entry(pfont, &gname, &cc);
223
1.75M
                    if (code < 0) {
224
1.70M
                        cc = (uint)glyph;
225
1.70M
                        code = 0;
226
1.70M
                    }
227
1.75M
                }
228
2.79M
            }
229
2.81M
        }
230
3.18M
        gind = cc;
231
3.18M
    }
232
4.57M
    return gind;
233
5.34M
}
234
235
static int
236
pdfi_ttf_enumerate_glyph(gs_font *font, int *pindex, gs_glyph_space_t glyph_space, gs_glyph *pglyph)
237
3.17M
{
238
3.17M
    if (glyph_space == GLYPH_SPACE_INDEX) {
239
127k
        return gs_type42_enumerate_glyph(font, pindex, glyph_space, pglyph);
240
127k
    }
241
3.04M
    else if (glyph_space == GLYPH_SPACE_NAME) {
242
3.04M
        pdf_font_truetype *ttfont = (pdf_font_truetype *)font->client_data;
243
244
3.04M
        if ((ttfont->descflags & 4) == 0) {
245
3.02M
            if (*pindex <= 0) {
246
40.3k
                *pindex = 0;
247
40.3k
            }
248
3.02M
            *pglyph = (*font->procs.encode_char)(font, (gs_char)*pindex, glyph_space);
249
3.02M
            if (*pglyph == GS_NO_GLYPH)
250
7.50k
                *pindex = 0;
251
3.01M
            else
252
3.01M
                (*pindex)++;
253
3.02M
        }
254
3.04M
    }
255
0
    else
256
0
        *pindex = 0;
257
3.04M
    return 0;
258
3.17M
}
259
260
static int pdfi_ttf_glyph_name(gs_font *pfont, gs_glyph glyph, gs_const_string * pstr)
261
417k
{
262
417k
    pdf_font_truetype *ttfont = (pdf_font_truetype *)pfont->client_data;
263
417k
    pdf_context *ctx = (pdf_context *)ttfont->ctx;
264
417k
    uint ID = 0;
265
417k
    int l, code = -1;
266
267
417k
    if (glyph >= GS_MIN_CID_GLYPH) { /* Fabricate a numeric name. */
268
1.36k
        char cid_name[sizeof(gs_glyph) * 3 + 1];
269
270
1.36k
        l = gs_snprintf(cid_name, sizeof(cid_name), "%lu", (ulong) glyph);
271
        /* We need to create the entry in the name table... */
272
1.36k
        code = (*ctx->get_glyph_index)(pfont, (byte *)cid_name, l, &ID);
273
1.36k
        if (code < 0)
274
0
            return -1;
275
276
1.36k
        code = (*ctx->get_glyph_name)(pfont, (gs_glyph)ID, pstr);
277
1.36k
        if (code < 0)
278
0
            return -1; /* No name, trigger pdfwrite Type 3 fallback */
279
415k
    } else {
280
415k
        if ((ttfont->descflags & 4) != 0) {
281
46.8k
            code = gs_type42_find_post_name((gs_font_type42 *)pfont, glyph, (gs_string *)pstr);
282
46.8k
            if (code < 0) {
283
42.3k
                char buf[64];
284
42.3k
                l = gs_snprintf(buf, sizeof(buf), "~gs~gName~%04x", (uint)glyph);
285
42.3k
                code = (*ctx->get_glyph_index)(pfont, (byte *)buf, l, &ID);
286
42.3k
            }
287
4.46k
            else {
288
4.46k
                code = (*ctx->get_glyph_index)(pfont, (byte *)pstr->data, pstr->size, &ID);
289
4.46k
            }
290
46.8k
            if (code < 0)
291
0
                return -1; /* No name, trigger pdfwrite Type 3 fallback */
292
293
46.8k
            code = (*ctx->get_glyph_name)(pfont, (gs_glyph)ID, pstr);
294
46.8k
            if (code < 0)
295
0
                return -1; /* No name, trigger pdfwrite Type 3 fallback */
296
46.8k
        }
297
368k
        else {
298
368k
            code = (*ctx->get_glyph_name)(pfont, glyph, pstr);
299
368k
            if (code < 0)
300
0
                return -1; /* No name, trigger pdfwrite Type 3 fallback */
301
368k
        }
302
415k
    }
303
417k
    return code;
304
305
417k
}
306
307
static void pdfi_make_post_dict(gs_font_type42 *pfont)
308
16.7k
{
309
16.7k
    pdf_font_truetype *ttfont = (pdf_font_truetype *)pfont->client_data;
310
16.7k
    pdf_context *ctx = (pdf_context *)ttfont->ctx;
311
16.7k
    int i, code = 0;
312
16.7k
    if (ttfont->post == NULL && pfont->data.numGlyphs > 0) {
313
16.5k
        code = pdfi_dict_alloc(ctx, pfont->data.numGlyphs, &ttfont->post);
314
16.5k
        if (code < 0)
315
0
            return;
316
317
16.5k
        pdfi_countup(ttfont->post);
318
319
17.7M
        for (i = 0; i < pfont->data.numGlyphs; i++) {
320
17.6M
            gs_string postname = {0};
321
17.6M
            pdf_name *key;
322
17.6M
            pdf_num *ind;
323
324
17.6M
            code = gs_type42_find_post_name(pfont, (gs_glyph)i, &postname);
325
17.6M
            if (code < 0) {
326
16.0M
                continue;
327
16.0M
            }
328
1.60M
            code = pdfi_name_alloc(ctx, postname.data, postname.size, (pdf_obj **)&key);
329
1.60M
            if (code < 0) {
330
0
               continue;
331
0
            }
332
1.60M
            pdfi_countup(key);
333
1.60M
            code = pdfi_object_alloc(ctx, PDF_INT, 0, (pdf_obj **)&ind);
334
1.60M
            if (code < 0) {
335
0
               pdfi_countdown(key);
336
0
               continue;
337
0
            }
338
1.60M
            pdfi_countup(ind);
339
1.60M
            ind->value.i = i;
340
1.60M
            (void)pdfi_dict_put_obj(ctx, ttfont->post, (pdf_obj *)key, (pdf_obj *)ind, false);
341
1.60M
            pdfi_countdown(key);
342
1.60M
            pdfi_countdown(ind);
343
1.60M
        }
344
16.5k
    }
345
16.7k
}
346
347
348
static int
349
pdfi_alloc_tt_font(pdf_context *ctx, pdf_font_truetype **font, bool is_cid)
350
26.1k
{
351
26.1k
    pdf_font_truetype *ttfont = NULL;
352
26.1k
    gs_font_type42 *pfont = NULL;
353
354
26.1k
    ttfont = (pdf_font_truetype *)gs_alloc_bytes(ctx->memory, sizeof(pdf_font_truetype), "pdfi (truetype pdf_font)");
355
26.1k
    if (ttfont == NULL)
356
0
        return_error(gs_error_VMerror);
357
358
26.1k
    memset(ttfont, 0x00, sizeof(pdf_font_truetype));
359
26.1k
    ttfont->type = PDF_FONT;
360
26.1k
    ttfont->ctx = ctx;
361
26.1k
    ttfont->pdfi_font_type = e_pdf_font_truetype;
362
363
#if REFCNT_DEBUG
364
    ttfont->UID = ctx->UID++;
365
    outprintf(ctx->memory, "Allocated object of type %c with UID %"PRIi64"\n", ttfont->type, ttfont->UID);
366
#endif
367
368
26.1k
    pdfi_countup(ttfont);
369
370
26.1k
    pfont = (gs_font_type42 *)gs_alloc_struct(ctx->memory, gs_font_type42, &st_gs_font_type42,
371
26.1k
                            "pdfi (truetype pfont)");
372
26.1k
    if (pfont == NULL) {
373
0
        pdfi_countdown(ttfont);
374
0
        return_error(gs_error_VMerror);
375
0
    }
376
26.1k
    memset(pfont, 0x00, sizeof(gs_font_type42));
377
378
26.1k
    ttfont->pfont = (gs_font_base *)pfont;
379
380
26.1k
    gs_make_identity(&pfont->orig_FontMatrix);
381
26.1k
    gs_make_identity(&pfont->FontMatrix);
382
26.1k
    pfont->next = pfont->prev = 0;
383
26.1k
    pfont->memory = ctx->memory;
384
26.1k
    pfont->dir = ctx->font_dir;
385
26.1k
    pfont->is_resource = false;
386
26.1k
    gs_notify_init(&pfont->notify_list, ctx->memory);
387
26.1k
    pfont->base = (gs_font *) ttfont->pfont;
388
26.1k
    pfont->client_data = ttfont;
389
26.1k
    pfont->WMode = 0;
390
26.1k
    pfont->PaintType = 0;
391
26.1k
    pfont->StrokeWidth = 0;
392
26.1k
    pfont->is_cached = 0;
393
26.1k
    pfont->FAPI = NULL;
394
26.1k
    pfont->FAPI_font_data = NULL;
395
26.1k
    pfont->procs.init_fstack = gs_default_init_fstack;
396
26.1k
    pfont->procs.next_char_glyph = gs_default_next_char_glyph;
397
26.1k
    pfont->FontType = ft_TrueType;
398
26.1k
    pfont->ExactSize = fbit_use_outlines;
399
26.1k
    pfont->InBetweenSize = fbit_use_outlines;
400
26.1k
    pfont->TransformedChar = fbit_use_outlines;
401
    /* We may want to do something clever with an XUID here */
402
26.1k
    pfont->id = gs_next_ids(ctx->memory, 1);
403
26.1k
    uid_set_UniqueID(&pfont->UID, pfont->id);
404
    /* The buildchar proc will be filled in by FAPI -
405
       we won't worry about working without FAPI */
406
26.1k
    pfont->procs.encode_char = pdfi_ttf_encode_char;
407
26.1k
    pfont->data.string_proc = pdfi_ttf_string_proc;
408
26.1k
    pfont->procs.glyph_name = pdfi_ttf_glyph_name;
409
26.1k
    pfont->procs.decode_glyph = pdfi_decode_glyph;
410
26.1k
    pfont->procs.define_font = gs_no_define_font;
411
26.1k
    pfont->procs.make_font = gs_no_make_font;
412
413
26.1k
    ttfont->default_font_info = gs_default_font_info;
414
26.1k
    pfont->procs.font_info = pdfi_default_font_info;
415
416
26.1k
    pfont->procs.glyph_info = gs_default_glyph_info;
417
26.1k
    pfont->procs.glyph_outline = gs_no_glyph_outline;
418
26.1k
    pfont->procs.build_char = NULL;
419
26.1k
    pfont->procs.same_font = gs_default_same_font;
420
26.1k
    pfont->procs.enumerate_glyph = gs_no_enumerate_glyph;
421
422
26.1k
    pfont->encoding_index = ENCODING_INDEX_UNKNOWN;
423
26.1k
    pfont->nearest_encoding_index = ENCODING_INDEX_UNKNOWN;
424
425
26.1k
    pfont->client_data = (void *)ttfont;
426
427
26.1k
    *font = ttfont;
428
26.1k
    return 0;
429
26.1k
}
430
431
static void pdfi_set_type42_custom_procs(pdf_font_truetype *pdfttfont)
432
16.9k
{
433
16.9k
    gs_font_type42 *pfont = (gs_font_type42 *)pdfttfont->pfont;
434
435
16.9k
    pdfttfont->default_font_info = pfont->procs.font_info;
436
16.9k
    pfont->procs.font_info = pdfi_default_font_info;
437
16.9k
    pfont->data.get_glyph_index = pdfi_type42_get_glyph_index;
438
16.9k
    pfont->procs.enumerate_glyph = pdfi_ttf_enumerate_glyph;
439
16.9k
}
440
441
int pdfi_read_truetype_font(pdf_context *ctx, pdf_dict *font_dict, pdf_dict *stream_dict, pdf_dict *page_dict, byte *buf, int64_t buflen, int findex, pdf_font **ppdffont)
442
22.8k
{
443
22.8k
    pdf_font_truetype *font = NULL;
444
22.8k
    int code = 0, i;
445
22.8k
    pdf_obj *fontdesc = NULL;
446
22.8k
    pdf_obj *obj = NULL;
447
22.8k
    pdf_obj *basefont = NULL;
448
22.8k
    int64_t descflags;
449
22.8k
    bool encoding_known = false;
450
22.8k
    bool forced_symbolic = false;
451
22.8k
    pdf_obj *tounicode = NULL;
452
453
22.8k
    if (ppdffont == NULL)
454
0
        return_error(gs_error_invalidaccess);
455
456
22.8k
    *ppdffont = NULL;
457
458
22.8k
    if (font_dict != NULL)
459
22.8k
        (void)pdfi_dict_knownget_type(ctx, font_dict, "FontDescriptor", PDF_DICT, &fontdesc);
460
461
22.8k
    if ((code = pdfi_alloc_tt_font(ctx, &font, false)) < 0) {
462
0
        code = gs_note_error(gs_error_invalidfont);
463
0
        goto error;
464
0
    }
465
22.8k
    if (font_dict != NULL) {
466
22.8k
        font->object_num = font_dict->object_num;
467
22.8k
        font->generation_num = font_dict->generation_num;
468
22.8k
        font->indirect_num = font_dict->indirect_num;
469
22.8k
        font->indirect_gen = font_dict->indirect_gen;
470
22.8k
    }
471
472
22.8k
    font->FontDescriptor = (pdf_dict *)fontdesc;
473
22.8k
    fontdesc = NULL;
474
475
22.8k
    pdfi_font_set_first_last_char(ctx, font_dict, (pdf_font *)font);
476
477
22.8k
    code = pdfi_object_alloc(ctx, PDF_BUFFER, 0, (pdf_obj **)&font->sfnt);
478
22.8k
    if (code < 0) {
479
0
        goto error;
480
0
    }
481
22.8k
    pdfi_countup(font->sfnt);
482
22.8k
    code = pdfi_buffer_set_data((pdf_obj *)font->sfnt, buf, buflen);
483
22.8k
    if (code < 0) {
484
0
        goto error;
485
0
    }
486
22.8k
    buf = NULL;
487
488
    /* Strictly speaking BaseFont is required, but we can continue without one */
489
22.8k
    if (font_dict != NULL) {
490
22.8k
        code = pdfi_dict_knownget_type(ctx, font_dict, "BaseFont", PDF_NAME, (pdf_obj **)&basefont);
491
22.8k
        if (code > 0) {
492
22.3k
            pdf_name *nobj = (pdf_name *)basefont;
493
22.3k
            int nlen = nobj->length > gs_font_name_max ? gs_font_name_max : nobj->length;
494
495
22.3k
            memcpy(font->pfont->key_name.chars, nobj->data, nlen);
496
22.3k
            font->pfont->key_name.chars[nlen] = 0;
497
22.3k
            font->pfont->key_name.size = nlen;
498
22.3k
            memcpy(font->pfont->font_name.chars, nobj->data, nlen);
499
22.3k
            font->pfont->font_name.chars[nlen] = 0;
500
22.3k
            font->pfont->font_name.size = nlen;
501
22.3k
            pdfi_countdown(obj);
502
22.3k
            obj = NULL;
503
22.3k
        }
504
22.8k
    }
505
22.8k
    font->BaseFont = basefont;
506
22.8k
    basefont = NULL;
507
22.8k
    font->PDF_font = font_dict;
508
22.8k
    pdfi_countup(font_dict);
509
510
    /* ignore errors with widths... for now */
511
22.8k
    if (font_dict != NULL)
512
22.8k
        (void)pdfi_font_create_widths(ctx, font_dict, (pdf_font*)font, 0.001);
513
514
22.8k
    if (ctx->args.ignoretounicode != true && font_dict != NULL) {
515
22.8k
        code = pdfi_dict_get(ctx, font_dict, "ToUnicode", (pdf_obj **)&tounicode);
516
22.8k
        if (code >= 0 && pdfi_type_of(tounicode) == PDF_STREAM) {
517
9.35k
            pdf_cmap *tu = NULL;
518
9.35k
            code = pdfi_read_cmap(ctx, tounicode, &tu);
519
9.35k
            pdfi_countdown(tounicode);
520
9.35k
            tounicode = (pdf_obj *)tu;
521
9.35k
        }
522
22.8k
        if (code < 0 || (tounicode != NULL && pdfi_type_of(tounicode) != PDF_CMAP)) {
523
13.3k
            pdfi_countdown(tounicode);
524
13.3k
            tounicode = NULL;
525
13.3k
            code = 0;
526
13.3k
        }
527
22.8k
    }
528
0
    else {
529
0
        tounicode = NULL;
530
0
    }
531
22.8k
    font->ToUnicode = tounicode;
532
22.8k
    tounicode = NULL;
533
534
22.8k
    if (font->FontDescriptor != NULL) {
535
22.8k
        code = pdfi_dict_get_int(ctx, font->FontDescriptor, "Flags", &descflags);
536
22.8k
        if (code < 0)
537
16
            descflags = 0;
538
22.8k
    }
539
0
    else {
540
0
        descflags = 0;
541
0
    }
542
543
22.8k
    if (font_dict != NULL)
544
22.8k
        code = pdfi_dict_get(ctx, font_dict, "Encoding", &obj);
545
0
    else
546
0
        code = gs_error_undefined;
547
548
22.8k
    if (code < 0) {
549
5.88k
        static const char encstr[] = "WinAnsiEncoding";
550
5.88k
        code = pdfi_name_alloc(ctx, (byte *)encstr, strlen(encstr), (pdf_obj **)&obj);
551
5.88k
        if (code >= 0)
552
5.88k
            pdfi_countup(obj);
553
0
        else
554
0
            goto error;
555
5.88k
    }
556
16.9k
    else {
557
16.9k
        encoding_known = true;
558
        /* If we have and encoding, and both the symbolic and non-symbolic flag are set,
559
           believe that latter.
560
         */
561
16.9k
        if ((descflags & 32) != 0)
562
16.5k
            descflags = (descflags & ~4);
563
16.9k
    }
564
565
22.8k
    if ((forced_symbolic = pdfi_font_known_symbolic(font->BaseFont)) == true) {
566
0
        descflags |= 4;
567
0
    }
568
569
22.8k
    code = pdfi_create_Encoding(ctx, (pdf_font *)font, obj, NULL, (pdf_obj **)&font->Encoding);
570
    /* If we get an error, and the font is non-symbolic, return the error */
571
22.8k
    if (code < 0 && (descflags & 4) == 0)
572
42
        goto error;
573
    /* If we get an error, and the font is symbolic, pretend we never saw an /Encoding */
574
22.8k
    if (code < 0)
575
6
        encoding_known = false;
576
22.8k
    pdfi_countdown(obj);
577
22.8k
    obj = NULL;
578
579
22.8k
    code = gs_type42_font_init((gs_font_type42 *)font->pfont, 0);
580
22.8k
    if (code < 0) {
581
5.90k
        goto error;
582
5.90k
    }
583
584
16.9k
    pdfi_set_type42_custom_procs(font);
585
586
    /* We're probably dead in the water without cmap tables, but make sure, for safety */
587
    /* This is a horrendous morass of guesses at what Acrobat does with files that contravene
588
       what the spec says about symbolic fonts, cmap tables and encodings.
589
     */
590
16.9k
    if (forced_symbolic != true && (descflags & 4) != 0 && ((gs_font_type42 *)font->pfont)->data.cmap != 0) {
591
4.49k
        gs_font_type42 *t42f = (gs_font_type42 *)font->pfont;
592
4.49k
        int numcmaps;
593
4.49k
        int cmaps_available = CMAP_TABLE_NONE;
594
4.49k
        const byte *d;
595
4.49k
        code = (*t42f->data.string_proc)(t42f, t42f->data.cmap + 2, 2, &d);
596
4.49k
        if (code < 0)
597
7
            goto error;
598
4.48k
        numcmaps = d[1] | d[0] << 8;
599
92.1k
        for (i = 0; i < numcmaps; i++) {
600
87.8k
            code = (*t42f->data.string_proc)(t42f, t42f->data.cmap + 4 + i * 8, 4, &d);
601
87.8k
            if (code < 0)
602
146
                goto error;
603
93.2k
#define CMAP_PLAT_ENC_ID(a,b,c,d) (a << 24 | b << 16 | c << 8 | d)
604
87.6k
            switch(CMAP_PLAT_ENC_ID(d[0], d[1], d[2], d[3])) {
605
4.12k
                case CMAP_PLAT_ENC_ID(0, 1, 0, 0):
606
4.12k
                    cmaps_available |= CMAP_TABLE_10_PRESENT;
607
4.12k
                    break;
608
1.33k
                case CMAP_PLAT_ENC_ID(0, 3, 0, 0):
609
1.33k
                    cmaps_available |= CMAP_TABLE_30_PRESENT;
610
1.33k
                    break;
611
83
                case CMAP_PLAT_ENC_ID(0, 3, 0, 1):
612
83
                    cmaps_available |= CMAP_TABLE_31_PRESENT;
613
83
                    break;
614
0
                case CMAP_PLAT_ENC_ID(0, 3, 1, 0):
615
0
                    cmaps_available |= CMAP_TABLE_310_PRESENT;
616
0
                    break;
617
82.1k
                default: /* Not one we're interested in */
618
82.1k
                    break;
619
87.6k
            }
620
87.6k
        }
621
4.34k
#undef CMAP_PLAT_ENC_ID
622
4.34k
        if ((cmaps_available & CMAP_TABLE_30_PRESENT) == CMAP_TABLE_30_PRESENT) {
623
1.29k
            font->descflags = descflags;
624
1.29k
        }
625
3.04k
        else if (encoding_known == true) {
626
45
            static const char mrencstr[] = "MacRomanEncoding";
627
45
            static const char waencstr[] = "WinAnsiEncoding";
628
45
            const char *encstr = ((cmaps_available & CMAP_TABLE_31_PRESENT) == CMAP_TABLE_31_PRESENT) ? waencstr : mrencstr;
629
45
            font->descflags = descflags & ~4;
630
45
            code = pdfi_name_alloc(ctx, (byte *)encstr, strlen(encstr), (pdf_obj **)&obj);
631
45
            if (code >= 0)
632
45
                pdfi_countup(obj);
633
0
            else
634
0
                goto error;
635
45
            pdfi_countdown(font->Encoding);
636
45
            code = pdfi_create_Encoding(ctx, (pdf_font *)font, obj, NULL, (pdf_obj **)&font->Encoding);
637
45
            if (code < 0)
638
0
                goto error;
639
45
            pdfi_countdown(obj);
640
45
            obj = NULL;
641
45
        }
642
3.00k
        else
643
3.00k
            font->descflags = descflags;
644
4.34k
    }
645
12.4k
    else {
646
12.4k
        font->descflags = descflags;
647
12.4k
    }
648
649
16.7k
    if (uid_is_XUID(&font->pfont->UID))
650
16.7k
        uid_free(&font->pfont->UID, font->pfont->memory, "pdfi_read_type1_font");
651
16.7k
    uid_set_invalid(&font->pfont->UID);
652
653
16.7k
    code = pdfi_font_generate_pseudo_XUID(ctx, font_dict, font->pfont);
654
16.7k
    if (code < 0) {
655
0
        goto error;
656
0
    }
657
658
16.7k
    if ((font->descflags & 4) == 0) {
659
        /* Horrid hacky solution */
660
        /* We don't want to draw the TTF notdef */
661
12.4k
        gs_font_type42 *gst42 = ((gs_font_type42 *)font->pfont);
662
12.4k
        if (gst42->data.len_glyphs != NULL && gst42->data.len_glyphs[0] > 10) {
663
9.86k
            gst42->data.len_glyphs[0] = 0;
664
9.86k
        }
665
12.4k
    }
666
667
16.7k
    pdfi_make_post_dict((gs_font_type42 *)font->pfont);
668
669
16.7k
    pdfi_font_set_orig_fonttype(ctx, (pdf_font *)font);
670
16.7k
    code = gs_definefont(ctx->font_dir, (gs_font *)font->pfont);
671
16.7k
    if (code < 0) {
672
0
        goto error;
673
0
    }
674
675
16.7k
    code = pdfi_fapi_passfont((pdf_font *)font, 0, NULL, NULL, font->sfnt->data, font->sfnt->length);
676
16.7k
    if (code < 0) {
677
991
        goto error;
678
991
    }
679
680
    /* object_num can be zero if the dictionary was defined inline */
681
15.7k
    if (font->object_num != 0) {
682
15.5k
        (void)replace_cache_entry(ctx, (pdf_obj *)font);
683
15.5k
    }
684
685
15.7k
    *ppdffont = (pdf_font *)font;
686
15.7k
    return code;
687
7.09k
error:
688
7.09k
    pdfi_countdown(obj);
689
7.09k
    obj = NULL;
690
7.09k
    if (font_dict != NULL) {
691
7.09k
        if (pdfi_dict_get(ctx, font_dict, ".Path", &obj) >= 0)
692
0
        {
693
0
            char fname[gp_file_name_sizeof + 1];
694
0
            pdf_string *fobj = (pdf_string *)obj;
695
696
0
            memcpy(fname, fobj->data, fobj->length > gp_file_name_sizeof ? gp_file_name_sizeof : fobj->length);
697
0
            fname[fobj->length > gp_file_name_sizeof ? gp_file_name_sizeof : fobj->length] = '\0';
698
699
0
            (void)pdfi_set_error_var(ctx, code, NULL, E_PDF_BADSTREAM, "pdfi_read_truetype_font", "Error reading TrueType font file %s\n", fname);
700
0
        }
701
7.09k
        else {
702
7.09k
            (void)pdfi_set_error_var(ctx, code, NULL, E_PDF_BADSTREAM, "pdfi_read_truetype_font", "Error reading embedded TrueType font object %u\n", font_dict->object_num);
703
7.09k
        }
704
7.09k
    }
705
0
    else {
706
0
        pdfi_set_error(ctx, code, NULL, E_PDF_BADSTREAM, "pdfi_read_truetype_font", "Error reading font\n");
707
0
    }
708
7.09k
    if (buf != NULL)
709
0
        gs_free_object(ctx->memory, buf, "pdfi_read_truetype_font(buf)");
710
7.09k
    pdfi_countdown(fontdesc);
711
7.09k
    pdfi_countdown(basefont);
712
7.09k
    pdfi_countdown(font);
713
7.09k
    return code;
714
16.7k
}
715
716
int
717
pdfi_copy_truetype_font(pdf_context *ctx, pdf_font *spdffont, pdf_dict *font_dict, pdf_font **tpdffont)
718
3.24k
{
719
3.24k
    int code = 0;
720
3.24k
    pdf_font_truetype *font = NULL;
721
3.24k
    gs_font_type42 *spfont1 = (gs_font_type42 *) spdffont->pfont;
722
3.24k
    gs_font_type42 *dpfont42;
723
3.24k
    gs_id t_id;
724
3.24k
    pdf_obj *tmp;
725
726
3.24k
    if (font_dict == NULL)
727
0
        return_error(gs_error_invalidfont);
728
729
3.24k
    code = pdfi_alloc_tt_font(ctx, &font, font_dict->object_num);
730
3.24k
    if (code < 0)
731
0
        return code;
732
3.24k
    dpfont42 = (gs_font_type42 *) font->pfont;
733
734
3.24k
    t_id = dpfont42->id;
735
3.24k
    memcpy(dpfont42, spfont1, sizeof(gs_font_type42));
736
3.24k
    dpfont42->id = t_id;
737
3.24k
    dpfont42->FAPI = NULL;
738
3.24k
    dpfont42->FAPI_font_data = NULL;
739
3.24k
    dpfont42->notify_list.memory = NULL;
740
3.24k
    dpfont42->notify_list.first = NULL;
741
3.24k
    gs_notify_init(&dpfont42->notify_list, dpfont42->memory);
742
743
3.24k
    memcpy(font, spdffont, sizeof(pdf_font_truetype));
744
3.24k
    font->refcnt = 1;
745
3.24k
    font->filename = NULL;
746
3.24k
    pdfi_countup(font->post);
747
748
3.24k
    if (dpfont42->data.len_glyphs != NULL) {
749
3.24k
        dpfont42->data.len_glyphs = (uint *)gs_alloc_byte_array(dpfont42->memory, dpfont42->data.numGlyphs + 1, sizeof(uint), "pdfi_copy_truetype_font");
750
3.24k
        if (dpfont42->data.len_glyphs == NULL) {
751
0
            pdfi_countdown(font);
752
0
            return_error(gs_error_VMerror);
753
0
        }
754
3.24k
        code = gs_font_notify_register((gs_font *)dpfont42, gs_len_glyphs_release, (void *)dpfont42);
755
3.24k
        if (code < 0) {
756
0
            gs_free_object(dpfont42->memory, dpfont42->data.len_glyphs, "gs_len_glyphs_release");
757
0
            dpfont42->data.len_glyphs = NULL;
758
0
            pdfi_countdown(font);
759
0
            return code;
760
0
        }
761
3.24k
        memcpy(dpfont42->data.len_glyphs, spfont1->data.len_glyphs, (dpfont42->data.numGlyphs + 1) * sizeof(uint));
762
3.24k
    }
763
3.24k
    if (dpfont42->data.gsub != NULL) {
764
0
        dpfont42->data.gsub_size = spfont1->data.gsub_size;
765
766
0
        dpfont42->data.gsub = gs_alloc_byte_array(dpfont42->memory, dpfont42->data.gsub_size, 1, "pdfi_copy_truetype_font");
767
0
        if (dpfont42->data.gsub == 0) {
768
0
            pdfi_countdown(font);
769
0
            return_error(gs_error_VMerror);
770
0
        }
771
772
0
        code = gs_font_notify_register((gs_font *)dpfont42, gs_gsub_release, (void *)dpfont42);
773
0
        if (code < 0) {
774
0
            gs_free_object(dpfont42->memory, dpfont42->data.gsub, "gs_len_glyphs_release");
775
0
            dpfont42->data.gsub = NULL;
776
0
            pdfi_countdown(font);
777
0
            return code;
778
0
        }
779
0
        memcpy(dpfont42->data.gsub, spfont1->data.gsub, dpfont42->data.gsub_size);
780
0
    }
781
782
3.24k
    font->pfont = (gs_font_base *)dpfont42;
783
3.24k
    dpfont42->client_data = (void *)font;
784
785
3.24k
    font->PDF_font = font_dict;
786
3.24k
    font->object_num = font_dict->object_num;
787
3.24k
    font->generation_num = font_dict->generation_num;
788
3.24k
    pdfi_countup(font->PDF_font);
789
790
    /* We want basefont and descriptor, but we can live without them */
791
3.24k
    font->BaseFont = NULL;
792
3.24k
    (void)pdfi_dict_knownget_type(ctx, font_dict, "BaseFont", PDF_NAME, &font->BaseFont);
793
3.24k
    font->FontDescriptor = NULL;
794
3.24k
    (void)pdfi_dict_knownget_type(ctx, font_dict, "FontDescriptor", PDF_DICT, (pdf_obj **)&font->FontDescriptor);
795
796
3.24k
    pdfi_countup(font->sfnt);
797
3.24k
    pdfi_countup(font->copyright);
798
3.24k
    pdfi_countup(font->notice);
799
3.24k
    pdfi_countup(font->fullname);
800
3.24k
    pdfi_countup(font->familyname);
801
802
3.24k
    if (font->BaseFont != NULL && ((pdf_name *)font->BaseFont)->length <= gs_font_name_max) {
803
3.21k
        memcpy(dpfont42->key_name.chars, ((pdf_name *)font->BaseFont)->data, ((pdf_name *)font->BaseFont)->length);
804
3.21k
        dpfont42->key_name.size = ((pdf_name *)font->BaseFont)->length;
805
3.21k
        memcpy(dpfont42->font_name.chars, ((pdf_name *)font->BaseFont)->data, ((pdf_name *)font->BaseFont)->length);
806
3.21k
        dpfont42->font_name.size = ((pdf_name *)font->BaseFont)->length;
807
3.21k
    }
808
809
3.24k
    font->Encoding = NULL;
810
3.24k
    font->ToUnicode = NULL;
811
3.24k
    font->Widths = NULL;
812
813
3.24k
    pdfi_font_set_first_last_char(ctx, font_dict, (pdf_font *)font);
814
3.24k
    (void)pdfi_font_create_widths(ctx, font_dict, (pdf_font*)font, (double)0.001);
815
816
3.24k
    font->descflags = 0;
817
3.24k
    if (font->FontDescriptor != NULL) {
818
3.24k
        code = pdfi_dict_get_int(ctx, font->FontDescriptor, "Flags", &font->descflags);
819
3.24k
        if (code >= 0) {
820
            /* If both the symbolic and non-symbolic flag are set,
821
               believe that latter.
822
             */
823
3.24k
            if ((font->descflags & 32) != 0)
824
3.24k
                font->descflags = (font->descflags & ~4);
825
3.24k
        }
826
3.24k
    }
827
828
3.24k
    tmp = NULL;
829
3.24k
    code = pdfi_dict_knownget(ctx, font_dict, "Encoding", &tmp);
830
3.24k
    if (code == 1) {
831
3.24k
        if ((pdfi_type_of(tmp) == PDF_NAME || pdfi_type_of(tmp) == PDF_DICT) && (font->descflags & 4) == 0) {
832
3.24k
            code = pdfi_create_Encoding(ctx, (pdf_font *)font, tmp, NULL, (pdf_obj **) & font->Encoding);
833
3.24k
        }
834
0
        else if (pdfi_type_of(tmp) == PDF_DICT && (font->descflags & 4) != 0) {
835
0
            code = pdfi_create_Encoding(ctx, (pdf_font *)font, tmp, (pdf_obj *)spdffont->Encoding, (pdf_obj **) &font->Encoding);
836
0
        }
837
0
        else {
838
0
            code = gs_error_undefined;
839
0
        }
840
3.24k
        pdfi_countdown(tmp);
841
3.24k
        tmp = NULL;
842
3.24k
    }
843
1
    else {
844
1
        pdfi_countdown(tmp);
845
1
        tmp = NULL;
846
1
        code = gs_error_undefined;
847
1
    }
848
849
3.24k
    if (code < 0) {
850
1
        font->Encoding = spdffont->Encoding;
851
1
        pdfi_countup(font->Encoding);
852
1
    }
853
854
3.24k
    code = uid_copy(&font->pfont->UID, font->pfont->memory, "pdfi_copy_cff_font");
855
3.24k
    if (code < 0) {
856
0
        uid_set_invalid(&font->pfont->UID);
857
0
    }
858
3.24k
    if (spdffont->filename == NULL) {
859
3.24k
        code = pdfi_font_generate_pseudo_XUID(ctx, font_dict, font->pfont);
860
3.24k
        if (code < 0) {
861
0
            goto error;
862
0
        }
863
3.24k
    }
864
3.24k
    if (ctx->args.ignoretounicode != true) {
865
3.24k
        code = pdfi_dict_get(ctx, font_dict, "ToUnicode", (pdf_obj **)&tmp);
866
3.24k
        if (code >= 0 && pdfi_type_of(tmp) == PDF_STREAM) {
867
268
            pdf_cmap *tu = NULL;
868
268
            code = pdfi_read_cmap(ctx, tmp, &tu);
869
268
            pdfi_countdown(tmp);
870
268
            tmp = (pdf_obj *)tu;
871
268
        }
872
3.24k
        if (code < 0 || (tmp != NULL && pdfi_type_of(tmp) != PDF_CMAP)) {
873
2.97k
            pdfi_countdown(tmp);
874
2.97k
            tmp = NULL;
875
2.97k
            code = 0;
876
2.97k
        }
877
3.24k
    }
878
0
    else {
879
0
        tmp = NULL;
880
0
    }
881
3.24k
    font->ToUnicode = tmp;
882
3.24k
    pdfi_font_set_orig_fonttype(ctx, (pdf_font *)font);
883
884
3.24k
    code = gs_definefont(ctx->font_dir, (gs_font *) font->pfont);
885
3.24k
    if (code < 0) {
886
0
        goto error;
887
0
    }
888
889
3.24k
    code = pdfi_fapi_passfont((pdf_font *) font, 0, NULL, NULL, NULL, 0);
890
3.24k
    if (code < 0) {
891
0
        goto error;
892
0
    }
893
    /* object_num can be zero if the dictionary was defined inline */
894
3.24k
    if (font->object_num != 0) {
895
346
        (void)replace_cache_entry(ctx, (pdf_obj *) font);
896
346
    }
897
898
3.24k
    *tpdffont = (pdf_font *)font;
899
900
3.24k
error:
901
3.24k
    if (code < 0)
902
0
        pdfi_countdown(font);
903
3.24k
    return code;
904
3.24k
}
905
906
int pdfi_free_font_truetype(pdf_obj *font)
907
26.1k
{
908
26.1k
    pdf_font_truetype *ttfont = (pdf_font_truetype *)font;
909
910
26.1k
    if (ttfont->pfont)
911
26.1k
        gs_free_object(OBJ_MEMORY(ttfont), ttfont->pfont, "Free TrueType gs_font");
912
913
26.1k
    if (ttfont->Widths)
914
24.7k
        gs_free_object(OBJ_MEMORY(ttfont), ttfont->Widths, "Free TrueType font Widths array");
915
916
26.1k
    pdfi_countdown(ttfont->sfnt);
917
26.1k
    pdfi_countdown(ttfont->FontDescriptor);
918
26.1k
    pdfi_countdown(ttfont->Encoding);
919
26.1k
    pdfi_countdown(ttfont->BaseFont);
920
26.1k
    pdfi_countdown(ttfont->PDF_font);
921
26.1k
    pdfi_countdown(ttfont->ToUnicode);
922
26.1k
    pdfi_countdown(ttfont->filename);
923
26.1k
    pdfi_countdown(ttfont->post);
924
26.1k
    pdfi_countdown(ttfont->copyright);
925
26.1k
    pdfi_countdown(ttfont->notice);
926
26.1k
    pdfi_countdown(ttfont->fullname);
927
26.1k
    pdfi_countdown(ttfont->familyname);
928
929
26.1k
    gs_free_object(OBJ_MEMORY(ttfont), ttfont, "Free TrueType font");
930
931
26.1k
    return 0;
932
26.1k
}