XFA: merge patch from CL 817753002
[pdfium.git] / core / src / fxge / fx_freetype / fxft2.5.01 / src / cff / cffobjs.c
1 /***************************************************************************/
2 /*                                                                         */
3 /*  cffobjs.c                                                              */
4 /*                                                                         */
5 /*    OpenType objects manager (body).                                     */
6 /*                                                                         */
7 /*  Copyright 1996-2013 by                                                 */
8 /*  David Turner, Robert Wilhelm, and Werner Lemberg.                      */
9 /*                                                                         */
10 /*  This file is part of the FreeType project, and may only be used,       */
11 /*  modified, and distributed under the terms of the FreeType project      */
12 /*  license, LICENSE.TXT.  By continuing to use, modify, or distribute     */
13 /*  this file you indicate that you have read the license and              */
14 /*  understand and accept it fully.                                        */
15 /*                                                                         */
16 /***************************************************************************/
17
18
19 #include "../../include/ft2build.h"
20
21 #include "../../include/freetype/internal/ftdebug.h"
22 #include "../../include/freetype/internal/ftcalc.h"
23 #include "../../include/freetype/internal/ftstream.h"
24 #include "../../include/freetype/fterrors.h"
25 #include "../../include/freetype/ttnameid.h"
26 #include "../../include/freetype/tttags.h"
27 #include "../../include/freetype/internal/sfnt.h"
28 #include "../../include/freetype/ftcffdrv.h"
29
30 #include "cffobjs.h"
31 #include "cffload.h"
32 #include "cffcmap.h"
33 #include "cffpic.h"
34
35 #include "cfferrs.h"
36
37
38   /*************************************************************************/
39   /*                                                                       */
40   /* The macro FT_COMPONENT is used in trace mode.  It is an implicit      */
41   /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log  */
42   /* messages during execution.                                            */
43   /*                                                                       */
44 #undef  FT_COMPONENT
45 #define FT_COMPONENT  trace_cffobjs
46
47
48   /*************************************************************************/
49   /*                                                                       */
50   /*                            SIZE FUNCTIONS                             */
51   /*                                                                       */
52   /*  Note that we store the global hints in the size's `internal' root    */
53   /*  field.                                                               */
54   /*                                                                       */
55   /*************************************************************************/
56
57
58   static PSH_Globals_Funcs
59   cff_size_get_globals_funcs( CFF_Size  size )
60   {
61     CFF_Face          face     = (CFF_Face)size->root.face;
62     CFF_Font          font     = (CFF_Font)face->extra.data;
63     PSHinter_Service  pshinter = font->pshinter;
64     FT_Module         module;
65
66
67     module = FT_Get_Module( size->root.face->driver->root.library,
68                             "pshinter" );
69     return ( module && pshinter && pshinter->get_globals_funcs )
70            ? pshinter->get_globals_funcs( module )
71            : 0;
72   }
73
74
75   FT_LOCAL_DEF( void )
76   cff_size_done( FT_Size  cffsize )        /* CFF_Size */
77   {
78     CFF_Size      size     = (CFF_Size)cffsize;
79     CFF_Face      face     = (CFF_Face)size->root.face;
80     CFF_Font      font     = (CFF_Font)face->extra.data;
81     CFF_Internal  internal = (CFF_Internal)cffsize->internal;
82
83
84     if ( internal )
85     {
86       PSH_Globals_Funcs  funcs;
87
88
89       funcs = cff_size_get_globals_funcs( size );
90       if ( funcs )
91       {
92         FT_UInt  i;
93
94
95         funcs->destroy( internal->topfont );
96
97         for ( i = font->num_subfonts; i > 0; i-- )
98           funcs->destroy( internal->subfonts[i - 1] );
99       }
100
101       /* `internal' is freed by destroy_size (in ftobjs.c) */
102     }
103   }
104
105
106   /* CFF and Type 1 private dictionaries have slightly different      */
107   /* structures; we need to synthesize a Type 1 dictionary on the fly */
108
109   static void
110   cff_make_private_dict( CFF_SubFont  subfont,
111                          PS_Private   priv )
112   {
113     CFF_Private  cpriv = &subfont->private_dict;
114     FT_UInt      n, count;
115
116
117     FT_MEM_ZERO( priv, sizeof ( *priv ) );
118
119     count = priv->num_blue_values = cpriv->num_blue_values;
120     for ( n = 0; n < count; n++ )
121       priv->blue_values[n] = (FT_Short)cpriv->blue_values[n];
122
123     count = priv->num_other_blues = cpriv->num_other_blues;
124     for ( n = 0; n < count; n++ )
125       priv->other_blues[n] = (FT_Short)cpriv->other_blues[n];
126
127     count = priv->num_family_blues = cpriv->num_family_blues;
128     for ( n = 0; n < count; n++ )
129       priv->family_blues[n] = (FT_Short)cpriv->family_blues[n];
130
131     count = priv->num_family_other_blues = cpriv->num_family_other_blues;
132     for ( n = 0; n < count; n++ )
133       priv->family_other_blues[n] = (FT_Short)cpriv->family_other_blues[n];
134
135     priv->blue_scale = cpriv->blue_scale;
136     priv->blue_shift = (FT_Int)cpriv->blue_shift;
137     priv->blue_fuzz  = (FT_Int)cpriv->blue_fuzz;
138
139     priv->standard_width[0]  = (FT_UShort)cpriv->standard_width;
140     priv->standard_height[0] = (FT_UShort)cpriv->standard_height;
141
142     count = priv->num_snap_widths = cpriv->num_snap_widths;
143     for ( n = 0; n < count; n++ )
144       priv->snap_widths[n] = (FT_Short)cpriv->snap_widths[n];
145
146     count = priv->num_snap_heights = cpriv->num_snap_heights;
147     for ( n = 0; n < count; n++ )
148       priv->snap_heights[n] = (FT_Short)cpriv->snap_heights[n];
149
150     priv->force_bold     = cpriv->force_bold;
151     priv->language_group = cpriv->language_group;
152     priv->lenIV          = cpriv->lenIV;
153   }
154
155
156   FT_LOCAL_DEF( FT_Error )
157   cff_size_init( FT_Size  cffsize )         /* CFF_Size */
158   {
159     CFF_Size           size  = (CFF_Size)cffsize;
160     FT_Error           error = FT_Err_Ok;
161     PSH_Globals_Funcs  funcs = cff_size_get_globals_funcs( size );
162
163
164     if ( funcs )
165     {
166       CFF_Face      face     = (CFF_Face)cffsize->face;
167       CFF_Font      font     = (CFF_Font)face->extra.data;
168       CFF_Internal  internal = NULL;
169
170       PS_PrivateRec  priv;
171       FT_Memory      memory = cffsize->face->memory;
172
173       FT_UInt  i;
174
175
176       if ( FT_NEW( internal ) )
177         goto Exit;
178
179       cff_make_private_dict( &font->top_font, &priv );
180       error = funcs->create( cffsize->face->memory, &priv,
181                              &internal->topfont );
182       if ( error )
183         goto Exit;
184
185       for ( i = font->num_subfonts; i > 0; i-- )
186       {
187         CFF_SubFont  sub = font->subfonts[i - 1];
188
189
190         cff_make_private_dict( sub, &priv );
191         error = funcs->create( cffsize->face->memory, &priv,
192                                &internal->subfonts[i - 1] );
193         if ( error )
194           goto Exit;
195       }
196
197       cffsize->internal = (FT_Size_Internal)(void*)internal;
198     }
199
200     size->strike_index = 0xFFFFFFFFUL;
201
202   Exit:
203     return error;
204   }
205
206
207 #ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS
208
209   FT_LOCAL_DEF( FT_Error )
210   cff_size_select( FT_Size   size,
211                    FT_ULong  strike_index )
212   {
213     CFF_Size           cffsize = (CFF_Size)size;
214     PSH_Globals_Funcs  funcs;
215
216
217     cffsize->strike_index = strike_index;
218
219     FT_Select_Metrics( size->face, strike_index );
220
221     funcs = cff_size_get_globals_funcs( cffsize );
222
223     if ( funcs )
224     {
225       CFF_Face      face     = (CFF_Face)size->face;
226       CFF_Font      font     = (CFF_Font)face->extra.data;
227       CFF_Internal  internal = (CFF_Internal)size->internal;
228
229       FT_ULong  top_upm  = font->top_font.font_dict.units_per_em;
230       FT_UInt   i;
231
232
233       funcs->set_scale( internal->topfont,
234                         size->metrics.x_scale, size->metrics.y_scale,
235                         0, 0 );
236
237       for ( i = font->num_subfonts; i > 0; i-- )
238       {
239         CFF_SubFont  sub     = font->subfonts[i - 1];
240         FT_ULong     sub_upm = sub->font_dict.units_per_em;
241         FT_Pos       x_scale, y_scale;
242
243
244         if ( top_upm != sub_upm )
245         {
246           x_scale = FT_MulDiv( size->metrics.x_scale, top_upm, sub_upm );
247           y_scale = FT_MulDiv( size->metrics.y_scale, top_upm, sub_upm );
248         }
249         else
250         {
251           x_scale = size->metrics.x_scale;
252           y_scale = size->metrics.y_scale;
253         }
254
255         funcs->set_scale( internal->subfonts[i - 1],
256                           x_scale, y_scale, 0, 0 );
257       }
258     }
259
260     return FT_Err_Ok;
261   }
262
263 #endif /* TT_CONFIG_OPTION_EMBEDDED_BITMAPS */
264
265
266   FT_LOCAL_DEF( FT_Error )
267   cff_size_request( FT_Size          size,
268                     FT_Size_Request  req )
269   {
270     CFF_Size           cffsize = (CFF_Size)size;
271     PSH_Globals_Funcs  funcs;
272
273
274 #ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS
275
276     if ( FT_HAS_FIXED_SIZES( size->face ) )
277     {
278       CFF_Face      cffface = (CFF_Face)size->face;
279       SFNT_Service  sfnt    = (SFNT_Service)cffface->sfnt;
280       FT_ULong      strike_index;
281
282
283       if ( sfnt->set_sbit_strike( cffface, req, &strike_index ) )
284         cffsize->strike_index = 0xFFFFFFFFUL;
285       else
286         return cff_size_select( size, strike_index );
287     }
288
289 #endif /* TT_CONFIG_OPTION_EMBEDDED_BITMAPS */
290
291     FT_Request_Metrics( size->face, req );
292
293     funcs = cff_size_get_globals_funcs( cffsize );
294
295     if ( funcs )
296     {
297       CFF_Face      cffface  = (CFF_Face)size->face;
298       CFF_Font      font     = (CFF_Font)cffface->extra.data;
299       CFF_Internal  internal = (CFF_Internal)size->internal;
300
301       FT_ULong  top_upm  = font->top_font.font_dict.units_per_em;
302       FT_UInt   i;
303
304
305       funcs->set_scale( internal->topfont,
306                         size->metrics.x_scale, size->metrics.y_scale,
307                         0, 0 );
308
309       for ( i = font->num_subfonts; i > 0; i-- )
310       {
311         CFF_SubFont  sub     = font->subfonts[i - 1];
312         FT_ULong     sub_upm = sub->font_dict.units_per_em;
313         FT_Pos       x_scale, y_scale;
314
315
316         if ( top_upm != sub_upm )
317         {
318           x_scale = FT_MulDiv( size->metrics.x_scale, top_upm, sub_upm );
319           y_scale = FT_MulDiv( size->metrics.y_scale, top_upm, sub_upm );
320         }
321         else
322         {
323           x_scale = size->metrics.x_scale;
324           y_scale = size->metrics.y_scale;
325         }
326
327         funcs->set_scale( internal->subfonts[i - 1],
328                           x_scale, y_scale, 0, 0 );
329       }
330     }
331
332     return FT_Err_Ok;
333   }
334
335
336   /*************************************************************************/
337   /*                                                                       */
338   /*                            SLOT  FUNCTIONS                            */
339   /*                                                                       */
340   /*************************************************************************/
341
342   FT_LOCAL_DEF( void )
343   cff_slot_done( FT_GlyphSlot  slot )
344   {
345     slot->internal->glyph_hints = 0;
346   }
347
348
349   FT_LOCAL_DEF( FT_Error )
350   cff_slot_init( FT_GlyphSlot  slot )
351   {
352     CFF_Face          face     = (CFF_Face)slot->face;
353     CFF_Font          font     = (CFF_Font)face->extra.data;
354     PSHinter_Service  pshinter = font->pshinter;
355
356
357     if ( pshinter )
358     {
359       FT_Module  module;
360
361
362       module = FT_Get_Module( slot->face->driver->root.library,
363                               "pshinter" );
364       if ( module )
365       {
366         T2_Hints_Funcs  funcs;
367
368
369         funcs = pshinter->get_t2_funcs( module );
370         slot->internal->glyph_hints = (void*)funcs;
371       }
372     }
373
374     return FT_Err_Ok;
375   }
376
377
378   /*************************************************************************/
379   /*                                                                       */
380   /*                           FACE  FUNCTIONS                             */
381   /*                                                                       */
382   /*************************************************************************/
383
384   static FT_String*
385   cff_strcpy( FT_Memory         memory,
386               const FT_String*  source )
387   {
388     FT_Error    error;
389     FT_String*  result;
390
391
392     (void)FT_STRDUP( result, source );
393
394     FT_UNUSED( error );
395
396     return result;
397   }
398
399
400   /* Strip all subset prefixes of the form `ABCDEF+'.  Usually, there */
401   /* is only one, but font names like `APCOOG+JFABTD+FuturaBQ-Bold'   */
402   /* have been seen in the wild.                                      */
403
404   static void
405   remove_subset_prefix( FT_String*  name )
406   {
407     FT_Int32  idx             = 0;
408     FT_Int32  length          = (FT_Int32)strlen( name ) + 1;
409     FT_Bool   continue_search = 1;
410
411
412     while ( continue_search )
413     {
414       if ( length >= 7 && name[6] == '+' )
415       {
416         for ( idx = 0; idx < 6; idx++ )
417         {
418           /* ASCII uppercase letters */
419           if ( !( 'A' <= name[idx] && name[idx] <= 'Z' ) )
420             continue_search = 0;
421         }
422
423         if ( continue_search )
424         {
425           for ( idx = 7; idx < length; idx++ )
426             name[idx - 7] = name[idx];
427           length -= 7;
428         }
429       }
430       else
431         continue_search = 0;
432     }
433   }
434
435
436   /* Remove the style part from the family name (if present). */
437
438   static void
439   remove_style( FT_String*        family_name,
440                 const FT_String*  style_name )
441   {
442     FT_Int32  family_name_length, style_name_length;
443
444
445     family_name_length = (FT_Int32)strlen( family_name );
446     style_name_length  = (FT_Int32)strlen( style_name );
447
448     if ( family_name_length > style_name_length )
449     {
450       FT_Int  idx;
451
452
453       for ( idx = 1; idx <= style_name_length; ++idx )
454       {
455         if ( family_name[family_name_length - idx] !=
456              style_name[style_name_length - idx] )
457           break;
458       }
459
460       if ( idx > style_name_length )
461       {
462         /* family_name ends with style_name; remove it */
463         idx = family_name_length - style_name_length - 1;
464
465         /* also remove special characters     */
466         /* between real family name and style */
467         while ( idx > 0                     &&
468                 ( family_name[idx] == '-' ||
469                   family_name[idx] == ' ' ||
470                   family_name[idx] == '_' ||
471                   family_name[idx] == '+' ) )
472           --idx;
473
474         if ( idx > 0 )
475           family_name[idx + 1] = '\0';
476       }
477     }
478   }
479
480
481   FT_LOCAL_DEF( FT_Error )
482   cff_face_init( FT_Stream      stream,
483                  FT_Face        cffface,        /* CFF_Face */
484                  FT_Int         face_index,
485                  FT_Int         num_params,
486                  FT_Parameter*  params )
487   {
488     CFF_Face            face        = (CFF_Face)cffface;
489     FT_Error            error;
490     SFNT_Service        sfnt;
491     FT_Service_PsCMaps  psnames;
492     PSHinter_Service    pshinter;
493     FT_Bool             pure_cff    = 1;
494     FT_Bool             sfnt_format = 0;
495     FT_Library          library     = cffface->driver->root.library;
496
497
498     sfnt = (SFNT_Service)FT_Get_Module_Interface(
499              library, "sfnt" );
500     if ( !sfnt )
501     {
502       FT_ERROR(( "cff_face_init: cannot access `sfnt' module\n" ));
503       error = FT_THROW( Missing_Module );
504       goto Exit;
505     }
506
507     FT_FACE_FIND_GLOBAL_SERVICE( face, psnames, POSTSCRIPT_CMAPS );
508
509     pshinter = (PSHinter_Service)FT_Get_Module_Interface(
510                  library, "pshinter" );
511
512     FT_TRACE2(( "CFF driver\n" ));
513
514     /* create input stream from resource */
515     if ( FT_STREAM_SEEK( 0 ) )
516       goto Exit;
517
518     /* check whether we have a valid OpenType file */
519     error = sfnt->init_face( stream, face, face_index, num_params, params );
520     if ( !error )
521     {
522       if ( face->format_tag != TTAG_OTTO && 
523                    face->format_tag != 0x00010000UL )  /* `OTTO'; OpenType/CFF font */
524       {
525         FT_TRACE2(( "  not an OpenType/CFF font\n" ));
526         error = FT_THROW( Unknown_File_Format );
527         goto Exit;
528       }
529
530       /* if we are performing a simple font format check, exit immediately */
531       if ( face_index < 0 )
532         return FT_Err_Ok;
533
534       sfnt_format = 1;
535
536       /* now, the font can be either an OpenType/CFF font, or an SVG CEF */
537       /* font; in the latter case it doesn't have a `head' table         */
538       error = face->goto_table( face, TTAG_head, stream, 0 );
539       if ( !error )
540       {
541         pure_cff = 0;
542
543         /* load font directory */
544         error = sfnt->load_face( stream, face, face_index,
545                                  num_params, params );
546         if ( error )
547           goto Exit;
548       }
549       else
550       {
551         /* load the `cmap' table explicitly */
552         error = sfnt->load_cmap( face, stream );
553         if ( error )
554           goto Exit;
555       }
556
557       /* now load the CFF part of the file */
558       error = face->goto_table( face, TTAG_CFF, stream, 0 );
559       if ( error )
560         goto Exit;
561     }
562     else
563     {
564       /* rewind to start of file; we are going to load a pure-CFF font */
565       if ( FT_STREAM_SEEK( 0 ) )
566         goto Exit;
567       error = FT_Err_Ok;
568     }
569
570     /* now load and parse the CFF table in the file */
571     {
572       CFF_Font         cff = NULL;
573       CFF_FontRecDict  dict;
574       FT_Memory        memory = cffface->memory;
575       FT_Int32         flags;
576       FT_UInt          i;
577
578
579       if ( FT_NEW( cff ) )
580         goto Exit;
581
582       face->extra.data = cff;
583       error = cff_font_load( library, stream, face_index, cff, pure_cff );
584       if ( error )
585         goto Exit;
586
587       cff->pshinter = pshinter;
588       cff->psnames  = psnames;
589
590       cffface->face_index = face_index;
591
592       /* Complement the root flags with some interesting information. */
593       /* Note that this is only necessary for pure CFF and CEF fonts; */
594       /* SFNT based fonts use the `name' table instead.               */
595
596       cffface->num_glyphs = cff->num_glyphs;
597
598       dict = &cff->top_font.font_dict;
599
600       /* we need the `PSNames' module for CFF and CEF formats */
601       /* which aren't CID-keyed                               */
602       if ( dict->cid_registry == 0xFFFFU && !psnames )
603       {
604         FT_ERROR(( "cff_face_init:"
605                    " cannot open CFF & CEF fonts\n"
606                    "              "
607                    " without the `PSNames' module\n" ));
608         error = FT_THROW( Missing_Module );
609         goto Exit;
610       }
611
612 #ifdef FT_DEBUG_LEVEL_TRACE
613       {
614         FT_UInt     idx;
615         FT_String*  s;
616
617
618         FT_TRACE4(( "SIDs\n" ));
619
620         /* dump string index, including default strings for convenience */
621         for ( idx = 0; idx < cff->num_strings + 390; idx++ )
622         {
623           s = cff_index_get_sid_string( cff, idx );
624           if ( s )
625             FT_TRACE4(("  %5d %s\n", idx, s ));
626         }
627       }
628 #endif /* FT_DEBUG_LEVEL_TRACE */
629
630       if ( !dict->has_font_matrix )
631         dict->units_per_em = pure_cff ? 1000 : face->root.units_per_EM;
632
633       /* Normalize the font matrix so that `matrix->xx' is 1; the */
634       /* scaling is done with `units_per_em' then (at this point, */
635       /* it already contains the scaling factor, but without      */
636       /* normalization of the matrix).                            */
637       /*                                                          */
638       /* Note that the offsets must be expressed in integer font  */
639       /* units.                                                   */
640
641       {
642         FT_Matrix*  matrix = &dict->font_matrix;
643         FT_Vector*  offset = &dict->font_offset;
644         FT_ULong*   upm    = &dict->units_per_em;
645         FT_Fixed    temp   = FT_ABS( matrix->yy );
646
647
648         if ( temp != 0x10000L )
649         {
650           *upm = FT_DivFix( *upm, temp );
651
652           matrix->xx = FT_DivFix( matrix->xx, temp );
653           matrix->yx = FT_DivFix( matrix->yx, temp );
654           matrix->xy = FT_DivFix( matrix->xy, temp );
655           matrix->yy = FT_DivFix( matrix->yy, temp );
656           offset->x  = FT_DivFix( offset->x,  temp );
657           offset->y  = FT_DivFix( offset->y,  temp );
658         }
659
660         offset->x >>= 16;
661         offset->y >>= 16;
662       }
663
664       for ( i = cff->num_subfonts; i > 0; i-- )
665       {
666         CFF_FontRecDict  sub = &cff->subfonts[i - 1]->font_dict;
667         CFF_FontRecDict  top = &cff->top_font.font_dict;
668
669         FT_Matrix*  matrix;
670         FT_Vector*  offset;
671         FT_ULong*   upm;
672         FT_Fixed    temp;
673
674
675         if ( sub->has_font_matrix )
676         {
677           FT_Long  scaling;
678
679
680           /* if we have a top-level matrix, */
681           /* concatenate the subfont matrix */
682
683           if ( top->has_font_matrix )
684           {
685             if ( top->units_per_em > 1 && sub->units_per_em > 1 )
686               scaling = FT_MIN( top->units_per_em, sub->units_per_em );
687             else
688               scaling = 1;
689
690             FT_Matrix_Multiply_Scaled( &top->font_matrix,
691                                        &sub->font_matrix,
692                                        scaling );
693             FT_Vector_Transform_Scaled( &sub->font_offset,
694                                         &top->font_matrix,
695                                         scaling );
696
697             sub->units_per_em = FT_MulDiv( sub->units_per_em,
698                                            top->units_per_em,
699                                            scaling );
700           }
701         }
702         else
703         {
704           sub->font_matrix = top->font_matrix;
705           sub->font_offset = top->font_offset;
706
707           sub->units_per_em = top->units_per_em;
708         }
709
710         matrix = &sub->font_matrix;
711         offset = &sub->font_offset;
712         upm    = &sub->units_per_em;
713         temp   = FT_ABS( matrix->yy );
714
715         if ( temp != 0x10000L )
716         {
717           *upm = FT_DivFix( *upm, temp );
718
719           matrix->xx = FT_DivFix( matrix->xx, temp );
720           matrix->yx = FT_DivFix( matrix->yx, temp );
721           matrix->xy = FT_DivFix( matrix->xy, temp );
722           matrix->yy = FT_DivFix( matrix->yy, temp );
723           offset->x  = FT_DivFix( offset->x,  temp );
724           offset->y  = FT_DivFix( offset->y,  temp );
725         }
726
727         offset->x >>= 16;
728         offset->y >>= 16;
729       }
730
731       if ( pure_cff )
732       {
733         char*  style_name = NULL;
734
735
736         /* set up num_faces */
737         cffface->num_faces = cff->num_faces;
738
739         /* compute number of glyphs */
740         if ( dict->cid_registry != 0xFFFFU )
741           cffface->num_glyphs = cff->charset.max_cid + 1;
742         else
743           cffface->num_glyphs = cff->charstrings_index.count;
744
745         /* set global bbox, as well as EM size */
746         cffface->bbox.xMin =   dict->font_bbox.xMin            >> 16;
747         cffface->bbox.yMin =   dict->font_bbox.yMin            >> 16;
748         /* no `U' suffix here to 0xFFFF! */
749         cffface->bbox.xMax = ( dict->font_bbox.xMax + 0xFFFF ) >> 16;
750         cffface->bbox.yMax = ( dict->font_bbox.yMax + 0xFFFF ) >> 16;
751
752         cffface->units_per_EM = (FT_UShort)( dict->units_per_em );
753
754         cffface->ascender  = (FT_Short)( cffface->bbox.yMax );
755         cffface->descender = (FT_Short)( cffface->bbox.yMin );
756
757         cffface->height = (FT_Short)( ( cffface->units_per_EM * 12 ) / 10 );
758         if ( cffface->height < cffface->ascender - cffface->descender )
759           cffface->height = (FT_Short)( cffface->ascender - cffface->descender );
760
761         cffface->underline_position  =
762           (FT_Short)( dict->underline_position >> 16 );
763         cffface->underline_thickness =
764           (FT_Short)( dict->underline_thickness >> 16 );
765
766         /* retrieve font family & style name */
767         cffface->family_name = cff_index_get_name( cff, face_index );
768         if ( cffface->family_name )
769         {
770           char*  full   = cff_index_get_sid_string( cff,
771                                                     dict->full_name );
772           char*  fullp  = full;
773           char*  family = cffface->family_name;
774           char*  family_name = NULL;
775
776
777           remove_subset_prefix( cffface->family_name );
778
779           if ( dict->family_name )
780           {
781             family_name = cff_index_get_sid_string( cff,
782                                                     dict->family_name );
783             if ( family_name )
784               family = family_name;
785           }
786
787           /* We try to extract the style name from the full name.   */
788           /* We need to ignore spaces and dashes during the search. */
789           if ( full && family )
790           {
791             while ( *fullp )
792             {
793               /* skip common characters at the start of both strings */
794               if ( *fullp == *family )
795               {
796                 family++;
797                 fullp++;
798                 continue;
799               }
800
801               /* ignore spaces and dashes in full name during comparison */
802               if ( *fullp == ' ' || *fullp == '-' )
803               {
804                 fullp++;
805                 continue;
806               }
807
808               /* ignore spaces and dashes in family name during comparison */
809               if ( *family == ' ' || *family == '-' )
810               {
811                 family++;
812                 continue;
813               }
814
815               if ( !*family && *fullp )
816               {
817                 /* The full name begins with the same characters as the  */
818                 /* family name, with spaces and dashes removed.  In this */
819                 /* case, the remaining string in `fullp' will be used as */
820                 /* the style name.                                       */
821                 style_name = cff_strcpy( memory, fullp );
822
823                 /* remove the style part from the family name (if present) */
824                 remove_style( cffface->family_name, style_name );
825               }
826               break;
827             }
828           }
829         }
830         else
831         {
832           char  *cid_font_name =
833                    cff_index_get_sid_string( cff,
834                                              dict->cid_font_name );
835
836
837           /* do we have a `/FontName' for a CID-keyed font? */
838           if ( cid_font_name )
839             cffface->family_name = cff_strcpy( memory, cid_font_name );
840         }
841
842         if ( style_name )
843           cffface->style_name = style_name;
844         else
845           /* assume "Regular" style if we don't know better */
846           cffface->style_name = cff_strcpy( memory, (char *)"Regular" );
847
848         /*******************************************************************/
849         /*                                                                 */
850         /* Compute face flags.                                             */
851         /*                                                                 */
852         flags = FT_FACE_FLAG_SCALABLE   | /* scalable outlines */
853                 FT_FACE_FLAG_HORIZONTAL | /* horizontal data   */
854                 FT_FACE_FLAG_HINTER;      /* has native hinter */
855
856         if ( sfnt_format )
857           flags |= FT_FACE_FLAG_SFNT;
858
859         /* fixed width font? */
860         if ( dict->is_fixed_pitch )
861           flags |= FT_FACE_FLAG_FIXED_WIDTH;
862
863   /* XXX: WE DO NOT SUPPORT KERNING METRICS IN THE GPOS TABLE FOR NOW */
864 #if 0
865         /* kerning available? */
866         if ( face->kern_pairs )
867           flags |= FT_FACE_FLAG_KERNING;
868 #endif
869
870         cffface->face_flags = flags;
871
872         /*******************************************************************/
873         /*                                                                 */
874         /* Compute style flags.                                            */
875         /*                                                                 */
876         flags = 0;
877
878         if ( dict->italic_angle )
879           flags |= FT_STYLE_FLAG_ITALIC;
880
881         {
882           char  *weight = cff_index_get_sid_string( cff,
883                                                     dict->weight );
884
885
886           if ( weight )
887             if ( !ft_strcmp( weight, "Bold"  ) ||
888                  !ft_strcmp( weight, "Black" ) )
889               flags |= FT_STYLE_FLAG_BOLD;
890         }
891
892         /* double check */
893         if ( !(flags & FT_STYLE_FLAG_BOLD) && cffface->style_name )
894           if ( !ft_strncmp( cffface->style_name, "Bold", 4 )  ||
895                !ft_strncmp( cffface->style_name, "Black", 5 ) )
896             flags |= FT_STYLE_FLAG_BOLD;
897
898                 if ( !(flags & FT_STYLE_FLAG_ITALIC) && cffface->style_name )
899                         if ( !ft_strncmp( cffface->style_name, "Italic", 6 ) )
900           flags |= FT_STYLE_FLAG_ITALIC;
901
902         cffface->style_flags = flags;
903       }
904
905
906 #ifndef FT_CONFIG_OPTION_NO_GLYPH_NAMES
907       /* CID-keyed CFF fonts don't have glyph names -- the SFNT loader */
908       /* has unset this flag because of the 3.0 `post' table.          */
909       if ( dict->cid_registry == 0xFFFFU )
910         cffface->face_flags |= FT_FACE_FLAG_GLYPH_NAMES;
911 #endif
912
913       if ( dict->cid_registry != 0xFFFFU && pure_cff )
914         cffface->face_flags |= FT_FACE_FLAG_CID_KEYED;
915
916
917       /*******************************************************************/
918       /*                                                                 */
919       /* Compute char maps.                                              */
920       /*                                                                 */
921
922       /* Try to synthesize a Unicode charmap if there is none available */
923       /* already.  If an OpenType font contains a Unicode "cmap", we    */
924       /* will use it, whatever be in the CFF part of the file.          */
925       {
926         FT_CharMapRec  cmaprec;
927         FT_CharMap     cmap;
928         FT_UInt        nn;
929         CFF_Encoding   encoding = &cff->encoding;
930
931
932         for ( nn = 0; nn < (FT_UInt)cffface->num_charmaps; nn++ )
933         {
934           cmap = cffface->charmaps[nn];
935
936           /* Windows Unicode? */
937           if ( cmap->platform_id == TT_PLATFORM_MICROSOFT &&
938                cmap->encoding_id == TT_MS_ID_UNICODE_CS   )
939             goto Skip_Unicode;
940
941           /* Apple Unicode platform id? */
942           if ( cmap->platform_id == TT_PLATFORM_APPLE_UNICODE )
943             goto Skip_Unicode; /* Apple Unicode */
944         }
945
946         /* since CID-keyed fonts don't contain glyph names, we can't */
947         /* construct a cmap                                          */
948         if ( pure_cff && cff->top_font.font_dict.cid_registry != 0xFFFFU )
949           goto Exit;
950
951 #ifdef FT_MAX_CHARMAP_CACHEABLE
952         if ( nn + 1 > FT_MAX_CHARMAP_CACHEABLE )
953         {
954           FT_ERROR(( "cff_face_init: no Unicode cmap is found, "
955                      "and too many subtables (%d) to add synthesized cmap\n",
956                      nn ));
957           goto Exit;
958         }
959 #endif
960
961         /* we didn't find a Unicode charmap -- synthesize one */
962         cmaprec.face        = cffface;
963         cmaprec.platform_id = TT_PLATFORM_MICROSOFT;
964         cmaprec.encoding_id = TT_MS_ID_UNICODE_CS;
965         cmaprec.encoding    = FT_ENCODING_UNICODE;
966
967         nn = (FT_UInt)cffface->num_charmaps;
968
969         error = FT_CMap_New( &CFF_CMAP_UNICODE_CLASS_REC_GET, NULL,
970                              &cmaprec, NULL );
971         if ( error                                      &&
972              FT_ERR_NEQ( error, No_Unicode_Glyph_Name ) )
973           goto Exit;
974         error = FT_Err_Ok;
975
976         /* if no Unicode charmap was previously selected, select this one */
977         if ( cffface->charmap == NULL && nn != (FT_UInt)cffface->num_charmaps )
978           cffface->charmap = cffface->charmaps[nn];
979
980       Skip_Unicode:
981 #ifdef FT_MAX_CHARMAP_CACHEABLE
982         if ( nn > FT_MAX_CHARMAP_CACHEABLE )
983         {
984           FT_ERROR(( "cff_face_init: Unicode cmap is found, "
985                      "but too many preceding subtables (%d) to access\n",
986                      nn - 1 ));
987           goto Exit;
988         }
989 #endif
990         if ( encoding->count > 0 )
991         {
992           FT_CMap_Class  clazz;
993
994
995           cmaprec.face        = cffface;
996           cmaprec.platform_id = TT_PLATFORM_ADOBE;  /* Adobe platform id */
997
998           if ( encoding->offset == 0 )
999           {
1000             cmaprec.encoding_id = TT_ADOBE_ID_STANDARD;
1001             cmaprec.encoding    = FT_ENCODING_ADOBE_STANDARD;
1002             clazz               = &CFF_CMAP_ENCODING_CLASS_REC_GET;
1003           }
1004           else if ( encoding->offset == 1 )
1005           {
1006             cmaprec.encoding_id = TT_ADOBE_ID_EXPERT;
1007             cmaprec.encoding    = FT_ENCODING_ADOBE_EXPERT;
1008             clazz               = &CFF_CMAP_ENCODING_CLASS_REC_GET;
1009           }
1010           else
1011           {
1012             cmaprec.encoding_id = TT_ADOBE_ID_CUSTOM;
1013             cmaprec.encoding    = FT_ENCODING_ADOBE_CUSTOM;
1014             clazz               = &CFF_CMAP_ENCODING_CLASS_REC_GET;
1015           }
1016
1017           error = FT_CMap_New( clazz, NULL, &cmaprec, NULL );
1018         }
1019       }
1020     }
1021
1022   Exit:
1023     return error;
1024   }
1025
1026
1027   FT_LOCAL_DEF( void )
1028   cff_face_done( FT_Face  cffface )         /* CFF_Face */
1029   {
1030     CFF_Face      face = (CFF_Face)cffface;
1031     FT_Memory     memory;
1032     SFNT_Service  sfnt;
1033
1034
1035     if ( !face )
1036       return;
1037
1038     memory = cffface->memory;
1039     sfnt   = (SFNT_Service)face->sfnt;
1040
1041     if ( sfnt )
1042       sfnt->done_face( face );
1043
1044     {
1045       CFF_Font  cff = (CFF_Font)face->extra.data;
1046
1047
1048       if ( cff )
1049       {
1050         cff_font_done( cff );
1051         FT_FREE( face->extra.data );
1052       }
1053     }
1054   }
1055
1056
1057   FT_LOCAL_DEF( FT_Error )
1058   cff_driver_init( FT_Module  module )        /* CFF_Driver */
1059   {
1060     CFF_Driver  driver = (CFF_Driver)module;
1061
1062
1063     /* set default property values */
1064 #ifdef CFF_CONFIG_OPTION_OLD_ENGINE
1065     driver->hinting_engine    = FT_CFF_HINTING_FREETYPE;
1066 #else
1067     driver->hinting_engine    = FT_CFF_HINTING_ADOBE;
1068 #endif
1069     driver->no_stem_darkening = FALSE;
1070
1071     return FT_Err_Ok;
1072   }
1073
1074
1075   FT_LOCAL_DEF( void )
1076   cff_driver_done( FT_Module  module )        /* CFF_Driver */
1077   {
1078     FT_UNUSED( module );
1079   }
1080
1081
1082 /* END */