1 /****************************************************************************
2  *
3  * t1driver.c
4  *
5  *   Type 1 driver interface (body).
6  *
7  * Copyright (C) 1996-2019 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 <ft2build.h>
20 #include "t1driver.h"
21 #include "t1gload.h"
22 #include "t1load.h"
23 
24 #include "t1errors.h"
25 
26 #ifndef T1_CONFIG_OPTION_NO_AFM
27 #include "t1afm.h"
28 #endif
29 
30 #include FT_INTERNAL_DEBUG_H
31 #include FT_INTERNAL_STREAM_H
32 #include FT_INTERNAL_HASH_H
33 #include FT_INTERNAL_POSTSCRIPT_PROPS_H
34 #include FT_DRIVER_H
35 
36 #include FT_SERVICE_MULTIPLE_MASTERS_H
37 #include FT_SERVICE_GLYPH_DICT_H
38 #include FT_SERVICE_FONT_FORMAT_H
39 #include FT_SERVICE_POSTSCRIPT_NAME_H
40 #include FT_SERVICE_POSTSCRIPT_CMAPS_H
41 #include FT_SERVICE_POSTSCRIPT_INFO_H
42 #include FT_SERVICE_PROPERTIES_H
43 #include FT_SERVICE_KERNING_H
44 
45 
46   /**************************************************************************
47    *
48    * The macro FT_COMPONENT is used in trace mode.  It is an implicit
49    * parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log
50    * messages during execution.
51    */
52 #undef  FT_COMPONENT
53 #define FT_COMPONENT  t1driver
54 
55   /*
56    * GLYPH DICT SERVICE
57    *
58    */
59 
60   static FT_Error
t1_get_glyph_name(T1_Face face,FT_UInt glyph_index,FT_Pointer buffer,FT_UInt buffer_max)61   t1_get_glyph_name( T1_Face     face,
62                      FT_UInt     glyph_index,
63                      FT_Pointer  buffer,
64                      FT_UInt     buffer_max )
65   {
66     FT_STRCPYN( buffer, face->type1.glyph_names[glyph_index], buffer_max );
67 
68     return FT_Err_Ok;
69   }
70 
71 
72   static FT_UInt
t1_get_name_index(T1_Face face,const FT_String * glyph_name)73   t1_get_name_index( T1_Face           face,
74                      const FT_String*  glyph_name )
75   {
76     FT_Int  i;
77 
78 
79     for ( i = 0; i < face->type1.num_glyphs; i++ )
80     {
81       FT_String*  gname = face->type1.glyph_names[i];
82 
83 
84       if ( !ft_strcmp( glyph_name, gname ) )
85         return (FT_UInt)i;
86     }
87 
88     return 0;
89   }
90 
91 
92   static const FT_Service_GlyphDictRec  t1_service_glyph_dict =
93   {
94     (FT_GlyphDict_GetNameFunc)  t1_get_glyph_name,    /* get_name   */
95     (FT_GlyphDict_NameIndexFunc)t1_get_name_index     /* name_index */
96   };
97 
98 
99   /*
100    * POSTSCRIPT NAME SERVICE
101    *
102    */
103 
104   static const char*
t1_get_ps_name(T1_Face face)105   t1_get_ps_name( T1_Face  face )
106   {
107     return (const char*) face->type1.font_name;
108   }
109 
110 
111   static const FT_Service_PsFontNameRec  t1_service_ps_name =
112   {
113     (FT_PsName_GetFunc)t1_get_ps_name     /* get_ps_font_name */
114   };
115 
116 
117   /*
118    * MULTIPLE MASTERS SERVICE
119    *
120    */
121 
122 #ifndef T1_CONFIG_OPTION_NO_MM_SUPPORT
123   static const FT_Service_MultiMastersRec  t1_service_multi_masters =
124   {
125     (FT_Get_MM_Func)             T1_Get_Multi_Master,    /* get_mm              */
126     (FT_Set_MM_Design_Func)      T1_Set_MM_Design,       /* set_mm_design       */
127     (FT_Set_MM_Blend_Func)       T1_Set_MM_Blend,        /* set_mm_blend        */
128     (FT_Get_MM_Blend_Func)       T1_Get_MM_Blend,        /* get_mm_blend        */
129     (FT_Get_MM_Var_Func)         T1_Get_MM_Var,          /* get_mm_var          */
130     (FT_Set_Var_Design_Func)     T1_Set_Var_Design,      /* set_var_design      */
131     (FT_Get_Var_Design_Func)     T1_Get_Var_Design,      /* get_var_design      */
132     (FT_Set_Instance_Func)       T1_Reset_MM_Blend,      /* set_instance        */
133     (FT_Set_MM_WeightVector_Func)T1_Set_MM_WeightVector, /* set_mm_weightvector */
134     (FT_Get_MM_WeightVector_Func)T1_Get_MM_WeightVector, /* get_mm_weightvector */
135 
136     (FT_Get_Var_Blend_Func)      NULL,                   /* get_var_blend       */
137     (FT_Done_Blend_Func)         T1_Done_Blend           /* done_blend          */
138   };
139 #endif
140 
141 
142   /*
143    * POSTSCRIPT INFO SERVICE
144    *
145    */
146 
147   static FT_Error
t1_ps_get_font_info(FT_Face face,PS_FontInfoRec * afont_info)148   t1_ps_get_font_info( FT_Face          face,
149                        PS_FontInfoRec*  afont_info )
150   {
151     *afont_info = ((T1_Face)face)->type1.font_info;
152 
153     return FT_Err_Ok;
154   }
155 
156 
157   static FT_Error
t1_ps_get_font_extra(FT_Face face,PS_FontExtraRec * afont_extra)158   t1_ps_get_font_extra( FT_Face           face,
159                         PS_FontExtraRec*  afont_extra )
160   {
161     *afont_extra = ((T1_Face)face)->type1.font_extra;
162 
163     return FT_Err_Ok;
164   }
165 
166 
167   static FT_Int
t1_ps_has_glyph_names(FT_Face face)168   t1_ps_has_glyph_names( FT_Face  face )
169   {
170     FT_UNUSED( face );
171 
172     return 1;
173   }
174 
175 
176   static FT_Error
t1_ps_get_font_private(FT_Face face,PS_PrivateRec * afont_private)177   t1_ps_get_font_private( FT_Face         face,
178                           PS_PrivateRec*  afont_private )
179   {
180     *afont_private = ((T1_Face)face)->type1.private_dict;
181 
182     return FT_Err_Ok;
183   }
184 
185 
186   static FT_Long
t1_ps_get_font_value(FT_Face face,PS_Dict_Keys key,FT_UInt idx,void * value,FT_Long value_len_)187   t1_ps_get_font_value( FT_Face       face,
188                         PS_Dict_Keys  key,
189                         FT_UInt       idx,
190                         void         *value,
191                         FT_Long       value_len_ )
192   {
193     FT_ULong  retval    = 0; /* always >= 1 if valid */
194     FT_ULong  value_len = value_len_ < 0 ? 0 : (FT_ULong)value_len_;
195 
196     T1_Face  t1face = (T1_Face)face;
197     T1_Font  type1  = &t1face->type1;
198 
199 
200     switch ( key )
201     {
202     case PS_DICT_FONT_TYPE:
203       retval = sizeof ( type1->font_type );
204       if ( value && value_len >= retval )
205         *((FT_Byte *)value) = type1->font_type;
206       break;
207 
208     case PS_DICT_FONT_MATRIX:
209       if ( idx < sizeof ( type1->font_matrix ) /
210                    sizeof ( type1->font_matrix.xx ) )
211       {
212         FT_Fixed  val = 0;
213 
214 
215         retval = sizeof ( val );
216         if ( value && value_len >= retval )
217         {
218           switch ( idx )
219           {
220           case 0:
221             val = type1->font_matrix.xx;
222             break;
223           case 1:
224             val = type1->font_matrix.xy;
225             break;
226           case 2:
227             val = type1->font_matrix.yx;
228             break;
229           case 3:
230             val = type1->font_matrix.yy;
231             break;
232           }
233           *((FT_Fixed *)value) = val;
234         }
235       }
236       break;
237 
238     case PS_DICT_FONT_BBOX:
239       if ( idx < sizeof ( type1->font_bbox ) /
240                    sizeof ( type1->font_bbox.xMin ) )
241       {
242         FT_Fixed  val = 0;
243 
244 
245         retval = sizeof ( val );
246         if ( value && value_len >= retval )
247         {
248           switch ( idx )
249           {
250           case 0:
251             val = type1->font_bbox.xMin;
252             break;
253           case 1:
254             val = type1->font_bbox.yMin;
255             break;
256           case 2:
257             val = type1->font_bbox.xMax;
258             break;
259           case 3:
260             val = type1->font_bbox.yMax;
261             break;
262           }
263           *((FT_Fixed *)value) = val;
264         }
265       }
266       break;
267 
268     case PS_DICT_PAINT_TYPE:
269       retval = sizeof ( type1->paint_type );
270       if ( value && value_len >= retval )
271         *((FT_Byte *)value) = type1->paint_type;
272       break;
273 
274     case PS_DICT_FONT_NAME:
275       if ( type1->font_name )
276       {
277         retval = ft_strlen( type1->font_name ) + 1;
278         if ( value && value_len >= retval )
279           ft_memcpy( value, (void *)( type1->font_name ), retval );
280       }
281       break;
282 
283     case PS_DICT_UNIQUE_ID:
284       retval = sizeof ( type1->private_dict.unique_id );
285       if ( value && value_len >= retval )
286         *((FT_Int *)value) = type1->private_dict.unique_id;
287       break;
288 
289     case PS_DICT_NUM_CHAR_STRINGS:
290       retval = sizeof ( type1->num_glyphs );
291       if ( value && value_len >= retval )
292         *((FT_Int *)value) = type1->num_glyphs;
293       break;
294 
295     case PS_DICT_CHAR_STRING_KEY:
296       if ( idx < (FT_UInt)type1->num_glyphs )
297       {
298         retval = ft_strlen( type1->glyph_names[idx] ) + 1;
299         if ( value && value_len >= retval )
300         {
301           ft_memcpy( value, (void *)( type1->glyph_names[idx] ), retval );
302           ((FT_Char *)value)[retval - 1] = (FT_Char)'\0';
303         }
304       }
305       break;
306 
307     case PS_DICT_CHAR_STRING:
308       if ( idx < (FT_UInt)type1->num_glyphs )
309       {
310         retval = type1->charstrings_len[idx] + 1;
311         if ( value && value_len >= retval )
312         {
313           ft_memcpy( value, (void *)( type1->charstrings[idx] ),
314                      retval - 1 );
315           ((FT_Char *)value)[retval - 1] = (FT_Char)'\0';
316         }
317       }
318       break;
319 
320     case PS_DICT_ENCODING_TYPE:
321       retval = sizeof ( type1->encoding_type );
322       if ( value && value_len >= retval )
323         *((T1_EncodingType *)value) = type1->encoding_type;
324       break;
325 
326     case PS_DICT_ENCODING_ENTRY:
327       if ( type1->encoding_type == T1_ENCODING_TYPE_ARRAY &&
328            idx < (FT_UInt)type1->encoding.num_chars       )
329       {
330         retval = ft_strlen( type1->encoding.char_name[idx] ) + 1;
331         if ( value && value_len >= retval )
332         {
333           ft_memcpy( value, (void *)( type1->encoding.char_name[idx] ),
334                      retval - 1 );
335           ((FT_Char *)value)[retval - 1] = (FT_Char)'\0';
336         }
337       }
338       break;
339 
340     case PS_DICT_NUM_SUBRS:
341       retval = sizeof ( type1->num_subrs );
342       if ( value && value_len >= retval )
343         *((FT_Int *)value) = type1->num_subrs;
344       break;
345 
346     case PS_DICT_SUBR:
347       {
348         FT_Bool  ok = 0;
349 
350 
351         if ( type1->subrs_hash )
352         {
353           /* convert subr index to array index */
354           size_t*  val = ft_hash_num_lookup( (FT_Int)idx,
355                                              type1->subrs_hash );
356 
357 
358           if ( val )
359           {
360             idx = *val;
361             ok  = 1;
362           }
363         }
364         else
365         {
366           if ( idx < (FT_UInt)type1->num_subrs )
367             ok = 1;
368         }
369 
370         if ( ok && type1->subrs )
371         {
372           retval = type1->subrs_len[idx] + 1;
373           if ( value && value_len >= retval )
374           {
375             ft_memcpy( value, (void *)( type1->subrs[idx] ), retval - 1 );
376             ((FT_Char *)value)[retval - 1] = (FT_Char)'\0';
377           }
378         }
379       }
380       break;
381 
382     case PS_DICT_STD_HW:
383       retval = sizeof ( type1->private_dict.standard_width[0] );
384       if ( value && value_len >= retval )
385         *((FT_UShort *)value) = type1->private_dict.standard_width[0];
386       break;
387 
388     case PS_DICT_STD_VW:
389       retval = sizeof ( type1->private_dict.standard_height[0] );
390       if ( value && value_len >= retval )
391         *((FT_UShort *)value) = type1->private_dict.standard_height[0];
392       break;
393 
394     case PS_DICT_NUM_BLUE_VALUES:
395       retval = sizeof ( type1->private_dict.num_blue_values );
396       if ( value && value_len >= retval )
397         *((FT_Byte *)value) = type1->private_dict.num_blue_values;
398       break;
399 
400     case PS_DICT_BLUE_VALUE:
401       if ( idx < type1->private_dict.num_blue_values )
402       {
403         retval = sizeof ( type1->private_dict.blue_values[idx] );
404         if ( value && value_len >= retval )
405           *((FT_Short *)value) = type1->private_dict.blue_values[idx];
406       }
407       break;
408 
409     case PS_DICT_BLUE_SCALE:
410       retval = sizeof ( type1->private_dict.blue_scale );
411       if ( value && value_len >= retval )
412         *((FT_Fixed *)value) = type1->private_dict.blue_scale;
413       break;
414 
415     case PS_DICT_BLUE_FUZZ:
416       retval = sizeof ( type1->private_dict.blue_fuzz );
417       if ( value && value_len >= retval )
418         *((FT_Int *)value) = type1->private_dict.blue_fuzz;
419       break;
420 
421     case PS_DICT_BLUE_SHIFT:
422       retval = sizeof ( type1->private_dict.blue_shift );
423       if ( value && value_len >= retval )
424         *((FT_Int *)value) = type1->private_dict.blue_shift;
425       break;
426 
427     case PS_DICT_NUM_OTHER_BLUES:
428       retval = sizeof ( type1->private_dict.num_other_blues );
429       if ( value && value_len >= retval )
430         *((FT_Byte *)value) = type1->private_dict.num_other_blues;
431       break;
432 
433     case PS_DICT_OTHER_BLUE:
434       if ( idx < type1->private_dict.num_other_blues )
435       {
436         retval = sizeof ( type1->private_dict.other_blues[idx] );
437         if ( value && value_len >= retval )
438           *((FT_Short *)value) = type1->private_dict.other_blues[idx];
439       }
440       break;
441 
442     case PS_DICT_NUM_FAMILY_BLUES:
443       retval = sizeof ( type1->private_dict.num_family_blues );
444       if ( value && value_len >= retval )
445         *((FT_Byte *)value) = type1->private_dict.num_family_blues;
446       break;
447 
448     case PS_DICT_FAMILY_BLUE:
449       if ( idx < type1->private_dict.num_family_blues )
450       {
451         retval = sizeof ( type1->private_dict.family_blues[idx] );
452         if ( value && value_len >= retval )
453           *((FT_Short *)value) = type1->private_dict.family_blues[idx];
454       }
455       break;
456 
457     case PS_DICT_NUM_FAMILY_OTHER_BLUES:
458       retval = sizeof ( type1->private_dict.num_family_other_blues );
459       if ( value && value_len >= retval )
460         *((FT_Byte *)value) = type1->private_dict.num_family_other_blues;
461       break;
462 
463     case PS_DICT_FAMILY_OTHER_BLUE:
464       if ( idx < type1->private_dict.num_family_other_blues )
465       {
466         retval = sizeof ( type1->private_dict.family_other_blues[idx] );
467         if ( value && value_len >= retval )
468           *((FT_Short *)value) = type1->private_dict.family_other_blues[idx];
469       }
470       break;
471 
472     case PS_DICT_NUM_STEM_SNAP_H:
473       retval = sizeof ( type1->private_dict.num_snap_widths );
474       if ( value && value_len >= retval )
475         *((FT_Byte *)value) = type1->private_dict.num_snap_widths;
476       break;
477 
478     case PS_DICT_STEM_SNAP_H:
479       if ( idx < type1->private_dict.num_snap_widths )
480       {
481         retval = sizeof ( type1->private_dict.snap_widths[idx] );
482         if ( value && value_len >= retval )
483           *((FT_Short *)value) = type1->private_dict.snap_widths[idx];
484       }
485       break;
486 
487     case PS_DICT_NUM_STEM_SNAP_V:
488       retval = sizeof ( type1->private_dict.num_snap_heights );
489       if ( value && value_len >= retval )
490         *((FT_Byte *)value) = type1->private_dict.num_snap_heights;
491       break;
492 
493     case PS_DICT_STEM_SNAP_V:
494       if ( idx < type1->private_dict.num_snap_heights )
495       {
496         retval = sizeof ( type1->private_dict.snap_heights[idx] );
497         if ( value && value_len >= retval )
498           *((FT_Short *)value) = type1->private_dict.snap_heights[idx];
499       }
500       break;
501 
502     case PS_DICT_RND_STEM_UP:
503       retval = sizeof ( type1->private_dict.round_stem_up );
504       if ( value && value_len >= retval )
505         *((FT_Bool *)value) = type1->private_dict.round_stem_up;
506       break;
507 
508     case PS_DICT_FORCE_BOLD:
509       retval = sizeof ( type1->private_dict.force_bold );
510       if ( value && value_len >= retval )
511         *((FT_Bool *)value) = type1->private_dict.force_bold;
512       break;
513 
514     case PS_DICT_MIN_FEATURE:
515       if ( idx < sizeof ( type1->private_dict.min_feature ) /
516                    sizeof ( type1->private_dict.min_feature[0] ) )
517       {
518         retval = sizeof ( type1->private_dict.min_feature[idx] );
519         if ( value && value_len >= retval )
520           *((FT_Short *)value) = type1->private_dict.min_feature[idx];
521       }
522       break;
523 
524     case PS_DICT_LEN_IV:
525       retval = sizeof ( type1->private_dict.lenIV );
526       if ( value && value_len >= retval )
527         *((FT_Int *)value) = type1->private_dict.lenIV;
528       break;
529 
530     case PS_DICT_PASSWORD:
531       retval = sizeof ( type1->private_dict.password );
532       if ( value && value_len >= retval )
533         *((FT_Long *)value) = type1->private_dict.password;
534       break;
535 
536     case PS_DICT_LANGUAGE_GROUP:
537       retval = sizeof ( type1->private_dict.language_group );
538       if ( value && value_len >= retval )
539         *((FT_Long *)value) = type1->private_dict.language_group;
540       break;
541 
542     case PS_DICT_IS_FIXED_PITCH:
543       retval = sizeof ( type1->font_info.is_fixed_pitch );
544       if ( value && value_len >= retval )
545         *((FT_Bool *)value) = type1->font_info.is_fixed_pitch;
546       break;
547 
548     case PS_DICT_UNDERLINE_POSITION:
549       retval = sizeof ( type1->font_info.underline_position );
550       if ( value && value_len >= retval )
551         *((FT_Short *)value) = type1->font_info.underline_position;
552       break;
553 
554     case PS_DICT_UNDERLINE_THICKNESS:
555       retval = sizeof ( type1->font_info.underline_thickness );
556       if ( value && value_len >= retval )
557         *((FT_UShort *)value) = type1->font_info.underline_thickness;
558       break;
559 
560     case PS_DICT_FS_TYPE:
561       retval = sizeof ( type1->font_extra.fs_type );
562       if ( value && value_len >= retval )
563         *((FT_UShort *)value) = type1->font_extra.fs_type;
564       break;
565 
566     case PS_DICT_VERSION:
567       if ( type1->font_info.version )
568       {
569         retval = ft_strlen( type1->font_info.version ) + 1;
570         if ( value && value_len >= retval )
571           ft_memcpy( value, (void *)( type1->font_info.version ), retval );
572       }
573       break;
574 
575     case PS_DICT_NOTICE:
576       if ( type1->font_info.notice )
577       {
578         retval = ft_strlen( type1->font_info.notice ) + 1;
579         if ( value && value_len >= retval )
580           ft_memcpy( value, (void *)( type1->font_info.notice ), retval );
581       }
582       break;
583 
584     case PS_DICT_FULL_NAME:
585       if ( type1->font_info.full_name )
586       {
587         retval = ft_strlen( type1->font_info.full_name ) + 1;
588         if ( value && value_len >= retval )
589           ft_memcpy( value, (void *)( type1->font_info.full_name ), retval );
590       }
591       break;
592 
593     case PS_DICT_FAMILY_NAME:
594       if ( type1->font_info.family_name )
595       {
596         retval = ft_strlen( type1->font_info.family_name ) + 1;
597         if ( value && value_len >= retval )
598           ft_memcpy( value, (void *)( type1->font_info.family_name ),
599                      retval );
600       }
601       break;
602 
603     case PS_DICT_WEIGHT:
604       if ( type1->font_info.weight )
605       {
606         retval = ft_strlen( type1->font_info.weight ) + 1;
607         if ( value && value_len >= retval )
608           ft_memcpy( value, (void *)( type1->font_info.weight ), retval );
609       }
610       break;
611 
612     case PS_DICT_ITALIC_ANGLE:
613       retval = sizeof ( type1->font_info.italic_angle );
614       if ( value && value_len >= retval )
615         *((FT_Long *)value) = type1->font_info.italic_angle;
616       break;
617     }
618 
619     return retval == 0 ? -1 : (FT_Long)retval;
620   }
621 
622 
623   static const FT_Service_PsInfoRec  t1_service_ps_info =
624   {
625     (PS_GetFontInfoFunc)   t1_ps_get_font_info,    /* ps_get_font_info    */
626     (PS_GetFontExtraFunc)  t1_ps_get_font_extra,   /* ps_get_font_extra   */
627     (PS_HasGlyphNamesFunc) t1_ps_has_glyph_names,  /* ps_has_glyph_names  */
628     (PS_GetFontPrivateFunc)t1_ps_get_font_private, /* ps_get_font_private */
629     (PS_GetFontValueFunc)  t1_ps_get_font_value,   /* ps_get_font_value   */
630   };
631 
632 
633 #ifndef T1_CONFIG_OPTION_NO_AFM
634   static const FT_Service_KerningRec  t1_service_kerning =
635   {
636     T1_Get_Track_Kerning,       /* get_track */
637   };
638 #endif
639 
640 
641   /*
642    * PROPERTY SERVICE
643    *
644    */
645 
646   FT_DEFINE_SERVICE_PROPERTIESREC(
647     t1_service_properties,
648 
649     (FT_Properties_SetFunc)ps_property_set,      /* set_property */
650     (FT_Properties_GetFunc)ps_property_get )     /* get_property */
651 
652 
653   /*
654    * SERVICE LIST
655    *
656    */
657 
658   static const FT_ServiceDescRec  t1_services[] =
659   {
660     { FT_SERVICE_ID_POSTSCRIPT_FONT_NAME, &t1_service_ps_name },
661     { FT_SERVICE_ID_GLYPH_DICT,           &t1_service_glyph_dict },
662     { FT_SERVICE_ID_FONT_FORMAT,          FT_FONT_FORMAT_TYPE_1 },
663     { FT_SERVICE_ID_POSTSCRIPT_INFO,      &t1_service_ps_info },
664     { FT_SERVICE_ID_PROPERTIES,           &t1_service_properties },
665 
666 #ifndef T1_CONFIG_OPTION_NO_AFM
667     { FT_SERVICE_ID_KERNING,              &t1_service_kerning },
668 #endif
669 
670 #ifndef T1_CONFIG_OPTION_NO_MM_SUPPORT
671     { FT_SERVICE_ID_MULTI_MASTERS,        &t1_service_multi_masters },
672 #endif
673     { NULL, NULL }
674   };
675 
676 
677   FT_CALLBACK_DEF( FT_Module_Interface )
Get_Interface(FT_Module module,const FT_String * t1_interface)678   Get_Interface( FT_Module         module,
679                  const FT_String*  t1_interface )
680   {
681     FT_UNUSED( module );
682 
683     return ft_service_list_lookup( t1_services, t1_interface );
684   }
685 
686 
687 #ifndef T1_CONFIG_OPTION_NO_AFM
688 
689   /**************************************************************************
690    *
691    * @Function:
692    *   Get_Kerning
693    *
694    * @Description:
695    *   A driver method used to return the kerning vector between two
696    *   glyphs of the same face.
697    *
698    * @Input:
699    *   face ::
700    *     A handle to the source face object.
701    *
702    *   left_glyph ::
703    *     The index of the left glyph in the kern pair.
704    *
705    *   right_glyph ::
706    *     The index of the right glyph in the kern pair.
707    *
708    * @Output:
709    *   kerning ::
710    *     The kerning vector.  This is in font units for
711    *     scalable formats, and in pixels for fixed-sizes
712    *     formats.
713    *
714    * @Return:
715    *   FreeType error code.  0 means success.
716    *
717    * @Note:
718    *   Only horizontal layouts (left-to-right & right-to-left) are
719    *   supported by this function.  Other layouts, or more sophisticated
720    *   kernings are out of scope of this method (the basic driver
721    *   interface is meant to be simple).
722    *
723    *   They can be implemented by format-specific interfaces.
724    */
725   static FT_Error
Get_Kerning(FT_Face t1face,FT_UInt left_glyph,FT_UInt right_glyph,FT_Vector * kerning)726   Get_Kerning( FT_Face     t1face,        /* T1_Face */
727                FT_UInt     left_glyph,
728                FT_UInt     right_glyph,
729                FT_Vector*  kerning )
730   {
731     T1_Face  face = (T1_Face)t1face;
732 
733 
734     kerning->x = 0;
735     kerning->y = 0;
736 
737     if ( face->afm_data )
738       T1_Get_Kerning( (AFM_FontInfo)face->afm_data,
739                       left_glyph,
740                       right_glyph,
741                       kerning );
742 
743     return FT_Err_Ok;
744   }
745 
746 
747 #endif /* T1_CONFIG_OPTION_NO_AFM */
748 
749 
750   FT_CALLBACK_TABLE_DEF
751   const FT_Driver_ClassRec  t1_driver_class =
752   {
753     {
754       FT_MODULE_FONT_DRIVER       |
755       FT_MODULE_DRIVER_SCALABLE   |
756       FT_MODULE_DRIVER_HAS_HINTER,
757 
758       sizeof ( PS_DriverRec ),
759 
760       "type1",
761       0x10000L,
762       0x20000L,
763 
764       NULL,    /* module-specific interface */
765 
766       T1_Driver_Init,           /* FT_Module_Constructor  module_init   */
767       T1_Driver_Done,           /* FT_Module_Destructor   module_done   */
768       Get_Interface,            /* FT_Module_Requester    get_interface */
769     },
770 
771     sizeof ( T1_FaceRec ),
772     sizeof ( T1_SizeRec ),
773     sizeof ( T1_GlyphSlotRec ),
774 
775     T1_Face_Init,               /* FT_Face_InitFunc  init_face */
776     T1_Face_Done,               /* FT_Face_DoneFunc  done_face */
777     T1_Size_Init,               /* FT_Size_InitFunc  init_size */
778     T1_Size_Done,               /* FT_Size_DoneFunc  done_size */
779     T1_GlyphSlot_Init,          /* FT_Slot_InitFunc  init_slot */
780     T1_GlyphSlot_Done,          /* FT_Slot_DoneFunc  done_slot */
781 
782     T1_Load_Glyph,              /* FT_Slot_LoadFunc  load_glyph */
783 
784 #ifdef T1_CONFIG_OPTION_NO_AFM
785     NULL,                       /* FT_Face_GetKerningFunc   get_kerning  */
786     NULL,                       /* FT_Face_AttachFunc       attach_file  */
787 #else
788     Get_Kerning,                /* FT_Face_GetKerningFunc   get_kerning  */
789     T1_Read_Metrics,            /* FT_Face_AttachFunc       attach_file  */
790 #endif
791     T1_Get_Advances,            /* FT_Face_GetAdvancesFunc  get_advances */
792 
793     T1_Size_Request,            /* FT_Size_RequestFunc  request_size */
794     NULL                        /* FT_Size_SelectFunc   select_size  */
795   };
796 
797 
798 /* END */
799