666 lines
16 KiB
C
666 lines
16 KiB
C
/****************************************************************************
|
|
*
|
|
* ttpload.c
|
|
*
|
|
* TrueType-specific tables loader (body).
|
|
*
|
|
* Copyright (C) 1996-2023 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 <freetype/internal/ftdebug.h>
|
|
#include <freetype/internal/ftobjs.h>
|
|
#include <freetype/internal/ftstream.h>
|
|
#include <freetype/tttags.h>
|
|
|
|
#include "ttpload.h"
|
|
|
|
#ifdef TT_CONFIG_OPTION_GX_VAR_SUPPORT
|
|
#include "ttgxvar.h"
|
|
#endif
|
|
|
|
#include "tterrors.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 ttpload
|
|
|
|
|
|
/**************************************************************************
|
|
*
|
|
* @Function:
|
|
* tt_face_load_loca
|
|
*
|
|
* @Description:
|
|
* Load the locations table.
|
|
*
|
|
* @InOut:
|
|
* face ::
|
|
* A handle to the target face object.
|
|
*
|
|
* @Input:
|
|
* stream ::
|
|
* The input stream.
|
|
*
|
|
* @Return:
|
|
* FreeType error code. 0 means success.
|
|
*/
|
|
FT_LOCAL_DEF( FT_Error )
|
|
tt_face_load_loca( TT_Face face,
|
|
FT_Stream stream )
|
|
{
|
|
FT_Error error;
|
|
FT_ULong table_len;
|
|
FT_Int shift;
|
|
|
|
|
|
/* we need the size of the `glyf' table for malformed `loca' tables */
|
|
error = face->goto_table( face, TTAG_glyf, stream, &face->glyf_len );
|
|
|
|
/* it is possible that a font doesn't have a glyf table at all */
|
|
/* or its size is zero */
|
|
if ( FT_ERR_EQ( error, Table_Missing ) )
|
|
{
|
|
face->glyf_len = 0;
|
|
face->glyf_offset = 0;
|
|
}
|
|
else if ( error )
|
|
goto Exit;
|
|
else
|
|
{
|
|
#ifdef FT_CONFIG_OPTION_INCREMENTAL
|
|
if ( face->root.internal->incremental_interface )
|
|
face->glyf_offset = 0;
|
|
else
|
|
#endif
|
|
face->glyf_offset = FT_STREAM_POS();
|
|
}
|
|
|
|
FT_TRACE2(( "Locations " ));
|
|
error = face->goto_table( face, TTAG_loca, stream, &table_len );
|
|
if ( error )
|
|
{
|
|
error = FT_THROW( Locations_Missing );
|
|
goto Exit;
|
|
}
|
|
|
|
shift = face->header.Index_To_Loc_Format != 0 ? 2 : 1;
|
|
|
|
if ( table_len > 0x10000UL << shift )
|
|
{
|
|
FT_TRACE2(( "table too large\n" ));
|
|
table_len = 0x10000UL << shift;
|
|
}
|
|
|
|
face->num_locations = table_len >> shift;
|
|
|
|
if ( face->num_locations != (FT_ULong)face->root.num_glyphs + 1 )
|
|
{
|
|
FT_TRACE2(( "glyph count mismatch! loca: %ld, maxp: %ld\n",
|
|
face->num_locations - 1, face->root.num_glyphs ));
|
|
|
|
/* we only handle the case where `maxp' gives a larger value */
|
|
if ( face->num_locations < (FT_ULong)face->root.num_glyphs + 1 )
|
|
{
|
|
FT_ULong new_loca_len =
|
|
( (FT_ULong)face->root.num_glyphs + 1 ) << shift;
|
|
|
|
TT_Table entry = face->dir_tables;
|
|
TT_Table limit = entry + face->num_tables;
|
|
|
|
FT_Long pos = (FT_Long)FT_STREAM_POS();
|
|
FT_Long dist = 0x7FFFFFFFL;
|
|
FT_Bool found = 0;
|
|
|
|
|
|
/* compute the distance to next table in font file */
|
|
for ( ; entry < limit; entry++ )
|
|
{
|
|
FT_Long diff = (FT_Long)entry->Offset - pos;
|
|
|
|
|
|
if ( diff > 0 && diff < dist )
|
|
{
|
|
dist = diff;
|
|
found = 1;
|
|
}
|
|
}
|
|
|
|
if ( !found )
|
|
{
|
|
/* `loca' is the last table */
|
|
dist = (FT_Long)stream->size - pos;
|
|
}
|
|
|
|
if ( new_loca_len <= (FT_ULong)dist )
|
|
{
|
|
face->num_locations = (FT_ULong)face->root.num_glyphs + 1;
|
|
table_len = new_loca_len;
|
|
|
|
FT_TRACE2(( "adjusting num_locations to %ld\n",
|
|
face->num_locations ));
|
|
}
|
|
else
|
|
{
|
|
face->root.num_glyphs = face->num_locations
|
|
? (FT_Long)face->num_locations - 1 : 0;
|
|
|
|
FT_TRACE2(( "adjusting num_glyphs to %ld\n",
|
|
face->root.num_glyphs ));
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Extract the frame. We don't need to decompress it since
|
|
* we are able to parse it directly.
|
|
*/
|
|
if ( FT_FRAME_EXTRACT( table_len, face->glyph_locations ) )
|
|
goto Exit;
|
|
|
|
FT_TRACE2(( "loaded\n" ));
|
|
|
|
Exit:
|
|
return error;
|
|
}
|
|
|
|
|
|
FT_LOCAL_DEF( FT_ULong )
|
|
tt_face_get_location( FT_Face face, /* TT_Face */
|
|
FT_UInt gindex,
|
|
FT_ULong *asize )
|
|
{
|
|
TT_Face ttface = (TT_Face)face;
|
|
FT_ULong pos1, pos2;
|
|
FT_Byte* p;
|
|
FT_Byte* p_limit;
|
|
|
|
|
|
pos1 = pos2 = 0;
|
|
|
|
if ( gindex < ttface->num_locations )
|
|
{
|
|
if ( ttface->header.Index_To_Loc_Format != 0 )
|
|
{
|
|
p = ttface->glyph_locations + gindex * 4;
|
|
p_limit = ttface->glyph_locations + ttface->num_locations * 4;
|
|
|
|
pos1 = FT_NEXT_ULONG( p );
|
|
pos2 = pos1;
|
|
|
|
if ( p + 4 <= p_limit )
|
|
pos2 = FT_NEXT_ULONG( p );
|
|
}
|
|
else
|
|
{
|
|
p = ttface->glyph_locations + gindex * 2;
|
|
p_limit = ttface->glyph_locations + ttface->num_locations * 2;
|
|
|
|
pos1 = FT_NEXT_USHORT( p );
|
|
pos2 = pos1;
|
|
|
|
if ( p + 2 <= p_limit )
|
|
pos2 = FT_NEXT_USHORT( p );
|
|
|
|
pos1 <<= 1;
|
|
pos2 <<= 1;
|
|
}
|
|
}
|
|
|
|
/* Check broken location data. */
|
|
if ( pos1 > ttface->glyf_len )
|
|
{
|
|
FT_TRACE1(( "tt_face_get_location:"
|
|
" too large offset (0x%08lx) found for glyph index %d,\n",
|
|
pos1, gindex ));
|
|
FT_TRACE1(( " "
|
|
" exceeding the end of `glyf' table (0x%08lx)\n",
|
|
ttface->glyf_len ));
|
|
*asize = 0;
|
|
return 0;
|
|
}
|
|
|
|
if ( pos2 > ttface->glyf_len )
|
|
{
|
|
/* We try to sanitize the last `loca' entry. */
|
|
if ( gindex == ttface->num_locations - 2 )
|
|
{
|
|
FT_TRACE1(( "tt_face_get_location:"
|
|
" too large size (%ld bytes) found for glyph index %d,\n",
|
|
pos2 - pos1, gindex ));
|
|
FT_TRACE1(( " "
|
|
" truncating at the end of `glyf' table to %ld bytes\n",
|
|
ttface->glyf_len - pos1 ));
|
|
pos2 = ttface->glyf_len;
|
|
}
|
|
else
|
|
{
|
|
FT_TRACE1(( "tt_face_get_location:"
|
|
" too large offset (0x%08lx) found for glyph index %d,\n",
|
|
pos2, gindex + 1 ));
|
|
FT_TRACE1(( " "
|
|
" exceeding the end of `glyf' table (0x%08lx)\n",
|
|
ttface->glyf_len ));
|
|
*asize = 0;
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/* The `loca' table must be ordered; it refers to the length of */
|
|
/* an entry as the difference between the current and the next */
|
|
/* position. However, there do exist (malformed) fonts which */
|
|
/* don't obey this rule, so we are only able to provide an */
|
|
/* upper bound for the size. */
|
|
/* */
|
|
/* We get (intentionally) a wrong, non-zero result in case the */
|
|
/* `glyf' table is missing. */
|
|
if ( pos2 >= pos1 )
|
|
*asize = (FT_ULong)( pos2 - pos1 );
|
|
else
|
|
*asize = (FT_ULong)( ttface->glyf_len - pos1 );
|
|
|
|
return pos1;
|
|
}
|
|
|
|
|
|
FT_LOCAL_DEF( void )
|
|
tt_face_done_loca( TT_Face face )
|
|
{
|
|
FT_Stream stream = face->root.stream;
|
|
|
|
|
|
FT_FRAME_RELEASE( face->glyph_locations );
|
|
face->num_locations = 0;
|
|
}
|
|
|
|
|
|
|
|
/**************************************************************************
|
|
*
|
|
* @Function:
|
|
* tt_face_load_cvt
|
|
*
|
|
* @Description:
|
|
* Load the control value table into a face object.
|
|
*
|
|
* @InOut:
|
|
* face ::
|
|
* A handle to the target face object.
|
|
*
|
|
* @Input:
|
|
* stream ::
|
|
* A handle to the input stream.
|
|
*
|
|
* @Return:
|
|
* FreeType error code. 0 means success.
|
|
*/
|
|
FT_LOCAL_DEF( FT_Error )
|
|
tt_face_load_cvt( TT_Face face,
|
|
FT_Stream stream )
|
|
{
|
|
#ifdef TT_USE_BYTECODE_INTERPRETER
|
|
|
|
FT_Error error;
|
|
FT_Memory memory = stream->memory;
|
|
FT_ULong table_len;
|
|
|
|
|
|
FT_TRACE2(( "CVT " ));
|
|
|
|
error = face->goto_table( face, TTAG_cvt, stream, &table_len );
|
|
if ( error )
|
|
{
|
|
FT_TRACE2(( "is missing\n" ));
|
|
|
|
face->cvt_size = 0;
|
|
face->cvt = NULL;
|
|
error = FT_Err_Ok;
|
|
|
|
goto Exit;
|
|
}
|
|
|
|
face->cvt_size = table_len / 2;
|
|
|
|
if ( FT_QNEW_ARRAY( face->cvt, face->cvt_size ) )
|
|
goto Exit;
|
|
|
|
if ( FT_FRAME_ENTER( face->cvt_size * 2L ) )
|
|
goto Exit;
|
|
|
|
{
|
|
FT_Int32* cur = face->cvt;
|
|
FT_Int32* limit = cur + face->cvt_size;
|
|
|
|
|
|
for ( ; cur < limit; cur++ )
|
|
*cur = FT_GET_SHORT() * 64;
|
|
}
|
|
|
|
FT_FRAME_EXIT();
|
|
FT_TRACE2(( "loaded\n" ));
|
|
|
|
#ifdef TT_CONFIG_OPTION_GX_VAR_SUPPORT
|
|
if ( face->doblend )
|
|
error = tt_face_vary_cvt( face, stream );
|
|
#endif
|
|
|
|
Exit:
|
|
return error;
|
|
|
|
#else /* !TT_USE_BYTECODE_INTERPRETER */
|
|
|
|
FT_UNUSED( face );
|
|
FT_UNUSED( stream );
|
|
|
|
return FT_Err_Ok;
|
|
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
*
|
|
* @Function:
|
|
* tt_face_load_fpgm
|
|
*
|
|
* @Description:
|
|
* Load the font program.
|
|
*
|
|
* @InOut:
|
|
* face ::
|
|
* A handle to the target face object.
|
|
*
|
|
* @Input:
|
|
* stream ::
|
|
* A handle to the input stream.
|
|
*
|
|
* @Return:
|
|
* FreeType error code. 0 means success.
|
|
*/
|
|
FT_LOCAL_DEF( FT_Error )
|
|
tt_face_load_fpgm( TT_Face face,
|
|
FT_Stream stream )
|
|
{
|
|
#ifdef TT_USE_BYTECODE_INTERPRETER
|
|
|
|
FT_Error error;
|
|
FT_ULong table_len;
|
|
|
|
|
|
FT_TRACE2(( "Font program " ));
|
|
|
|
/* The font program is optional */
|
|
error = face->goto_table( face, TTAG_fpgm, stream, &table_len );
|
|
if ( error )
|
|
{
|
|
face->font_program = NULL;
|
|
face->font_program_size = 0;
|
|
error = FT_Err_Ok;
|
|
|
|
FT_TRACE2(( "is missing\n" ));
|
|
}
|
|
else
|
|
{
|
|
face->font_program_size = table_len;
|
|
if ( FT_FRAME_EXTRACT( table_len, face->font_program ) )
|
|
goto Exit;
|
|
|
|
FT_TRACE2(( "loaded, %12ld bytes\n", face->font_program_size ));
|
|
}
|
|
|
|
Exit:
|
|
return error;
|
|
|
|
#else /* !TT_USE_BYTECODE_INTERPRETER */
|
|
|
|
FT_UNUSED( face );
|
|
FT_UNUSED( stream );
|
|
|
|
return FT_Err_Ok;
|
|
|
|
#endif
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
*
|
|
* @Function:
|
|
* tt_face_load_prep
|
|
*
|
|
* @Description:
|
|
* Load the cvt program.
|
|
*
|
|
* @InOut:
|
|
* face ::
|
|
* A handle to the target face object.
|
|
*
|
|
* @Input:
|
|
* stream ::
|
|
* A handle to the input stream.
|
|
*
|
|
* @Return:
|
|
* FreeType error code. 0 means success.
|
|
*/
|
|
FT_LOCAL_DEF( FT_Error )
|
|
tt_face_load_prep( TT_Face face,
|
|
FT_Stream stream )
|
|
{
|
|
#ifdef TT_USE_BYTECODE_INTERPRETER
|
|
|
|
FT_Error error;
|
|
FT_ULong table_len;
|
|
|
|
|
|
FT_TRACE2(( "Prep program " ));
|
|
|
|
error = face->goto_table( face, TTAG_prep, stream, &table_len );
|
|
if ( error )
|
|
{
|
|
face->cvt_program = NULL;
|
|
face->cvt_program_size = 0;
|
|
error = FT_Err_Ok;
|
|
|
|
FT_TRACE2(( "is missing\n" ));
|
|
}
|
|
else
|
|
{
|
|
face->cvt_program_size = table_len;
|
|
if ( FT_FRAME_EXTRACT( table_len, face->cvt_program ) )
|
|
goto Exit;
|
|
|
|
FT_TRACE2(( "loaded, %12ld bytes\n", face->cvt_program_size ));
|
|
}
|
|
|
|
Exit:
|
|
return error;
|
|
|
|
#else /* !TT_USE_BYTECODE_INTERPRETER */
|
|
|
|
FT_UNUSED( face );
|
|
FT_UNUSED( stream );
|
|
|
|
return FT_Err_Ok;
|
|
|
|
#endif
|
|
}
|
|
|
|
|
|
FT_COMPARE_DEF( int )
|
|
compare_ppem( const void* a,
|
|
const void* b )
|
|
{
|
|
return **(FT_Byte**)a - **(FT_Byte**)b;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
*
|
|
* @Function:
|
|
* tt_face_load_hdmx
|
|
*
|
|
* @Description:
|
|
* Load the `hdmx' table into the face object.
|
|
*
|
|
* @Input:
|
|
* face ::
|
|
* A handle to the target face object.
|
|
*
|
|
* stream ::
|
|
* A handle to the input stream.
|
|
*
|
|
* @Return:
|
|
* FreeType error code. 0 means success.
|
|
*/
|
|
|
|
FT_LOCAL_DEF( FT_Error )
|
|
tt_face_load_hdmx( TT_Face face,
|
|
FT_Stream stream )
|
|
{
|
|
FT_Error error;
|
|
FT_Memory memory = stream->memory;
|
|
FT_UInt nn, num_records;
|
|
FT_ULong table_size, record_size;
|
|
FT_Byte* p;
|
|
FT_Byte* limit;
|
|
|
|
|
|
/* this table is optional */
|
|
error = face->goto_table( face, TTAG_hdmx, stream, &table_size );
|
|
if ( error || table_size < 8 )
|
|
return FT_Err_Ok;
|
|
|
|
if ( FT_FRAME_EXTRACT( table_size, face->hdmx_table ) )
|
|
goto Exit;
|
|
|
|
p = face->hdmx_table;
|
|
limit = p + table_size;
|
|
|
|
/* Given that `hdmx' tables are losing its importance (for example, */
|
|
/* variation fonts introduced in OpenType 1.8 must not have this */
|
|
/* table) we no longer test for a correct `version' field. */
|
|
p += 2;
|
|
num_records = FT_NEXT_USHORT( p );
|
|
record_size = FT_NEXT_ULONG( p );
|
|
|
|
/* There are at least two fonts, HANNOM-A and HANNOM-B version */
|
|
/* 2.0 (2005), which get this wrong: The upper two bytes of */
|
|
/* the size value are set to 0xFF instead of 0x00. We catch */
|
|
/* and fix this. */
|
|
|
|
if ( record_size >= 0xFFFF0000UL )
|
|
record_size &= 0xFFFFU;
|
|
|
|
FT_TRACE2(( "Hdmx " ));
|
|
|
|
/* The limit for `num_records' is a heuristic value. */
|
|
if ( num_records > 255 || num_records == 0 )
|
|
{
|
|
FT_TRACE2(( "with unreasonable %u records rejected\n", num_records ));
|
|
goto Fail;
|
|
}
|
|
|
|
/* Out-of-spec tables are rejected. The record size must be */
|
|
/* equal to the number of glyphs + 2 + 32-bit padding. */
|
|
if ( (FT_Long)record_size != ( ( face->root.num_glyphs + 2 + 3 ) & ~3 ) )
|
|
{
|
|
FT_TRACE2(( "with record size off by %ld bytes rejected\n",
|
|
(FT_Long)record_size -
|
|
( ( face->root.num_glyphs + 2 + 3 ) & ~3 ) ));
|
|
goto Fail;
|
|
}
|
|
|
|
if ( FT_QNEW_ARRAY( face->hdmx_records, num_records ) )
|
|
goto Fail;
|
|
|
|
for ( nn = 0; nn < num_records; nn++ )
|
|
{
|
|
if ( p + record_size > limit )
|
|
break;
|
|
face->hdmx_records[nn] = p;
|
|
p += record_size;
|
|
}
|
|
|
|
/* The records must be already sorted by ppem but it does not */
|
|
/* hurt to make sure so that the binary search works later. */
|
|
ft_qsort( face->hdmx_records, nn, sizeof ( FT_Byte* ), compare_ppem );
|
|
|
|
face->hdmx_record_count = nn;
|
|
face->hdmx_table_size = table_size;
|
|
face->hdmx_record_size = record_size;
|
|
|
|
FT_TRACE2(( "%ux%lu loaded\n", num_records, record_size ));
|
|
|
|
Exit:
|
|
return error;
|
|
|
|
Fail:
|
|
FT_FRAME_RELEASE( face->hdmx_table );
|
|
face->hdmx_table_size = 0;
|
|
goto Exit;
|
|
}
|
|
|
|
|
|
FT_LOCAL_DEF( void )
|
|
tt_face_free_hdmx( TT_Face face )
|
|
{
|
|
FT_Stream stream = face->root.stream;
|
|
FT_Memory memory = stream->memory;
|
|
|
|
|
|
FT_FREE( face->hdmx_records );
|
|
FT_FRAME_RELEASE( face->hdmx_table );
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
*
|
|
* Return the advance width table for a given pixel size if it is found
|
|
* in the font's `hdmx' table (if any). The records must be sorted for
|
|
* the binary search to work properly.
|
|
*/
|
|
FT_LOCAL_DEF( FT_Byte* )
|
|
tt_face_get_device_metrics( TT_Face face,
|
|
FT_UInt ppem,
|
|
FT_UInt gindex )
|
|
{
|
|
FT_UInt min = 0;
|
|
FT_UInt max = face->hdmx_record_count;
|
|
FT_UInt mid;
|
|
FT_Byte* result = NULL;
|
|
|
|
|
|
while ( min < max )
|
|
{
|
|
mid = ( min + max ) >> 1;
|
|
|
|
if ( face->hdmx_records[mid][0] > ppem )
|
|
max = mid;
|
|
else if ( face->hdmx_records[mid][0] < ppem )
|
|
min = mid + 1;
|
|
else
|
|
{
|
|
result = face->hdmx_records[mid] + 2 + gindex;
|
|
break;
|
|
}
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
/* END */
|