← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/texlive-bin/jaunty

« back to all changes in this revision

Viewing changes to build/source/texk/xdvipdfmx/src/fontmap.c

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Preining
  • Date: 2008-06-26 23:14:59 UTC
  • mfrom: (2.1.30 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080626231459-y02rjsrgtafu83yr
Tags: 2007.dfsg.2-3
http://bugs.debian.org/482915
add missing source roadmap.fig of roadmap.eps in fontinst documentation
(Closes: #482915) (urgency medium due to RC bug)
(new patch add-missing-fontinst-source)

Show diffs side-by-side

added added

removed removed

Lines of Context:
build/source/texk/xdvipdfmx/src/fontmap.c
 
1
/*  $Header: /home/cvsroot/dvipdfmx/src/fontmap.c,v 1.33 2005/07/30 11:44:18 hirata Exp $
 
2
    
 
3
    This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks.
 
4
 
 
5
    Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata,
 
6
    the dvipdfmx project team <dvipdfmx@project.ktug.or.kr>
 
7
    
 
8
    Copyright (C) 1998, 1999 by Mark A. Wicks <mwicks@kettering.edu>
 
9
 
 
10
    This program is free software; you can redistribute it and/or modify
 
11
    it under the terms of the GNU General Public License as published by
 
12
    the Free Software Foundation; either version 2 of the License, or
 
13
    (at your option) any later version.
 
14
    
 
15
    This program is distributed in the hope that it will be useful,
 
16
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
17
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
18
    GNU General Public License for more details.
 
19
    
 
20
    You should have received a copy of the GNU General Public License
 
21
    along with this program; if not, write to the Free Software
 
22
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
 
23
*/
 
24
 
 
25
#if HAVE_CONFIG_H
 
26
#include "config.h"
 
27
#endif
 
28
 
 
29
#include "system.h"
 
30
#include "mem.h"
 
31
#include "error.h"
 
32
 
 
33
#include "dpxfile.h"
 
34
#include "dpxutil.h"
 
35
 
 
36
#include "subfont.h"
 
37
 
 
38
#include "fontmap.h"
 
39
 
 
40
#ifdef XETEX
 
41
#ifdef XETEX_MAC
 
42
#include <CoreFoundation/CoreFoundation.h>
 
43
#include <ApplicationServices/ApplicationServices.h>
 
44
#include "ft2build.h"
 
45
#include FT_FREETYPE_H
 
46
#else
 
47
#include "fontconfig/fontconfig.h"
 
48
#include "fontconfig/fcfreetype.h"
 
49
#endif
 
50
#endif
 
51
 
 
52
/* CIDFont */
 
53
static char *strip_options (const char *map_name, fontmap_opt *opt);
 
54
 
 
55
static int verbose = 0;
 
56
void
 
57
pdf_fontmap_set_verbose (void)
 
58
{
 
59
  verbose++;
 
60
}
 
61
 
 
62
 
 
63
void
 
64
pdf_init_fontmap_record (fontmap_rec *mrec) 
 
65
{
 
66
  ASSERT(mrec);
 
67
 
 
68
  mrec->map_name   = NULL;
 
69
 
 
70
  /* SFD char mapping */
 
71
  mrec->charmap.sfd_name   = NULL;
 
72
  mrec->charmap.subfont_id = NULL;
 
73
  /* for OFM */
 
74
  mrec->opt.mapc   = -1; /* compatibility */
 
75
 
 
76
  mrec->font_name  = NULL;
 
77
  mrec->enc_name   = NULL;
 
78
 
 
79
  mrec->opt.slant  = 0.0;
 
80
  mrec->opt.extend = 1.0;
 
81
  mrec->opt.bold   = 0.0;
 
82
 
 
83
  mrec->opt.flags  = 0;
 
84
 
 
85
  mrec->opt.design_size = -1.0;
 
86
 
 
87
  mrec->opt.tounicode = NULL;
 
88
  mrec->opt.otl_tags  = NULL; /* deactivated */
 
89
  mrec->opt.index     = 0;
 
90
  mrec->opt.charcoll  = NULL;
 
91
  mrec->opt.style     = FONTMAP_STYLE_NONE;
 
92
 
 
93
#ifdef XETEX
 
94
  mrec->opt.ft_face   = NULL;
 
95
  mrec->opt.glyph_widths = NULL;
 
96
#endif
 
97
}
 
98
 
 
99
void
 
100
pdf_clear_fontmap_record (fontmap_rec *mrec)
 
101
{
 
102
  ASSERT(mrec);
 
103
 
 
104
  if (mrec->map_name)
 
105
    RELEASE(mrec->map_name);
 
106
  if (mrec->charmap.sfd_name)
 
107
    RELEASE(mrec->charmap.sfd_name);
 
108
  if (mrec->charmap.subfont_id)
 
109
    RELEASE(mrec->charmap.subfont_id);
 
110
  if (mrec->enc_name)
 
111
    RELEASE(mrec->enc_name);
 
112
  if (mrec->font_name)
 
113
    RELEASE(mrec->font_name);
 
114
 
 
115
  if (mrec->opt.tounicode)
 
116
    RELEASE(mrec->opt.tounicode);
 
117
  if (mrec->opt.otl_tags)
 
118
    RELEASE(mrec->opt.otl_tags);
 
119
  if (mrec->opt.charcoll)
 
120
    RELEASE(mrec->opt.charcoll);
 
121
  pdf_init_fontmap_record(mrec);
 
122
}
 
123
 
 
124
/* strdup: just returns NULL for NULL */
 
125
static char *
 
126
mstrdup (const char *s)
 
127
{
 
128
  char  *r;
 
129
  if (!s)
 
130
    return  NULL;
 
131
  r = NEW(strlen(s) + 1, char);
 
132
  strcpy(r, s);
 
133
  return  r;
 
134
}
 
135
 
 
136
static void
 
137
pdf_copy_fontmap_record (fontmap_rec *dst, const fontmap_rec *src)
 
138
{
 
139
  ASSERT( dst && src );
 
140
 
 
141
  dst->map_name   = mstrdup(src->map_name);
 
142
 
 
143
  dst->charmap.sfd_name   = mstrdup(src->charmap.sfd_name);
 
144
  dst->charmap.subfont_id = mstrdup(src->charmap.subfont_id);
 
145
 
 
146
  dst->font_name  = mstrdup(src->font_name);
 
147
  dst->enc_name   = mstrdup(src->enc_name);
 
148
 
 
149
  dst->opt.slant  = src->opt.slant;
 
150
  dst->opt.extend = src->opt.extend;
 
151
  dst->opt.bold   = src->opt.bold;
 
152
 
 
153
  dst->opt.flags  = src->opt.flags;
 
154
  dst->opt.mapc   = src->opt.mapc;
 
155
 
 
156
  dst->opt.tounicode = mstrdup(src->opt.tounicode);
 
157
  dst->opt.otl_tags  = mstrdup(src->opt.otl_tags);
 
158
  dst->opt.index     = src->opt.index;
 
159
  dst->opt.charcoll  = mstrdup(src->opt.charcoll);
 
160
  dst->opt.style     = src->opt.style;
 
161
 
 
162
#ifdef XETEX
 
163
  dst->opt.ft_face   = src->opt.ft_face;
 
164
  dst->opt.glyph_widths = src->opt.glyph_widths;
 
165
#endif
 
166
}
 
167
 
 
168
 
 
169
static void
 
170
hval_free (void *vp)
 
171
{
 
172
  fontmap_rec *mrec = (fontmap_rec *) vp;
 
173
  pdf_clear_fontmap_record(mrec);
 
174
  RELEASE(mrec);
 
175
}
 
176
 
 
177
 
 
178
static void
 
179
fill_in_defaults (fontmap_rec *mrec, const char *tex_name)
 
180
{
 
181
  if (mrec->enc_name &&
 
182
      (!strcmp(mrec->enc_name, "default") ||
 
183
       !strcmp(mrec->enc_name, "none"))) {
 
184
    RELEASE(mrec->enc_name);
 
185
    mrec->enc_name = NULL;
 
186
  }
 
187
  if (mrec->font_name && 
 
188
      (!strcmp(mrec->font_name, "default") ||
 
189
       !strcmp(mrec->font_name, "none"))) {
 
190
    RELEASE(mrec->font_name);
 
191
    mrec->font_name = NULL;
 
192
  }
 
193
  /* We *must* fill font_name either explicitly or by default */
 
194
  if (!mrec->font_name) {
 
195
    mrec->font_name = NEW(strlen(tex_name)+1, char);
 
196
    strcpy(mrec->font_name, tex_name);
 
197
  }
 
198
 
 
199
  mrec->map_name = NEW(strlen(tex_name)+1, char);
 
200
  strcpy(mrec->map_name, tex_name);
 
201
 
 
202
#ifndef WITHOUT_COMPAT
 
203
  /* Use "UCS" character collection for Unicode SFD
 
204
   * and Identity CMap combination. For backward
 
205
   * compatibility.
 
206
   */
 
207
  if (mrec->charmap.sfd_name && mrec->enc_name &&
 
208
      !mrec->opt.charcoll) {
 
209
    if ((!strcmp(mrec->enc_name, "Identity-H") ||
 
210
         !strcmp(mrec->enc_name, "Identity-V"))
 
211
          &&
 
212
         (strstr(mrec->charmap.sfd_name, "Uni")  ||
 
213
          strstr(mrec->charmap.sfd_name, "UBig") ||
 
214
          strstr(mrec->charmap.sfd_name, "UBg")  ||
 
215
          strstr(mrec->charmap.sfd_name, "UGB")  ||
 
216
          strstr(mrec->charmap.sfd_name, "UKS")  ||
 
217
          strstr(mrec->charmap.sfd_name, "UJIS"))) {
 
218
      mrec->opt.charcoll = NEW(strlen("UCS")+1, char);
 
219
      strcpy(mrec->opt.charcoll, "UCS");
 
220
    }
 
221
  }
 
222
#endif /* WITHOUT_COMPAT */
 
223
 
 
224
  return;
 
225
}
 
226
 
 
227
static char *
 
228
readline (char *buf, int buf_len, FILE *fp)
 
229
{
 
230
  char  *p, *q;
 
231
  ASSERT( buf && buf_len > 0 && fp );
 
232
  p = mfgets(buf, buf_len, fp);
 
233
  if (!p)
 
234
    return  NULL;
 
235
  q = strchr(p, '%'); /* we don't have quoted string */
 
236
  if (q)
 
237
    *q = '\0';
 
238
  return  p;
 
239
}
 
240
 
 
241
#ifndef ISBLANK
 
242
#  define ISBLANK(c) ((c) == ' ' || (c) == '\t')
 
243
#endif
 
244
static void
 
245
skip_blank (char **pp, char *endptr)
 
246
{
 
247
  char  *p = *pp;
 
248
  if (!p || p >= endptr)
 
249
    return;
 
250
  for ( ; p < endptr && ISBLANK(*p); p++);
 
251
  *pp = p;
 
252
}
 
253
 
 
254
static char *
 
255
parse_string_value (char **pp, char *endptr)
 
256
{
 
257
  char  *q = NULL, *p = *pp;
 
258
  int    n;
 
259
 
 
260
  if (!p || p >= endptr)
 
261
    return  NULL;
 
262
  if (*p == '"')
 
263
    q = parse_c_string(&p, endptr);
 
264
  else {
 
265
    for (n = 0; p < endptr && !isspace(*p); p++, n++);
 
266
    if (n == 0)
 
267
      return  NULL;
 
268
    q = NEW(n + 1, char);
 
269
    memcpy(q, *pp, n); q[n] = '\0';
 
270
  }
 
271
 
 
272
  *pp = p;
 
273
  return  q;
 
274
}
 
275
 
 
276
/* no preceeding spaces allowed */
 
277
static char *
 
278
parse_integer_value (char **pp, char *endptr, int base)
 
279
{
 
280
  char  *q, *p = *pp;
 
281
  int    has_sign = 0, has_prefix = 0, n;
 
282
 
 
283
  ASSERT( base == 0 || (base >= 2 && base <= 36) );
 
284
 
 
285
  if (!p || p >= endptr)
 
286
    return  NULL;
 
287
 
 
288
  if (*p == '-' || *p == '+') {
 
289
    p++; has_sign = 1;
 
290
  }
 
291
  if ((base == 0 || base == 16) &&
 
292
      p + 2 <= endptr &&
 
293
      p[0] == '0' && p[1] == 'x') {
 
294
    p += 2; has_prefix = 1;
 
295
  }
 
296
  if (base == 0) {
 
297
    if (has_prefix)
 
298
      base = 16;
 
299
    else if (p < endptr && *p == '0')
 
300
      base = 8;
 
301
    else {
 
302
      base = 10;
 
303
    }
 
304
  }
 
305
#define ISDIGIT_WB(c,b) ( \
 
306
  ((b) <= 10 && (c) >= '0' && (c) < '0' + (b)) || \
 
307
  ((b) >  10 && ( \
 
308
      ((c) >= '0' && (c) <= '9') || \
 
309
      ((c) >= 'a' && (c) < 'a' + ((b) - 10)) || \
 
310
      ((c) >= 'A' && (c) < 'A' + ((b) - 10)) \
 
311
    ) \
 
312
  ) \
 
313
)
 
314
  for (n = 0; p < endptr && ISDIGIT_WB(*p, base); p++, n++);
 
315
  if (n == 0)
 
316
    return  NULL;
 
317
  if (has_sign)
 
318
    n += 1;
 
319
  if (has_prefix)
 
320
    n += 2;
 
321
 
 
322
  q = NEW(n + 1, char);
 
323
  memcpy(q, *pp, n); q[n] = '\0';
 
324
 
 
325
  *pp = p;
 
326
  return  q;
 
327
}
 
328
 
 
329
static int
 
330
fontmap_parse_mapdef (fontmap_rec *mrec,
 
331
                      const char *mapdef, char *endptr)
 
332
{
 
333
  char  *p = (char *) mapdef;
 
334
 
 
335
  /*
 
336
   * Parse record line in map file.  First two fields (after TeX font
 
337
   * name) are position specific.  Arguments start at the first token
 
338
   * beginning with a  '-'.
 
339
   *
 
340
   * NOTE:
 
341
   *   Dvipdfm basically uses parse_ident() for parsing enc_name,
 
342
   *   font_name, and other string values which assumes PostScript-like
 
343
   *   syntax.
 
344
   *   skip_white() skips '\r' and '\n' but they should terminate
 
345
   *   fontmap line here.
 
346
   */
 
347
 
 
348
  skip_blank(&p, endptr);
 
349
  /* encoding field */
 
350
  if (p < endptr && *p != '-') { /* May be NULL */
 
351
    mrec->enc_name = parse_string_value(&p, endptr);
 
352
    skip_blank(&p, endptr);
 
353
  }
 
354
 
 
355
  /* fontname or font filename field */
 
356
  if (p < endptr && *p != '-') { /* May be NULL */
 
357
    mrec->font_name = parse_string_value(&p, endptr);
 
358
    skip_blank(&p, endptr);
 
359
  }
 
360
  if (mrec->font_name) {
 
361
    char  *tmp;
 
362
    /* Several options are encoded in font_name for
 
363
     * compatibility with dvipdfm.
 
364
     */
 
365
    tmp = strip_options(mrec->font_name, &mrec->opt);
 
366
    if (tmp) {
 
367
      RELEASE(mrec->font_name);
 
368
      mrec->font_name = tmp;
 
369
    }
 
370
  }
 
371
 
 
372
  skip_blank(&p, endptr);
 
373
  /* Parse any remaining arguments */
 
374
  while (p + 1 < endptr &&
 
375
         *p != '\r' && *p != '\n' && *p == '-') {
 
376
    char  *q, mopt = p[1];
 
377
    long   v;
 
378
 
 
379
    p += 2; skip_blank(&p, endptr);
 
380
    switch (mopt) {
 
381
 
 
382
    case  's': /* Slant option */
 
383
      q = parse_float_decimal(&p, endptr);
 
384
      if (!q) {
 
385
        WARN("Missing a number value for 's' option.");
 
386
        return  -1;
 
387
      }
 
388
      mrec->opt.slant = atof(q);
 
389
      RELEASE(q);
 
390
      break;
 
391
    case  'e': /* Extend option */
 
392
      q = parse_float_decimal(&p, endptr);
 
393
      if (!q) {
 
394
        WARN("Missing a number value for 'e' option.");
 
395
        return  -1;
 
396
      }
 
397
      mrec->opt.extend = atof(q);
 
398
      if (mrec->opt.extend <= 0.0) {
 
399
        WARN("Invalid value for 'e' option: %s", q);
 
400
        return  -1;
 
401
      }
 
402
      RELEASE(q);
 
403
      break;
 
404
    case  'b': /* Fake-bold option */
 
405
      q = parse_float_decimal(&p, endptr);
 
406
      if (!q) {
 
407
        WARN("Missing a number value for 'b' option.");
 
408
        return  -1;
 
409
      }
 
410
      mrec->opt.bold = atof(q);
 
411
      if (mrec->opt.bold <= 0.0) {
 
412
        WARN("Invalid value for 'b' option: %s", q);
 
413
        return  -1;
 
414
      }
 
415
      RELEASE(q);
 
416
      break;
 
417
 
 
418
    case  'r': /* Remap option */
 
419
      mrec->opt.flags |= FONTMAP_OPT_REMAP;
 
420
      break;
 
421
 
 
422
#if  1
 
423
    case  'i':  /* TTC index */
 
424
      q = parse_integer_value(&p, endptr, 10);
 
425
      if (!q) {
 
426
        WARN("Missing TTC index number...");
 
427
        return  -1;
 
428
      }
 
429
      mrec->opt.index = atoi(q);
 
430
      if (mrec->opt.index < 0) {
 
431
        WARN("Invalid TTC index number: %s", q);
 
432
        return  -1;
 
433
      }
 
434
      RELEASE(q);
 
435
      break;
 
436
 
 
437
    case  'p': /* UCS plane: just for testing */
 
438
      q = parse_integer_value(&p, endptr, 0);
 
439
      if (!q) {
 
440
        WARN("Missing a number for 'p' option.");
 
441
        return  -1;
 
442
      }
 
443
      v = strtol(q, NULL, 0);
 
444
      if (v < 0 || v > 16)
 
445
        WARN("Invalid value for option 'p': %s", q);
 
446
      else {
 
447
        mrec->opt.mapc = v << 16;
 
448
      }
 
449
      RELEASE(q);
 
450
      break;
 
451
 
 
452
    case  'u': /* ToUnicode */
 
453
      q = parse_string_value(&p, endptr);
 
454
      if (q)
 
455
        mrec->opt.tounicode = q;
 
456
      else {
 
457
        WARN("Missing string value for option 'u'.");
 
458
        return  -1;
 
459
      }
 
460
      break;
 
461
#endif
 
462
 
 
463
    /* Omega uses both single-byte and double-byte set_char command
 
464
     * even for double-byte OFMs. This confuses CMap decoder.
 
465
     */
 
466
    case  'm':
 
467
      /* Map single bytes char 0xab to double byte char 0xcdab  */
 
468
      if (p + 4 <= endptr &&
 
469
          p[0] == '<' && p[3] == '>') {
 
470
        p++;
 
471
        q = parse_integer_value(&p, endptr, 16);
 
472
        if (!q) {
 
473
          WARN("Invalid value for option 'm'.");
 
474
          return  -1;
 
475
        } else if (p < endptr && *p != '>') {
 
476
          WARN("Invalid value for option 'm': %s", q);
 
477
          RELEASE(q);
 
478
          return  -1;
 
479
        }
 
480
        v = strtol(q, NULL, 16);
 
481
        mrec->opt.mapc = ((v << 8) & 0x0000ff00L);
 
482
        RELEASE(q); p++;
 
483
      } else if (p + 4 <= endptr &&
 
484
                 !memcmp(p, "sfd:", strlen("sfd:"))) {
 
485
        char  *r;
 
486
        /* SFD mapping: sfd:Big5,00 */
 
487
        p += 4; skip_blank(&p, endptr);
 
488
        q  = parse_string_value(&p, endptr);
 
489
        if (!q) {
 
490
          WARN("Missing value for option 'm'.");
 
491
          return  -1;
 
492
        }
 
493
        r  = strchr(q, ',');
 
494
        if (!r) {
 
495
          WARN("Invalid value for option 'm': %s", q);
 
496
          RELEASE(q);
 
497
          return  -1;
 
498
        }
 
499
        *r = 0; r++; skip_blank(&r, r + strlen(r));
 
500
        if (*r == '\0') {
 
501
          WARN("Invalid value for option 'm': %s,", q);
 
502
          RELEASE(q);
 
503
          return  -1;
 
504
        }
 
505
        mrec->charmap.sfd_name   = mstrdup(q);
 
506
        mrec->charmap.subfont_id = mstrdup(r);
 
507
        RELEASE(q);
 
508
      } else if (p + 4 < endptr &&
 
509
                 !memcmp(p, "pad:", strlen("pad:"))) {
 
510
        p += 4; skip_blank(&p, endptr);
 
511
        q  = parse_integer_value(&p, endptr, 16);
 
512
        if (!q) {
 
513
          WARN("Invalid value for option 'm'.");
 
514
          return  -1;
 
515
        } else if (p < endptr && !isspace(*p)) {
 
516
          WARN("Invalid value for option 'm': %s", q);
 
517
          RELEASE(q);
 
518
          return  -1;
 
519
        }
 
520
        v = strtol(q, NULL, 16);
 
521
        mrec->opt.mapc = ((v << 8) & 0x0000ff00L);
 
522
        RELEASE(q);
 
523
      } else {
 
524
        WARN("Invalid value for option 'm'.");
 
525
        return  -1;
 
526
      }
 
527
      break;
 
528
 
 
529
#if  1
 
530
    case 'w': /* Writing mode (for unicode encoding) */
 
531
      if (!mrec->enc_name ||
 
532
           strcmp(mrec->enc_name, "unicode")) {
 
533
        WARN("Fontmap option 'w' meaningless for encoding other than \"unicode\".");
 
534
        return  -1;
 
535
      }
 
536
      q  = parse_integer_value(&p, endptr, 10);
 
537
      if (!q) {
 
538
        WARN("Missing wmode value...");
 
539
        return  -1;
 
540
      }
 
541
      if (atoi(q) == 1)
 
542
        mrec->opt.flags |= FONTMAP_OPT_VERT;
 
543
      else if (atoi(q) == 0)
 
544
        mrec->opt.flags &= ~FONTMAP_OPT_VERT;
 
545
      else {
 
546
        WARN("Invalid value for option 'w': %s", q);
 
547
      }
 
548
      RELEASE(q);
 
549
      break;
 
550
#endif
 
551
 
 
552
    default:
 
553
      WARN("Unrecognized font map option: '%c'", mopt);
 
554
      return  -1;
 
555
      break;
 
556
    }
 
557
    skip_blank(&p, endptr);
 
558
  }
 
559
 
 
560
  if (p < endptr && *p != '\r' && *p != '\n') {
 
561
    WARN("Invalid char in fontmap line: %c", *p);
 
562
    return  -1;
 
563
  }
 
564
 
 
565
  return  0;
 
566
}
 
567
 
 
568
 
 
569
 
 
570
static struct ht_table *fontmap = NULL;
 
571
 
 
572
#define fontmap_invalid(m) (!(m) || !(m)->map_name || !(m)->font_name)
 
573
static char *
 
574
chop_sfd_name (const char *tex_name, char **sfd_name)
 
575
{
 
576
  char  *fontname;
 
577
  char  *p, *q;
 
578
  int    m, n, len;
 
579
 
 
580
  *sfd_name = NULL;
 
581
 
 
582
  p = strchr((char *) tex_name, '@');
 
583
  if (!p ||
 
584
      p[1] == '\0' || p == tex_name) {
 
585
    return  NULL;
 
586
  }
 
587
  m = (int) (p - tex_name);
 
588
  p++;
 
589
  q = strchr(p, '@');
 
590
  if (!q || q == p) {
 
591
    return NULL;
 
592
  }
 
593
  n = (int) (q - p);
 
594
  q++;
 
595
 
 
596
  len = strlen(tex_name) - n;
 
597
  fontname = NEW(len+1, char);
 
598
  memcpy(fontname, tex_name, m);
 
599
  fontname[m] = '\0';
 
600
  if (*q)
 
601
    strcat(fontname, q);
 
602
 
 
603
  *sfd_name = NEW(n+1, char);
 
604
  memcpy(*sfd_name, p, n);
 
605
  (*sfd_name)[n] = '\0';
 
606
 
 
607
  return  fontname;
 
608
}
 
609
 
 
610
static char *
 
611
make_subfont_name (const char *map_name, const char *sfd_name, const char *sub_id)
 
612
{
 
613
  char  *tfm_name;
 
614
  int    n, m;
 
615
  char  *p, *q;
 
616
 
 
617
  p = strchr(map_name, '@');
 
618
  if (!p || p == map_name)
 
619
    return  NULL;
 
620
  m = (int) (p - map_name);
 
621
  q = strchr(p + 1, '@');
 
622
  if (!q || q == p + 1)
 
623
    return  NULL;
 
624
  n = (int) (q - p) + 1; /* including two '@' */
 
625
  if (strlen(sfd_name) != n - 2 ||
 
626
      memcmp(p + 1, sfd_name, n - 2))
 
627
    return  NULL;
 
628
  tfm_name = NEW(strlen(map_name) - n + strlen(sub_id) + 1, char);
 
629
  memcpy(tfm_name, map_name, m);
 
630
  tfm_name[m] = '\0';
 
631
  strcat(tfm_name, sub_id);
 
632
  if (q[1]) /* not ending with '@' */
 
633
    strcat(tfm_name, q + 1);
 
634
 
 
635
  return  tfm_name;
 
636
}
 
637
 
 
638
/* "foo@A@ ..." is expanded to
 
639
 *   fooab ... -m sfd:A,ab
 
640
 *   ...
 
641
 *   fooyz ... -m sfd:A,yz
 
642
 * where 'ab' ... 'yz' is subfont IDs in SFD 'A'.
 
643
 */
 
644
int
 
645
pdf_append_fontmap_record (const char *kp, const fontmap_rec *vp)
 
646
{
 
647
  fontmap_rec *mrec;
 
648
  char        *fnt_name, *sfd_name = NULL;
 
649
 
 
650
  if (!kp || fontmap_invalid(vp)) {
 
651
    WARN("Invalid fontmap record...");
 
652
    return -1;
 
653
  }
 
654
 
 
655
  if (verbose > 3)
 
656
    MESG("fontmap>> append key=\"%s\"...", kp);
 
657
 
 
658
  fnt_name = chop_sfd_name(kp, &sfd_name);
 
659
  if (fnt_name && sfd_name) {
 
660
    char  *tfm_name;
 
661
    char **subfont_ids;
 
662
    int    n = 0;
 
663
    subfont_ids = sfd_get_subfont_ids(sfd_name, &n);
 
664
    if (!subfont_ids)
 
665
      return  -1;
 
666
    while (n-- > 0) {
 
667
      tfm_name = make_subfont_name(kp, sfd_name, subfont_ids[n]);
 
668
      if (!tfm_name)
 
669
        continue;
 
670
      mrec = ht_lookup_table(fontmap, tfm_name, strlen(tfm_name));
 
671
      if (!mrec) {
 
672
        mrec = NEW(1, fontmap_rec);
 
673
        pdf_init_fontmap_record(mrec);
 
674
        mrec->map_name = mstrdup(kp); /* link */
 
675
        mrec->charmap.sfd_name   = mstrdup(sfd_name);
 
676
        mrec->charmap.subfont_id = mstrdup(subfont_ids[n]);
 
677
        ht_insert_table(fontmap, tfm_name, strlen(tfm_name), mrec, hval_free);
 
678
      }
 
679
      RELEASE(tfm_name);
 
680
    }
 
681
    RELEASE(fnt_name);
 
682
    RELEASE(sfd_name);
 
683
  }
 
684
 
 
685
  mrec = ht_lookup_table(fontmap, kp, strlen(kp));
 
686
  if (!mrec) {
 
687
    mrec = NEW(1, fontmap_rec);
 
688
    pdf_copy_fontmap_record(mrec, vp);
 
689
    if (mrec->map_name && !strcmp(kp, mrec->map_name)) {
 
690
      RELEASE(mrec->map_name);
 
691
      mrec->map_name = NULL;
 
692
    }
 
693
    ht_insert_table(fontmap, kp, strlen(kp), mrec, hval_free);
 
694
  }
 
695
  if (verbose > 3)
 
696
    MESG("\n");
 
697
 
 
698
  return  0;
 
699
}
 
700
 
 
701
int
 
702
pdf_remove_fontmap_record (const char *kp)
 
703
{
 
704
  char  *fnt_name, *sfd_name = NULL;
 
705
 
 
706
  if (!kp)
 
707
    return  -1;
 
708
 
 
709
  if (verbose > 3)
 
710
    MESG("fontmap>> remove key=\"%s\"...", kp);
 
711
 
 
712
  fnt_name = chop_sfd_name(kp, &sfd_name);
 
713
  if (fnt_name && sfd_name) {
 
714
    char  *tfm_name;
 
715
    char **subfont_ids;
 
716
    int    n = 0;
 
717
    subfont_ids = sfd_get_subfont_ids(sfd_name, &n);
 
718
    if (!subfont_ids)
 
719
      return  -1;
 
720
    if (verbose > 3)
 
721
      MESG("\nfontmap>> Expand @%s@:", sfd_name);
 
722
    while (n-- > 0) {
 
723
      tfm_name = make_subfont_name(kp, sfd_name, subfont_ids[n]);
 
724
      if (!tfm_name)
 
725
        continue;
 
726
      if (verbose > 3)
 
727
        MESG(" %s", tfm_name);
 
728
      ht_remove_table(fontmap, tfm_name, strlen(tfm_name), hval_free);
 
729
      RELEASE(tfm_name);
 
730
    }
 
731
    RELEASE(fnt_name);
 
732
    RELEASE(sfd_name);
 
733
  }
 
734
 
 
735
  ht_remove_table(fontmap, kp, strlen(kp), hval_free);
 
736
 
 
737
  if (verbose > 3)
 
738
    MESG("\n");
 
739
 
 
740
  return  0;
 
741
}
 
742
 
 
743
int
 
744
pdf_insert_fontmap_record (const char *kp, const fontmap_rec *vp)
 
745
{
 
746
  fontmap_rec *mrec;
 
747
  char        *fnt_name, *sfd_name;
 
748
 
 
749
  if (!kp || fontmap_invalid(vp)) {
 
750
    WARN("Invalid fontmap record...");
 
751
    return -1;
 
752
  }
 
753
 
 
754
  if (verbose > 3)
 
755
    MESG("fontmap>> insert key=\"%s\"...", kp);
 
756
 
 
757
  fnt_name = chop_sfd_name(kp, &sfd_name);
 
758
  if (fnt_name && sfd_name) {
 
759
    char  *tfm_name;
 
760
    char **subfont_ids;
 
761
    int    n = 0;
 
762
    subfont_ids = sfd_get_subfont_ids(sfd_name, &n);
 
763
    if (!subfont_ids)
 
764
      return  -1;
 
765
    if (verbose > 3)
 
766
      MESG("\nfontmap>> Expand @%s@:", sfd_name);
 
767
    while (n-- > 0) {
 
768
      tfm_name = make_subfont_name(kp, sfd_name, subfont_ids[n]);
 
769
      if (!tfm_name)
 
770
        continue;
 
771
      if (verbose > 3)
 
772
        MESG(" %s", tfm_name);
 
773
      mrec = NEW(1, fontmap_rec);
 
774
      pdf_init_fontmap_record(mrec);
 
775
      mrec->map_name = mstrdup(kp); /* link to this entry */
 
776
      mrec->charmap.sfd_name   = mstrdup(sfd_name);
 
777
      mrec->charmap.subfont_id = mstrdup(subfont_ids[n]);
 
778
      ht_insert_table(fontmap, tfm_name, strlen(tfm_name), mrec, hval_free);
 
779
      RELEASE(tfm_name);
 
780
    }
 
781
    RELEASE(fnt_name);
 
782
    RELEASE(sfd_name);
 
783
  }
 
784
 
 
785
  mrec = NEW(1, fontmap_rec);
 
786
  pdf_copy_fontmap_record(mrec, vp);
 
787
  if (mrec->map_name && !strcmp(kp, mrec->map_name)) {
 
788
    RELEASE(mrec->map_name);
 
789
    mrec->map_name = NULL;
 
790
  }
 
791
  ht_insert_table(fontmap, kp, strlen(kp), mrec, hval_free);
 
792
 
 
793
  if (verbose > 3)
 
794
    MESG("\n");
 
795
 
 
796
  return  0;
 
797
}
 
798
 
 
799
 
 
800
int
 
801
pdf_read_fontmap_line (fontmap_rec *mrec, const char *mline, long mline_len)
 
802
{
 
803
  int    error;
 
804
  char  *q, *p, *endptr;
 
805
 
 
806
 
 
807
  ASSERT(mrec);
 
808
 
 
809
  p      = (char *) mline;
 
810
  endptr = p + mline_len;
 
811
 
 
812
  skip_blank(&p, endptr);
 
813
  if (p >= endptr)
 
814
    return -1;
 
815
 
 
816
  q = parse_string_value(&p, endptr);
 
817
  if (!q)
 
818
    return -1;
 
819
 
 
820
  error = fontmap_parse_mapdef(mrec, p, endptr);
 
821
  if (!error) {
 
822
    char  *fnt_name, *sfd_name = NULL;
 
823
    fnt_name = chop_sfd_name(q, &sfd_name);
 
824
    if (fnt_name && sfd_name) {
 
825
      if (!mrec->font_name) {
 
826
      /* In the case of subfonts, the base name (before the character '@')
 
827
       * will be used as a font_name by default.
 
828
       * Otherwise tex_name will be used as a font_name by default.
 
829
       */
 
830
        mrec->font_name = fnt_name;
 
831
      } else {
 
832
        RELEASE(fnt_name);
 
833
      }
 
834
      if (mrec->charmap.sfd_name)
 
835
        RELEASE(mrec->charmap.sfd_name);
 
836
      mrec->charmap.sfd_name = sfd_name ;
 
837
    }
 
838
    fill_in_defaults(mrec, q);
 
839
  }
 
840
  RELEASE(q);
 
841
 
 
842
  return  error;
 
843
}
 
844
 
 
845
/* Dvips format:
 
846
 *  String enclosed by '"' --> PostScript code(!)
 
847
 *  '<' or '<<' followed by *.enc, *.pfb, or *.pfa
 
848
 */
 
849
static int
 
850
is_pdfm_mapline (const char *mline) /* NULL terminated. */
 
851
{
 
852
  int    r = 1;
 
853
  char  *q, *p, *endptr;
 
854
 
 
855
  p      = (char *) mline;
 
856
  endptr = p + strlen(mline);
 
857
 
 
858
  skip_blank(&p, endptr);
 
859
  /* Break if '-' preceeded by blanks is found. */
 
860
  while (r && p < endptr && *p != '-') {
 
861
    switch (p[0]) {
 
862
    case  '"':
 
863
      q = parse_c_string(&p, endptr); /* wrong */
 
864
      if (q) {
 
865
        if (strstr(q, "SlantFont")  ||
 
866
            strstr(q, "ExtendFont") ||
 
867
            strstr(q, "ReEncodeFont")) {
 
868
          r = 0;
 
869
        }
 
870
        RELEASE(q);
 
871
      }
 
872
      break;
 
873
    case  '<':
 
874
      r = 0;
 
875
      break;
 
876
    }
 
877
    for ( ; p < endptr && !ISBLANK(*p); p++);
 
878
    skip_blank(&p, endptr);
 
879
  }
 
880
 
 
881
  return  r;
 
882
}
 
883
 
 
884
static void
 
885
delete_records (FILE *fp, long num_lines)
 
886
{
 
887
  char *q, *p;
 
888
 
 
889
  while (num_lines-- > 0 &&
 
890
         (p = readline(work_buffer, WORK_BUFFER_SIZE, fp)) != NULL) {
 
891
    skip_blank(&p, p + strlen(p));
 
892
    if (*p == 0)
 
893
      continue;
 
894
    q = parse_string_value(&p, p + strlen(p));
 
895
    if (q) {
 
896
      WARN("Deleting fontmap record for \"%s\"", q);
 
897
      pdf_remove_fontmap_record(q);
 
898
      RELEASE(q);
 
899
    }
 
900
  }
 
901
  return;
 
902
}
 
903
 
 
904
int
 
905
pdf_load_fontmap_file (const char *filename, int mode)
 
906
{
 
907
  fontmap_rec *mrec;
 
908
  FILE        *fp;
 
909
  char        *p = NULL, *endptr;
 
910
  long         llen, lpos  = 0;
 
911
  int          error = 0;
 
912
 
 
913
  ASSERT(filename);
 
914
  ASSERT(fontmap) ;
 
915
 
 
916
  if (verbose)
 
917
    MESG("<FONTMAP:%s", filename);
 
918
 
 
919
  fp = DPXFOPEN(filename, DPX_RES_TYPE_FONTMAP);
 
920
  if (!fp) {
 
921
    WARN("Couldn't open font map file \"%s\".", filename);
 
922
    return  -1;
 
923
  }
 
924
 
 
925
  while (!error &&
 
926
         (p = readline(work_buffer, WORK_BUFFER_SIZE, fp)) != NULL) {
 
927
 
 
928
    lpos++;
 
929
    llen   = strlen(work_buffer);
 
930
    endptr = p + llen;
 
931
 
 
932
    skip_blank(&p, endptr);
 
933
    if (p == endptr)
 
934
      continue;
 
935
 
 
936
    if (!is_pdfm_mapline(p)) {
 
937
      WARN("This .map file looks like a dvips format fontmap file.");
 
938
      WARN("-- Current input buffer is: %s", p);
 
939
      WARN("-- Reading fontmap file stopped at: file=\"%s\", line=%d.",
 
940
           filename, lpos);
 
941
      rewind(fp);
 
942
      delete_records(fp, lpos - 1);
 
943
      break;
 
944
    }
 
945
 
 
946
    mrec  = NEW(1, fontmap_rec);
 
947
    pdf_init_fontmap_record(mrec);
 
948
    error = pdf_read_fontmap_line(mrec, p, llen);
 
949
    if (error) {
 
950
      WARN("Invalid map record in fontmap file.");
 
951
      WARN("-- Current input buffer is: %s", p);
 
952
      WARN("-- Reading fontmap file stopped at: file=\"%s\", line=%d.",
 
953
           filename, lpos);
 
954
      rewind(fp);
 
955
      delete_records(fp, lpos - 1);
 
956
    } else {
 
957
      switch (mode) {
 
958
      case FONTMAP_RMODE_REPLACE:
 
959
        pdf_insert_fontmap_record(mrec->map_name, mrec);
 
960
        break;
 
961
      case FONTMAP_RMODE_APPEND:
 
962
        pdf_append_fontmap_record(mrec->map_name, mrec);
 
963
        break;
 
964
      case FONTMAP_RMODE_REMOVE:
 
965
        pdf_remove_fontmap_record(mrec->map_name);
 
966
        break;
 
967
      }
 
968
    }
 
969
    pdf_clear_fontmap_record(mrec);
 
970
    RELEASE(mrec);
 
971
  }
 
972
  DPXFCLOSE(fp);
 
973
 
 
974
  if (verbose)
 
975
    MESG(">");
 
976
 
 
977
  return  error;
 
978
}
 
979
 
 
980
#ifdef XETEX
 
981
 
 
982
static int
 
983
pdf_insert_native_fontmap_record (const char *name, const char *path, int index, FT_Face face, int layout_dir)
 
984
{
 
985
  char        *fontmap_key;
 
986
  fontmap_rec *mrec;
 
987
 
 
988
  ASSERT(name);
 
989
  ASSERT(path || face);
 
990
 
 
991
  fontmap_key = malloc(strlen(name) + 3);
 
992
  sprintf(fontmap_key, "%s/%c", name, layout_dir == 0 ? 'H' : 'V');
 
993
 
 
994
  if (verbose)
 
995
    MESG("<NATIVE-FONTMAP:%s", fontmap_key);
 
996
 
 
997
  mrec  = NEW(1, fontmap_rec);
 
998
  pdf_init_fontmap_record(mrec);
 
999
 
 
1000
  mrec->map_name  = mstrdup(fontmap_key);
 
1001
  mrec->enc_name  = mstrdup(layout_dir == 0 ? "Identity-H" : "Identity-V");
 
1002
  mrec->font_name = (path != NULL) ? mstrdup(path) : NULL;
 
1003
  mrec->opt.index = index;
 
1004
  mrec->opt.ft_face = face;
 
1005
  mrec->opt.glyph_widths = NULL;
 
1006
  if (layout_dir != 0)
 
1007
    mrec->opt.flags |= FONTMAP_OPT_VERT;
 
1008
 
 
1009
  fill_in_defaults(mrec, fontmap_key);
 
1010
  pdf_insert_fontmap_record(mrec->map_name, mrec);
 
1011
  pdf_clear_fontmap_record(mrec);
 
1012
  RELEASE(mrec);
 
1013
 
 
1014
  if (verbose)
 
1015
    MESG(">");
 
1016
 
 
1017
  return 0;
 
1018
}
 
1019
 
 
1020
static FT_Library ftLib;
 
1021
 
 
1022
static int
 
1023
pdf_load_native_font_from_path(const char *ps_name, int layout_dir)
 
1024
{
 
1025
  const char *p;
 
1026
  char *filename = NEW(strlen(ps_name), char);
 
1027
  char *q = filename;
 
1028
  int  index = 0;
 
1029
  FT_Face face = NULL;
 
1030
  int  error = -1;
 
1031
  
 
1032
#ifdef WIN32
 
1033
  for (p = ps_name + 1; *p && *p != ']'; ++p) {
 
1034
    if (*p == ':') {
 
1035
      if (p == ps_name+2 && isalpha(*(p-1)) && (*(p+1) == '/' || *(p+1) == '\\'))
 
1036
        *q++ = *p;
 
1037
      else
 
1038
        break;
 
1039
    }
 
1040
    else
 
1041
      *q++ = *p;
 
1042
  }
 
1043
#else
 
1044
  for (p = ps_name + 1; *p && *p != ':' && *p != ']'; ++p)
 
1045
    *q++ = *p;
 
1046
#endif
 
1047
  *q = 0;
 
1048
  if (*p == ':') {
 
1049
    ++p;
 
1050
    while (*p && *p != ']')
 
1051
      index = index * 10 + *p++ - '0';
 
1052
  }
 
1053
  
 
1054
  if (   (q = dpx_find_opentype_file(filename)) != NULL
 
1055
      || (q = dpx_find_truetype_file(filename)) != NULL
 
1056
      || (q = dpx_find_type1_file(filename)) != NULL) {
 
1057
    error = FT_New_Face(ftLib, q, index, &face);
 
1058
    RELEASE(q);
 
1059
  }
 
1060
 
 
1061
  if (error == 0)
 
1062
    return pdf_insert_native_fontmap_record(ps_name, filename, index, face, layout_dir);
 
1063
  else
 
1064
    return error;
 
1065
}
 
1066
 
 
1067
int
 
1068
pdf_load_native_font (const char *ps_name,
 
1069
                      const char *fam_name, const char *sty_name,
 
1070
                      int layout_dir)
 
1071
{
 
1072
  static int        sInitialized = 0;
 
1073
  int error = -1;
 
1074
 
 
1075
#ifdef XETEX_MAC
 
1076
 
 
1077
  if (!sInitialized) {
 
1078
    if (FT_Init_FreeType(&ftLib) != 0) {
 
1079
      WARN("FreeType initialization failed.");
 
1080
      return error;
 
1081
    }
 
1082
    sInitialized = 1;
 
1083
  }
 
1084
  
 
1085
  if (ps_name[0] == '[') {
 
1086
    error = pdf_load_native_font_from_path(ps_name, layout_dir);
 
1087
  }
 
1088
  else {
 
1089
    ATSFontRef  fontRef;
 
1090
    CFStringRef theName = CFStringCreateWithCStringNoCopy(kCFAllocatorDefault,
 
1091
                            ps_name, kCFStringEncodingASCII, kCFAllocatorNull);
 
1092
    fontRef = ATSFontFindFromPostScriptName(theName, kATSOptionFlagsDefault);
 
1093
    CFRelease(theName);
 
1094
    if (fontRef != 0) {
 
1095
      CFStringRef atsName = NULL;
 
1096
      OSStatus status = ATSFontGetName(fontRef, kATSOptionFlagsDefault, &atsName);
 
1097
      if (status == noErr) {
 
1098
        FSSpec   pathSpec;
 
1099
        FT_Long  index;
 
1100
        int bufferSize = CFStringGetLength(atsName) * 4 + 1;
 
1101
        char* fontName = NEW(bufferSize, char);
 
1102
        if (CFStringGetCString(atsName, fontName, bufferSize, kCFStringEncodingUTF8)) {
 
1103
          FT_Error ftErr = FT_GetFile_From_Mac_ATS_Name(fontName, &pathSpec, &index);
 
1104
          if (ftErr == 0) {
 
1105
            FT_Face face;
 
1106
            ftErr = FT_New_Face_From_FSSpec(ftLib, &pathSpec, index, &face);
 
1107
            if (ftErr == 0) {
 
1108
              error = pdf_insert_native_fontmap_record(ps_name, NULL, 0, face, layout_dir);
 
1109
            }
 
1110
          }
 
1111
        }
 
1112
        RELEASE(fontName);
 
1113
      }
 
1114
      CFRelease(atsName);
 
1115
    }
 
1116
  }
 
1117
 
 
1118
#else
 
1119
 
 
1120
  int i;
 
1121
 
 
1122
  FcObjectSet *os;
 
1123
  FcPattern   *pat;
 
1124
  FcFontSet   *matches;
 
1125
 
 
1126
  if (!sInitialized) {
 
1127
    if (FcInit() == FcFalse) {
 
1128
      WARN("Fontconfig initialization failed.");
 
1129
      return error;
 
1130
    }
 
1131
    if (FT_Init_FreeType(&ftLib) != 0) {
 
1132
      WARN("FreeType initialization failed.");
 
1133
      return error;
 
1134
    }
 
1135
    sInitialized = 1;
 
1136
  }
 
1137
 
 
1138
  if (ps_name[0] == '[') {
 
1139
    error = pdf_load_native_font_from_path(ps_name, layout_dir);
 
1140
  }
 
1141
  else {
 
1142
    os = FcObjectSetBuild(FC_FILE, FC_INDEX, FC_FAMILY, FC_STYLE, NULL);
 
1143
    pat = FcPatternBuild(0, FC_FAMILY,  FcTypeString, fam_name,
 
1144
                            FC_STYLE,   FcTypeString, sty_name,
 
1145
                            FC_OUTLINE, FcTypeBool,   FcTrue, NULL);
 
1146
    matches = FcFontList(FcConfigGetCurrent(), pat, os);
 
1147
    FcObjectSetDestroy(os);
 
1148
    FcPatternDestroy(pat);
 
1149
 
 
1150
    for (i = 0; i < matches->nfont; i++) {
 
1151
      FcChar8 *path;
 
1152
      char    *name;
 
1153
      int      index;
 
1154
      FT_Face  face;
 
1155
      if (FcPatternGetString(matches->fonts[i],
 
1156
                             FC_FILE, 0, &path) == FcResultMatch &&
 
1157
          FcPatternGetInteger(matches->fonts[i],
 
1158
                              FC_INDEX, 0, &index) == FcResultMatch) {
 
1159
        FT_New_Face(ftLib, (char*)path, index, &face);
 
1160
        name = (char *)FT_Get_Postscript_Name(face);
 
1161
        if (!strcmp(name, ps_name)) {
 
1162
          error = pdf_insert_native_fontmap_record(ps_name, (char*)path, index, face, layout_dir);
 
1163
          /* don't dispose of the FT_Face, as we'll be using it to retrieve font data */
 
1164
          break;
 
1165
        }
 
1166
        FT_Done_Face(face);
 
1167
      }
 
1168
    }
 
1169
  }
 
1170
 
 
1171
#endif
 
1172
 
 
1173
  return error;
 
1174
}
 
1175
#endif
 
1176
 
 
1177
#if  0
 
1178
/* tfm_name="dmjhira10", map_name="dmj@DNP@10", sfd_name="DNP"
 
1179
 *  --> sub_id="hira"
 
1180
 * Test if tfm_name can be really considered as subfont.
 
1181
 */
 
1182
static int
 
1183
test_subfont (const char *tfm_name, const char *map_name, const char *sfd_name)
 
1184
{
 
1185
  int    r = 0;
 
1186
  char **ids;
 
1187
  int    n, m;
 
1188
  char  *p = (char *) map_name;
 
1189
  char  *q = (char *) tfm_name;
 
1190
 
 
1191
  ASSERT( tfm_name && map_name && sfd_name );
 
1192
 
 
1193
  /* until first occurence of '@' */
 
1194
  for ( ; *p && *q && *p == *q && *p != '@'; p++, q++);
 
1195
  if (*p != '@')
 
1196
    return  0;
 
1197
  p++;
 
1198
  /* compare sfd_name (should be always true here) */
 
1199
  if (strlen(p) <= strlen(sfd_name) ||
 
1200
      memcmp(p, sfd_name, strlen(sfd_name)) ||
 
1201
      p[strlen(sfd_name)] != '@')
 
1202
    return  0;
 
1203
  /* check tfm_name follows second '@' */
 
1204
  p += strlen(sfd_name) + 1;
 
1205
  if (*p) {
 
1206
    char  *r = (char *) tfm_name;
 
1207
    r += strlen(tfm_name) - strlen(p);
 
1208
    if (strcmp(r, p))
 
1209
      return  0;
 
1210
  }
 
1211
  /* Now 'p' is located at next to SFD name terminator
 
1212
   * (second '@') in map_name and 'q' is at first char
 
1213
   * of subfont_id substring in tfm_name.
 
1214
   */
 
1215
  n  = strlen(q) - strlen(p); /* length of subfont_id string */
 
1216
  if (n <= 0)
 
1217
    return  0;
 
1218
  /* check if n-length substring 'q' is valid as subfont ID */
 
1219
  ids = sfd_get_subfont_ids(sfd_name, &m);
 
1220
  if (!ids)
 
1221
    return  0;
 
1222
  while (!r && m-- > 0) {
 
1223
    if (strlen(ids[m]) == n &&
 
1224
        !memcmp(q, ids[m], n)) {
 
1225
      r = 1;
 
1226
    }
 
1227
  }
 
1228
 
 
1229
  return  r;
 
1230
}
 
1231
#endif  /* 0 */
 
1232
 
 
1233
 
 
1234
fontmap_rec *
 
1235
pdf_lookup_fontmap_record (const char *tfm_name)
 
1236
{
 
1237
  fontmap_rec *mrec = NULL;
 
1238
 
 
1239
  if (fontmap && tfm_name)
 
1240
    mrec = ht_lookup_table(fontmap, tfm_name, strlen(tfm_name));
 
1241
 
 
1242
  return  mrec;
 
1243
}
 
1244
 
 
1245
 
 
1246
void
 
1247
pdf_init_fontmaps (void)
 
1248
{
 
1249
  fontmap = NEW(1, struct ht_table);
 
1250
  ht_init_table(fontmap);
 
1251
}
 
1252
 
 
1253
void
 
1254
pdf_close_fontmaps (void)
 
1255
{
 
1256
  if (fontmap) {
 
1257
    ht_clear_table(fontmap, hval_free);
 
1258
    RELEASE(fontmap);
 
1259
  }
 
1260
  fontmap = NULL;
 
1261
}
 
1262
 
 
1263
void
 
1264
pdf_clear_fontmaps (void)
 
1265
{
 
1266
  pdf_close_fontmaps();
 
1267
  pdf_init_fontmaps();
 
1268
}
 
1269
 
 
1270
/* CIDFont options
 
1271
 *
 
1272
 * FORMAT:
 
1273
 *
 
1274
 *   (:int:)?!?string(/string)?(,string)?
 
1275
 */
 
1276
 
 
1277
static char *
 
1278
substr (char **str, char stop)
 
1279
{
 
1280
  char *sstr, *endptr;
 
1281
 
 
1282
  endptr = strchr(*str, stop);
 
1283
  if (!endptr || endptr == *str)
 
1284
    return NULL;
 
1285
  sstr = NEW(endptr-(*str)+1, char);
 
1286
  memcpy(sstr, *str, endptr-(*str));
 
1287
  sstr[endptr-(*str)] = '\0';
 
1288
 
 
1289
  *str = endptr+1;
 
1290
  return sstr;
 
1291
}
 
1292
 
 
1293
#include <ctype.h>
 
1294
#define CID_MAPREC_CSI_DELIM '/'
 
1295
 
 
1296
static char *
 
1297
strip_options (const char *map_name, fontmap_opt *opt)
 
1298
{
 
1299
  char *font_name;
 
1300
  char *p, *next = NULL;
 
1301
  int   have_csi = 0, have_style = 0;
 
1302
 
 
1303
  ASSERT(opt);
 
1304
 
 
1305
  p = (char *) map_name;
 
1306
  font_name      = NULL;
 
1307
  opt->charcoll  = NULL;
 
1308
  opt->index     = 0;
 
1309
  opt->style     = FONTMAP_STYLE_NONE;
 
1310
  opt->flags     = 0;
 
1311
 
 
1312
  if (*p == ':' && isdigit(*(p+1))) {
 
1313
    opt->index = (int) strtoul(p+1, &next, 10);
 
1314
    if (*next == ':')
 
1315
      p = next + 1;
 
1316
    else {
 
1317
      opt->index = 0;
 
1318
    }
 
1319
  }
 
1320
  if (*p == '!') { /* no-embedding */
 
1321
    if (*(++p) == '\0')
 
1322
      ERROR("Invalid map record: %s (--> %s)", map_name, p);
 
1323
    opt->flags |= FONTMAP_OPT_NOEMBED;
 
1324
  }
 
1325
 
 
1326
  if ((next = strchr(p, CID_MAPREC_CSI_DELIM)) != NULL) {
 
1327
    if (next == p)
 
1328
      ERROR("Invalid map record: %s (--> %s)", map_name, p);
 
1329
    font_name = substr(&p, CID_MAPREC_CSI_DELIM);
 
1330
    have_csi  = 1;
 
1331
  } else if ((next = strchr(p, ',')) != NULL) {
 
1332
    if (next == p)
 
1333
      ERROR("Invalid map record: %s (--> %s)", map_name, p);
 
1334
    font_name = substr(&p, ',');
 
1335
    have_style = 1;
 
1336
  } else {
 
1337
    font_name = NEW(strlen(p)+1, char);
 
1338
    strcpy(font_name, p);
 
1339
  }
 
1340
 
 
1341
  if (have_csi) {
 
1342
    if ((next = strchr(p, ',')) != NULL) {
 
1343
      opt->charcoll = substr(&p, ',');
 
1344
      have_style = 1;
 
1345
    } else if (p[0] == '\0') {
 
1346
      ERROR("Invalid map record: %s.", map_name);
 
1347
    } else {
 
1348
      opt->charcoll = NEW(strlen(p)+1, char);
 
1349
      strcpy(opt->charcoll, p);
 
1350
    }
 
1351
  }
 
1352
 
 
1353
  if (have_style) {
 
1354
    if (!strncmp(p, "BoldItalic", 10)) {
 
1355
      if (*(p+10))
 
1356
        ERROR("Invalid map record: %s (--> %s)", map_name, p);
 
1357
      opt->style = FONTMAP_STYLE_BOLDITALIC;
 
1358
    } else if (!strncmp(p, "Bold", 4)) {
 
1359
      if (*(p+4))
 
1360
        ERROR("Invalid map record: %s (--> %s)", map_name, p);
 
1361
      opt->style = FONTMAP_STYLE_BOLD;
 
1362
    } else if (!strncmp(p, "Italic", 6)) {
 
1363
      if (*(p+6))
 
1364
        ERROR("Invalid map record: %s (--> %s)", map_name, p);
 
1365
      opt->style = FONTMAP_STYLE_ITALIC;
 
1366
    }
 
1367
  }
 
1368
 
 
1369
  return font_name;
 
1370
}
 
1371
 
 
1372
#if  DPXTEST
 
1373
static void
 
1374
dump_fontmap_rec (const char *key, const fontmap_rec *mrec)
 
1375
{
 
1376
  fontmap_opt *opt = (fontmap_opt *) &mrec->opt;
 
1377
 
 
1378
  if (mrec->map_name)
 
1379
    fprintf(stdout, "  <!-- subfont");
 
1380
  else
 
1381
    fprintf(stdout, "  <insert");
 
1382
  fprintf(stdout, " id=\"%s\"", key);
 
1383
  if (mrec->map_name)
 
1384
    fprintf(stdout, " map-name=\"%s\"", mrec->map_name);
 
1385
  if (mrec->enc_name)
 
1386
    fprintf(stdout, " enc-name=\"%s\"",  mrec->enc_name);
 
1387
  if (mrec->font_name)
 
1388
    fprintf(stdout, " font-name=\"%s\"", mrec->font_name);
 
1389
  if (mrec->charmap.sfd_name && mrec->charmap.subfont_id) {
 
1390
    fprintf(stdout, " charmap=\"sfd:%s,%s\"",
 
1391
            mrec->charmap.sfd_name, mrec->charmap.subfont_id);
 
1392
  }
 
1393
  if (opt->slant != 0.0)
 
1394
    fprintf(stdout, " font-slant=\"%g\"", opt->slant);
 
1395
  if (opt->extend != 1.0)
 
1396
    fprintf(stdout, " font-extend=\"%g\"", opt->extend);
 
1397
  if (opt->charcoll)
 
1398
    fprintf(stdout, " glyph-order=\"%s\"", opt->charcoll);
 
1399
  if (opt->tounicode)
 
1400
    fprintf(stdout, " tounicode=\"%s\"", opt->tounicode);
 
1401
  if (opt->index != 0)
 
1402
    fprintf(stdout, " ttc-index=\"%d\"", opt->index);
 
1403
  if (opt->flags & FONTMAP_OPT_REMAP)
 
1404
    fprintf(stdout, " remap=\"true\"");
 
1405
  if (opt->flags & FONTMAP_OPT_NOEMBED)
 
1406
    fprintf(stdout, " embedding=\"no\"");
 
1407
  if (opt->mapc >= 0) {
 
1408
    fprintf(stdout, " charmap=\"pad:");
 
1409
    if (opt->mapc > 0xffff)
 
1410
      fprintf(stdout, "%02x %02x", (opt->mapc >> 16) & 0xff, (opt->mapc >> 8) & 0xff);
 
1411
    else
 
1412
      fprintf(stdout, "%02x", (opt->mapc >> 8) & 0xff);
 
1413
    fprintf(stdout, "\"");
 
1414
  }
 
1415
  if (opt->flags & FONTMAP_OPT_VERT)
 
1416
    fprintf(stdout, " writing-mode=\"vertical\"");
 
1417
  if (opt->style != FONTMAP_STYLE_NONE) {
 
1418
    fprintf(stdout, " font-style=\"");
 
1419
    switch (opt->style) {
 
1420
    case FONTMAP_STYLE_BOLD:
 
1421
      fprintf(stdout, "bold");
 
1422
      break;
 
1423
    case FONTMAP_STYLE_ITALIC:
 
1424
      fprintf(stdout, "italic");
 
1425
      break;
 
1426
    case FONTMAP_STYLE_BOLDITALIC:
 
1427
      fprintf(stdout, "bolditalic");
 
1428
      break;
 
1429
    }
 
1430
    fprintf(stdout, "\"");
 
1431
  }
 
1432
  if (mrec->map_name)
 
1433
    fprintf(stdout, " / -->\n");
 
1434
  else
 
1435
    fprintf(stdout, " />\n");
 
1436
}
 
1437
 
 
1438
void
 
1439
dump_fontmaps (void)
 
1440
{
 
1441
  struct ht_iter iter;
 
1442
  fontmap_rec   *mrec;
 
1443
  char           key[128], *kp;
 
1444
  int            kl;
 
1445
 
 
1446
  if (!fontmap)
 
1447
    return;
 
1448
 
 
1449
  fprintf(stdout, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n");
 
1450
  fprintf(stdout, "<!DOCTYPE fontmap SYSTEM \"fontmap.dtd\">\n");
 
1451
  fprintf(stdout, "<fontmap id=\"%s\">\n", "foo");
 
1452
  if (ht_set_iter(fontmap, &iter) == 0) {
 
1453
    do {
 
1454
      kp   = ht_iter_getkey(&iter, &kl);
 
1455
      mrec = ht_iter_getval(&iter);
 
1456
      if (kl > 127)
 
1457
        continue;
 
1458
      memcpy(key, kp, kl); key[kl] = 0;
 
1459
      dump_fontmap_rec(key, mrec);
 
1460
    } while (!ht_iter_next(&iter));
 
1461
  }
 
1462
  ht_clear_iter(&iter);
 
1463
  fprintf(stdout, "</fontmap>\n");
 
1464
 
 
1465
  return;
 
1466
}
 
1467
 
 
1468
void
 
1469
test_fontmap_help (void)
 
1470
{
 
1471
  fprintf(stdout, "usage: fontmap [options] [mapfile...]\n");
 
1472
  fprintf(stdout, "-l, --lookup string\n");
 
1473
  fprintf(stdout, "  Lookup fontmap entry for 'string' after loading mapfile(s).\n");
 
1474
}
 
1475
 
 
1476
int
 
1477
test_fontmap_main (int argc, char *argv[])
 
1478
{
 
1479
  int    i;
 
1480
  char  *key = NULL;
 
1481
 
 
1482
  for (;;) {
 
1483
    int  c, optidx = 0;
 
1484
    static struct option long_options[] = {
 
1485
      {"lookup", 1, 0, 'l'},
 
1486
      {"help",   0, 0, 'h'},
 
1487
      {0, 0, 0, 0}
 
1488
    };
 
1489
    c = getopt_long(argc, argv, "l:h", long_options, &optidx);
 
1490
    if (c == -1)
 
1491
      break;
 
1492
 
 
1493
    switch (c) {
 
1494
    case  'l':
 
1495
      key = optarg;
 
1496
      break;
 
1497
    case  'h':
 
1498
      test_fontmap_help();
 
1499
      return  0;
 
1500
      break;
 
1501
    default:
 
1502
      test_fontmap_help();
 
1503
      return  -1;
 
1504
      break;
 
1505
    }
 
1506
  }
 
1507
 
 
1508
  pdf_init_fontmaps();
 
1509
  for (i = optind; i < argc; i++)
 
1510
    pdf_load_fontmap_file(argv[i], FONTMAP_RMODE_REPLACE);
 
1511
 
 
1512
  if (key == NULL)
 
1513
    dump_fontmaps();
 
1514
  else {
 
1515
    fontmap_rec *mrec;
 
1516
    mrec = pdf_lookup_fontmap_record(key);
 
1517
    if (mrec)
 
1518
      dump_fontmap_rec(key, mrec);
 
1519
    else {
 
1520
      WARN("Fontmap entry \"%s\" not found.", key);
 
1521
    }
 
1522
  }
 
1523
  pdf_close_fontmaps();
 
1524
 
 
1525
  return  0;
 
1526
}
 
1527
#endif /* DPXTEST */