/***************************************************************************//*                                                                         *//*  cffobjs.c                                                              *//*                                                                         *//*    OpenType objects manager (body).                                     *//*                                                                         *//*  Copyright 1996-2001, 2002, 2003, 2004, 2005, 2006 by                   *//*  David Turner, Robert Wilhelm, and Werner Lemberg.                      *//*                                                                         *//*  This file is part of the FreeType project, and may only be used,       *//*  modified, and distributed under the terms of the FreeType project      *//*  license, LICENSE.TXT.  By continuing to use, modify, or distribute     *//*  this file you indicate that you have read the license and              *//*  understand and accept it fully.                                        *//*                                                                         *//***************************************************************************/#include <ft2build.h>#include FT_INTERNAL_DEBUG_H#include FT_INTERNAL_CALC_H#include FT_INTERNAL_STREAM_H#include FT_ERRORS_H#include FT_TRUETYPE_IDS_H#include FT_TRUETYPE_TAGS_H#include FT_INTERNAL_SFNT_H#include FT_SERVICE_POSTSCRIPT_CMAPS_H#include FT_INTERNAL_POSTSCRIPT_HINTS_H#include "cffobjs.h"#include "cffload.h"#include "cffcmap.h"#include "cfferrs.h"  /*************************************************************************/  /*                                                                       */  /* The macro FT_COMPONENT is used in trace mode.  It is an implicit      */  /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log  */  /* messages during execution.                                            */  /*                                                                       */#undef  FT_COMPONENT#define FT_COMPONENT  trace_cffobjs  /*************************************************************************/  /*                                                                       */  /*                            SIZE FUNCTIONS                             */  /*                                                                       */  /*  Note that we store the global hints in the size's `internal' root    */  /*  field.                                                               */  /*                                                                       */  /*************************************************************************/  static PSH_Globals_Funcs  cff_size_get_globals_funcs( CFF_Size  size )  {    CFF_Face          face     = (CFF_Face)size->root.face;    CFF_Font          font     = (CFF_FontRec *)face->extra.data;    PSHinter_Service  pshinter = (PSHinter_Service)font->pshinter;    FT_Module         module;    module = FT_Get_Module( size->root.face->driver->root.library,                            "pshinter" );    return ( module && pshinter && pshinter->get_globals_funcs )           ? pshinter->get_globals_funcs( module )           : 0;  }  FT_LOCAL_DEF( void )  cff_size_done( FT_Size  cffsize )        /* CFF_Size */  {    CFF_Size  size = (CFF_Size)cffsize;    if ( cffsize->internal )    {      PSH_Globals_Funcs  funcs;      funcs = cff_size_get_globals_funcs( size );      if ( funcs )        funcs->destroy( (PSH_Globals)cffsize->internal );      cffsize->internal = 0;    }  }  FT_LOCAL_DEF( FT_Error )  cff_size_init( FT_Size  cffsize )         /* CFF_Size */  {    CFF_Size           size  = (CFF_Size)cffsize;    FT_Error           error = CFF_Err_Ok;    PSH_Globals_Funcs  funcs = cff_size_get_globals_funcs( size );    if ( funcs )    {      PSH_Globals    globals;      CFF_Face       face    = (CFF_Face)cffsize->face;      CFF_Font       font    = (CFF_FontRec *)face->extra.data;      CFF_SubFont    subfont = &font->top_font;      CFF_Private    cpriv   = &subfont->private_dict;      PS_PrivateRec  priv;      /* IMPORTANT: The CFF and Type1 private dictionaries have    */      /*            slightly different structures; we need to      */      /*            synthetize a type1 dictionary on the fly here. */      {        FT_UInt  n, count;        FT_MEM_ZERO( &priv, sizeof ( priv ) );        count = priv.num_blue_values = cpriv->num_blue_values;        for ( n = 0; n < count; n++ )          priv.blue_values[n] = (FT_Short)cpriv->blue_values[n];        count = priv.num_other_blues = cpriv->num_other_blues;        for ( n = 0; n < count; n++ )          priv.other_blues[n] = (FT_Short)cpriv->other_blues[n];        count = priv.num_family_blues = cpriv->num_family_blues;        for ( n = 0; n < count; n++ )          priv.family_blues[n] = (FT_Short)cpriv->family_blues[n];        count = priv.num_family_other_blues = cpriv->num_family_other_blues;        for ( n = 0; n < count; n++ )          priv.family_other_blues[n] = (FT_Short)cpriv->family_other_blues[n];        priv.blue_scale = cpriv->blue_scale;        priv.blue_shift = (FT_Int)cpriv->blue_shift;        priv.blue_fuzz  = (FT_Int)cpriv->blue_fuzz;        priv.standard_width[0]  = (FT_UShort)cpriv->standard_width;        priv.standard_height[0] = (FT_UShort)cpriv->standard_height;        count = priv.num_snap_widths = cpriv->num_snap_widths;        for ( n = 0; n < count; n++ )          priv.snap_widths[n] = (FT_Short)cpriv->snap_widths[n];        count = priv.num_snap_heights = cpriv->num_snap_heights;        for ( n = 0; n < count; n++ )          priv.snap_heights[n] = (FT_Short)cpriv->snap_heights[n];        priv.force_bold     = cpriv->force_bold;        priv.language_group = cpriv->language_group;        priv.lenIV          = cpriv->lenIV;      }      error = funcs->create( cffsize->face->memory, &priv, &globals );      if ( !error )        cffsize->internal = (FT_Size_Internal)(void*)globals;    }    size->strike_index = 0xFFFFFFFFUL;    return error;  }#ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS  FT_LOCAL_DEF( FT_Error )  cff_size_select( FT_Size   size,                   FT_ULong  strike_index )  {    CFF_Size           cffsize = (CFF_Size)size;    PSH_Globals_Funcs  funcs;    cffsize->strike_index = strike_index;    FT_Select_Metrics( size->face, strike_index );    funcs = cff_size_get_globals_funcs( cffsize );    if ( funcs )      funcs->set_scale( (PSH_Globals)size->internal,                        size->metrics.x_scale,                        size->metrics.y_scale,                        0, 0 );    return CFF_Err_Ok;  }#endif /* TT_CONFIG_OPTION_EMBEDDED_BITMAPS */  FT_LOCAL_DEF( FT_Error )  cff_size_request( FT_Size          size,                    FT_Size_Request  req )  {    CFF_Size           cffsize = (CFF_Size)size;    PSH_Globals_Funcs  funcs;#ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS    if ( FT_HAS_FIXED_SIZES( size->face ) )    {      CFF_Face      cffface = (CFF_Face)size->face;      SFNT_Service  sfnt    = (SFNT_Service)cffface->sfnt;      FT_ULong      index;      if ( sfnt->set_sbit_strike( cffface, req, &index ) )        cffsize->strike_index = 0xFFFFFFFFUL;      else        return cff_size_select( size, index );    }#endif /* TT_CONFIG_OPTION_EMBEDDED_BITMAPS */    FT_Request_Metrics( size->face, req );    funcs = cff_size_get_globals_funcs( cffsize );    if ( funcs )      funcs->set_scale( (PSH_Globals)size->internal,                        size->metrics.x_scale,                        size->metrics.y_scale,                        0, 0 );    return CFF_Err_Ok;  }  /*************************************************************************/  /*                                                                       */  /*                            SLOT  FUNCTIONS                            */  /*                                                                       */  /*************************************************************************/  FT_LOCAL_DEF( void )  cff_slot_done( FT_GlyphSlot  slot )  {    slot->internal->glyph_hints = 0;  }  FT_LOCAL_DEF( FT_Error )  cff_slot_init( FT_GlyphSlot  slot )  {    CFF_Face          face     = (CFF_Face)slot->face;    CFF_Font          font     = (CFF_FontRec *)face->extra.data;    PSHinter_Service  pshinter = (PSHinter_Service)font->pshinter;    if ( pshinter )    {      FT_Module  module;      module = FT_Get_Module( slot->face->driver->root.library,                              "pshinter" );      if ( module )      {        T2_Hints_Funcs  funcs;        funcs = pshinter->get_t2_funcs( module );        slot->internal->glyph_hints = (void*)funcs;      }    }    return 0;  }  /*************************************************************************/  /*                                                                       */  /*                           FACE  FUNCTIONS                             */  /*                                                                       */  /*************************************************************************/  static FT_String*  cff_strcpy( FT_Memory         memory,              const FT_String*  source )  {    FT_Error    error;    FT_String*  result = 0;    FT_Int      len = (FT_Int)ft_strlen( source );    if ( !FT_ALLOC( result, len + 1 ) )    {      FT_MEM_COPY( result, source, len );      result[len] = 0;    }    FT_UNUSED( error );    return result;  }  FT_LOCAL_DEF( FT_Error )  cff_face_init( FT_Stream      stream,                 FT_Face        cffface,        /* CFF_Face */                 FT_Int         face_index,                 FT_Int         num_params,                 FT_Parameter*  params )  {    CFF_Face            face = (CFF_Face)cffface;    FT_Error            error;    SFNT_Service        sfnt;    FT_Service_PsCMaps  psnames;    PSHinter_Service    pshinter;    FT_Bool             pure_cff    = 1;    FT_Bool             sfnt_format = 0;#if 0    FT_FACE_FIND_GLOBAL_SERVICE( face, sfnt,     SFNT );    FT_FACE_FIND_GLOBAL_SERVICE( face, psnames,  POSTSCRIPT_NAMES );    FT_FACE_FIND_GLOBAL_SERVICE( face, pshinter, POSTSCRIPT_HINTER );    if ( !sfnt )      goto Bad_Format;#else    sfnt = (SFNT_Service)FT_Get_Module_Interface(             cffface->driver->root.library, "sfnt" );    if ( !sfnt )      goto Bad_Format;    FT_FACE_FIND_GLOBAL_SERVICE( face, psnames, POSTSCRIPT_CMAPS );    pshinter = (PSHinter_Service)FT_Get_Module_Interface(                 cffface->driver->root.library, "pshinter" );#endif    /* create input stream from resource */    if ( FT_STREAM_SEEK( 0 ) )      goto Exit;    /* check whether we have a valid OpenType file */    error = sfnt->init_face( stream, face, face_index, num_params, params );    if ( !error )    {      if ( face->format_tag != 0x4F54544FL )  /* `OTTO'; OpenType/CFF font */      {        FT_TRACE2(( "[not a valid OpenType/CFF font]\n" ));        goto Bad_Format;      }      /* if we are performing a simple font format check, exit immediately */      if ( face_index < 0 )        return CFF_Err_Ok;      /* UNDOCUMENTED!  A CFF in an SFNT can have only a single font. */      if ( face_index > 0 )      {        FT_ERROR(( "cff_face_init: invalid face index\n" ));        error = CFF_Err_Invalid_Argument;        goto Exit;      }      sfnt_format = 1;      /* now, the font can be either an OpenType/CFF font, or an SVG CEF */      /* font; in the latter case it doesn't have a `head' table         */      error = face->goto_table( face, TTAG_head, stream, 0 );      if ( !error )      {        pure_cff = 0;        /* load font directory */        error = sfnt->load_face( stream, face,                                 face_index, num_params, params );        if ( error )          goto Exit;      }      else      {        /* load the `cmap' table explicitly */        error = sfnt->load_cmap( face, stream );        if ( error )          goto Exit;        /* XXX: we don't load the GPOS table, as OpenType Layout     */        /* support will be added later to a layout library on top of */        /* FreeType 2                                                */      }      /* now load the CFF part of the file */      error = face->goto_table( face, TTAG_CFF, stream, 0 );      if ( error )        goto Exit;