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