/***************************************************************************//*                                                                         *//*  t42objs.c                                                              *//*                                                                         *//*    Type 42 objects manager (body).                                      *//*                                                                         *//*  Copyright 2002, 2003, 2004, 2005, 2006 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;    FT_Service_PsCMaps  psnames;    PSAux_Service       psaux;    FT_Face             root  = (FT_Face)&face->root;    T1_Font             type1 = &face->type1;    PS_FontInfo         info  = &type1->font_info;    FT_UNUSED( num_params );    FT_UNUSED( params );    FT_UNUSED( face_index );    FT_UNUSED( stream );    face->ttf_face       = NULL;    face->root.num_faces = 1;    FT_FACE_FIND_GLOBAL_SERVICE( face, psnames, POSTSCRIPT_CMAPS );    face->psnames = 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   = type1->num_glyphs;    root->num_charmaps = 0;    root->face_index   = face_index;    root->face_flags = FT_FACE_FLAG_SCALABLE    |                       FT_FACE_FLAG_HORIZONTAL  |                       FT_FACE_FLAG_GLYPH_NAMES;    if ( info->is_fixed_pitch )      root->face_flags |= FT_FACE_FLAG_FIXED_WIDTH;#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER    root->face_flags |= FT_FACE_FLAG_HINTER;#endif    /* XXX: TODO -- add kerning with .afm support */    /* get style name -- be careful, some broken fonts only */    /* have a `/FontName' dictionary entry!                 */    root->family_name = info->family_name;    /* assume "Regular" style if we don't know better */    root->style_name = (char *)"Regular";    if ( root->family_name )    {      char*  full   = info->full_name;      char*  family = root->family_name;      if ( full )      {        while ( *full )        {          if ( *full == *family )          {            family++;            full++;          }          else          {            if ( *full == ' ' || *full == '-' )              full++;            else if ( *family == ' ' || *family == '-' )              family++;            else            {              if ( !*family )                root->style_name = full;              break;            }          }        }      }    }    else    {      /* do we have a `/FontName'? */      if ( type1->font_name )        root->family_name = type1->font_name;    }    /* no embedded bitmap support */    root->num_fixed_sizes = 0;    root->available_sizes = 0;    /* Load the TTF font embedded in the T42 font */    {      FT_Open_Args  args;      args.flags       = FT_OPEN_MEMORY;      args.memory_base = face->ttf_data;      args.memory_size = face->ttf_size;      if ( num_params )      {        args.flags     |= FT_OPEN_PARAMS;        args.num_params = num_params;        args.params     = params;      }      error = FT_Open_Face( FT_FACE_LIBRARY( face ),                            &args, 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  = (FT_Short)info->underline_position;    root->underline_thickness = (FT_Short)info->underline_thickness;    /* compute style flags */    root->style_flags = 0;    if ( 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;    {      if ( psnames && psaux )      {        FT_CharMapRec    charmap;        T1_CMap_Classes  cmap_classes = psaux->t1_cmap_classes;        FT_CMap_Class    clazz;