src/cff/cffobjs.c

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