src/psaux/t1cmap.c

   1 /****************************************************************************
   2  *
   3  * t1cmap.c
   4  *
   5  *   Type 1 character map support (body).
   6  *
   7  * Copyright (C) 2002-2023 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 "t1cmap.h"
  20
  21 #include <freetype/internal/ftdebug.h>
  22
  23 #include "psauxerr.h"
  24
  25
  26   /*************************************************************************/
  27   /*************************************************************************/
  28   /*****                                                               *****/
  29   /*****          TYPE1 STANDARD (AND EXPERT) ENCODING CMAPS           *****/
  30   /*****                                                               *****/
  31   /*************************************************************************/
  32   /*************************************************************************/
  33
  34   static void
  35   t1_cmap_std_init( T1_CMapStd  cmap,
  36                     FT_Int      is_expert )
  37   {
  38     T1_Face             face    = (T1_Face)FT_CMAP_FACE( cmap );
  39     FT_Service_PsCMaps  psnames = (FT_Service_PsCMaps)face->psnames;
  40
  41
  42     cmap->num_glyphs    = (FT_UInt)face->type1.num_glyphs;
  43     cmap->glyph_names   = (const char* const*)face->type1.glyph_names;
  44     cmap->sid_to_string = psnames->adobe_std_strings;
  45     cmap->code_to_sid   = is_expert ? psnames->adobe_expert_encoding
  46                                     : psnames->adobe_std_encoding;
  47
  48     FT_ASSERT( cmap->code_to_sid );
  49   }
  50
  51
  52   FT_CALLBACK_DEF( void )
  53   t1_cmap_std_done( FT_CMap  cmap_ )   /* T1_CMapStd */
  54   {
  55     T1_CMapStd  cmap = (T1_CMapStd)cmap_;
  56
  57
  58     cmap->num_glyphs    = 0;
  59     cmap->glyph_names   = NULL;
  60     cmap->sid_to_string = NULL;
  61     cmap->code_to_sid   = NULL;
  62   }
  63
  64
  65   FT_CALLBACK_DEF( FT_UInt )
  66   t1_cmap_std_char_index( FT_CMap    cmap,       /* T1_CMapStd */
  67                           FT_UInt32  char_code )
  68   {
  69     T1_CMapStd  t1cmap = (T1_CMapStd)cmap;
  70     FT_UInt     result = 0;
  71
  72
  73     if ( char_code < 256 )
  74     {
  75       FT_UInt      code, n;
  76       const char*  glyph_name;
  77
  78
  79       /* convert character code to Adobe SID string */
  80       code       = t1cmap->code_to_sid[char_code];
  81       glyph_name = t1cmap->sid_to_string( code );
  82
  83       /* look for the corresponding glyph name */
  84       for ( n = 0; n < t1cmap->num_glyphs; n++ )
  85       {
  86         const char* gname = t1cmap->glyph_names[n];
  87
  88
  89         if ( gname && gname[0] == glyph_name[0]  &&
  90              ft_strcmp( gname, glyph_name ) == 0 )
  91         {
  92           result = n;
  93           break;
  94         }
  95       }
  96     }
  97
  98     return result;
  99   }
 100
 101
 102   FT_CALLBACK_DEF( FT_UInt )
 103   t1_cmap_std_char_next( FT_CMap     cmap,
 104                          FT_UInt32  *pchar_code )
 105   {
 106     FT_UInt    result    = 0;
 107     FT_UInt32  char_code = *pchar_code + 1;
 108
 109
 110     while ( char_code < 256 )
 111     {
 112       result = t1_cmap_std_char_index( cmap, char_code );
 113       if ( result != 0 )
 114         goto Exit;
 115
 116       char_code++;
 117     }
 118     char_code = 0;
 119
 120   Exit:
 121     *pchar_code = char_code;
 122     return result;
 123   }
 124
 125
 126   FT_CALLBACK_DEF( FT_Error )
 127   t1_cmap_standard_init( FT_CMap     cmap,     /* T1_CMapStd */
 128                          FT_Pointer  pointer )
 129   {
 130     T1_CMapStd  t1cmap = (T1_CMapStd)cmap;
 131     FT_UNUSED( pointer );
 132
 133
 134     t1_cmap_std_init( t1cmap, 0 );
 135     return 0;
 136   }
 137
 138
 139   FT_CALLBACK_TABLE_DEF const FT_CMap_ClassRec
 140   t1_cmap_standard_class_rec =
 141   {
 142     sizeof ( T1_CMapStdRec ),
 143
 144     (FT_CMap_InitFunc)     t1_cmap_standard_init,   /* init       */
 145     (FT_CMap_DoneFunc)     t1_cmap_std_done,        /* done       */
 146     (FT_CMap_CharIndexFunc)t1_cmap_std_char_index,  /* char_index */
 147     (FT_CMap_CharNextFunc) t1_cmap_std_char_next,   /* char_next  */
 148
 149     (FT_CMap_CharVarIndexFunc)    NULL,  /* char_var_index   */
 150     (FT_CMap_CharVarIsDefaultFunc)NULL,  /* char_var_default */
 151     (FT_CMap_VariantListFunc)     NULL,  /* variant_list     */
 152     (FT_CMap_CharVariantListFunc) NULL,  /* charvariant_list */
 153     (FT_CMap_VariantCharListFunc) NULL   /* variantchar_list */
 154   };
 155
 156
 157   FT_CALLBACK_DEF( FT_Error )
 158   t1_cmap_expert_init( FT_CMap     cmap,     /* T1_CMapStd */
 159                        FT_Pointer  pointer )
 160   {
 161     T1_CMapStd  t1cmap = (T1_CMapStd)cmap;
 162     FT_UNUSED( pointer );
 163
 164
 165     t1_cmap_std_init( t1cmap, 1 );
 166     return 0;
 167   }
 168
 169   FT_CALLBACK_TABLE_DEF const FT_CMap_ClassRec
 170   t1_cmap_expert_class_rec =
 171   {
 172     sizeof ( T1_CMapStdRec ),
 173
 174     (FT_CMap_InitFunc)     t1_cmap_expert_init,     /* init       */
 175     (FT_CMap_DoneFunc)     t1_cmap_std_done,        /* done       */
 176     (FT_CMap_CharIndexFunc)t1_cmap_std_char_index,  /* char_index */
 177     (FT_CMap_CharNextFunc) t1_cmap_std_char_next,   /* char_next  */
 178
 179     (FT_CMap_CharVarIndexFunc)    NULL,  /* char_var_index   */
 180     (FT_CMap_CharVarIsDefaultFunc)NULL,  /* char_var_default */
 181     (FT_CMap_VariantListFunc)     NULL,  /* variant_list     */
 182     (FT_CMap_CharVariantListFunc) NULL,  /* charvariant_list */
 183     (FT_CMap_VariantCharListFunc) NULL   /* variantchar_list */
 184   };
 185
 186
 187   /*************************************************************************/
 188   /*************************************************************************/
 189   /*****                                                               *****/
 190   /*****                    TYPE1 CUSTOM ENCODING CMAP                 *****/
 191   /*****                                                               *****/
 192   /*************************************************************************/
 193   /*************************************************************************/
 194
 195
 196   FT_CALLBACK_DEF( FT_Error )
 197   t1_cmap_custom_init( FT_CMap     cmap,     /* T1_CMapCustom */
 198                        FT_Pointer  pointer )
 199   {
 200     T1_CMapCustom  t1cmap   = (T1_CMapCustom)cmap;
 201     T1_Face        face     = (T1_Face)FT_CMAP_FACE( cmap );
 202     T1_Encoding    encoding = &face->type1.encoding;
 203
 204     FT_UNUSED( pointer );
 205
 206
 207     t1cmap->first   = (FT_UInt)encoding->code_first;
 208     t1cmap->count   = (FT_UInt)encoding->code_last - t1cmap->first;
 209     t1cmap->indices = encoding->char_index;
 210
 211     FT_ASSERT( t1cmap->indices );
 212     FT_ASSERT( encoding->code_first <= encoding->code_last );
 213
 214     return 0;
 215   }
 216
 217
 218   FT_CALLBACK_DEF( void )
 219   t1_cmap_custom_done( FT_CMap  cmap )   /* T1_CMapCustom */
 220   {
 221     T1_CMapCustom  t1cmap = (T1_CMapCustom)cmap;
 222
 223
 224     t1cmap->indices = NULL;
 225     t1cmap->first   = 0;
 226     t1cmap->count   = 0;
 227   }
 228
 229
 230   FT_CALLBACK_DEF( FT_UInt )
 231   t1_cmap_custom_char_index( FT_CMap    cmap,       /* T1_CMapCustom */
 232                              FT_UInt32  char_code )
 233   {
 234     T1_CMapCustom  t1cmap = (T1_CMapCustom)cmap;
 235     FT_UInt        result = 0;
 236
 237
 238     if ( char_code >= t1cmap->first                    &&
 239          char_code < ( t1cmap->first + t1cmap->count ) )
 240       result = t1cmap->indices[char_code];
 241
 242     return result;
 243   }
 244
 245
 246   FT_CALLBACK_DEF( FT_UInt )
 247   t1_cmap_custom_char_next( FT_CMap     cmap,        /* T1_CMapCustom */
 248                             FT_UInt32  *pchar_code )
 249   {
 250     T1_CMapCustom  t1cmap    = (T1_CMapCustom)cmap;
 251     FT_UInt        result    = 0;
 252     FT_UInt32      char_code = *pchar_code;
 253
 254
 255     char_code++;
 256
 257     if ( char_code < t1cmap->first )
 258       char_code = t1cmap->first;
 259
 260     for ( ; char_code < ( t1cmap->first + t1cmap->count ); char_code++ )
 261     {
 262       result = t1cmap->indices[char_code];
 263       if ( result != 0 )
 264         goto Exit;
 265     }
 266
 267     char_code = 0;
 268
 269   Exit:
 270     *pchar_code = char_code;
 271     return result;
 272   }
 273
 274
 275   FT_CALLBACK_TABLE_DEF const FT_CMap_ClassRec
 276   t1_cmap_custom_class_rec =
 277   {
 278     sizeof ( T1_CMapCustomRec ),
 279
 280     (FT_CMap_InitFunc)     t1_cmap_custom_init,        /* init       */
 281     (FT_CMap_DoneFunc)     t1_cmap_custom_done,        /* done       */
 282     (FT_CMap_CharIndexFunc)t1_cmap_custom_char_index,  /* char_index */
 283     (FT_CMap_CharNextFunc) t1_cmap_custom_char_next,   /* char_next  */
 284
 285     (FT_CMap_CharVarIndexFunc)    NULL,  /* char_var_index   */
 286     (FT_CMap_CharVarIsDefaultFunc)NULL,  /* char_var_default */
 287     (FT_CMap_VariantListFunc)     NULL,  /* variant_list     */
 288     (FT_CMap_CharVariantListFunc) NULL,  /* charvariant_list */
 289     (FT_CMap_VariantCharListFunc) NULL   /* variantchar_list */
 290   };
 291
 292
 293   /*************************************************************************/
 294   /*************************************************************************/
 295   /*****                                                               *****/
 296   /*****            TYPE1 SYNTHETIC UNICODE ENCODING CMAP              *****/
 297   /*****                                                               *****/
 298   /*************************************************************************/
 299   /*************************************************************************/
 300
 301   FT_CALLBACK_DEF( const char * )
 302   psaux_get_glyph_name( void*    face_,
 303                         FT_UInt  idx )
 304   {
 305     T1_Face  face = (T1_Face)face_;
 306
 307
 308     return face->type1.glyph_names[idx];
 309   }
 310
 311
 312   FT_CALLBACK_DEF( FT_Error )
 313   t1_cmap_unicode_init( FT_CMap     cmap,     /* PS_Unicodes */
 314                         FT_Pointer  pointer )
 315   {
 316     PS_Unicodes         unicodes = (PS_Unicodes)cmap;
 317     T1_Face             face     = (T1_Face)FT_CMAP_FACE( cmap );
 318     FT_Memory           memory   = FT_FACE_MEMORY( face );
 319     FT_Service_PsCMaps  psnames  = (FT_Service_PsCMaps)face->psnames;
 320
 321     FT_UNUSED( pointer );
 322
 323
 324     if ( !psnames->unicodes_init )
 325       return FT_THROW( Unimplemented_Feature );
 326
 327     return psnames->unicodes_init( memory,
 328                                    unicodes,
 329                                    (FT_UInt)face->type1.num_glyphs,
 330                                    &psaux_get_glyph_name,
 331                                    (PS_FreeGlyphNameFunc)NULL,
 332                                    (FT_Pointer)face );
 333   }
 334
 335
 336   FT_CALLBACK_DEF( void )
 337   t1_cmap_unicode_done( FT_CMap  cmap )   /* PS_Unicodes */
 338   {
 339     PS_Unicodes  unicodes = (PS_Unicodes)cmap;
 340     FT_Face      face     = FT_CMAP_FACE( cmap );
 341     FT_Memory    memory   = FT_FACE_MEMORY( face );
 342
 343
 344     FT_FREE( unicodes->maps );
 345     unicodes->num_maps = 0;
 346   }
 347
 348
 349   FT_CALLBACK_DEF( FT_UInt )
 350   t1_cmap_unicode_char_index( FT_CMap    cmap,       /* PS_Unicodes */
 351                               FT_UInt32  char_code )
 352   {
 353     PS_Unicodes         unicodes = (PS_Unicodes)cmap;
 354     T1_Face             face     = (T1_Face)FT_CMAP_FACE( cmap );
 355     FT_Service_PsCMaps  psnames  = (FT_Service_PsCMaps)face->psnames;
 356
 357
 358     return psnames->unicodes_char_index( unicodes, char_code );
 359   }
 360
 361
 362   FT_CALLBACK_DEF( FT_UInt )
 363   t1_cmap_unicode_char_next( FT_CMap     cmap,        /* PS_Unicodes */
 364                              FT_UInt32  *pchar_code )
 365   {
 366     PS_Unicodes         unicodes = (PS_Unicodes)cmap;
 367     T1_Face             face     = (T1_Face)FT_CMAP_FACE( cmap );
 368     FT_Service_PsCMaps  psnames  = (FT_Service_PsCMaps)face->psnames;
 369
 370
 371     return psnames->unicodes_char_next( unicodes, pchar_code );
 372   }
 373
 374
 375   FT_CALLBACK_TABLE_DEF const FT_CMap_ClassRec
 376   t1_cmap_unicode_class_rec =
 377   {
 378     sizeof ( PS_UnicodesRec ),
 379
 380     (FT_CMap_InitFunc)     t1_cmap_unicode_init,        /* init       */
 381     (FT_CMap_DoneFunc)     t1_cmap_unicode_done,        /* done       */
 382     (FT_CMap_CharIndexFunc)t1_cmap_unicode_char_index,  /* char_index */
 383     (FT_CMap_CharNextFunc) t1_cmap_unicode_char_next,   /* char_next  */
 384
 385     (FT_CMap_CharVarIndexFunc)    NULL,  /* char_var_index   */
 386     (FT_CMap_CharVarIsDefaultFunc)NULL,  /* char_var_default */
 387     (FT_CMap_VariantListFunc)     NULL,  /* variant_list     */
 388     (FT_CMap_CharVariantListFunc) NULL,  /* charvariant_list */
 389     (FT_CMap_VariantCharListFunc) NULL   /* variantchar_list */
 390   };
 391
 392
 393 /* END */