/***************************************************************************/ /* */ /* t1driver.c */ /* */ /* Type 1 driver interface (body). */ /* */ /* Copyright 1996-2018 by */ /* David Turner, Robert Wilhelm, and Werner Lemberg. */ /* */ /* 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 #include "t1driver.h" #include "t1gload.h" #include "t1load.h" #include "t1errors.h" #ifndef T1_CONFIG_OPTION_NO_AFM #include "t1afm.h" #endif #include FT_INTERNAL_DEBUG_H #include FT_INTERNAL_STREAM_H #include FT_INTERNAL_HASH_H #include FT_INTERNAL_POSTSCRIPT_PROPS_H #include FT_DRIVER_H #include FT_SERVICE_MULTIPLE_MASTERS_H #include FT_SERVICE_GLYPH_DICT_H #include FT_SERVICE_FONT_FORMAT_H #include FT_SERVICE_POSTSCRIPT_NAME_H #include FT_SERVICE_POSTSCRIPT_CMAPS_H #include FT_SERVICE_POSTSCRIPT_INFO_H #include FT_SERVICE_PROPERTIES_H #include FT_SERVICE_KERNING_H /*************************************************************************/ /* */ /* The macro FT_COMPONENT is used in trace mode. It is an implicit */ /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log */ /* messages during execution. */ /* */ #undef FT_COMPONENT #define FT_COMPONENT trace_t1driver /* * GLYPH DICT SERVICE * */ static FT_Error t1_get_glyph_name( T1_Face face, FT_UInt glyph_index, FT_Pointer buffer, FT_UInt buffer_max ) { FT_STRCPYN( buffer, face->type1.glyph_names[glyph_index], buffer_max ); return FT_Err_Ok; } static FT_UInt t1_get_name_index( T1_Face face, FT_String* glyph_name ) { FT_Int i; for ( i = 0; i < face->type1.num_glyphs; i++ ) { FT_String* gname = face->type1.glyph_names[i]; if ( !ft_strcmp( glyph_name, gname ) ) return (FT_UInt)i; } return 0; } static const FT_Service_GlyphDictRec t1_service_glyph_dict = { (FT_GlyphDict_GetNameFunc) t1_get_glyph_name, /* get_name */ (FT_GlyphDict_NameIndexFunc)t1_get_name_index /* name_index */ }; /* * POSTSCRIPT NAME SERVICE * */ static const char* t1_get_ps_name( T1_Face face ) { return (const char*) face->type1.font_name; } static const FT_Service_PsFontNameRec t1_service_ps_name = { (FT_PsName_GetFunc)t1_get_ps_name /* get_ps_font_name */ }; /* * MULTIPLE MASTERS SERVICE * */ #ifndef T1_CONFIG_OPTION_NO_MM_SUPPORT static const FT_Service_MultiMastersRec t1_service_multi_masters = { (FT_Get_MM_Func) T1_Get_Multi_Master, /* get_mm */ (FT_Set_MM_Design_Func) T1_Set_MM_Design, /* set_mm_design */ (FT_Set_MM_Blend_Func) T1_Set_MM_Blend, /* set_mm_blend */ (FT_Get_MM_Blend_Func) T1_Get_MM_Blend, /* get_mm_blend */ (FT_Get_MM_Var_Func) T1_Get_MM_Var, /* get_mm_var */ (FT_Set_Var_Design_Func)T1_Set_Var_Design, /* set_var_design */ (FT_Get_Var_Design_Func)T1_Get_Var_Design, /* get_var_design */ (FT_Set_Instance_Func) T1_Reset_MM_Blend, /* set_instance */ (FT_Get_Var_Blend_Func) NULL, /* get_var_blend */ (FT_Done_Blend_Func) T1_Done_Blend /* done_blend */ }; #endif /* * POSTSCRIPT INFO SERVICE * */ static FT_Error t1_ps_get_font_info( FT_Face face, PS_FontInfoRec* afont_info ) { *afont_info = ((T1_Face)face)->type1.font_info; return FT_Err_Ok; } static FT_Error t1_ps_get_font_extra( FT_Face face, PS_FontExtraRec* afont_extra ) { *afont_extra = ((T1_Face)face)->type1.font_extra; return FT_Err_Ok; } static FT_Int t1_ps_has_glyph_names( FT_Face face ) { FT_UNUSED( face ); return 1; } static FT_Error t1_ps_get_font_private( FT_Face face, PS_PrivateRec* afont_private ) { *afont_private = ((T1_Face)face)->type1.private_dict; return FT_Err_Ok; } static FT_Long t1_ps_get_font_value( FT_Face face, PS_Dict_Keys key, FT_UInt idx, void *value, FT_Long value_len_ ) { FT_ULong retval = 0; /* always >= 1 if valid */ FT_ULong value_len = value_len_ < 0 ? 0 : (FT_ULong)value_len_; T1_Face t1face = (T1_Face)face; T1_Font type1 = &t1face->type1; switch ( key ) { case PS_DICT_FONT_TYPE: retval = sizeof ( type1->font_type ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->font_type; break; case PS_DICT_FONT_MATRIX: if ( idx < sizeof ( type1->font_matrix ) / sizeof ( type1->font_matrix.xx ) ) { FT_Fixed val = 0; retval = sizeof ( val ); if ( value && value_len >= retval ) { switch ( idx ) { case 0: val = type1->font_matrix.xx; break; case 1: val = type1->font_matrix.xy; break; case 2: val = type1->font_matrix.yx; break; case 3: val = type1->font_matrix.yy; break; } *((FT_Fixed *)value) = val; } } break; case PS_DICT_FONT_BBOX: if ( idx < sizeof ( type1->font_bbox ) / sizeof ( type1->font_bbox.xMin ) ) { FT_Fixed val = 0; retval = sizeof ( val ); if ( value && value_len >= retval ) { switch ( idx ) { case 0: val = type1->font_bbox.xMin; break; case 1: val = type1->font_bbox.yMin; break; case 2: val = type1->font_bbox.xMax; break; case 3: val = type1->font_bbox.yMax; break; } *((FT_Fixed *)value) = val; } } break; case PS_DICT_PAINT_TYPE: retval = sizeof ( type1->paint_type ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->paint_type; break; case PS_DICT_FONT_NAME: retval = ft_strlen( type1->font_name ) + 1; if ( value && value_len >= retval ) ft_memcpy( value, (void *)( type1->font_name ), retval ); break; case PS_DICT_UNIQUE_ID: retval = sizeof ( type1->private_dict.unique_id ); if ( value && value_len >= retval ) *((FT_Int *)value) = type1->private_dict.unique_id; break; case PS_DICT_NUM_CHAR_STRINGS: retval = sizeof ( type1->num_glyphs ); if ( value && value_len >= retval ) *((FT_Int *)value) = type1->num_glyphs; break; case PS_DICT_CHAR_STRING_KEY: if ( idx < (FT_UInt)type1->num_glyphs ) { retval = ft_strlen( type1->glyph_names[idx] ) + 1; if ( value && value_len >= retval ) { ft_memcpy( value, (void *)( type1->glyph_names[idx] ), retval ); ((FT_Char *)value)[retval - 1] = (FT_Char)'\0'; } } break; case PS_DICT_CHAR_STRING: if ( idx < (FT_UInt)type1->num_glyphs ) { retval = type1->charstrings_len[idx] + 1; if ( value && value_len >= retval ) { ft_memcpy( value, (void *)( type1->charstrings[idx] ), retval - 1 ); ((FT_Char *)value)[retval - 1] = (FT_Char)'\0'; } } break; case PS_DICT_ENCODING_TYPE: retval = sizeof ( type1->encoding_type ); if ( value && value_len >= retval ) *((T1_EncodingType *)value) = type1->encoding_type; break; case PS_DICT_ENCODING_ENTRY: if ( type1->encoding_type == T1_ENCODING_TYPE_ARRAY && idx < (FT_UInt)type1->encoding.num_chars ) { retval = ft_strlen( type1->encoding.char_name[idx] ) + 1; if ( value && value_len >= retval ) { ft_memcpy( value, (void *)( type1->encoding.char_name[idx] ), retval - 1 ); ((FT_Char *)value)[retval - 1] = (FT_Char)'\0'; } } break; case PS_DICT_NUM_SUBRS: retval = sizeof ( type1->num_subrs ); if ( value && value_len >= retval ) *((FT_Int *)value) = type1->num_subrs; break; case PS_DICT_SUBR: { FT_Bool ok = 0; if ( type1->subrs_hash ) { /* convert subr index to array index */ size_t* val = ft_hash_num_lookup( (FT_Int)idx, type1->subrs_hash ); if ( val ) { idx = *val; ok = 1; } } else { if ( idx < (FT_UInt)type1->num_subrs ) ok = 1; } if ( ok ) { retval = type1->subrs_len[idx] + 1; if ( value && value_len >= retval ) { ft_memcpy( value, (void *)( type1->subrs[idx] ), retval - 1 ); ((FT_Char *)value)[retval - 1] = (FT_Char)'\0'; } } } break; case PS_DICT_STD_HW: retval = sizeof ( type1->private_dict.standard_width[0] ); if ( value && value_len >= retval ) *((FT_UShort *)value) = type1->private_dict.standard_width[0]; break; case PS_DICT_STD_VW: retval = sizeof ( type1->private_dict.standard_height[0] ); if ( value && value_len >= retval ) *((FT_UShort *)value) = type1->private_dict.standard_height[0]; break; case PS_DICT_NUM_BLUE_VALUES: retval = sizeof ( type1->private_dict.num_blue_values ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->private_dict.num_blue_values; break; case PS_DICT_BLUE_VALUE: if ( idx < type1->private_dict.num_blue_values ) { retval = sizeof ( type1->private_dict.blue_values[idx] ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->private_dict.blue_values[idx]; } break; case PS_DICT_BLUE_SCALE: retval = sizeof ( type1->private_dict.blue_scale ); if ( value && value_len >= retval ) *((FT_Fixed *)value) = type1->private_dict.blue_scale; break; case PS_DICT_BLUE_FUZZ: retval = sizeof ( type1->private_dict.blue_fuzz ); if ( value && value_len >= retval ) *((FT_Int *)value) = type1->private_dict.blue_fuzz; break; case PS_DICT_BLUE_SHIFT: retval = sizeof ( type1->private_dict.blue_shift ); if ( value && value_len >= retval ) *((FT_Int *)value) = type1->private_dict.blue_shift; break; case PS_DICT_NUM_OTHER_BLUES: retval = sizeof ( type1->private_dict.num_other_blues ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->private_dict.num_other_blues; break; case PS_DICT_OTHER_BLUE: if ( idx < type1->private_dict.num_other_blues ) { retval = sizeof ( type1->private_dict.other_blues[idx] ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->private_dict.other_blues[idx]; } break; case PS_DICT_NUM_FAMILY_BLUES: retval = sizeof ( type1->private_dict.num_family_blues ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->private_dict.num_family_blues; break; case PS_DICT_FAMILY_BLUE: if ( idx < type1->private_dict.num_family_blues ) { retval = sizeof ( type1->private_dict.family_blues[idx] ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->private_dict.family_blues[idx]; } break; case PS_DICT_NUM_FAMILY_OTHER_BLUES: retval = sizeof ( type1->private_dict.num_family_other_blues ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->private_dict.num_family_other_blues; break; case PS_DICT_FAMILY_OTHER_BLUE: if ( idx < type1->private_dict.num_family_other_blues ) { retval = sizeof ( type1->private_dict.family_other_blues[idx] ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->private_dict.family_other_blues[idx]; } break; case PS_DICT_NUM_STEM_SNAP_H: retval = sizeof ( type1->private_dict.num_snap_widths ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->private_dict.num_snap_widths; break; case PS_DICT_STEM_SNAP_H: if ( idx < type1->private_dict.num_snap_widths ) { retval = sizeof ( type1->private_dict.snap_widths[idx] ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->private_dict.snap_widths[idx]; } break; case PS_DICT_NUM_STEM_SNAP_V: retval = sizeof ( type1->private_dict.num_snap_heights ); if ( value && value_len >= retval ) *((FT_Byte *)value) = type1->private_dict.num_snap_heights; break; case PS_DICT_STEM_SNAP_V: if ( idx < type1->private_dict.num_snap_heights ) { retval = sizeof ( type1->private_dict.snap_heights[idx] ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->private_dict.snap_heights[idx]; } break; case PS_DICT_RND_STEM_UP: retval = sizeof ( type1->private_dict.round_stem_up ); if ( value && value_len >= retval ) *((FT_Bool *)value) = type1->private_dict.round_stem_up; break; case PS_DICT_FORCE_BOLD: retval = sizeof ( type1->private_dict.force_bold ); if ( value && value_len >= retval ) *((FT_Bool *)value) = type1->private_dict.force_bold; break; case PS_DICT_MIN_FEATURE: if ( idx < sizeof ( type1->private_dict.min_feature ) / sizeof ( type1->private_dict.min_feature[0] ) ) { retval = sizeof ( type1->private_dict.min_feature[idx] ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->private_dict.min_feature[idx]; } break; case PS_DICT_LEN_IV: retval = sizeof ( type1->private_dict.lenIV ); if ( value && value_len >= retval ) *((FT_Int *)value) = type1->private_dict.lenIV; break; case PS_DICT_PASSWORD: retval = sizeof ( type1->private_dict.password ); if ( value && value_len >= retval ) *((FT_Long *)value) = type1->private_dict.password; break; case PS_DICT_LANGUAGE_GROUP: retval = sizeof ( type1->private_dict.language_group ); if ( value && value_len >= retval ) *((FT_Long *)value) = type1->private_dict.language_group; break; case PS_DICT_IS_FIXED_PITCH: retval = sizeof ( type1->font_info.is_fixed_pitch ); if ( value && value_len >= retval ) *((FT_Bool *)value) = type1->font_info.is_fixed_pitch; break; case PS_DICT_UNDERLINE_POSITION: retval = sizeof ( type1->font_info.underline_position ); if ( value && value_len >= retval ) *((FT_Short *)value) = type1->font_info.underline_position; break; case PS_DICT_UNDERLINE_THICKNESS: retval = sizeof ( type1->font_info.underline_thickness ); if ( value && value_len >= retval ) *((FT_UShort *)value) = type1->font_info.underline_thickness; break; case PS_DICT_FS_TYPE: retval = sizeof ( type1->font_extra.fs_type ); if ( value && value_len >= retval ) *((FT_UShort *)value) = type1->font_extra.fs_type; break; case PS_DICT_VERSION: retval = ft_strlen( type1->font_info.version ) + 1; if ( value && value_len >= retval ) ft_memcpy( value, (void *)( type1->font_info.version ), retval ); break; case PS_DICT_NOTICE: retval = ft_strlen( type1->font_info.notice ) + 1; if ( value && value_len >= retval ) ft_memcpy( value, (void *)( type1->font_info.notice ), retval ); break; case PS_DICT_FULL_NAME: retval = ft_strlen( type1->font_info.full_name ) + 1; if ( value && value_len >= retval ) ft_memcpy( value, (void *)( type1->font_info.full_name ), retval ); break; case PS_DICT_FAMILY_NAME: retval = ft_strlen( type1->font_info.family_name ) + 1; if ( value && value_len >= retval ) ft_memcpy( value, (void *)( type1->font_info.family_name ), retval ); break; case PS_DICT_WEIGHT: retval = ft_strlen( type1->font_info.weight ) + 1; if ( value && value_len >= retval ) ft_memcpy( value, (void *)( type1->font_info.weight ), retval ); break; case PS_DICT_ITALIC_ANGLE: retval = sizeof ( type1->font_info.italic_angle ); if ( value && value_len >= retval ) *((FT_Long *)value) = type1->font_info.italic_angle; break; } return retval == 0 ? -1 : (FT_Long)retval; } static const FT_Service_PsInfoRec t1_service_ps_info = { (PS_GetFontInfoFunc) t1_ps_get_font_info, /* ps_get_font_info */ (PS_GetFontExtraFunc) t1_ps_get_font_extra, /* ps_get_font_extra */ (PS_HasGlyphNamesFunc) t1_ps_has_glyph_names, /* ps_has_glyph_names */ (PS_GetFontPrivateFunc)t1_ps_get_font_private, /* ps_get_font_private */ (PS_GetFontValueFunc) t1_ps_get_font_value, /* ps_get_font_value */ }; #ifndef T1_CONFIG_OPTION_NO_AFM static const FT_Service_KerningRec t1_service_kerning = { T1_Get_Track_Kerning, /* get_track */ }; #endif /* * PROPERTY SERVICE * */ FT_DEFINE_SERVICE_PROPERTIESREC( t1_service_properties, (FT_Properties_SetFunc)ps_property_set, /* set_property */ (FT_Properties_GetFunc)ps_property_get ) /* get_property */ /* * SERVICE LIST * */ static const FT_ServiceDescRec t1_services[] = { { FT_SERVICE_ID_POSTSCRIPT_FONT_NAME, &t1_service_ps_name }, { FT_SERVICE_ID_GLYPH_DICT, &t1_service_glyph_dict }, { FT_SERVICE_ID_FONT_FORMAT, FT_FONT_FORMAT_TYPE_1 }, { FT_SERVICE_ID_POSTSCRIPT_INFO, &t1_service_ps_info }, { FT_SERVICE_ID_PROPERTIES, &t1_service_properties }, #ifndef T1_CONFIG_OPTION_NO_AFM { FT_SERVICE_ID_KERNING, &t1_service_kerning }, #endif #ifndef T1_CONFIG_OPTION_NO_MM_SUPPORT { FT_SERVICE_ID_MULTI_MASTERS, &t1_service_multi_masters }, #endif { NULL, NULL } }; FT_CALLBACK_DEF( FT_Module_Interface ) Get_Interface( FT_Module module, const FT_String* t1_interface ) { FT_UNUSED( module ); return ft_service_list_lookup( t1_services, t1_interface ); } #ifndef T1_CONFIG_OPTION_NO_AFM /*************************************************************************/ /* */ /* */ /* Get_Kerning */ /* */ /* */ /* A driver method used to return the kerning vector between two */ /* glyphs of the same face. */ /* */ /* */ /* face :: A handle to the source face object. */ /* */ /* left_glyph :: The index of the left glyph in the kern pair. */ /* */ /* right_glyph :: The index of the right glyph in the kern pair. */ /* */ /* */ /* kerning :: The kerning vector. This is in font units for */ /* scalable formats, and in pixels for fixed-sizes */ /* formats. */ /* */ /* */ /* FreeType error code. 0 means success. */ /* */ /* */ /* Only horizontal layouts (left-to-right & right-to-left) are */ /* supported by this function. Other layouts, or more sophisticated */ /* kernings are out of scope of this method (the basic driver */ /* interface is meant to be simple). */ /* */ /* They can be implemented by format-specific interfaces. */ /* */ static FT_Error Get_Kerning( FT_Face t1face, /* T1_Face */ FT_UInt left_glyph, FT_UInt right_glyph, FT_Vector* kerning ) { T1_Face face = (T1_Face)t1face; kerning->x = 0; kerning->y = 0; if ( face->afm_data ) T1_Get_Kerning( (AFM_FontInfo)face->afm_data, left_glyph, right_glyph, kerning ); return FT_Err_Ok; } #endif /* T1_CONFIG_OPTION_NO_AFM */ FT_CALLBACK_TABLE_DEF const FT_Driver_ClassRec t1_driver_class = { { FT_MODULE_FONT_DRIVER | FT_MODULE_DRIVER_SCALABLE | FT_MODULE_DRIVER_HAS_HINTER, sizeof ( PS_DriverRec ), "type1", 0x10000L, 0x20000L, NULL, /* module-specific interface */ T1_Driver_Init, /* FT_Module_Constructor module_init */ T1_Driver_Done, /* FT_Module_Destructor module_done */ Get_Interface, /* FT_Module_Requester get_interface */ }, sizeof ( T1_FaceRec ), sizeof ( T1_SizeRec ), sizeof ( T1_GlyphSlotRec ), T1_Face_Init, /* FT_Face_InitFunc init_face */ T1_Face_Done, /* FT_Face_DoneFunc done_face */ T1_Size_Init, /* FT_Size_InitFunc init_size */ T1_Size_Done, /* FT_Size_DoneFunc done_size */ T1_GlyphSlot_Init, /* FT_Slot_InitFunc init_slot */ T1_GlyphSlot_Done, /* FT_Slot_DoneFunc done_slot */ T1_Load_Glyph, /* FT_Slot_LoadFunc load_glyph */ #ifdef T1_CONFIG_OPTION_NO_AFM NULL, /* FT_Face_GetKerningFunc get_kerning */ NULL, /* FT_Face_AttachFunc attach_file */ #else Get_Kerning, /* FT_Face_GetKerningFunc get_kerning */ T1_Read_Metrics, /* FT_Face_AttachFunc attach_file */ #endif T1_Get_Advances, /* FT_Face_GetAdvancesFunc get_advances */ T1_Size_Request, /* FT_Size_RequestFunc request_size */ NULL /* FT_Size_SelectFunc select_size */ }; /* END */