/***************************************************************************//*                                                                         *//*  t42objs.c                                                              *//*                                                                         *//*    Type 42 objects manager (body).                                      *//*                                                                         *//*  Copyright 2002 by Roberto Alameda.                                     *//*                                                                         *//*  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 "t42objs.h"#include "t42parse.h"#include "t42error.h"#include FT_INTERNAL_DEBUG_H#include FT_INTERNAL_STREAM_H#include FT_LIST_H#undef  FT_COMPONENT#define FT_COMPONENT  trace_t42  static FT_Error  T42_Open_Face( T42_Face  face )  {    T42_LoaderRec  loader;    T42_Parser     parser;    T1_Font        type1 = &face->type1;    FT_Memory      memory = face->root.memory;    FT_Error       error;    PSAux_Service  psaux  = (PSAux_Service)face->psaux;    t42_loader_init( &loader, face );    parser = &loader.parser;    if ( FT_ALLOC( face->ttf_data, 12 ) )      goto Exit;    error = t42_parser_init( parser,                             face->root.stream,                             memory,                             psaux);    if ( error )      goto Exit;    error = t42_parse_dict( face, &loader, parser->base_dict, parser->base_len );    if ( type1->font_type != 42 )    {      error = T42_Err_Unknown_File_Format;      goto Exit;    }    /* now, propagate the charstrings and glyphnames tables */    /* to the Type1 data                                    */    type1->num_glyphs = loader.num_glyphs;    if ( !loader.charstrings.init ) {      FT_ERROR(( "T42_Open_Face: no charstrings array in face!\n" ));      error = T42_Err_Invalid_File_Format;    }    loader.charstrings.init  = 0;    type1->charstrings_block = loader.charstrings.block;    type1->charstrings       = loader.charstrings.elements;    type1->charstrings_len   = loader.charstrings.lengths;    /* we copy the glyph names `block' and `elements' fields; */    /* the `lengths' field must be released later             */    type1->glyph_names_block    = loader.glyph_names.block;    type1->glyph_names          = (FT_String**)loader.glyph_names.elements;    loader.glyph_names.block    = 0;    loader.glyph_names.elements = 0;    /* we must now build type1.encoding when we have a custom array */    if ( type1->encoding_type == T1_ENCODING_TYPE_ARRAY )    {      FT_Int    charcode, idx, min_char, max_char;      FT_Byte*  char_name;      FT_Byte*  glyph_name;      /* OK, we do the following: for each element in the encoding   */      /* table, look up the index of the glyph having the same name  */      /* as defined in the CharStrings array.                        */      /* The index is then stored in type1.encoding.char_index, and  */      /* the name in type1.encoding.char_name                        */      min_char = +32000;      max_char = -32000;      charcode = 0;      for ( ; charcode < loader.encoding_table.max_elems; charcode++ )      {        type1->encoding.char_index[charcode] = 0;        type1->encoding.char_name [charcode] = (char *)".notdef";        char_name = loader.encoding_table.elements[charcode];        if ( char_name )          for ( idx = 0; idx < type1->num_glyphs; idx++ )          {            glyph_name = (FT_Byte*)type1->glyph_names[idx];            if ( ft_strcmp( (const char*)char_name,                            (const char*)glyph_name ) == 0 )            {              type1->encoding.char_index[charcode] = (FT_UShort)idx;              type1->encoding.char_name [charcode] = (char*)glyph_name;              /* Change min/max encoded char only if glyph name is */              /* not /.notdef                                      */              if ( ft_strcmp( (const char*)".notdef",                              (const char*)glyph_name ) != 0 )              {                if ( charcode < min_char ) min_char = charcode;                if ( charcode > max_char ) max_char = charcode;              }              break;            }          }      }      type1->encoding.code_first = min_char;      type1->encoding.code_last  = max_char;      type1->encoding.num_chars  = loader.num_chars;    }  Exit:    t42_loader_done( &loader );    return error;  }  /***************** Driver Functions *************/  FT_LOCAL_DEF( FT_Error )  T42_Face_Init( FT_Stream      stream,                 T42_Face       face,                 FT_Int         face_index,                 FT_Int         num_params,                 FT_Parameter*  params)  {    FT_Error          error;    PSNames_Service   psnames;    PSAux_Service     psaux;    FT_Face           root    = (FT_Face)&face->root;    FT_UNUSED( num_params );    FT_UNUSED( params );    FT_UNUSED( face_index );    FT_UNUSED( stream );    face->ttf_face       = NULL;    face->root.num_faces = 1;    face->psnames = FT_Get_Module_Interface( FT_FACE_LIBRARY( face ),                                             "psnames" );    psnames = (PSNames_Service)face->psnames;    face->psaux = FT_Get_Module_Interface( FT_FACE_LIBRARY( face ),                                           "psaux" );    psaux = (PSAux_Service)face->psaux;    /* open the tokenizer, this will also check the font format */    error = T42_Open_Face( face );    if ( error )      goto Exit;    /* if we just wanted to check the format, leave successfully now */    if ( face_index < 0 )      goto Exit;    /* check the face index */    if ( face_index != 0 )    {      FT_ERROR(( "T42_Face_Init: invalid face index\n" ));      error = T42_Err_Invalid_Argument;      goto Exit;    }    /* Now, load the font program into the face object */    /* Init the face object fields */    /* Now set up root face fields */    root->num_glyphs   = face->type1.num_glyphs;    root->num_charmaps = 0;    root->face_index   = face_index;    root->face_flags  = FT_FACE_FLAG_SCALABLE;    root->face_flags |= FT_FACE_FLAG_HORIZONTAL;    root->face_flags |= FT_FACE_FLAG_GLYPH_NAMES;    if ( face->type1.font_info.is_fixed_pitch )      root->face_flags |= FT_FACE_FLAG_FIXED_WIDTH;    /* XXX: TODO -- add kerning with .afm support */    /* get style name -- be careful, some broken fonts only */    /* have a `/FontName' dictionary entry!                 */    root->family_name = face->type1.font_info.family_name;    if ( root->family_name )    {      char*  full   = face->type1.font_info.full_name;      char*  family = root->family_name;      if ( full )      {        while ( *family && *full == *family )        {          family++;          full++;        }        root->style_name = ( *full == ' ' ? full + 1                                          : (char *)"Regular" );      }      else        root->style_name = (char *)"Regular";    }    else    {      /* do we have a `/FontName'? */      if ( face->type1.font_name )      {        root->family_name = face->type1.font_name;        root->style_name  = (char *)"Regular";      }    }    /* no embedded bitmap support */    root->num_fixed_sizes = 0;    root->available_sizes = 0;    /* Load the TTF font embedded in the T42 font */    error = FT_New_Memory_Face( FT_FACE_LIBRARY( face ),                                face->ttf_data,                                face->ttf_size,                                0,                                &face->ttf_face );    if ( error )      goto Exit;    FT_Done_Size( face->ttf_face->size );    /* Ignore info in FontInfo dictionary and use the info from the  */    /* loaded TTF font.  The PostScript interpreter also ignores it. */    root->bbox         = face->ttf_face->bbox;    root->units_per_EM = face->ttf_face->units_per_EM;    root->ascender  = face->ttf_face->ascender;    root->descender = face->ttf_face->descender;    root->height    = face->ttf_face->height;    root->max_advance_width  = face->ttf_face->max_advance_width;    root->max_advance_height = face->ttf_face->max_advance_height;    root->underline_position  = face->type1.font_info.underline_position;    root->underline_thickness = face->type1.font_info.underline_thickness;    root->internal->max_points   = 0;    root->internal->max_contours = 0;    /* compute style flags */    root->style_flags = 0;    if ( face->type1.font_info.italic_angle )      root->style_flags |= FT_STYLE_FLAG_ITALIC;    if ( face->ttf_face->style_flags & FT_STYLE_FLAG_BOLD )      root->style_flags |= FT_STYLE_FLAG_BOLD;    if ( face->ttf_face->face_flags & FT_FACE_FLAG_VERTICAL )      root->face_flags |= FT_FACE_FLAG_VERTICAL;#ifdef FT_CONFIG_OPTION_USE_CMAPS    {      if ( psnames && psaux )      {        FT_CharMapRec    charmap;        T1_CMap_Classes  cmap_classes = psaux->t1_cmap_classes;        FT_CMap_Class    clazz;        charmap.face = root;        /* first of all, try to synthetize a Unicode charmap */        charmap.platform_id = 3;        charmap.encoding_id = 1;        charmap.encoding    = ft_encoding_unicode;        FT_CMap_New( cmap_classes->unicode, NULL, &charmap, NULL );        /* now, generate an Adobe Standard encoding when appropriate */        charmap.platform_id = 7;        clazz               = NULL;        switch ( face->type1.encoding_type )        {        case T1_ENCODING_TYPE_STANDARD:          charmap.encoding    = ft_encoding_adobe_standard;          charmap.encoding_id = 0;          clazz               = cmap_classes->standard;          break;        case T1_ENCODING_TYPE_EXPERT:          charmap.encoding    = ft_encoding_adobe_expert;          charmap.encoding_id = 1;          clazz               = cmap_classes->expert;          break;        case T1_ENCODING_TYPE_ARRAY:          charmap.encoding    = ft_encoding_adobe_custom;          charmap.encoding_id = 2;          clazz               = cmap_classes->custom;          break;        case T1_ENCODING_TYPE_ISOLATIN1:          charmap.encoding    = ft_encoding_latin_1;          charmap.encoding_id = 3;          clazz               = cmap_classes->unicode;          break;        default:          ;        }        if ( clazz )          FT_CMap_New( clazz, NULL, &charmap, NULL );        /* Select default charmap */        if (root->num_charmaps)          root->charmap = root->charmaps[0];      }    }#else /* !FT_CONFIG_OPTION_USE_CMAPS */    /* charmap support -- synthetize unicode charmap if possible */    {      FT_CharMap  charmap = face->charmaprecs;            /* synthesize a Unicode charmap if there is support in the `PSNames' */      /* module                                                            */      if ( psnames && psnames->unicode_value )      {        error = psnames->build_unicodes( root->memory,                                         face->type1.num_glyphs,                                         (const char**)face->type1.glyph_names,                                         &face->unicode_map );        if ( !error )        {          root->charmap        = charmap;          charmap->face        = (FT_Face)face;          charmap->encoding    = ft_encoding_unicode;          charmap->platform_id = 3;          charmap->encoding_id = 1;          charmap++;        }                /* XXX: Is the following code correct?  It is used in t1objs.c */                /* simply clear the error in case of failure (which really) */        /* means that out of memory or no unicode glyph names       */        error = T42_Err_Ok;      }            /* now, support either the standard, expert, or custom encoding */      charmap->face        = (FT_Face)face;      charmap->platform_id = 7;  /* a new platform id for Adobe fonts? */            switch ( face->type1.encoding_type )      {      case T1_ENCODING_TYPE_STANDARD:        charmap->encoding    = ft_encoding_adobe_standard;        charmap->encoding_id = 0;        break;              case T1_ENCODING_TYPE_EXPERT:        charmap->encoding    = ft_encoding_adobe_expert;        charmap->encoding_id = 1;        break;              case T1_ENCODING_TYPE_ARRAY:        charmap->encoding    = ft_encoding_adobe_custom;        charmap->encoding_id = 2;        break;              case T1_ENCODING_TYPE_ISOLATIN1:        charmap->encoding    = ft_encoding_latin_1;        charmap->encoding_id = 3;        break;              default:        FT_ERROR(( "T42_Face_Init: invalid encoding\n" ));        error = T42_Err_Invalid_File_Format;        goto Exit;      }            root->charmaps     = face->charmaps;      root->num_charmaps = charmap - face->charmaprecs + 1;      face->charmaps[0]  = &face->charmaprecs[0];      face->charmaps[1]  = &face->charmaprecs[1];    }#endif /* !FT_CONFIG_OPTION_USE_CMAPS */  Exit:    return error;  }  FT_LOCAL_DEF( void )  T42_Face_Done( T42_Face  face )  {    T1_Font      type1;    PS_FontInfo  info;    FT_Memory    memory;    if ( face )    {      type1  = &face->type1;      info   = &type1->font_info;      memory = face->root.memory;      /* delete internal ttf face prior to freeing face->ttf_data */      if ( face->ttf_face )        FT_Done_Face( face->ttf_face );      /* release font info strings */      FT_FREE( info->version );      FT_FREE( info->notice );      FT_FREE( info->full_name );      FT_FREE( info->family_name );      FT_FREE( info->weight );      /* release top dictionary */      FT_FREE( type1->charstrings_len );      FT_FREE( type1->charstrings );      FT_FREE( type1->glyph_names );      FT_FREE( type1->charstrings_block );      FT_FREE( type1->glyph_names_block );      FT_FREE( type1->encoding.char_index );      FT_FREE( type1->encoding.char_name );      FT_FREE( type1->font_name );