+++ /dev/null
-/***************************************************************************/
-/* */
-/* sfdriver.c */
-/* */
-/* High-level SFNT driver interface (body). */
-/* */
-/* Copyright 1996-2017 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 <ft2build.h>
-#include FT_INTERNAL_DEBUG_H
-#include FT_INTERNAL_SFNT_H
-#include FT_INTERNAL_OBJECTS_H
-#include FT_TRUETYPE_IDS_H
-
-#include "sfdriver.h"
-#include "ttload.h"
-#include "sfobjs.h"
-#include "sfntpic.h"
-
-#include "sferrors.h"
-
-#ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS
-#include "ttsbit.h"
-#endif
-
-#ifdef TT_CONFIG_OPTION_POSTSCRIPT_NAMES
-#include "ttpost.h"
-#endif
-
-#ifdef TT_CONFIG_OPTION_BDF
-#include "ttbdf.h"
-#include FT_SERVICE_BDF_H
-#endif
-
-#include "ttcmap.h"
-#include "ttkern.h"
-#include "ttmtx.h"
-
-#include FT_SERVICE_GLYPH_DICT_H
-#include FT_SERVICE_POSTSCRIPT_NAME_H
-#include FT_SERVICE_SFNT_H
-#include FT_SERVICE_TT_CMAP_H
-
-#ifdef TT_CONFIG_OPTION_GX_VAR_SUPPORT
-#include FT_MULTIPLE_MASTERS_H
-#include FT_SERVICE_MULTIPLE_MASTERS_H
-#endif
-
-
- /*************************************************************************/
- /* */
- /* 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_sfdriver
-
-
- /*
- * SFNT TABLE SERVICE
- *
- */
-
- static void*
- get_sfnt_table( TT_Face face,
- FT_Sfnt_Tag tag )
- {
- void* table;
-
-
- switch ( tag )
- {
- case FT_SFNT_HEAD:
- table = &face->header;
- break;
-
- case FT_SFNT_HHEA:
- table = &face->horizontal;
- break;
-
- case FT_SFNT_VHEA:
- table = face->vertical_info ? &face->vertical : NULL;
- break;
-
- case FT_SFNT_OS2:
- table = ( face->os2.version == 0xFFFFU ) ? NULL : &face->os2;
- break;
-
- case FT_SFNT_POST:
- table = &face->postscript;
- break;
-
- case FT_SFNT_MAXP:
- table = &face->max_profile;
- break;
-
- case FT_SFNT_PCLT:
- table = face->pclt.Version ? &face->pclt : NULL;
- break;
-
- default:
- table = NULL;
- }
-
- return table;
- }
-
-
- static FT_Error
- sfnt_table_info( TT_Face face,
- FT_UInt idx,
- FT_ULong *tag,
- FT_ULong *offset,
- FT_ULong *length )
- {
- if ( !offset || !length )
- return FT_THROW( Invalid_Argument );
-
- if ( !tag )
- *length = face->num_tables;
- else
- {
- if ( idx >= face->num_tables )
- return FT_THROW( Table_Missing );
-
- *tag = face->dir_tables[idx].Tag;
- *offset = face->dir_tables[idx].Offset;
- *length = face->dir_tables[idx].Length;
- }
-
- return FT_Err_Ok;
- }
-
-
- FT_DEFINE_SERVICE_SFNT_TABLEREC(
- sfnt_service_sfnt_table,
-
- (FT_SFNT_TableLoadFunc)tt_face_load_any, /* load_table */
- (FT_SFNT_TableGetFunc) get_sfnt_table, /* get_table */
- (FT_SFNT_TableInfoFunc)sfnt_table_info /* table_info */
- )
-
-
-#ifdef TT_CONFIG_OPTION_POSTSCRIPT_NAMES
-
- /*
- * GLYPH DICT SERVICE
- *
- */
-
- static FT_Error
- sfnt_get_glyph_name( FT_Face face,
- FT_UInt glyph_index,
- FT_Pointer buffer,
- FT_UInt buffer_max )
- {
- FT_String* gname;
- FT_Error error;
-
-
- error = tt_face_get_ps_name( (TT_Face)face, glyph_index, &gname );
- if ( !error )
- FT_STRCPYN( buffer, gname, buffer_max );
-
- return error;
- }
-
-
- static FT_UInt
- sfnt_get_name_index( FT_Face face,
- FT_String* glyph_name )
- {
- TT_Face ttface = (TT_Face)face;
-
- FT_UInt i, max_gid = FT_UINT_MAX;
-
-
- if ( face->num_glyphs < 0 )
- return 0;
- else if ( (FT_ULong)face->num_glyphs < FT_UINT_MAX )
- max_gid = (FT_UInt)face->num_glyphs;
- else
- FT_TRACE0(( "Ignore glyph names for invalid GID 0x%08x - 0x%08x\n",
- FT_UINT_MAX, face->num_glyphs ));
-
- for ( i = 0; i < max_gid; i++ )
- {
- FT_String* gname;
- FT_Error error = tt_face_get_ps_name( ttface, i, &gname );
-
-
- if ( error )
- continue;
-
- if ( !ft_strcmp( glyph_name, gname ) )
- return i;
- }
-
- return 0;
- }
-
-
- FT_DEFINE_SERVICE_GLYPHDICTREC(
- sfnt_service_glyph_dict,
-
- (FT_GlyphDict_GetNameFunc) sfnt_get_glyph_name, /* get_name */
- (FT_GlyphDict_NameIndexFunc)sfnt_get_name_index /* name_index */
- )
-
-#endif /* TT_CONFIG_OPTION_POSTSCRIPT_NAMES */
-
-
- /*
- * POSTSCRIPT NAME SERVICE
- *
- */
-
- /* an array representing allowed ASCII characters in a PS string */
- static const unsigned char sfnt_ps_map[16] =
- {
- /* 4 0 C 8 */
- 0x00, 0x00, /* 0x00: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 */
- 0x00, 0x00, /* 0x10: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 */
- 0xDE, 0x7C, /* 0x20: 1 1 0 1 1 1 1 0 0 1 1 1 1 1 0 0 */
- 0xFF, 0xAF, /* 0x30: 1 1 1 1 1 1 1 1 1 0 1 0 1 1 1 1 */
- 0xFF, 0xFF, /* 0x40: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 */
- 0xFF, 0xD7, /* 0x50: 1 1 1 1 1 1 1 1 1 1 0 1 0 1 1 1 */
- 0xFF, 0xFF, /* 0x60: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 */
- 0xFF, 0x57 /* 0x70: 1 1 1 1 1 1 1 1 0 1 0 1 0 1 1 1 */
- };
-
-
- static int
- sfnt_is_postscript( int c )
- {
- unsigned int cc;
-
-
- if ( c < 0 || c >= 0x80 )
- return 0;
-
- cc = (unsigned int)c;
-
- return sfnt_ps_map[cc >> 3] & ( 1 << ( cc & 0x07 ) );
- }
-
-
-#ifdef TT_CONFIG_OPTION_GX_VAR_SUPPORT
-
- /* Only ASCII letters and digits are taken for a variation font */
- /* instance's PostScript name. */
- /* */
- /* `ft_isalnum' is a macro, but we need a function here, thus */
- /* this definition. */
- static int
- sfnt_is_alphanumeric( int c )
- {
- return ft_isalnum( c );
- }
-
-
- /* the implementation of MurmurHash3 is taken and adapted from */
- /* https://github.com/aappleby/smhasher/blob/master/src/MurmurHash3.cpp */
-
-#define ROTL32( x, r ) ( x << r ) | ( x >> ( 32 - r ) )
-
-
- static FT_UInt32
- fmix32( FT_UInt32 h )
- {
- h ^= h >> 16;
- h *= 0x85ebca6b;
- h ^= h >> 13;
- h *= 0xc2b2ae35;
- h ^= h >> 16;
-
- return h;
- }
-
-
- static void
- murmur_hash_3_128( const void* key,
- const unsigned int len,
- FT_UInt32 seed,
- void* out )
- {
- const FT_Byte* data = (const FT_Byte*)key;
- const int nblocks = (int)len / 16;
-
- FT_UInt32 h1 = seed;
- FT_UInt32 h2 = seed;
- FT_UInt32 h3 = seed;
- FT_UInt32 h4 = seed;
-
- const FT_UInt32 c1 = 0x239b961b;
- const FT_UInt32 c2 = 0xab0e9789;
- const FT_UInt32 c3 = 0x38b34ae5;
- const FT_UInt32 c4 = 0xa1e38b93;
-
- const FT_UInt32* blocks = (const FT_UInt32*)( data + nblocks * 16 );
-
- int i;
-
-
- for( i = -nblocks; i; i++ )
- {
- FT_UInt32 k1 = blocks[i * 4 + 0];
- FT_UInt32 k2 = blocks[i * 4 + 1];
- FT_UInt32 k3 = blocks[i * 4 + 2];
- FT_UInt32 k4 = blocks[i * 4 + 3];
-
-
- k1 *= c1;
- k1 = ROTL32( k1, 15 );
- k1 *= c2;
- h1 ^= k1;
-
- h1 = ROTL32( h1, 19 );
- h1 += h2;
- h1 = h1 * 5 + 0x561ccd1b;
-
- k2 *= c2;
- k2 = ROTL32( k2, 16 );
- k2 *= c3;
- h2 ^= k2;
-
- h2 = ROTL32( h2, 17 );
- h2 += h3;
- h2 = h2 * 5 + 0x0bcaa747;
-
- k3 *= c3;
- k3 = ROTL32( k3, 17 );
- k3 *= c4;
- h3 ^= k3;
-
- h3 = ROTL32( h3, 15 );
- h3 += h4;
- h3 = h3 * 5 + 0x96cd1c35;
-
- k4 *= c4;
- k4 = ROTL32( k4, 18 );
- k4 *= c1;
- h4 ^= k4;
-
- h4 = ROTL32( h4, 13 );
- h4 += h1;
- h4 = h4 * 5 + 0x32ac3b17;
- }
-
- {
- const FT_Byte* tail = (const FT_Byte*)( data + nblocks * 16 );
-
- FT_UInt32 k1 = 0;
- FT_UInt32 k2 = 0;
- FT_UInt32 k3 = 0;
- FT_UInt32 k4 = 0;
-
-
- switch ( len & 15 )
- {
- case 15:
- k4 ^= (FT_UInt32)tail[14] << 16;
- case 14:
- k4 ^= (FT_UInt32)tail[13] << 8;
- case 13:
- k4 ^= (FT_UInt32)tail[12];
- k4 *= c4;
- k4 = ROTL32( k4, 18 );
- k4 *= c1;
- h4 ^= k4;
-
- case 12:
- k3 ^= (FT_UInt32)tail[11] << 24;
- case 11:
- k3 ^= (FT_UInt32)tail[10] << 16;
- case 10:
- k3 ^= (FT_UInt32)tail[9] << 8;
- case 9:
- k3 ^= (FT_UInt32)tail[8];
- k3 *= c3;
- k3 = ROTL32( k3, 17 );
- k3 *= c4;
- h3 ^= k3;
-
- case 8:
- k2 ^= (FT_UInt32)tail[7] << 24;
- case 7:
- k2 ^= (FT_UInt32)tail[6] << 16;
- case 6:
- k2 ^= (FT_UInt32)tail[5] << 8;
- case 5:
- k2 ^= (FT_UInt32)tail[4];
- k2 *= c2;
- k2 = ROTL32( k2, 16 );
- k2 *= c3;
- h2 ^= k2;
-
- case 4:
- k1 ^= (FT_UInt32)tail[3] << 24;
- case 3:
- k1 ^= (FT_UInt32)tail[2] << 16;
- case 2:
- k1 ^= (FT_UInt32)tail[1] << 8;
- case 1:
- k1 ^= (FT_UInt32)tail[0];
- k1 *= c1;
- k1 = ROTL32( k1, 15 );
- k1 *= c2;
- h1 ^= k1;
- }
- }
-
- h1 ^= len;
- h2 ^= len;
- h3 ^= len;
- h4 ^= len;
-
- h1 += h2;
- h1 += h3;
- h1 += h4;
-
- h2 += h1;
- h3 += h1;
- h4 += h1;
-
- h1 = fmix32( h1 );
- h2 = fmix32( h2 );
- h3 = fmix32( h3 );
- h4 = fmix32( h4 );
-
- h1 += h2;
- h1 += h3;
- h1 += h4;
-
- h2 += h1;
- h3 += h1;
- h4 += h1;
-
- ((FT_UInt32*)out)[0] = h1;
- ((FT_UInt32*)out)[1] = h2;
- ((FT_UInt32*)out)[2] = h3;
- ((FT_UInt32*)out)[3] = h4;
- }
-
-
-#endif /* TT_CONFIG_OPTION_GX_VAR_SUPPORT */
-
-
- typedef int (*char_type_func)( int c );
-
-
- /* handling of PID/EID 3/0 and 3/1 is the same */
-#define IS_WIN( n ) ( (n)->platformID == 3 && \
- ( (n)->encodingID == 1 || (n)->encodingID == 0 ) && \
- (n)->languageID == 0x409 )
-
-#define IS_APPLE( n ) ( (n)->platformID == 1 && \
- (n)->encodingID == 0 && \
- (n)->languageID == 0 )
-
- static char*
- get_win_string( FT_Memory memory,
- FT_Stream stream,
- TT_Name entry,
- char_type_func char_type,
- FT_Bool report_invalid_characters )
- {
- FT_Error error = FT_Err_Ok;
-
- char* result = NULL;
- FT_String* r;
- FT_Char* p;
- FT_UInt len;
-
- FT_UNUSED( error );
-
-
- if ( FT_ALLOC( result, entry->stringLength / 2 + 1 ) )
- return NULL;
-
- if ( FT_STREAM_SEEK( entry->stringOffset ) ||
- FT_FRAME_ENTER( entry->stringLength ) )
- {
- FT_FREE( result );
- entry->stringLength = 0;
- entry->stringOffset = 0;
- FT_FREE( entry->string );
-
- return NULL;
- }
-
- r = (FT_String*)result;
- p = (FT_Char*)stream->cursor;
-
- for ( len = entry->stringLength / 2; len > 0; len--, p += 2 )
- {
- if ( p[0] == 0 )
- {
- if ( char_type( p[1] ) )
- *r++ = p[1];
- else
- {
- if ( report_invalid_characters )
- {
- FT_TRACE0(( "get_win_string:"
- " Character `%c' (0x%X) invalid in PS name string\n",
- p[1], p[1] ));
- /* it's not the job of FreeType to correct PS names... */
- *r++ = p[1];
- }
- }
- }
- }
- *r = '\0';
-
- FT_FRAME_EXIT();
-
- return result;
- }
-
-
- static char*
- get_apple_string( FT_Memory memory,
- FT_Stream stream,
- TT_Name entry,
- char_type_func char_type,
- FT_Bool report_invalid_characters )
- {
- FT_Error error = FT_Err_Ok;
-
- char* result = NULL;
- FT_String* r;
- FT_Char* p;
- FT_UInt len;
-
- FT_UNUSED( error );
-
-
- if ( FT_ALLOC( result, entry->stringLength + 1 ) )
- return NULL;
-
- if ( FT_STREAM_SEEK( entry->stringOffset ) ||
- FT_FRAME_ENTER( entry->stringLength ) )
- {
- FT_FREE( result );
- entry->stringOffset = 0;
- entry->stringLength = 0;
- FT_FREE( entry->string );
-
- return NULL;
- }
-
- r = (FT_String*)result;
- p = (FT_Char*)stream->cursor;
-
- for ( len = entry->stringLength; len > 0; len--, p++ )
- {
- if ( char_type( *p ) )
- *r++ = *p;
- else
- {
- if ( report_invalid_characters )
- {
- FT_TRACE0(( "get_apple_string:"
- " Character `%c' (0x%X) invalid in PS name string\n",
- *p, *p ));
- /* it's not the job of FreeType to correct PS names... */
- *r++ = *p;
- }
- }
- }
- *r = '\0';
-
- FT_FRAME_EXIT();
-
- return result;
- }
-
-
- static FT_Bool
- sfnt_get_name_id( TT_Face face,
- FT_UShort id,
- FT_Int *win,
- FT_Int *apple )
- {
- FT_Int n;
-
-
- *win = -1;
- *apple = -1;
-
- for ( n = 0; n < face->num_names; n++ )
- {
- TT_Name name = face->name_table.names + n;
-
-
- if ( name->nameID == id && name->stringLength > 0 )
- {
- if ( IS_WIN( name ) )
- *win = n;
-
- if ( IS_APPLE( name ) )
- *apple = n;
- }
- }
-
- return ( *win >= 0 ) || ( *apple >= 0 );
- }
-
-
-#ifdef TT_CONFIG_OPTION_GX_VAR_SUPPORT
-
- /*
- The maximum length of an axis value descriptor.
-
- We need 65536 different values for the decimal fraction; this fits
- nicely into five decimal places. Consequently, it consists of
-
- . the minus sign if the number is negative,
- . up to five characters for the digits before the decimal point,
- . the decimal point if there is a fractional part, and
- . up to five characters for the digits after the decimal point.
-
- We also need one byte for the leading `_' character and up to four
- bytes for the axis tag.
- */
-#define MAX_VALUE_DESCRIPTOR_LEN ( 1 + 5 + 1 + 5 + 1 + 4 )
-
-
- /* the maximum length of PostScript font names */
-#define MAX_PS_NAME_LEN 127
-
-
- /*
- * Find the shortest decimal representation of a 16.16 fixed point
- * number. The function fills `buf' with the result, returning a pointer
- * to the position after the representation's last byte.
- */
-
- static char*
- fixed2float( FT_Int fixed,
- char* buf )
- {
- char* p;
- char* q;
- char tmp[5];
-
- FT_Int int_part;
- FT_Int frac_part;
-
- FT_Int i;
-
-
- p = buf;
-
- if ( fixed == 0 )
- {
- *p++ = '0';
- return p;
- }
-
- if ( fixed < 0 )
- {
- *p++ = '-';
- fixed = -fixed;
- }
-
- int_part = ( fixed >> 16 ) & 0xFFFF;
- frac_part = fixed & 0xFFFF;
-
- /* get digits of integer part (in reverse order) */
- q = tmp;
- while ( int_part > 0 )
- {
- *q++ = '0' + int_part % 10;
- int_part /= 10;
- }
-
- /* copy digits in correct order to buffer */
- while ( q > tmp )
- *p++ = *--q;
-
- if ( !frac_part )
- return p;
-
- /* save position of point */
- q = p;
- *p++ = '.';
-
- /* apply rounding */
- frac_part = frac_part * 10 + 5;
-
- /* get digits of fractional part */
- for ( i = 0; i < 5; i++ )
- {
- *p++ = '0' + (char)( frac_part / 0x10000L );
-
- frac_part %= 0x10000L;
- if ( !frac_part )
- break;
-
- frac_part *= 10;
- }
-
- /*
- If the remainder stored in `frac_part' (after the last FOR loop) is
- smaller than 34480*10, the resulting decimal value minus 0.00001 is
- an equivalent representation of `fixed'.
-
- The above FOR loop always finds the larger of the two values; I
- verified this by iterating over all possible fixed point numbers.
-
- If the remainder is 17232*10, both values are equally good, and we
- take the next even number (following IEEE 754's `round to nearest,
- ties to even' rounding rule).
-
- If the remainder is smaller than 17232*10, the lower of the two
- numbers is nearer to the exact result (values 17232 and 34480 were
- also found by testing all possible fixed point values).
-
- We use this to find a shorter decimal representation. If not ending
- with digit zero, we take the representation with less error.
- */
- p--;
- if ( p - q == 5 ) /* five digits? */
- {
- /* take the representation that has zero as the last digit */
- if ( frac_part < 34480 * 10 &&
- *p == '1' )
- *p = '0';
-
- /* otherwise use the one with less error */
- else if ( frac_part == 17232 * 10 &&
- *p & 1 )
- *p -= 1;
-
- else if ( frac_part < 17232 * 10 &&
- *p != '0' )
- *p -= 1;
- }
-
- /* remove trailing zeros */
- while ( *p == '0' )
- *p-- = '\0';
-
- return p + 1;
- }
-
-
- static const char hexdigits[16] =
- {
- '0', '1', '2', '3', '4', '5', '6', '7',
- '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'
- };
-
-
- static const char*
- sfnt_get_var_ps_name( TT_Face face )
- {
- FT_Error error;
- FT_Memory memory = face->root.memory;
-
- FT_Service_MultiMasters mm = (FT_Service_MultiMasters)face->mm;
-
- FT_UInt num_coords;
- FT_Fixed* coords;
- FT_MM_Var* mm_var;
-
- FT_Int found, win, apple;
- FT_UInt i, j;
-
- char* result = NULL;
- char* p;
-
-
- if ( !face->var_postscript_prefix )
- {
- FT_UInt len;
-
-
- /* check whether we have a Variations PostScript Name Prefix */
- found = sfnt_get_name_id( face,
- TT_NAME_ID_VARIATIONS_PREFIX,
- &win,
- &apple );
- if ( !found )
- {
- /* otherwise use the typographic family name */
- found = sfnt_get_name_id( face,
- TT_NAME_ID_TYPOGRAPHIC_FAMILY,
- &win,
- &apple );
- }
-
- if ( !found )
- {
- /* as a last resort we try the family name; note that this is */
- /* not in the Adobe TechNote, but GX fonts (which predate the */
- /* TechNote) benefit from this behaviour */
- found = sfnt_get_name_id( face,
- TT_NAME_ID_FONT_FAMILY,
- &win,
- &apple );
- }
-
- if ( !found )
- {
- FT_TRACE0(( "sfnt_get_var_ps_name:"
- " Can't construct PS name prefix for font instances\n" ));
- return NULL;
- }
-
- /* prefer Windows entries over Apple */
- if ( win != -1 )
- result = get_win_string( face->root.memory,
- face->name_table.stream,
- face->name_table.names + win,
- sfnt_is_alphanumeric,
- 0 );
- else
- result = get_apple_string( face->root.memory,
- face->name_table.stream,
- face->name_table.names + apple,
- sfnt_is_alphanumeric,
- 0 );
-
- len = ft_strlen( result );
-
- /* sanitize if necessary; we reserve space for 36 bytes (a 128bit */
- /* checksum as a hex number, preceded by `-' and followed by three */
- /* ASCII dots, to be used if the constructed PS name would be too */
- /* long); this is also sufficient for a single instance */
- if ( len > MAX_PS_NAME_LEN - ( 1 + 32 + 3 ) )
- {
- len = MAX_PS_NAME_LEN - ( 1 + 32 + 3 );
- result[len] = '\0';
-
- FT_TRACE0(( "sfnt_get_var_ps_name:"
- " Shortening variation PS name prefix\n"
- " "
- " to %d characters\n", len ));
- }
-
- face->var_postscript_prefix = result;
- face->var_postscript_prefix_len = len;
- }
-
- mm->get_var_blend( FT_FACE( face ),
- &num_coords,
- &coords,
- NULL,
- &mm_var );
-
- if ( FT_IS_NAMED_INSTANCE( FT_FACE( face ) ) )
- {
- SFNT_Service sfnt = (SFNT_Service)face->sfnt;
-
- FT_Long instance = ( ( face->root.face_index & 0x7FFF0000L ) >> 16 ) - 1;
- FT_UInt psid = mm_var->namedstyle[instance].psid;
-
- char* ps_name = NULL;
-
-
- /* try first to load the name string with index `postScriptNameID' */
- if ( psid == 6 ||
- ( psid > 255 && psid < 32768 ) )
- (void)sfnt->get_name( face, (FT_UShort)psid, &ps_name );
-
- if ( ps_name )
- {
- result = ps_name;
- p = result + ft_strlen( result ) + 1;
-
- goto check_length;
- }
- else
- {
- /* otherwise construct a name using `subfamilyNameID' */
- FT_UInt strid = mm_var->namedstyle[instance].strid;
-
- char* subfamily_name;
- char* s;
-
-
- (void)sfnt->get_name( face, (FT_UShort)strid, &subfamily_name );
-
- if ( !subfamily_name )
- {
- FT_TRACE1(( "sfnt_get_var_ps_name:"
- " can't construct named instance PS name;\n"
- " "
- " trying to construct normal instance PS name\n" ));
- goto construct_instance_name;
- }
-
- /* after the prefix we have character `-' followed by the */
- /* subfamily name (using only characters a-z, A-Z, and 0-9) */
- if ( FT_ALLOC( result, face->var_postscript_prefix_len +
- 1 + ft_strlen( subfamily_name ) + 1 ) )
- return NULL;
-
- ft_strcpy( result, face->var_postscript_prefix );
-
- p = result + face->var_postscript_prefix_len;
- *p++ = '-';
-
- s = subfamily_name;
- while ( *s )
- {
- if ( ft_isalnum( *s ) )
- *p++ = *s;
- s++;
- }
- *p++ = '\0';
-
- FT_FREE( subfamily_name );
- }
- }
- else
- {
- FT_Var_Axis* axis;
-
-
- construct_instance_name:
- axis = mm_var->axis;
-
- if ( FT_ALLOC( result,
- face->var_postscript_prefix_len +
- num_coords * MAX_VALUE_DESCRIPTOR_LEN + 1 ) )
- return NULL;
-
- p = result;
-
- ft_strcpy( p, face->var_postscript_prefix );
- p += face->var_postscript_prefix_len;
-
- for ( i = 0; i < num_coords; i++, coords++, axis++ )
- {
- char t;
-
-
- /* omit axis value descriptor if it is identical */
- /* to the default axis value */
- if ( *coords == axis->def )
- continue;
-
- *p++ = '_';
- p = fixed2float( *coords, p );
-
- t = (char)( axis->tag >> 24 );
- if ( t != ' ' && ft_isalnum( t ) )
- *p++ = t;
- t = (char)( axis->tag >> 16 );
- if ( t != ' ' && ft_isalnum( t ) )
- *p++ = t;
- t = (char)( axis->tag >> 8 );
- if ( t != ' ' && ft_isalnum( t ) )
- *p++ = t;
- t = (char)axis->tag;
- if ( t != ' ' && ft_isalnum( t ) )
- *p++ = t;
- }
- }
-
- check_length:
- if ( p - result > MAX_PS_NAME_LEN )
- {
- /* the PS name is too long; replace the part after the prefix with */
- /* a checksum; we use MurmurHash 3 with a hash length of 128 bit */
-
- FT_UInt32 seed = 123456789;
-
- FT_UInt32 hash[4];
- FT_UInt32* h;
-
-
- murmur_hash_3_128( result, p - result, seed, hash );
-
- p = result + face->var_postscript_prefix_len;
- *p++ = '-';
-
- /* we convert the hash value to hex digits from back to front */
- p += 32 + 3;
- h = hash + 3;
-
- *p-- = '\0';
- *p-- = '.';
- *p-- = '.';
- *p-- = '.';
-
- for ( i = 0; i < 4; i++, h-- )
- {
- FT_UInt32 v = *h;
-
-
- for ( j = 0; j < 8; j++ )
- {
- *p-- = hexdigits[v & 0xF];
- v >>= 4;
- }
- }
- }
-
- return result;
- }
-
-#endif /* TT_CONFIG_OPTION_GX_VAR_SUPPORT */
-
-
- static const char*
- sfnt_get_ps_name( TT_Face face )
- {
- FT_Int found, win, apple;
- const char* result = NULL;
-
-
- if ( face->postscript_name )
- return face->postscript_name;
-
-#ifdef TT_CONFIG_OPTION_GX_VAR_SUPPORT
- if ( face->blend )
- {
- face->postscript_name = sfnt_get_var_ps_name( face );
- return face->postscript_name;
- }
-#endif
-
- /* scan the name table to see whether we have a Postscript name here, */
- /* either in Macintosh or Windows platform encodings */
- found = sfnt_get_name_id( face, TT_NAME_ID_PS_NAME, &win, &apple );
- if ( !found )
- return NULL;
-
- /* prefer Windows entries over Apple */
- if ( win != -1 )
- result = get_win_string( face->root.memory,
- face->name_table.stream,
- face->name_table.names + win,
- sfnt_is_postscript,
- 1 );
- else
- result = get_apple_string( face->root.memory,
- face->name_table.stream,
- face->name_table.names + apple,
- sfnt_is_postscript,
- 1 );
-
- face->postscript_name = result;
-
- return result;
- }
-
-
- FT_DEFINE_SERVICE_PSFONTNAMEREC(
- sfnt_service_ps_name,
-
- (FT_PsName_GetFunc)sfnt_get_ps_name /* get_ps_font_name */
- )
-
-
- /*
- * TT CMAP INFO
- */
- FT_DEFINE_SERVICE_TTCMAPSREC(
- tt_service_get_cmap_info,
-
- (TT_CMap_Info_GetFunc)tt_get_cmap_info /* get_cmap_info */
- )
-
-
-#ifdef TT_CONFIG_OPTION_BDF
-
- static FT_Error
- sfnt_get_charset_id( TT_Face face,
- const char* *acharset_encoding,
- const char* *acharset_registry )
- {
- BDF_PropertyRec encoding, registry;
- FT_Error error;
-
-
- /* XXX: I don't know whether this is correct, since
- * tt_face_find_bdf_prop only returns something correct if we have
- * previously selected a size that is listed in the BDF table.
- * Should we change the BDF table format to include single offsets
- * for `CHARSET_REGISTRY' and `CHARSET_ENCODING'?
- */
- error = tt_face_find_bdf_prop( face, "CHARSET_REGISTRY", ®istry );
- if ( !error )
- {
- error = tt_face_find_bdf_prop( face, "CHARSET_ENCODING", &encoding );
- if ( !error )
- {
- if ( registry.type == BDF_PROPERTY_TYPE_ATOM &&
- encoding.type == BDF_PROPERTY_TYPE_ATOM )
- {
- *acharset_encoding = encoding.u.atom;
- *acharset_registry = registry.u.atom;
- }
- else
- error = FT_THROW( Invalid_Argument );
- }
- }
-
- return error;
- }
-
-
- FT_DEFINE_SERVICE_BDFRec(
- sfnt_service_bdf,
-
- (FT_BDF_GetCharsetIdFunc)sfnt_get_charset_id, /* get_charset_id */
- (FT_BDF_GetPropertyFunc) tt_face_find_bdf_prop /* get_property */
- )
-
-
-#endif /* TT_CONFIG_OPTION_BDF */
-
-
- /*
- * SERVICE LIST
- */
-
-#if defined TT_CONFIG_OPTION_POSTSCRIPT_NAMES && defined TT_CONFIG_OPTION_BDF
- FT_DEFINE_SERVICEDESCREC5(
- sfnt_services,
-
- FT_SERVICE_ID_SFNT_TABLE, &SFNT_SERVICE_SFNT_TABLE_GET,
- FT_SERVICE_ID_POSTSCRIPT_FONT_NAME, &SFNT_SERVICE_PS_NAME_GET,
- FT_SERVICE_ID_GLYPH_DICT, &SFNT_SERVICE_GLYPH_DICT_GET,
- FT_SERVICE_ID_BDF, &SFNT_SERVICE_BDF_GET,
- FT_SERVICE_ID_TT_CMAP, &TT_SERVICE_CMAP_INFO_GET )
-#elif defined TT_CONFIG_OPTION_POSTSCRIPT_NAMES
- FT_DEFINE_SERVICEDESCREC4(
- sfnt_services,
-
- FT_SERVICE_ID_SFNT_TABLE, &SFNT_SERVICE_SFNT_TABLE_GET,
- FT_SERVICE_ID_POSTSCRIPT_FONT_NAME, &SFNT_SERVICE_PS_NAME_GET,
- FT_SERVICE_ID_GLYPH_DICT, &SFNT_SERVICE_GLYPH_DICT_GET,
- FT_SERVICE_ID_TT_CMAP, &TT_SERVICE_CMAP_INFO_GET )
-#elif defined TT_CONFIG_OPTION_BDF
- FT_DEFINE_SERVICEDESCREC4(
- sfnt_services,
-
- FT_SERVICE_ID_SFNT_TABLE, &SFNT_SERVICE_SFNT_TABLE_GET,
- FT_SERVICE_ID_POSTSCRIPT_FONT_NAME, &SFNT_SERVICE_PS_NAME_GET,
- FT_SERVICE_ID_BDF, &SFNT_SERVICE_BDF_GET,
- FT_SERVICE_ID_TT_CMAP, &TT_SERVICE_CMAP_INFO_GET )
-#else
- FT_DEFINE_SERVICEDESCREC3(
- sfnt_services,
-
- FT_SERVICE_ID_SFNT_TABLE, &SFNT_SERVICE_SFNT_TABLE_GET,
- FT_SERVICE_ID_POSTSCRIPT_FONT_NAME, &SFNT_SERVICE_PS_NAME_GET,
- FT_SERVICE_ID_TT_CMAP, &TT_SERVICE_CMAP_INFO_GET )
-#endif
-
-
- FT_CALLBACK_DEF( FT_Module_Interface )
- sfnt_get_interface( FT_Module module,
- const char* module_interface )
- {
- /* SFNT_SERVICES_GET dereferences `library' in PIC mode */
-#ifdef FT_CONFIG_OPTION_PIC
- FT_Library library;
-
-
- if ( !module )
- return NULL;
- library = module->library;
- if ( !library )
- return NULL;
-#else
- FT_UNUSED( module );
-#endif
-
- return ft_service_list_lookup( SFNT_SERVICES_GET, module_interface );
- }
-
-
-#ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS
-#define PUT_EMBEDDED_BITMAPS( a ) a
-#else
-#define PUT_EMBEDDED_BITMAPS( a ) NULL
-#endif
-
-#ifdef TT_CONFIG_OPTION_POSTSCRIPT_NAMES
-#define PUT_PS_NAMES( a ) a
-#else
-#define PUT_PS_NAMES( a ) NULL
-#endif
-
- FT_DEFINE_SFNT_INTERFACE(
- sfnt_interface,
-
- tt_face_goto_table, /* TT_Loader_GotoTableFunc goto_table */
-
- sfnt_init_face, /* TT_Init_Face_Func init_face */
- sfnt_load_face, /* TT_Load_Face_Func load_face */
- sfnt_done_face, /* TT_Done_Face_Func done_face */
- sfnt_get_interface, /* FT_Module_Requester get_interface */
-
- tt_face_load_any, /* TT_Load_Any_Func load_any */
-
- tt_face_load_head, /* TT_Load_Table_Func load_head */
- tt_face_load_hhea, /* TT_Load_Metrics_Func load_hhea */
- tt_face_load_cmap, /* TT_Load_Table_Func load_cmap */
- tt_face_load_maxp, /* TT_Load_Table_Func load_maxp */
- tt_face_load_os2, /* TT_Load_Table_Func load_os2 */
- tt_face_load_post, /* TT_Load_Table_Func load_post */
-
- tt_face_load_name, /* TT_Load_Table_Func load_name */
- tt_face_free_name, /* TT_Free_Table_Func free_name */
-
- tt_face_load_kern, /* TT_Load_Table_Func load_kern */
- tt_face_load_gasp, /* TT_Load_Table_Func load_gasp */
- tt_face_load_pclt, /* TT_Load_Table_Func load_init */
-
- /* see `ttload.h' */
- PUT_EMBEDDED_BITMAPS( tt_face_load_bhed ),
- /* TT_Load_Table_Func load_bhed */
- PUT_EMBEDDED_BITMAPS( tt_face_load_sbit_image ),
- /* TT_Load_SBit_Image_Func load_sbit_image */
-
- /* see `ttpost.h' */
- PUT_PS_NAMES( tt_face_get_ps_name ),
- /* TT_Get_PS_Name_Func get_psname */
- PUT_PS_NAMES( tt_face_free_ps_names ),
- /* TT_Free_Table_Func free_psnames */
-
- /* since version 2.1.8 */
- tt_face_get_kerning, /* TT_Face_GetKerningFunc get_kerning */
-
- /* since version 2.2 */
- tt_face_load_font_dir, /* TT_Load_Table_Func load_font_dir */
- tt_face_load_hmtx, /* TT_Load_Metrics_Func load_hmtx */
-
- /* see `ttsbit.h' and `sfnt.h' */
- PUT_EMBEDDED_BITMAPS( tt_face_load_sbit ),
- /* TT_Load_Table_Func load_eblc */
- PUT_EMBEDDED_BITMAPS( tt_face_free_sbit ),
- /* TT_Free_Table_Func free_eblc */
-
- PUT_EMBEDDED_BITMAPS( tt_face_set_sbit_strike ),
- /* TT_Set_SBit_Strike_Func set_sbit_strike */
- PUT_EMBEDDED_BITMAPS( tt_face_load_strike_metrics ),
- /* TT_Load_Strike_Metrics_Func load_strike_metrics */
-
- tt_face_get_metrics, /* TT_Get_Metrics_Func get_metrics */
-
- tt_face_get_name, /* TT_Get_Name_Func get_name */
- sfnt_get_name_id /* TT_Get_Name_ID_Func get_name_id */
- )
-
-
- FT_DEFINE_MODULE(
- sfnt_module_class,
-
- 0, /* not a font driver or renderer */
- sizeof ( FT_ModuleRec ),
-
- "sfnt", /* driver name */
- 0x10000L, /* driver version 1.0 */
- 0x20000L, /* driver requires FreeType 2.0 or higher */
-
- (const void*)&SFNT_INTERFACE_GET, /* module specific interface */
-
- (FT_Module_Constructor)NULL, /* module_init */
- (FT_Module_Destructor) NULL, /* module_done */
- (FT_Module_Requester) sfnt_get_interface /* get_interface */
- )
-
-
-/* END */