Home | History | Annotate | Download | only in cff
      1 /***************************************************************************/
      2 /*                                                                         */
      3 /*  cffobjs.c                                                              */
      4 /*                                                                         */
      5 /*    OpenType objects manager (body).                                     */
      6 /*                                                                         */
      7 /*  Copyright 1996-2015 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 <ft2build.h>
     20 
     21 #include FT_INTERNAL_DEBUG_H
     22 #include FT_INTERNAL_CALC_H
     23 #include FT_INTERNAL_STREAM_H
     24 #include FT_ERRORS_H
     25 #include FT_TRUETYPE_IDS_H
     26 #include FT_TRUETYPE_TAGS_H
     27 #include FT_INTERNAL_SFNT_H
     28 #include FT_CFF_DRIVER_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_Long  top_upm  = (FT_Long)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_Long      sub_upm = (FT_Long)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_Long  top_upm  = (FT_Long)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_Long      sub_upm = (FT_Long)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 = NULL;
    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 )  /* `OTTO'; OpenType/CFF font */
    523       {
    524         FT_TRACE2(( "  not an OpenType/CFF font\n" ));
    525         error = FT_THROW( Unknown_File_Format );
    526         goto Exit;
    527       }
    528 
    529       /* if we are performing a simple font format check, exit immediately */
    530       if ( face_index < 0 )
    531         return FT_Err_Ok;
    532 
    533       sfnt_format = 1;
    534 
    535       /* now, the font can be either an OpenType/CFF font, or an SVG CEF */
    536       /* font; in the latter case it doesn't have a `head' table         */
    537       error = face->goto_table( face, TTAG_head, stream, 0 );
    538       if ( !error )
    539       {
    540         pure_cff = 0;
    541 
    542         /* load font directory */
    543         error = sfnt->load_face( stream, face, face_index,
    544                                  num_params, params );
    545         if ( error )
    546           goto Exit;
    547       }
    548       else
    549       {
    550         /* load the `cmap' table explicitly */
    551         error = sfnt->load_cmap( face, stream );
    552         if ( error )
    553           goto Exit;
    554       }
    555 
    556       /* now load the CFF part of the file */
    557       error = face->goto_table( face, TTAG_CFF, stream, 0 );
    558       if ( error )
    559         goto Exit;
    560     }
    561     else
    562     {
    563       /* rewind to start of file; we are going to load a pure-CFF font */
    564       if ( FT_STREAM_SEEK( 0 ) )
    565         goto Exit;
    566       error = FT_Err_Ok;
    567     }
    568 
    569     /* now load and parse the CFF table in the file */
    570     {
    571       CFF_Font         cff = NULL;
    572       CFF_FontRecDict  dict;
    573       FT_Memory        memory = cffface->memory;
    574       FT_Int32         flags;
    575       FT_UInt          i;
    576 
    577 
    578       if ( FT_NEW( cff ) )
    579         goto Exit;
    580 
    581       face->extra.data = cff;
    582       error = cff_font_load( library, stream, face_index, cff, pure_cff );
    583       if ( error )
    584         goto Exit;
    585 
    586       cff->pshinter = pshinter;
    587       cff->psnames  = psnames;
    588 
    589       cffface->face_index = face_index;
    590 
    591       /* Complement the root flags with some interesting information. */
    592       /* Note that this is only necessary for pure CFF and CEF fonts; */
    593       /* SFNT based fonts use the `name' table instead.               */
    594 
    595       cffface->num_glyphs = (FT_Long)cff->num_glyphs;
    596 
    597       dict = &cff->top_font.font_dict;
    598 
    599       /* we need the `PSNames' module for CFF and CEF formats */
    600       /* which aren't CID-keyed                               */
    601       if ( dict->cid_registry == 0xFFFFU && !psnames )
    602       {
    603         FT_ERROR(( "cff_face_init:"
    604                    " cannot open CFF & CEF fonts\n"
    605                    "              "
    606                    " without the `PSNames' module\n" ));
    607         error = FT_THROW( Missing_Module );
    608         goto Exit;
    609       }
    610 
    611 #ifdef FT_DEBUG_LEVEL_TRACE
    612       {
    613         FT_UInt     idx;
    614         FT_String*  s;
    615 
    616 
    617         FT_TRACE4(( "SIDs\n" ));
    618 
    619         /* dump string index, including default strings for convenience */
    620         for ( idx = 0; idx < cff->num_strings + 390; idx++ )
    621         {
    622           s = cff_index_get_sid_string( cff, idx );
    623           if ( s )
    624             FT_TRACE4(("  %5d %s\n", idx, s ));
    625         }
    626       }
    627 #endif /* FT_DEBUG_LEVEL_TRACE */
    628 
    629       if ( !dict->has_font_matrix )
    630         dict->units_per_em = pure_cff ? 1000 : face->root.units_per_EM;
    631 
    632       /* Normalize the font matrix so that `matrix->xx' is 1; the */
    633       /* scaling is done with `units_per_em' then (at this point, */
    634       /* it already contains the scaling factor, but without      */
    635       /* normalization of the matrix).                            */
    636       /*                                                          */
    637       /* Note that the offsets must be expressed in integer font  */
    638       /* units.                                                   */
    639 
    640       {
    641         FT_Matrix*  matrix = &dict->font_matrix;
    642         FT_Vector*  offset = &dict->font_offset;
    643         FT_ULong*   upm    = &dict->units_per_em;
    644         FT_Fixed    temp   = FT_ABS( matrix->yy );
    645 
    646 
    647         if ( temp != 0x10000L )
    648         {
    649           *upm = (FT_ULong)FT_DivFix( (FT_Long)*upm, temp );
    650 
    651           matrix->xx = FT_DivFix( matrix->xx, temp );
    652           matrix->yx = FT_DivFix( matrix->yx, temp );
    653           matrix->xy = FT_DivFix( matrix->xy, temp );
    654           matrix->yy = FT_DivFix( matrix->yy, temp );
    655           offset->x  = FT_DivFix( offset->x,  temp );
    656           offset->y  = FT_DivFix( offset->y,  temp );
    657         }
    658 
    659         offset->x >>= 16;
    660         offset->y >>= 16;
    661       }
    662 
    663       for ( i = cff->num_subfonts; i > 0; i-- )
    664       {
    665         CFF_FontRecDict  sub = &cff->subfonts[i - 1]->font_dict;
    666         CFF_FontRecDict  top = &cff->top_font.font_dict;
    667 
    668         FT_Matrix*  matrix;
    669         FT_Vector*  offset;
    670         FT_ULong*   upm;
    671         FT_Fixed    temp;
    672 
    673 
    674         if ( sub->has_font_matrix )
    675         {
    676           FT_Long  scaling;
    677 
    678 
    679           /* if we have a top-level matrix, */
    680           /* concatenate the subfont matrix */
    681 
    682           if ( top->has_font_matrix )
    683           {
    684             if ( top->units_per_em > 1 && sub->units_per_em > 1 )
    685               scaling = (FT_Long)FT_MIN( top->units_per_em,
    686                                          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_ULong)
    698                                   FT_MulDiv( (FT_Long)sub->units_per_em,
    699                                              (FT_Long)top->units_per_em,
    700                                              scaling );
    701           }
    702         }
    703         else
    704         {
    705           sub->font_matrix = top->font_matrix;
    706           sub->font_offset = top->font_offset;
    707 
    708           sub->units_per_em = top->units_per_em;
    709         }
    710 
    711         matrix = &sub->font_matrix;
    712         offset = &sub->font_offset;
    713         upm    = &sub->units_per_em;
    714         temp   = FT_ABS( matrix->yy );
    715 
    716         if ( temp != 0x10000L )
    717         {
    718           *upm = (FT_ULong)FT_DivFix( (FT_Long)*upm, temp );
    719 
    720           matrix->xx = FT_DivFix( matrix->xx, temp );
    721           matrix->yx = FT_DivFix( matrix->yx, temp );
    722           matrix->xy = FT_DivFix( matrix->xy, temp );
    723           matrix->yy = FT_DivFix( matrix->yy, temp );
    724           offset->x  = FT_DivFix( offset->x,  temp );
    725           offset->y  = FT_DivFix( offset->y,  temp );
    726         }
    727 
    728         offset->x >>= 16;
    729         offset->y >>= 16;
    730       }
    731 
    732       if ( pure_cff )
    733       {
    734         char*  style_name = NULL;
    735 
    736 
    737         /* set up num_faces */
    738         cffface->num_faces = (FT_Long)cff->num_faces;
    739 
    740         /* compute number of glyphs */
    741         if ( dict->cid_registry != 0xFFFFU )
    742           cffface->num_glyphs = (FT_Long)( cff->charset.max_cid + 1 );
    743         else
    744           cffface->num_glyphs = (FT_Long)cff->charstrings_index.count;
    745 
    746         /* set global bbox, as well as EM size */
    747         cffface->bbox.xMin =   dict->font_bbox.xMin            >> 16;
    748         cffface->bbox.yMin =   dict->font_bbox.yMin            >> 16;
    749         /* no `U' suffix here to 0xFFFF! */
    750         cffface->bbox.xMax = ( dict->font_bbox.xMax + 0xFFFF ) >> 16;
    751         cffface->bbox.yMax = ( dict->font_bbox.yMax + 0xFFFF ) >> 16;
    752 
    753         cffface->units_per_EM = (FT_UShort)( dict->units_per_em );
    754 
    755         cffface->ascender  = (FT_Short)( cffface->bbox.yMax );
    756         cffface->descender = (FT_Short)( cffface->bbox.yMin );
    757 
    758         cffface->height = (FT_Short)( ( cffface->units_per_EM * 12 ) / 10 );
    759         if ( cffface->height < cffface->ascender - cffface->descender )
    760           cffface->height = (FT_Short)( cffface->ascender - cffface->descender );
    761 
    762         cffface->underline_position  =
    763           (FT_Short)( dict->underline_position >> 16 );
    764         cffface->underline_thickness =
    765           (FT_Short)( dict->underline_thickness >> 16 );
    766 
    767         /* retrieve font family & style name */
    768         cffface->family_name = cff_index_get_name( cff,
    769                                                    (FT_UInt)face_index );
    770         if ( cffface->family_name )
    771         {
    772           char*  full   = cff_index_get_sid_string( cff,
    773                                                     dict->full_name );
    774           char*  fullp  = full;
    775           char*  family = cffface->family_name;
    776           char*  family_name = NULL;
    777 
    778 
    779           remove_subset_prefix( cffface->family_name );
    780 
    781           if ( dict->family_name )
    782           {
    783             family_name = cff_index_get_sid_string( cff,
    784                                                     dict->family_name );
    785             if ( family_name )
    786               family = family_name;
    787           }
    788 
    789           /* We try to extract the style name from the full name.   */
    790           /* We need to ignore spaces and dashes during the search. */
    791           if ( full && family )
    792           {
    793             while ( *fullp )
    794             {
    795               /* skip common characters at the start of both strings */
    796               if ( *fullp == *family )
    797               {
    798                 family++;
    799                 fullp++;
    800                 continue;
    801               }
    802 
    803               /* ignore spaces and dashes in full name during comparison */
    804               if ( *fullp == ' ' || *fullp == '-' )
    805               {
    806                 fullp++;
    807                 continue;
    808               }
    809 
    810               /* ignore spaces and dashes in family name during comparison */
    811               if ( *family == ' ' || *family == '-' )
    812               {
    813                 family++;
    814                 continue;
    815               }
    816 
    817               if ( !*family && *fullp )
    818               {
    819                 /* The full name begins with the same characters as the  */
    820                 /* family name, with spaces and dashes removed.  In this */
    821                 /* case, the remaining string in `fullp' will be used as */
    822                 /* the style name.                                       */
    823                 style_name = cff_strcpy( memory, fullp );
    824 
    825                 /* remove the style part from the family name (if present) */
    826                 remove_style( cffface->family_name, style_name );
    827               }
    828               break;
    829             }
    830           }
    831         }
    832         else
    833         {
    834           char  *cid_font_name =
    835                    cff_index_get_sid_string( cff,
    836                                              dict->cid_font_name );
    837 
    838 
    839           /* do we have a `/FontName' for a CID-keyed font? */
    840           if ( cid_font_name )
    841             cffface->family_name = cff_strcpy( memory, cid_font_name );
    842         }
    843 
    844         if ( style_name )
    845           cffface->style_name = style_name;
    846         else
    847           /* assume "Regular" style if we don't know better */
    848           cffface->style_name = cff_strcpy( memory, (char *)"Regular" );
    849 
    850         /*******************************************************************/
    851         /*                                                                 */
    852         /* Compute face flags.                                             */
    853         /*                                                                 */
    854         flags = FT_FACE_FLAG_SCALABLE   | /* scalable outlines */
    855                 FT_FACE_FLAG_HORIZONTAL | /* horizontal data   */
    856                 FT_FACE_FLAG_HINTER;      /* has native hinter */
    857 
    858         if ( sfnt_format )
    859           flags |= FT_FACE_FLAG_SFNT;
    860 
    861         /* fixed width font? */
    862         if ( dict->is_fixed_pitch )
    863           flags |= FT_FACE_FLAG_FIXED_WIDTH;
    864 
    865   /* XXX: WE DO NOT SUPPORT KERNING METRICS IN THE GPOS TABLE FOR NOW */
    866 #if 0
    867         /* kerning available? */
    868         if ( face->kern_pairs )
    869           flags |= FT_FACE_FLAG_KERNING;
    870 #endif
    871 
    872         cffface->face_flags |= flags;
    873 
    874         /*******************************************************************/
    875         /*                                                                 */
    876         /* Compute style flags.                                            */
    877         /*                                                                 */
    878         flags = 0;
    879 
    880         if ( dict->italic_angle )
    881           flags |= FT_STYLE_FLAG_ITALIC;
    882 
    883         {
    884           char  *weight = cff_index_get_sid_string( cff,
    885                                                     dict->weight );
    886 
    887 
    888           if ( weight )
    889             if ( !ft_strcmp( weight, "Bold"  ) ||
    890                  !ft_strcmp( weight, "Black" ) )
    891               flags |= FT_STYLE_FLAG_BOLD;
    892         }
    893 
    894         /* double check */
    895         if ( !(flags & FT_STYLE_FLAG_BOLD) && cffface->style_name )
    896           if ( !ft_strncmp( cffface->style_name, "Bold", 4 )  ||
    897                !ft_strncmp( cffface->style_name, "Black", 5 ) )
    898             flags |= FT_STYLE_FLAG_BOLD;
    899 
    900         cffface->style_flags = flags;
    901       }
    902 
    903 
    904 #ifndef FT_CONFIG_OPTION_NO_GLYPH_NAMES
    905       /* CID-keyed CFF fonts don't have glyph names -- the SFNT loader */
    906       /* has unset this flag because of the 3.0 `post' table.          */
    907       if ( dict->cid_registry == 0xFFFFU )
    908         cffface->face_flags |= FT_FACE_FLAG_GLYPH_NAMES;
    909 #endif
    910 
    911       if ( dict->cid_registry != 0xFFFFU && pure_cff )
    912         cffface->face_flags |= FT_FACE_FLAG_CID_KEYED;
    913 
    914 
    915       /*******************************************************************/
    916       /*                                                                 */
    917       /* Compute char maps.                                              */
    918       /*                                                                 */
    919 
    920       /* Try to synthesize a Unicode charmap if there is none available */
    921       /* already.  If an OpenType font contains a Unicode "cmap", we    */
    922       /* will use it, whatever be in the CFF part of the file.          */
    923       {
    924         FT_CharMapRec  cmaprec;
    925         FT_CharMap     cmap;
    926         FT_UInt        nn;
    927         CFF_Encoding   encoding = &cff->encoding;
    928 
    929 
    930         for ( nn = 0; nn < (FT_UInt)cffface->num_charmaps; nn++ )
    931         {
    932           cmap = cffface->charmaps[nn];
    933 
    934           /* Windows Unicode? */
    935           if ( cmap->platform_id == TT_PLATFORM_MICROSOFT &&
    936                cmap->encoding_id == TT_MS_ID_UNICODE_CS   )
    937             goto Skip_Unicode;
    938 
    939           /* Apple Unicode platform id? */
    940           if ( cmap->platform_id == TT_PLATFORM_APPLE_UNICODE )
    941             goto Skip_Unicode; /* Apple Unicode */
    942         }
    943 
    944         /* since CID-keyed fonts don't contain glyph names, we can't */
    945         /* construct a cmap                                          */
    946         if ( pure_cff && cff->top_font.font_dict.cid_registry != 0xFFFFU )
    947           goto Exit;
    948 
    949         /* we didn't find a Unicode charmap -- synthesize one */
    950         cmaprec.face        = cffface;
    951         cmaprec.platform_id = TT_PLATFORM_MICROSOFT;
    952         cmaprec.encoding_id = TT_MS_ID_UNICODE_CS;
    953         cmaprec.encoding    = FT_ENCODING_UNICODE;
    954 
    955         nn = (FT_UInt)cffface->num_charmaps;
    956 
    957         error = FT_CMap_New( &CFF_CMAP_UNICODE_CLASS_REC_GET, NULL,
    958                              &cmaprec, NULL );
    959         if ( error                                      &&
    960              FT_ERR_NEQ( error, No_Unicode_Glyph_Name ) )
    961           goto Exit;
    962         error = FT_Err_Ok;
    963 
    964         /* if no Unicode charmap was previously selected, select this one */
    965         if ( cffface->charmap == NULL && nn != (FT_UInt)cffface->num_charmaps )
    966           cffface->charmap = cffface->charmaps[nn];
    967 
    968       Skip_Unicode:
    969         if ( encoding->count > 0 )
    970         {
    971           FT_CMap_Class  clazz;
    972 
    973 
    974           cmaprec.face        = cffface;
    975           cmaprec.platform_id = TT_PLATFORM_ADOBE;  /* Adobe platform id */
    976 
    977           if ( encoding->offset == 0 )
    978           {
    979             cmaprec.encoding_id = TT_ADOBE_ID_STANDARD;
    980             cmaprec.encoding    = FT_ENCODING_ADOBE_STANDARD;
    981             clazz               = &CFF_CMAP_ENCODING_CLASS_REC_GET;
    982           }
    983           else if ( encoding->offset == 1 )
    984           {
    985             cmaprec.encoding_id = TT_ADOBE_ID_EXPERT;
    986             cmaprec.encoding    = FT_ENCODING_ADOBE_EXPERT;
    987             clazz               = &CFF_CMAP_ENCODING_CLASS_REC_GET;
    988           }
    989           else
    990           {
    991             cmaprec.encoding_id = TT_ADOBE_ID_CUSTOM;
    992             cmaprec.encoding    = FT_ENCODING_ADOBE_CUSTOM;
    993             clazz               = &CFF_CMAP_ENCODING_CLASS_REC_GET;
    994           }
    995 
    996           error = FT_CMap_New( clazz, NULL, &cmaprec, NULL );
    997         }
    998       }
    999     }
   1000 
   1001   Exit:
   1002     return error;
   1003   }
   1004 
   1005 
   1006   FT_LOCAL_DEF( void )
   1007   cff_face_done( FT_Face  cffface )         /* CFF_Face */
   1008   {
   1009     CFF_Face      face = (CFF_Face)cffface;
   1010     FT_Memory     memory;
   1011     SFNT_Service  sfnt;
   1012 
   1013 
   1014     if ( !face )
   1015       return;
   1016 
   1017     memory = cffface->memory;
   1018     sfnt   = (SFNT_Service)face->sfnt;
   1019 
   1020     if ( sfnt )
   1021       sfnt->done_face( face );
   1022 
   1023     {
   1024       CFF_Font  cff = (CFF_Font)face->extra.data;
   1025 
   1026 
   1027       if ( cff )
   1028       {
   1029         cff_font_done( cff );
   1030         FT_FREE( face->extra.data );
   1031       }
   1032     }
   1033   }
   1034 
   1035 
   1036   FT_LOCAL_DEF( FT_Error )
   1037   cff_driver_init( FT_Module  module )        /* CFF_Driver */
   1038   {
   1039     CFF_Driver  driver = (CFF_Driver)module;
   1040 
   1041 
   1042     /* set default property values, cf. `ftcffdrv.h' */
   1043 #ifdef CFF_CONFIG_OPTION_OLD_ENGINE
   1044     driver->hinting_engine = FT_CFF_HINTING_FREETYPE;
   1045 #else
   1046     driver->hinting_engine = FT_CFF_HINTING_ADOBE;
   1047 #endif
   1048 
   1049     driver->no_stem_darkening = FALSE;
   1050 
   1051     driver->darken_params[0] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_X1;
   1052     driver->darken_params[1] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_Y1;
   1053     driver->darken_params[2] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_X2;
   1054     driver->darken_params[3] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_Y2;
   1055     driver->darken_params[4] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_X3;
   1056     driver->darken_params[5] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_Y3;
   1057     driver->darken_params[6] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_X4;
   1058     driver->darken_params[7] = CFF_CONFIG_OPTION_DARKENING_PARAMETER_Y4;
   1059 
   1060     return FT_Err_Ok;
   1061   }
   1062 
   1063 
   1064   FT_LOCAL_DEF( void )
   1065   cff_driver_done( FT_Module  module )        /* CFF_Driver */
   1066   {
   1067     FT_UNUSED( module );
   1068   }
   1069 
   1070 
   1071 /* END */
   1072