/***************************************************************************/ | |
/* */ | |
/* sfdriver.c */ | |
/* */ | |
/* High-level SFNT driver interface (body). */ | |
/* */ | |
/* Copyright 1996-2001, 2002, 2003, 2004, 2005, 2006, 2007, 2009 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_SFNT_H | |
#include FT_INTERNAL_OBJECTS_H | |
#include "sfdriver.h" | |
#include "ttload.h" | |
#include "sfobjs.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 | |
/* | |
* 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 : 0; | |
break; | |
case ft_sfnt_os2: | |
table = face->os2.version == 0xFFFFU ? 0 : &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 : 0; | |
break; | |
default: | |
table = 0; | |
} | |
return table; | |
} | |
static FT_Error | |
sfnt_table_info( TT_Face face, | |
FT_UInt idx, | |
FT_ULong *tag, | |
FT_ULong *length ) | |
{ | |
if ( !tag || !length ) | |
return SFNT_Err_Invalid_Argument; | |
if ( idx >= face->num_tables ) | |
return SFNT_Err_Table_Missing; | |
*tag = face->dir_tables[idx].Tag; | |
*length = face->dir_tables[idx].Length; | |
return SFNT_Err_Ok; | |
} | |
static const FT_Service_SFNT_TableRec sfnt_service_sfnt_table = | |
{ | |
(FT_SFNT_TableLoadFunc)tt_face_load_any, | |
(FT_SFNT_TableGetFunc) get_sfnt_table, | |
(FT_SFNT_TableInfoFunc)sfnt_table_info | |
}; | |
#ifdef TT_CONFIG_OPTION_POSTSCRIPT_NAMES | |
/* | |
* GLYPH DICT SERVICE | |
* | |
*/ | |
static FT_Error | |
sfnt_get_glyph_name( TT_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( face, glyph_index, &gname ); | |
if ( !error ) | |
FT_STRCPYN( buffer, gname, buffer_max ); | |
return error; | |
} | |
static FT_UInt | |
sfnt_get_name_index( TT_Face face, | |
FT_String* glyph_name ) | |
{ | |
FT_Face root = &face->root; | |
FT_Long i; | |
for ( i = 0; i < root->num_glyphs; i++ ) | |
{ | |
FT_String* gname; | |
FT_Error error = tt_face_get_ps_name( face, i, &gname ); | |
if ( error ) | |
continue; | |
if ( !ft_strcmp( glyph_name, gname ) ) | |
return (FT_UInt)i; | |
} | |
return 0; | |
} | |
static const FT_Service_GlyphDictRec sfnt_service_glyph_dict = | |
{ | |
(FT_GlyphDict_GetNameFunc) sfnt_get_glyph_name, | |
(FT_GlyphDict_NameIndexFunc)sfnt_get_name_index | |
}; | |
#endif /* TT_CONFIG_OPTION_POSTSCRIPT_NAMES */ | |
/* | |
* POSTSCRIPT NAME SERVICE | |
* | |
*/ | |
static const char* | |
sfnt_get_ps_name( TT_Face face ) | |
{ | |
FT_Int n, found_win, found_apple; | |
const char* result = NULL; | |
/* shouldn't happen, but just in case to avoid memory leaks */ | |
if ( face->postscript_name ) | |
return face->postscript_name; | |
/* scan the name table to see whether we have a Postscript name here, */ | |
/* either in Macintosh or Windows platform encodings */ | |
found_win = -1; | |
found_apple = -1; | |
for ( n = 0; n < face->num_names; n++ ) | |
{ | |
TT_NameEntryRec* name = face->name_table.names + n; | |
if ( name->nameID == 6 && name->stringLength > 0 ) | |
{ | |
if ( name->platformID == 3 && | |
name->encodingID == 1 && | |
name->languageID == 0x409 ) | |
found_win = n; | |
if ( name->platformID == 1 && | |
name->encodingID == 0 && | |
name->languageID == 0 ) | |
found_apple = n; | |
} | |
} | |
if ( found_win != -1 ) | |
{ | |
FT_Memory memory = face->root.memory; | |
TT_NameEntryRec* name = face->name_table.names + found_win; | |
FT_UInt len = name->stringLength / 2; | |
FT_Error error = SFNT_Err_Ok; | |
FT_UNUSED( error ); | |
if ( !FT_ALLOC( result, name->stringLength + 1 ) ) | |
{ | |
FT_Stream stream = face->name_table.stream; | |
FT_String* r = (FT_String*)result; | |
FT_Byte* p = (FT_Byte*)name->string; | |
if ( FT_STREAM_SEEK( name->stringOffset ) || | |
FT_FRAME_ENTER( name->stringLength ) ) | |
{ | |
FT_FREE( result ); | |
name->stringLength = 0; | |
name->stringOffset = 0; | |
FT_FREE( name->string ); | |
goto Exit; | |
} | |
p = (FT_Byte*)stream->cursor; | |
for ( ; len > 0; len--, p += 2 ) | |
{ | |
if ( p[0] == 0 && p[1] >= 32 && p[1] < 128 ) | |
*r++ = p[1]; | |
} | |
*r = '\0'; | |
FT_FRAME_EXIT(); | |
} | |
goto Exit; | |
} | |
if ( found_apple != -1 ) | |
{ | |
FT_Memory memory = face->root.memory; | |
TT_NameEntryRec* name = face->name_table.names + found_apple; | |
FT_UInt len = name->stringLength; | |
FT_Error error = SFNT_Err_Ok; | |
FT_UNUSED( error ); | |
if ( !FT_ALLOC( result, len + 1 ) ) | |
{ | |
FT_Stream stream = face->name_table.stream; | |
if ( FT_STREAM_SEEK( name->stringOffset ) || | |
FT_STREAM_READ( result, len ) ) | |
{ | |
name->stringOffset = 0; | |
name->stringLength = 0; | |
FT_FREE( name->string ); | |
FT_FREE( result ); | |
goto Exit; | |
} | |
((char*)result)[len] = '\0'; | |
} | |
} | |
Exit: | |
face->postscript_name = result; | |
return result; | |
} | |
static const FT_Service_PsFontNameRec sfnt_service_ps_name = | |
{ | |
(FT_PsName_GetFunc)sfnt_get_ps_name | |
}; | |
/* | |
* TT CMAP INFO | |
*/ | |
static const FT_Service_TTCMapsRec tt_service_get_cmap_info = | |
{ | |
(TT_CMap_Info_GetFunc)tt_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_Err_Invalid_Argument; | |
} | |
} | |
return error; | |
} | |
static const FT_Service_BDFRec sfnt_service_bdf = | |
{ | |
(FT_BDF_GetCharsetIdFunc) sfnt_get_charset_id, | |
(FT_BDF_GetPropertyFunc) tt_face_find_bdf_prop, | |
}; | |
#endif /* TT_CONFIG_OPTION_BDF */ | |
/* | |
* SERVICE LIST | |
*/ | |
static const FT_ServiceDescRec sfnt_services[] = | |
{ | |
{ FT_SERVICE_ID_SFNT_TABLE, &sfnt_service_sfnt_table }, | |
{ FT_SERVICE_ID_POSTSCRIPT_FONT_NAME, &sfnt_service_ps_name }, | |
#ifdef TT_CONFIG_OPTION_POSTSCRIPT_NAMES | |
{ FT_SERVICE_ID_GLYPH_DICT, &sfnt_service_glyph_dict }, | |
#endif | |
#ifdef TT_CONFIG_OPTION_BDF | |
{ FT_SERVICE_ID_BDF, &sfnt_service_bdf }, | |
#endif | |
{ FT_SERVICE_ID_TT_CMAP, &tt_service_get_cmap_info }, | |
{ NULL, NULL } | |
}; | |
FT_CALLBACK_DEF( FT_Module_Interface ) | |
sfnt_get_interface( FT_Module module, | |
const char* module_interface ) | |
{ | |
FT_UNUSED( module ); | |
return ft_service_list_lookup( sfnt_services, module_interface ); | |
} | |
#ifdef FT_CONFIG_OPTION_OLD_INTERNALS | |
FT_CALLBACK_DEF( FT_Error ) | |
tt_face_load_sfnt_header_stub( TT_Face face, | |
FT_Stream stream, | |
FT_Long face_index, | |
SFNT_Header header ) | |
{ | |
FT_UNUSED( face ); | |
FT_UNUSED( stream ); | |
FT_UNUSED( face_index ); | |
FT_UNUSED( header ); | |
return FT_Err_Unimplemented_Feature; | |
} | |
FT_CALLBACK_DEF( FT_Error ) | |
tt_face_load_directory_stub( TT_Face face, | |
FT_Stream stream, | |
SFNT_Header header ) | |
{ | |
FT_UNUSED( face ); | |
FT_UNUSED( stream ); | |
FT_UNUSED( header ); | |
return FT_Err_Unimplemented_Feature; | |
} | |
FT_CALLBACK_DEF( FT_Error ) | |
tt_face_load_hdmx_stub( TT_Face face, | |
FT_Stream stream ) | |
{ | |
FT_UNUSED( face ); | |
FT_UNUSED( stream ); | |
return FT_Err_Unimplemented_Feature; | |
} | |
FT_CALLBACK_DEF( void ) | |
tt_face_free_hdmx_stub( TT_Face face ) | |
{ | |
FT_UNUSED( face ); | |
} | |
FT_CALLBACK_DEF( FT_Error ) | |
tt_face_set_sbit_strike_stub( TT_Face face, | |
FT_UInt x_ppem, | |
FT_UInt y_ppem, | |
FT_ULong* astrike_index ) | |
{ | |
/* | |
* We simply forge a FT_Size_Request and call the real function | |
* that does all the work. | |
* | |
* This stub might be called by libXfont in the X.Org Xserver, | |
* compiled against version 2.1.8 or newer. | |
*/ | |
FT_Size_RequestRec req; | |
req.type = FT_SIZE_REQUEST_TYPE_NOMINAL; | |
req.width = (FT_F26Dot6)x_ppem; | |
req.height = (FT_F26Dot6)y_ppem; | |
req.horiResolution = 0; | |
req.vertResolution = 0; | |
*astrike_index = 0x7FFFFFFFUL; | |
return tt_face_set_sbit_strike( face, &req, astrike_index ); | |
} | |
FT_CALLBACK_DEF( FT_Error ) | |
tt_face_load_sbit_stub( TT_Face face, | |
FT_Stream stream ) | |
{ | |
FT_UNUSED( face ); | |
FT_UNUSED( stream ); | |
/* | |
* This function was originally implemented to load the sbit table. | |
* However, it has been replaced by `tt_face_load_eblc', and this stub | |
* is only there for some rogue clients which would want to call it | |
* directly (which doesn't make much sense). | |
*/ | |
return FT_Err_Unimplemented_Feature; | |
} | |
FT_CALLBACK_DEF( void ) | |
tt_face_free_sbit_stub( TT_Face face ) | |
{ | |
/* nothing to do in this stub */ | |
FT_UNUSED( face ); | |
} | |
FT_CALLBACK_DEF( FT_Error ) | |
tt_face_load_charmap_stub( TT_Face face, | |
void* cmap, | |
FT_Stream input ) | |
{ | |
FT_UNUSED( face ); | |
FT_UNUSED( cmap ); | |
FT_UNUSED( input ); | |
return FT_Err_Unimplemented_Feature; | |
} | |
FT_CALLBACK_DEF( FT_Error ) | |
tt_face_free_charmap_stub( TT_Face face, | |
void* cmap ) | |
{ | |
FT_UNUSED( face ); | |
FT_UNUSED( cmap ); | |
return 0; | |
} | |
#endif /* FT_CONFIG_OPTION_OLD_INTERNALS */ | |
static | |
const SFNT_Interface sfnt_interface = | |
{ | |
tt_face_goto_table, | |
sfnt_init_face, | |
sfnt_load_face, | |
sfnt_done_face, | |
sfnt_get_interface, | |
tt_face_load_any, | |
#ifdef FT_CONFIG_OPTION_OLD_INTERNALS | |
tt_face_load_sfnt_header_stub, | |
tt_face_load_directory_stub, | |
#endif | |
tt_face_load_head, | |
tt_face_load_hhea, | |
tt_face_load_cmap, | |
tt_face_load_maxp, | |
tt_face_load_os2, | |
tt_face_load_post, | |
tt_face_load_name, | |
tt_face_free_name, | |
#ifdef FT_CONFIG_OPTION_OLD_INTERNALS | |
tt_face_load_hdmx_stub, | |
tt_face_free_hdmx_stub, | |
#endif | |
tt_face_load_kern, | |
tt_face_load_gasp, | |
tt_face_load_pclt, | |
#ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS | |
/* see `ttload.h' */ | |
tt_face_load_bhed, | |
#else | |
0, | |
#endif | |
#ifdef FT_CONFIG_OPTION_OLD_INTERNALS | |
tt_face_set_sbit_strike_stub, | |
tt_face_load_sbit_stub, | |
tt_find_sbit_image, | |
tt_load_sbit_metrics, | |
#endif | |
#ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS | |
tt_face_load_sbit_image, | |
#else | |
0, | |
#endif | |
#ifdef FT_CONFIG_OPTION_OLD_INTERNALS | |
tt_face_free_sbit_stub, | |
#endif | |
#ifdef TT_CONFIG_OPTION_POSTSCRIPT_NAMES | |
/* see `ttpost.h' */ | |
tt_face_get_ps_name, | |
tt_face_free_ps_names, | |
#else | |
0, | |
0, | |
#endif | |
#ifdef FT_CONFIG_OPTION_OLD_INTERNALS | |
tt_face_load_charmap_stub, | |
tt_face_free_charmap_stub, | |
#endif | |
/* since version 2.1.8 */ | |
tt_face_get_kerning, | |
/* since version 2.2 */ | |
tt_face_load_font_dir, | |
tt_face_load_hmtx, | |
#ifdef TT_CONFIG_OPTION_EMBEDDED_BITMAPS | |
/* see `ttsbit.h' and `sfnt.h' */ | |
tt_face_load_eblc, | |
tt_face_free_eblc, | |
tt_face_set_sbit_strike, | |
tt_face_load_strike_metrics, | |
#else | |
0, | |
0, | |
0, | |
0, | |
#endif | |
tt_face_get_metrics | |
}; | |
FT_CALLBACK_TABLE_DEF | |
const FT_Module_Class 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, /* module specific interface */ | |
(FT_Module_Constructor)0, | |
(FT_Module_Destructor) 0, | |
(FT_Module_Requester) sfnt_get_interface | |
}; | |
/* END */ |