-/***************************************************************************/\r
-/* */\r
-/* pfrload.c */\r
-/* */\r
-/* FreeType PFR loader (body). */\r
-/* */\r
-/* Copyright 2002, 2003, 2004, 2005, 2007 by */\r
-/* David Turner, Robert Wilhelm, and Werner Lemberg. */\r
-/* */\r
-/* This file is part of the FreeType project, and may only be used, */\r
-/* modified, and distributed under the terms of the FreeType project */\r
-/* license, LICENSE.TXT. By continuing to use, modify, or distribute */\r
-/* this file you indicate that you have read the license and */\r
-/* understand and accept it fully. */\r
-/* */\r
-/***************************************************************************/\r
-\r
-\r
-#include "pfrload.h"\r
-#include FT_INTERNAL_DEBUG_H\r
-#include FT_INTERNAL_STREAM_H\r
-\r
-#include "pfrerror.h"\r
-\r
-#undef FT_COMPONENT\r
-#define FT_COMPONENT trace_pfr\r
-\r
-\r
- /*************************************************************************/\r
- /*************************************************************************/\r
- /***** *****/\r
- /***** EXTRA ITEMS *****/\r
- /***** *****/\r
- /*************************************************************************/\r
- /*************************************************************************/\r
-\r
-\r
- FT_LOCAL_DEF( FT_Error )\r
- pfr_extra_items_skip( FT_Byte* *pp,\r
- FT_Byte* limit )\r
- {\r
- return pfr_extra_items_parse( pp, limit, NULL, NULL );\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( FT_Error )\r
- pfr_extra_items_parse( FT_Byte* *pp,\r
- FT_Byte* limit,\r
- PFR_ExtraItem item_list,\r
- FT_Pointer item_data )\r
- {\r
- FT_Error error = 0;\r
- FT_Byte* p = *pp;\r
- FT_UInt num_items, item_type, item_size;\r
-\r
-\r
- PFR_CHECK( 1 );\r
- num_items = PFR_NEXT_BYTE( p );\r
-\r
- for ( ; num_items > 0; num_items-- )\r
- {\r
- PFR_CHECK( 2 );\r
- item_size = PFR_NEXT_BYTE( p );\r
- item_type = PFR_NEXT_BYTE( p );\r
-\r
- PFR_CHECK( item_size );\r
-\r
- if ( item_list )\r
- {\r
- PFR_ExtraItem extra = item_list;\r
-\r
-\r
- for ( extra = item_list; extra->parser != NULL; extra++ )\r
- {\r
- if ( extra->type == item_type )\r
- {\r
- error = extra->parser( p, p + item_size, item_data );\r
- if ( error ) goto Exit;\r
-\r
- break;\r
- }\r
- }\r
- }\r
-\r
- p += item_size;\r
- }\r
-\r
- Exit:\r
- *pp = p;\r
- return error;\r
-\r
- Too_Short:\r
- FT_ERROR(( "pfr_extra_items_parse: invalid extra items table\n" ));\r
- error = PFR_Err_Invalid_Table;\r
- goto Exit;\r
- }\r
-\r
-\r
- /*************************************************************************/\r
- /*************************************************************************/\r
- /***** *****/\r
- /***** PFR HEADER *****/\r
- /***** *****/\r
- /*************************************************************************/\r
- /*************************************************************************/\r
-\r
- static const FT_Frame_Field pfr_header_fields[] =\r
- {\r
-#undef FT_STRUCTURE\r
-#define FT_STRUCTURE PFR_HeaderRec\r
-\r
- FT_FRAME_START( 58 ),\r
- FT_FRAME_ULONG ( signature ),\r
- FT_FRAME_USHORT( version ),\r
- FT_FRAME_USHORT( signature2 ),\r
- FT_FRAME_USHORT( header_size ),\r
-\r
- FT_FRAME_USHORT( log_dir_size ),\r
- FT_FRAME_USHORT( log_dir_offset ),\r
-\r
- FT_FRAME_USHORT( log_font_max_size ),\r
- FT_FRAME_UOFF3 ( log_font_section_size ),\r
- FT_FRAME_UOFF3 ( log_font_section_offset ),\r
-\r
- FT_FRAME_USHORT( phy_font_max_size ),\r
- FT_FRAME_UOFF3 ( phy_font_section_size ),\r
- FT_FRAME_UOFF3 ( phy_font_section_offset ),\r
-\r
- FT_FRAME_USHORT( gps_max_size ),\r
- FT_FRAME_UOFF3 ( gps_section_size ),\r
- FT_FRAME_UOFF3 ( gps_section_offset ),\r
-\r
- FT_FRAME_BYTE ( max_blue_values ),\r
- FT_FRAME_BYTE ( max_x_orus ),\r
- FT_FRAME_BYTE ( max_y_orus ),\r
-\r
- FT_FRAME_BYTE ( phy_font_max_size_high ),\r
- FT_FRAME_BYTE ( color_flags ),\r
-\r
- FT_FRAME_UOFF3 ( bct_max_size ),\r
- FT_FRAME_UOFF3 ( bct_set_max_size ),\r
- FT_FRAME_UOFF3 ( phy_bct_set_max_size ),\r
-\r
- FT_FRAME_USHORT( num_phy_fonts ),\r
- FT_FRAME_BYTE ( max_vert_stem_snap ),\r
- FT_FRAME_BYTE ( max_horz_stem_snap ),\r
- FT_FRAME_USHORT( max_chars ),\r
- FT_FRAME_END\r
- };\r
-\r
-\r
- FT_LOCAL_DEF( FT_Error )\r
- pfr_header_load( PFR_Header header,\r
- FT_Stream stream )\r
- {\r
- FT_Error error;\r
-\r
-\r
- /* read header directly */\r
- if ( !FT_STREAM_SEEK( 0 ) &&\r
- !FT_STREAM_READ_FIELDS( pfr_header_fields, header ) )\r
- {\r
- /* make a few adjustments to the header */\r
- header->phy_font_max_size +=\r
- (FT_UInt32)header->phy_font_max_size_high << 16;\r
- }\r
-\r
- return error;\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( FT_Bool )\r
- pfr_header_check( PFR_Header header )\r
- {\r
- FT_Bool result = 1;\r
-\r
-\r
- /* check signature and header size */\r
- if ( header->signature != 0x50465230L || /* "PFR0" */\r
- header->version > 4 ||\r
- header->header_size < 58 ||\r
- header->signature2 != 0x0d0a ) /* CR/LF */\r
- {\r
- result = 0;\r
- }\r
- return result;\r
- }\r
-\r
-\r
- /***********************************************************************/\r
- /***********************************************************************/\r
- /***** *****/\r
- /***** PFR LOGICAL FONTS *****/\r
- /***** *****/\r
- /***********************************************************************/\r
- /***********************************************************************/\r
-\r
-\r
- FT_LOCAL_DEF( FT_Error )\r
- pfr_log_font_count( FT_Stream stream,\r
- FT_UInt32 section_offset,\r
- FT_UInt *acount )\r
- {\r
- FT_Error error;\r
- FT_UInt count;\r
- FT_UInt result = 0;\r
-\r
-\r
- if ( FT_STREAM_SEEK( section_offset ) || FT_READ_USHORT( count ) )\r
- goto Exit;\r
-\r
- result = count;\r
-\r
- Exit:\r
- *acount = result;\r
- return error;\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( FT_Error )\r
- pfr_log_font_load( PFR_LogFont log_font,\r
- FT_Stream stream,\r
- FT_UInt idx,\r
- FT_UInt32 section_offset,\r
- FT_Bool size_increment )\r
- {\r
- FT_UInt num_log_fonts;\r
- FT_UInt flags;\r
- FT_UInt32 offset;\r
- FT_UInt32 size;\r
- FT_Error error;\r
-\r
-\r
- if ( FT_STREAM_SEEK( section_offset ) ||\r
- FT_READ_USHORT( num_log_fonts ) )\r
- goto Exit;\r
-\r
- if ( idx >= num_log_fonts )\r
- return PFR_Err_Invalid_Argument;\r
-\r
- if ( FT_STREAM_SKIP( idx * 5 ) ||\r
- FT_READ_USHORT( size ) ||\r
- FT_READ_UOFF3 ( offset ) )\r
- goto Exit;\r
-\r
- /* save logical font size and offset */\r
- log_font->size = size;\r
- log_font->offset = offset;\r
-\r
- /* now, check the rest of the table before loading it */\r
- {\r
- FT_Byte* p;\r
- FT_Byte* limit;\r
- FT_UInt local;\r
-\r
-\r
- if ( FT_STREAM_SEEK( offset ) || FT_FRAME_ENTER( size ) )\r
- goto Exit;\r
-\r
- p = stream->cursor;\r
- limit = p + size;\r
-\r
- PFR_CHECK(13);\r
-\r
- log_font->matrix[0] = PFR_NEXT_LONG( p );\r
- log_font->matrix[1] = PFR_NEXT_LONG( p );\r
- log_font->matrix[2] = PFR_NEXT_LONG( p );\r
- log_font->matrix[3] = PFR_NEXT_LONG( p );\r
-\r
- flags = PFR_NEXT_BYTE( p );\r
-\r
- local = 0;\r
- if ( flags & PFR_LOG_STROKE )\r
- {\r
- local++;\r
- if ( flags & PFR_LOG_2BYTE_STROKE )\r
- local++;\r
-\r
- if ( (flags & PFR_LINE_JOIN_MASK) == PFR_LINE_JOIN_MITER )\r
- local += 3;\r
- }\r
- if ( flags & PFR_LOG_BOLD )\r
- {\r
- local++;\r
- if ( flags & PFR_LOG_2BYTE_BOLD )\r
- local++;\r
- }\r
-\r
- PFR_CHECK( local );\r
-\r
- if ( flags & PFR_LOG_STROKE )\r
- {\r
- log_font->stroke_thickness = ( flags & PFR_LOG_2BYTE_STROKE )\r
- ? PFR_NEXT_SHORT( p )\r
- : PFR_NEXT_BYTE( p );\r
-\r
- if ( ( flags & PFR_LINE_JOIN_MASK ) == PFR_LINE_JOIN_MITER )\r
- log_font->miter_limit = PFR_NEXT_LONG( p );\r
- }\r
-\r
- if ( flags & PFR_LOG_BOLD )\r
- {\r
- log_font->bold_thickness = ( flags & PFR_LOG_2BYTE_BOLD )\r
- ? PFR_NEXT_SHORT( p )\r
- : PFR_NEXT_BYTE( p );\r
- }\r
-\r
- if ( flags & PFR_LOG_EXTRA_ITEMS )\r
- {\r
- error = pfr_extra_items_skip( &p, limit );\r
- if (error) goto Fail;\r
- }\r
-\r
- PFR_CHECK(5);\r
- log_font->phys_size = PFR_NEXT_USHORT( p );\r
- log_font->phys_offset = PFR_NEXT_ULONG( p );\r
- if ( size_increment )\r
- {\r
- PFR_CHECK( 1 );\r
- log_font->phys_size += (FT_UInt32)PFR_NEXT_BYTE( p ) << 16;\r
- }\r
- }\r
-\r
- Fail:\r
- FT_FRAME_EXIT();\r
-\r
- Exit:\r
- return error;\r
-\r
- Too_Short:\r
- FT_ERROR(( "pfr_log_font_load: invalid logical font table\n" ));\r
- error = PFR_Err_Invalid_Table;\r
- goto Fail;\r
- }\r
-\r
-\r
- /***********************************************************************/\r
- /***********************************************************************/\r
- /***** *****/\r
- /***** PFR PHYSICAL FONTS *****/\r
- /***** *****/\r
- /***********************************************************************/\r
- /***********************************************************************/\r
-\r
-\r
- /* load bitmap strikes lists */\r
- FT_CALLBACK_DEF( FT_Error )\r
- pfr_extra_item_load_bitmap_info( FT_Byte* p,\r
- FT_Byte* limit,\r
- PFR_PhyFont phy_font )\r
- {\r
- FT_Memory memory = phy_font->memory;\r
- PFR_Strike strike;\r
- FT_UInt flags0;\r
- FT_UInt n, count, size1;\r
- FT_Error error = 0;\r
-\r
-\r
- PFR_CHECK( 5 );\r
-\r
- p += 3; /* skip bctSize */\r
- flags0 = PFR_NEXT_BYTE( p );\r
- count = PFR_NEXT_BYTE( p );\r
-\r
- /* re-allocate when needed */\r
- if ( phy_font->num_strikes + count > phy_font->max_strikes )\r
- {\r
- FT_UInt new_max = FT_PAD_CEIL( phy_font->num_strikes + count, 4 );\r
-\r
-\r
- if ( FT_RENEW_ARRAY( phy_font->strikes,\r
- phy_font->num_strikes,\r
- new_max ) )\r
- goto Exit;\r
-\r
- phy_font->max_strikes = new_max;\r
- }\r
-\r
- size1 = 1 + 1 + 1 + 2 + 2 + 1;\r
- if ( flags0 & PFR_STRIKE_2BYTE_XPPM )\r
- size1++;\r
-\r
- if ( flags0 & PFR_STRIKE_2BYTE_YPPM )\r
- size1++;\r
-\r
- if ( flags0 & PFR_STRIKE_3BYTE_SIZE )\r
- size1++;\r
-\r
- if ( flags0 & PFR_STRIKE_3BYTE_OFFSET )\r
- size1++;\r
-\r
- if ( flags0 & PFR_STRIKE_2BYTE_COUNT )\r
- size1++;\r
-\r
- strike = phy_font->strikes + phy_font->num_strikes;\r
-\r
- PFR_CHECK( count * size1 );\r
-\r
- for ( n = 0; n < count; n++, strike++ )\r
- {\r
- strike->x_ppm = ( flags0 & PFR_STRIKE_2BYTE_XPPM )\r
- ? PFR_NEXT_USHORT( p )\r
- : PFR_NEXT_BYTE( p );\r
-\r
- strike->y_ppm = ( flags0 & PFR_STRIKE_2BYTE_YPPM )\r
- ? PFR_NEXT_USHORT( p )\r
- : PFR_NEXT_BYTE( p );\r
-\r
- strike->flags = PFR_NEXT_BYTE( p );\r
-\r
- strike->bct_size = ( flags0 & PFR_STRIKE_3BYTE_SIZE )\r
- ? PFR_NEXT_ULONG( p )\r
- : PFR_NEXT_USHORT( p );\r
-\r
- strike->bct_offset = ( flags0 & PFR_STRIKE_3BYTE_OFFSET )\r
- ? PFR_NEXT_ULONG( p )\r
- : PFR_NEXT_USHORT( p );\r
-\r
- strike->num_bitmaps = ( flags0 & PFR_STRIKE_2BYTE_COUNT )\r
- ? PFR_NEXT_USHORT( p )\r
- : PFR_NEXT_BYTE( p );\r
- }\r
-\r
- phy_font->num_strikes += count;\r
-\r
- Exit:\r
- return error;\r
-\r
- Too_Short:\r
- error = PFR_Err_Invalid_Table;\r
- FT_ERROR(( "pfr_extra_item_load_bitmap_info: invalid bitmap info table\n" ));\r
- goto Exit;\r
- }\r
-\r
-\r
- /* Load font ID. This is a so-called "unique" name that is rather\r
- * long and descriptive (like "Tiresias ScreenFont v7.51").\r
- *\r
- * Note that a PFR font's family name is contained in an *undocumented*\r
- * string of the "auxiliary data" portion of a physical font record. This\r
- * may also contain the "real" style name!\r
- *\r
- * If no family name is present, the font ID is used instead for the\r
- * family.\r
- */\r
- FT_CALLBACK_DEF( FT_Error )\r
- pfr_extra_item_load_font_id( FT_Byte* p,\r
- FT_Byte* limit,\r
- PFR_PhyFont phy_font )\r
- {\r
- FT_Error error = 0;\r
- FT_Memory memory = phy_font->memory;\r
- FT_PtrDist len = limit - p;\r
-\r
-\r
- if ( phy_font->font_id != NULL )\r
- goto Exit;\r
-\r
- if ( FT_ALLOC( phy_font->font_id, len + 1 ) )\r
- goto Exit;\r
-\r
- /* copy font ID name, and terminate it for safety */\r
- FT_MEM_COPY( phy_font->font_id, p, len );\r
- phy_font->font_id[len] = 0;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- /* load stem snap tables */\r
- FT_CALLBACK_DEF( FT_Error )\r
- pfr_extra_item_load_stem_snaps( FT_Byte* p,\r
- FT_Byte* limit,\r
- PFR_PhyFont phy_font )\r
- {\r
- FT_UInt count, num_vert, num_horz;\r
- FT_Int* snaps;\r
- FT_Error error = 0;\r
- FT_Memory memory = phy_font->memory;\r
-\r
-\r
- if ( phy_font->vertical.stem_snaps != NULL )\r
- goto Exit;\r
-\r
- PFR_CHECK( 1 );\r
- count = PFR_NEXT_BYTE( p );\r
-\r
- num_vert = count & 15;\r
- num_horz = count >> 4;\r
- count = num_vert + num_horz;\r
-\r
- PFR_CHECK( count * 2 );\r
-\r
- if ( FT_NEW_ARRAY( snaps, count ) )\r
- goto Exit;\r
-\r
- phy_font->vertical.stem_snaps = snaps;\r
- phy_font->horizontal.stem_snaps = snaps + num_vert;\r
-\r
- for ( ; count > 0; count--, snaps++ )\r
- *snaps = FT_NEXT_SHORT( p );\r
-\r
- Exit:\r
- return error;\r
-\r
- Too_Short:\r
- error = PFR_Err_Invalid_Table;\r
- FT_ERROR(( "pfr_exta_item_load_stem_snaps: invalid stem snaps table\n" ));\r
- goto Exit;\r
- }\r
-\r
-\r
-\r
- /* load kerning pair data */\r
- FT_CALLBACK_DEF( FT_Error )\r
- pfr_extra_item_load_kerning_pairs( FT_Byte* p,\r
- FT_Byte* limit,\r
- PFR_PhyFont phy_font )\r
- {\r
- PFR_KernItem item;\r
- FT_Error error = 0;\r
- FT_Memory memory = phy_font->memory;\r
-\r
-\r
- FT_TRACE2(( "pfr_extra_item_load_kerning_pairs()\n" ));\r
-\r
- if ( FT_NEW( item ) )\r
- goto Exit;\r
-\r
- PFR_CHECK( 4 );\r
-\r
- item->pair_count = PFR_NEXT_BYTE( p );\r
- item->base_adj = PFR_NEXT_SHORT( p );\r
- item->flags = PFR_NEXT_BYTE( p );\r
- item->offset = phy_font->offset + ( p - phy_font->cursor );\r
-\r
-#ifndef PFR_CONFIG_NO_CHECKS\r
- item->pair_size = 3;\r
-\r
- if ( item->flags & PFR_KERN_2BYTE_CHAR )\r
- item->pair_size += 2;\r
-\r
- if ( item->flags & PFR_KERN_2BYTE_ADJ )\r
- item->pair_size += 1;\r
-\r
- PFR_CHECK( item->pair_count * item->pair_size );\r
-#endif\r
-\r
- /* load first and last pairs into the item to speed up */\r
- /* lookup later... */\r
- if ( item->pair_count > 0 )\r
- {\r
- FT_UInt char1, char2;\r
- FT_Byte* q;\r
-\r
-\r
- if ( item->flags & PFR_KERN_2BYTE_CHAR )\r
- {\r
- q = p;\r
- char1 = PFR_NEXT_USHORT( q );\r
- char2 = PFR_NEXT_USHORT( q );\r
-\r
- item->pair1 = PFR_KERN_INDEX( char1, char2 );\r
-\r
- q = p + item->pair_size * ( item->pair_count - 1 );\r
- char1 = PFR_NEXT_USHORT( q );\r
- char2 = PFR_NEXT_USHORT( q );\r
-\r
- item->pair2 = PFR_KERN_INDEX( char1, char2 );\r
- }\r
- else\r
- {\r
- q = p;\r
- char1 = PFR_NEXT_BYTE( q );\r
- char2 = PFR_NEXT_BYTE( q );\r
-\r
- item->pair1 = PFR_KERN_INDEX( char1, char2 );\r
-\r
- q = p + item->pair_size * ( item->pair_count - 1 );\r
- char1 = PFR_NEXT_BYTE( q );\r
- char2 = PFR_NEXT_BYTE( q );\r
-\r
- item->pair2 = PFR_KERN_INDEX( char1, char2 );\r
- }\r
-\r
- /* add new item to the current list */\r
- item->next = NULL;\r
- *phy_font->kern_items_tail = item;\r
- phy_font->kern_items_tail = &item->next;\r
- phy_font->num_kern_pairs += item->pair_count;\r
- }\r
- else\r
- {\r
- /* empty item! */\r
- FT_FREE( item );\r
- }\r
-\r
- Exit:\r
- return error;\r
-\r
- Too_Short:\r
- FT_FREE( item );\r
-\r
- error = PFR_Err_Invalid_Table;\r
- FT_ERROR(( "pfr_extra_item_load_kerning_pairs: "\r
- "invalid kerning pairs table\n" ));\r
- goto Exit;\r
- }\r
-\r
-\r
-\r
- static const PFR_ExtraItemRec pfr_phy_font_extra_items[] =\r
- {\r
- { 1, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_bitmap_info },\r
- { 2, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_font_id },\r
- { 3, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_stem_snaps },\r
- { 4, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_kerning_pairs },\r
- { 0, NULL }\r
- };\r
-\r
-\r
- /* Loads a name from the auxiliary data. Since this extracts undocumented\r
- * strings from the font file, we need to be careful here.\r
- */\r
- static FT_Error\r
- pfr_aux_name_load( FT_Byte* p,\r
- FT_UInt len,\r
- FT_Memory memory,\r
- FT_String* *astring )\r
- {\r
- FT_Error error = 0;\r
- FT_String* result = NULL;\r
- FT_UInt n, ok;\r
-\r
-\r
- if ( len > 0 && p[len - 1] == 0 )\r
- len--;\r
-\r
- /* check that each character is ASCII for making sure not to\r
- load garbage\r
- */\r
- ok = ( len > 0 );\r
- for ( n = 0; n < len; n++ )\r
- if ( p[n] < 32 || p[n] > 127 )\r
- {\r
- ok = 0;\r
- break;\r
- }\r
-\r
- if ( ok )\r
- {\r
- if ( FT_ALLOC( result, len + 1 ) )\r
- goto Exit;\r
-\r
- FT_MEM_COPY( result, p, len );\r
- result[len] = 0;\r
- }\r
- Exit:\r
- *astring = result;\r
- return error;\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( void )\r
- pfr_phy_font_done( PFR_PhyFont phy_font,\r
- FT_Memory memory )\r
- {\r
- FT_FREE( phy_font->font_id );\r
- FT_FREE( phy_font->family_name );\r
- FT_FREE( phy_font->style_name );\r
-\r
- FT_FREE( phy_font->vertical.stem_snaps );\r
- phy_font->vertical.num_stem_snaps = 0;\r
-\r
- phy_font->horizontal.stem_snaps = NULL;\r
- phy_font->horizontal.num_stem_snaps = 0;\r
-\r
- FT_FREE( phy_font->strikes );\r
- phy_font->num_strikes = 0;\r
- phy_font->max_strikes = 0;\r
-\r
- FT_FREE( phy_font->chars );\r
- phy_font->num_chars = 0;\r
- phy_font->chars_offset = 0;\r
-\r
- FT_FREE( phy_font->blue_values );\r
- phy_font->num_blue_values = 0;\r
-\r
- {\r
- PFR_KernItem item, next;\r
-\r
-\r
- item = phy_font->kern_items;\r
- while ( item )\r
- {\r
- next = item->next;\r
- FT_FREE( item );\r
- item = next;\r
- }\r
- phy_font->kern_items = NULL;\r
- phy_font->kern_items_tail = NULL;\r
- }\r
-\r
- phy_font->num_kern_pairs = 0;\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( FT_Error )\r
- pfr_phy_font_load( PFR_PhyFont phy_font,\r
- FT_Stream stream,\r
- FT_UInt32 offset,\r
- FT_UInt32 size )\r
- {\r
- FT_Error error;\r
- FT_Memory memory = stream->memory;\r
- FT_UInt flags, num_aux;\r
- FT_Byte* p;\r
- FT_Byte* limit;\r
-\r
-\r
- phy_font->memory = memory;\r
- phy_font->offset = offset;\r
-\r
- phy_font->kern_items = NULL;\r
- phy_font->kern_items_tail = &phy_font->kern_items;\r
-\r
- if ( FT_STREAM_SEEK( offset ) || FT_FRAME_ENTER( size ) )\r
- goto Exit;\r
-\r
- phy_font->cursor = stream->cursor;\r
-\r
- p = stream->cursor;\r
- limit = p + size;\r
-\r
- PFR_CHECK( 15 );\r
- phy_font->font_ref_number = PFR_NEXT_USHORT( p );\r
- phy_font->outline_resolution = PFR_NEXT_USHORT( p );\r
- phy_font->metrics_resolution = PFR_NEXT_USHORT( p );\r
- phy_font->bbox.xMin = PFR_NEXT_SHORT( p );\r
- phy_font->bbox.yMin = PFR_NEXT_SHORT( p );\r
- phy_font->bbox.xMax = PFR_NEXT_SHORT( p );\r
- phy_font->bbox.yMax = PFR_NEXT_SHORT( p );\r
- phy_font->flags = flags = PFR_NEXT_BYTE( p );\r
-\r
- /* get the standard advance for non-proportional fonts */\r
- if ( !(flags & PFR_PHY_PROPORTIONAL) )\r
- {\r
- PFR_CHECK( 2 );\r
- phy_font->standard_advance = PFR_NEXT_SHORT( p );\r
- }\r
-\r
- /* load the extra items when present */\r
- if ( flags & PFR_PHY_EXTRA_ITEMS )\r
- {\r
- error = pfr_extra_items_parse( &p, limit,\r
- pfr_phy_font_extra_items, phy_font );\r
-\r
- if ( error )\r
- goto Fail;\r
- }\r
-\r
- /* In certain fonts, the auxiliary bytes contain interesting */\r
- /* information. These are not in the specification but can be */\r
- /* guessed by looking at the content of a few PFR0 fonts. */\r
- PFR_CHECK( 3 );\r
- num_aux = PFR_NEXT_ULONG( p );\r
-\r
- if ( num_aux > 0 )\r
- {\r
- FT_Byte* q = p;\r
- FT_Byte* q2;\r
-\r
-\r
- PFR_CHECK( num_aux );\r
- p += num_aux;\r
-\r
- while ( num_aux > 0 )\r
- {\r
- FT_UInt length, type;\r
-\r
-\r
- if ( q + 4 > p )\r
- break;\r
-\r
- length = PFR_NEXT_USHORT( q );\r
- if ( length < 4 || length > num_aux )\r
- break;\r
-\r
- q2 = q + length - 2;\r
- type = PFR_NEXT_USHORT( q );\r
-\r
- switch ( type )\r
- {\r
- case 1:\r
- /* this seems to correspond to the font's family name,\r
- * padded to 16-bits with one zero when necessary\r
- */\r
- error = pfr_aux_name_load( q, length - 4U, memory,\r
- &phy_font->family_name );\r
- if ( error )\r
- goto Exit;\r
- break;\r
-\r
- case 2:\r
- if ( q + 32 > q2 )\r
- break;\r
-\r
- q += 10;\r
- phy_font->ascent = PFR_NEXT_SHORT( q );\r
- phy_font->descent = PFR_NEXT_SHORT( q );\r
- phy_font->leading = PFR_NEXT_SHORT( q );\r
- q += 16;\r
- break;\r
-\r
- case 3:\r
- /* this seems to correspond to the font's style name,\r
- * padded to 16-bits with one zero when necessary\r
- */\r
- error = pfr_aux_name_load( q, length - 4U, memory,\r
- &phy_font->style_name );\r
- if ( error )\r
- goto Exit;\r
- break;\r
-\r
- default:\r
- ;\r
- }\r
-\r
- q = q2;\r
- num_aux -= length;\r
- }\r
- }\r
-\r
- /* read the blue values */\r
- {\r
- FT_UInt n, count;\r
-\r
-\r
- PFR_CHECK( 1 );\r
- phy_font->num_blue_values = count = PFR_NEXT_BYTE( p );\r
-\r
- PFR_CHECK( count * 2 );\r
-\r
- if ( FT_NEW_ARRAY( phy_font->blue_values, count ) )\r
- goto Fail;\r
-\r
- for ( n = 0; n < count; n++ )\r
- phy_font->blue_values[n] = PFR_NEXT_SHORT( p );\r
- }\r
-\r
- PFR_CHECK( 8 );\r
- phy_font->blue_fuzz = PFR_NEXT_BYTE( p );\r
- phy_font->blue_scale = PFR_NEXT_BYTE( p );\r
-\r
- phy_font->vertical.standard = PFR_NEXT_USHORT( p );\r
- phy_font->horizontal.standard = PFR_NEXT_USHORT( p );\r
-\r
- /* read the character descriptors */\r
- {\r
- FT_UInt n, count, Size;\r
-\r
-\r
- phy_font->num_chars = count = PFR_NEXT_USHORT( p );\r
- phy_font->chars_offset = offset + ( p - stream->cursor );\r
-\r
- if ( FT_NEW_ARRAY( phy_font->chars, count ) )\r
- goto Fail;\r
-\r
- Size = 1 + 1 + 2;\r
- if ( flags & PFR_PHY_2BYTE_CHARCODE )\r
- Size += 1;\r
-\r
- if ( flags & PFR_PHY_PROPORTIONAL )\r
- Size += 2;\r
-\r
- if ( flags & PFR_PHY_ASCII_CODE )\r
- Size += 1;\r
-\r
- if ( flags & PFR_PHY_2BYTE_GPS_SIZE )\r
- Size += 1;\r
-\r
- if ( flags & PFR_PHY_3BYTE_GPS_OFFSET )\r
- Size += 1;\r
-\r
- PFR_CHECK( count * Size );\r
-\r
- for ( n = 0; n < count; n++ )\r
- {\r
- PFR_Char cur = &phy_font->chars[n];\r
-\r
-\r
- cur->char_code = ( flags & PFR_PHY_2BYTE_CHARCODE )\r
- ? PFR_NEXT_USHORT( p )\r
- : PFR_NEXT_BYTE( p );\r
-\r
- cur->advance = ( flags & PFR_PHY_PROPORTIONAL )\r
- ? PFR_NEXT_SHORT( p )\r
- : (FT_Int) phy_font->standard_advance;\r
-\r
-#if 0\r
- cur->ascii = ( flags & PFR_PHY_ASCII_CODE )\r
- ? PFR_NEXT_BYTE( p )\r
- : 0;\r
-#else\r
- if ( flags & PFR_PHY_ASCII_CODE )\r
- p += 1;\r
-#endif\r
- cur->gps_size = ( flags & PFR_PHY_2BYTE_GPS_SIZE )\r
- ? PFR_NEXT_USHORT( p )\r
- : PFR_NEXT_BYTE( p );\r
-\r
- cur->gps_offset = ( flags & PFR_PHY_3BYTE_GPS_OFFSET )\r
- ? PFR_NEXT_ULONG( p )\r
- : PFR_NEXT_USHORT( p );\r
- }\r
- }\r
-\r
- /* that's it! */\r
-\r
- Fail:\r
- FT_FRAME_EXIT();\r
-\r
- /* save position of bitmap info */\r
- phy_font->bct_offset = FT_STREAM_POS();\r
- phy_font->cursor = NULL;\r
-\r
- Exit:\r
- return error;\r
-\r
- Too_Short:\r
- error = PFR_Err_Invalid_Table;\r
- FT_ERROR(( "pfr_phy_font_load: invalid physical font table\n" ));\r
- goto Fail;\r
- }\r
-\r
-\r
-/* END */\r
+/***************************************************************************/
+/* */
+/* pfrload.c */
+/* */
+/* FreeType PFR loader (body). */
+/* */
+/* Copyright 2002, 2003, 2004, 2005, 2007 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 "pfrload.h"
+#include FT_INTERNAL_DEBUG_H
+#include FT_INTERNAL_STREAM_H
+
+#include "pfrerror.h"
+
+#undef FT_COMPONENT
+#define FT_COMPONENT trace_pfr
+
+
+ /*************************************************************************/
+ /*************************************************************************/
+ /***** *****/
+ /***** EXTRA ITEMS *****/
+ /***** *****/
+ /*************************************************************************/
+ /*************************************************************************/
+
+
+ FT_LOCAL_DEF( FT_Error )
+ pfr_extra_items_skip( FT_Byte* *pp,
+ FT_Byte* limit )
+ {
+ return pfr_extra_items_parse( pp, limit, NULL, NULL );
+ }
+
+
+ FT_LOCAL_DEF( FT_Error )
+ pfr_extra_items_parse( FT_Byte* *pp,
+ FT_Byte* limit,
+ PFR_ExtraItem item_list,
+ FT_Pointer item_data )
+ {
+ FT_Error error = 0;
+ FT_Byte* p = *pp;
+ FT_UInt num_items, item_type, item_size;
+
+
+ PFR_CHECK( 1 );
+ num_items = PFR_NEXT_BYTE( p );
+
+ for ( ; num_items > 0; num_items-- )
+ {
+ PFR_CHECK( 2 );
+ item_size = PFR_NEXT_BYTE( p );
+ item_type = PFR_NEXT_BYTE( p );
+
+ PFR_CHECK( item_size );
+
+ if ( item_list )
+ {
+ PFR_ExtraItem extra = item_list;
+
+
+ for ( extra = item_list; extra->parser != NULL; extra++ )
+ {
+ if ( extra->type == item_type )
+ {
+ error = extra->parser( p, p + item_size, item_data );
+ if ( error ) goto Exit;
+
+ break;
+ }
+ }
+ }
+
+ p += item_size;
+ }
+
+ Exit:
+ *pp = p;
+ return error;
+
+ Too_Short:
+ FT_ERROR(( "pfr_extra_items_parse: invalid extra items table\n" ));
+ error = PFR_Err_Invalid_Table;
+ goto Exit;
+ }
+
+
+ /*************************************************************************/
+ /*************************************************************************/
+ /***** *****/
+ /***** PFR HEADER *****/
+ /***** *****/
+ /*************************************************************************/
+ /*************************************************************************/
+
+ static const FT_Frame_Field pfr_header_fields[] =
+ {
+#undef FT_STRUCTURE
+#define FT_STRUCTURE PFR_HeaderRec
+
+ FT_FRAME_START( 58 ),
+ FT_FRAME_ULONG ( signature ),
+ FT_FRAME_USHORT( version ),
+ FT_FRAME_USHORT( signature2 ),
+ FT_FRAME_USHORT( header_size ),
+
+ FT_FRAME_USHORT( log_dir_size ),
+ FT_FRAME_USHORT( log_dir_offset ),
+
+ FT_FRAME_USHORT( log_font_max_size ),
+ FT_FRAME_UOFF3 ( log_font_section_size ),
+ FT_FRAME_UOFF3 ( log_font_section_offset ),
+
+ FT_FRAME_USHORT( phy_font_max_size ),
+ FT_FRAME_UOFF3 ( phy_font_section_size ),
+ FT_FRAME_UOFF3 ( phy_font_section_offset ),
+
+ FT_FRAME_USHORT( gps_max_size ),
+ FT_FRAME_UOFF3 ( gps_section_size ),
+ FT_FRAME_UOFF3 ( gps_section_offset ),
+
+ FT_FRAME_BYTE ( max_blue_values ),
+ FT_FRAME_BYTE ( max_x_orus ),
+ FT_FRAME_BYTE ( max_y_orus ),
+
+ FT_FRAME_BYTE ( phy_font_max_size_high ),
+ FT_FRAME_BYTE ( color_flags ),
+
+ FT_FRAME_UOFF3 ( bct_max_size ),
+ FT_FRAME_UOFF3 ( bct_set_max_size ),
+ FT_FRAME_UOFF3 ( phy_bct_set_max_size ),
+
+ FT_FRAME_USHORT( num_phy_fonts ),
+ FT_FRAME_BYTE ( max_vert_stem_snap ),
+ FT_FRAME_BYTE ( max_horz_stem_snap ),
+ FT_FRAME_USHORT( max_chars ),
+ FT_FRAME_END
+ };
+
+
+ FT_LOCAL_DEF( FT_Error )
+ pfr_header_load( PFR_Header header,
+ FT_Stream stream )
+ {
+ FT_Error error;
+
+
+ /* read header directly */
+ if ( !FT_STREAM_SEEK( 0 ) &&
+ !FT_STREAM_READ_FIELDS( pfr_header_fields, header ) )
+ {
+ /* make a few adjustments to the header */
+ header->phy_font_max_size +=
+ (FT_UInt32)header->phy_font_max_size_high << 16;
+ }
+
+ return error;
+ }
+
+
+ FT_LOCAL_DEF( FT_Bool )
+ pfr_header_check( PFR_Header header )
+ {
+ FT_Bool result = 1;
+
+
+ /* check signature and header size */
+ if ( header->signature != 0x50465230L || /* "PFR0" */
+ header->version > 4 ||
+ header->header_size < 58 ||
+ header->signature2 != 0x0d0a ) /* CR/LF */
+ {
+ result = 0;
+ }
+ return result;
+ }
+
+
+ /***********************************************************************/
+ /***********************************************************************/
+ /***** *****/
+ /***** PFR LOGICAL FONTS *****/
+ /***** *****/
+ /***********************************************************************/
+ /***********************************************************************/
+
+
+ FT_LOCAL_DEF( FT_Error )
+ pfr_log_font_count( FT_Stream stream,
+ FT_UInt32 section_offset,
+ FT_UInt *acount )
+ {
+ FT_Error error;
+ FT_UInt count;
+ FT_UInt result = 0;
+
+
+ if ( FT_STREAM_SEEK( section_offset ) || FT_READ_USHORT( count ) )
+ goto Exit;
+
+ result = count;
+
+ Exit:
+ *acount = result;
+ return error;
+ }
+
+
+ FT_LOCAL_DEF( FT_Error )
+ pfr_log_font_load( PFR_LogFont log_font,
+ FT_Stream stream,
+ FT_UInt idx,
+ FT_UInt32 section_offset,
+ FT_Bool size_increment )
+ {
+ FT_UInt num_log_fonts;
+ FT_UInt flags;
+ FT_UInt32 offset;
+ FT_UInt32 size;
+ FT_Error error;
+
+
+ if ( FT_STREAM_SEEK( section_offset ) ||
+ FT_READ_USHORT( num_log_fonts ) )
+ goto Exit;
+
+ if ( idx >= num_log_fonts )
+ return PFR_Err_Invalid_Argument;
+
+ if ( FT_STREAM_SKIP( idx * 5 ) ||
+ FT_READ_USHORT( size ) ||
+ FT_READ_UOFF3 ( offset ) )
+ goto Exit;
+
+ /* save logical font size and offset */
+ log_font->size = size;
+ log_font->offset = offset;
+
+ /* now, check the rest of the table before loading it */
+ {
+ FT_Byte* p;
+ FT_Byte* limit;
+ FT_UInt local;
+
+
+ if ( FT_STREAM_SEEK( offset ) || FT_FRAME_ENTER( size ) )
+ goto Exit;
+
+ p = stream->cursor;
+ limit = p + size;
+
+ PFR_CHECK(13);
+
+ log_font->matrix[0] = PFR_NEXT_LONG( p );
+ log_font->matrix[1] = PFR_NEXT_LONG( p );
+ log_font->matrix[2] = PFR_NEXT_LONG( p );
+ log_font->matrix[3] = PFR_NEXT_LONG( p );
+
+ flags = PFR_NEXT_BYTE( p );
+
+ local = 0;
+ if ( flags & PFR_LOG_STROKE )
+ {
+ local++;
+ if ( flags & PFR_LOG_2BYTE_STROKE )
+ local++;
+
+ if ( (flags & PFR_LINE_JOIN_MASK) == PFR_LINE_JOIN_MITER )
+ local += 3;
+ }
+ if ( flags & PFR_LOG_BOLD )
+ {
+ local++;
+ if ( flags & PFR_LOG_2BYTE_BOLD )
+ local++;
+ }
+
+ PFR_CHECK( local );
+
+ if ( flags & PFR_LOG_STROKE )
+ {
+ log_font->stroke_thickness = ( flags & PFR_LOG_2BYTE_STROKE )
+ ? PFR_NEXT_SHORT( p )
+ : PFR_NEXT_BYTE( p );
+
+ if ( ( flags & PFR_LINE_JOIN_MASK ) == PFR_LINE_JOIN_MITER )
+ log_font->miter_limit = PFR_NEXT_LONG( p );
+ }
+
+ if ( flags & PFR_LOG_BOLD )
+ {
+ log_font->bold_thickness = ( flags & PFR_LOG_2BYTE_BOLD )
+ ? PFR_NEXT_SHORT( p )
+ : PFR_NEXT_BYTE( p );
+ }
+
+ if ( flags & PFR_LOG_EXTRA_ITEMS )
+ {
+ error = pfr_extra_items_skip( &p, limit );
+ if (error) goto Fail;
+ }
+
+ PFR_CHECK(5);
+ log_font->phys_size = PFR_NEXT_USHORT( p );
+ log_font->phys_offset = PFR_NEXT_ULONG( p );
+ if ( size_increment )
+ {
+ PFR_CHECK( 1 );
+ log_font->phys_size += (FT_UInt32)PFR_NEXT_BYTE( p ) << 16;
+ }
+ }
+
+ Fail:
+ FT_FRAME_EXIT();
+
+ Exit:
+ return error;
+
+ Too_Short:
+ FT_ERROR(( "pfr_log_font_load: invalid logical font table\n" ));
+ error = PFR_Err_Invalid_Table;
+ goto Fail;
+ }
+
+
+ /***********************************************************************/
+ /***********************************************************************/
+ /***** *****/
+ /***** PFR PHYSICAL FONTS *****/
+ /***** *****/
+ /***********************************************************************/
+ /***********************************************************************/
+
+
+ /* load bitmap strikes lists */
+ FT_CALLBACK_DEF( FT_Error )
+ pfr_extra_item_load_bitmap_info( FT_Byte* p,
+ FT_Byte* limit,
+ PFR_PhyFont phy_font )
+ {
+ FT_Memory memory = phy_font->memory;
+ PFR_Strike strike;
+ FT_UInt flags0;
+ FT_UInt n, count, size1;
+ FT_Error error = 0;
+
+
+ PFR_CHECK( 5 );
+
+ p += 3; /* skip bctSize */
+ flags0 = PFR_NEXT_BYTE( p );
+ count = PFR_NEXT_BYTE( p );
+
+ /* re-allocate when needed */
+ if ( phy_font->num_strikes + count > phy_font->max_strikes )
+ {
+ FT_UInt new_max = FT_PAD_CEIL( phy_font->num_strikes + count, 4 );
+
+
+ if ( FT_RENEW_ARRAY( phy_font->strikes,
+ phy_font->num_strikes,
+ new_max ) )
+ goto Exit;
+
+ phy_font->max_strikes = new_max;
+ }
+
+ size1 = 1 + 1 + 1 + 2 + 2 + 1;
+ if ( flags0 & PFR_STRIKE_2BYTE_XPPM )
+ size1++;
+
+ if ( flags0 & PFR_STRIKE_2BYTE_YPPM )
+ size1++;
+
+ if ( flags0 & PFR_STRIKE_3BYTE_SIZE )
+ size1++;
+
+ if ( flags0 & PFR_STRIKE_3BYTE_OFFSET )
+ size1++;
+
+ if ( flags0 & PFR_STRIKE_2BYTE_COUNT )
+ size1++;
+
+ strike = phy_font->strikes + phy_font->num_strikes;
+
+ PFR_CHECK( count * size1 );
+
+ for ( n = 0; n < count; n++, strike++ )
+ {
+ strike->x_ppm = ( flags0 & PFR_STRIKE_2BYTE_XPPM )
+ ? PFR_NEXT_USHORT( p )
+ : PFR_NEXT_BYTE( p );
+
+ strike->y_ppm = ( flags0 & PFR_STRIKE_2BYTE_YPPM )
+ ? PFR_NEXT_USHORT( p )
+ : PFR_NEXT_BYTE( p );
+
+ strike->flags = PFR_NEXT_BYTE( p );
+
+ strike->bct_size = ( flags0 & PFR_STRIKE_3BYTE_SIZE )
+ ? PFR_NEXT_ULONG( p )
+ : PFR_NEXT_USHORT( p );
+
+ strike->bct_offset = ( flags0 & PFR_STRIKE_3BYTE_OFFSET )
+ ? PFR_NEXT_ULONG( p )
+ : PFR_NEXT_USHORT( p );
+
+ strike->num_bitmaps = ( flags0 & PFR_STRIKE_2BYTE_COUNT )
+ ? PFR_NEXT_USHORT( p )
+ : PFR_NEXT_BYTE( p );
+ }
+
+ phy_font->num_strikes += count;
+
+ Exit:
+ return error;
+
+ Too_Short:
+ error = PFR_Err_Invalid_Table;
+ FT_ERROR(( "pfr_extra_item_load_bitmap_info: invalid bitmap info table\n" ));
+ goto Exit;
+ }
+
+
+ /* Load font ID. This is a so-called "unique" name that is rather
+ * long and descriptive (like "Tiresias ScreenFont v7.51").
+ *
+ * Note that a PFR font's family name is contained in an *undocumented*
+ * string of the "auxiliary data" portion of a physical font record. This
+ * may also contain the "real" style name!
+ *
+ * If no family name is present, the font ID is used instead for the
+ * family.
+ */
+ FT_CALLBACK_DEF( FT_Error )
+ pfr_extra_item_load_font_id( FT_Byte* p,
+ FT_Byte* limit,
+ PFR_PhyFont phy_font )
+ {
+ FT_Error error = 0;
+ FT_Memory memory = phy_font->memory;
+ FT_PtrDist len = limit - p;
+
+
+ if ( phy_font->font_id != NULL )
+ goto Exit;
+
+ if ( FT_ALLOC( phy_font->font_id, len + 1 ) )
+ goto Exit;
+
+ /* copy font ID name, and terminate it for safety */
+ FT_MEM_COPY( phy_font->font_id, p, len );
+ phy_font->font_id[len] = 0;
+
+ Exit:
+ return error;
+ }
+
+
+ /* load stem snap tables */
+ FT_CALLBACK_DEF( FT_Error )
+ pfr_extra_item_load_stem_snaps( FT_Byte* p,
+ FT_Byte* limit,
+ PFR_PhyFont phy_font )
+ {
+ FT_UInt count, num_vert, num_horz;
+ FT_Int* snaps;
+ FT_Error error = 0;
+ FT_Memory memory = phy_font->memory;
+
+
+ if ( phy_font->vertical.stem_snaps != NULL )
+ goto Exit;
+
+ PFR_CHECK( 1 );
+ count = PFR_NEXT_BYTE( p );
+
+ num_vert = count & 15;
+ num_horz = count >> 4;
+ count = num_vert + num_horz;
+
+ PFR_CHECK( count * 2 );
+
+ if ( FT_NEW_ARRAY( snaps, count ) )
+ goto Exit;
+
+ phy_font->vertical.stem_snaps = snaps;
+ phy_font->horizontal.stem_snaps = snaps + num_vert;
+
+ for ( ; count > 0; count--, snaps++ )
+ *snaps = FT_NEXT_SHORT( p );
+
+ Exit:
+ return error;
+
+ Too_Short:
+ error = PFR_Err_Invalid_Table;
+ FT_ERROR(( "pfr_exta_item_load_stem_snaps: invalid stem snaps table\n" ));
+ goto Exit;
+ }
+
+
+
+ /* load kerning pair data */
+ FT_CALLBACK_DEF( FT_Error )
+ pfr_extra_item_load_kerning_pairs( FT_Byte* p,
+ FT_Byte* limit,
+ PFR_PhyFont phy_font )
+ {
+ PFR_KernItem item;
+ FT_Error error = 0;
+ FT_Memory memory = phy_font->memory;
+
+
+ FT_TRACE2(( "pfr_extra_item_load_kerning_pairs()\n" ));
+
+ if ( FT_NEW( item ) )
+ goto Exit;
+
+ PFR_CHECK( 4 );
+
+ item->pair_count = PFR_NEXT_BYTE( p );
+ item->base_adj = PFR_NEXT_SHORT( p );
+ item->flags = PFR_NEXT_BYTE( p );
+ item->offset = phy_font->offset + ( p - phy_font->cursor );
+
+#ifndef PFR_CONFIG_NO_CHECKS
+ item->pair_size = 3;
+
+ if ( item->flags & PFR_KERN_2BYTE_CHAR )
+ item->pair_size += 2;
+
+ if ( item->flags & PFR_KERN_2BYTE_ADJ )
+ item->pair_size += 1;
+
+ PFR_CHECK( item->pair_count * item->pair_size );
+#endif
+
+ /* load first and last pairs into the item to speed up */
+ /* lookup later... */
+ if ( item->pair_count > 0 )
+ {
+ FT_UInt char1, char2;
+ FT_Byte* q;
+
+
+ if ( item->flags & PFR_KERN_2BYTE_CHAR )
+ {
+ q = p;
+ char1 = PFR_NEXT_USHORT( q );
+ char2 = PFR_NEXT_USHORT( q );
+
+ item->pair1 = PFR_KERN_INDEX( char1, char2 );
+
+ q = p + item->pair_size * ( item->pair_count - 1 );
+ char1 = PFR_NEXT_USHORT( q );
+ char2 = PFR_NEXT_USHORT( q );
+
+ item->pair2 = PFR_KERN_INDEX( char1, char2 );
+ }
+ else
+ {
+ q = p;
+ char1 = PFR_NEXT_BYTE( q );
+ char2 = PFR_NEXT_BYTE( q );
+
+ item->pair1 = PFR_KERN_INDEX( char1, char2 );
+
+ q = p + item->pair_size * ( item->pair_count - 1 );
+ char1 = PFR_NEXT_BYTE( q );
+ char2 = PFR_NEXT_BYTE( q );
+
+ item->pair2 = PFR_KERN_INDEX( char1, char2 );
+ }
+
+ /* add new item to the current list */
+ item->next = NULL;
+ *phy_font->kern_items_tail = item;
+ phy_font->kern_items_tail = &item->next;
+ phy_font->num_kern_pairs += item->pair_count;
+ }
+ else
+ {
+ /* empty item! */
+ FT_FREE( item );
+ }
+
+ Exit:
+ return error;
+
+ Too_Short:
+ FT_FREE( item );
+
+ error = PFR_Err_Invalid_Table;
+ FT_ERROR(( "pfr_extra_item_load_kerning_pairs: "
+ "invalid kerning pairs table\n" ));
+ goto Exit;
+ }
+
+
+
+ static const PFR_ExtraItemRec pfr_phy_font_extra_items[] =
+ {
+ { 1, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_bitmap_info },
+ { 2, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_font_id },
+ { 3, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_stem_snaps },
+ { 4, (PFR_ExtraItem_ParseFunc)pfr_extra_item_load_kerning_pairs },
+ { 0, NULL }
+ };
+
+
+ /* Loads a name from the auxiliary data. Since this extracts undocumented
+ * strings from the font file, we need to be careful here.
+ */
+ static FT_Error
+ pfr_aux_name_load( FT_Byte* p,
+ FT_UInt len,
+ FT_Memory memory,
+ FT_String* *astring )
+ {
+ FT_Error error = 0;
+ FT_String* result = NULL;
+ FT_UInt n, ok;
+
+
+ if ( len > 0 && p[len - 1] == 0 )
+ len--;
+
+ /* check that each character is ASCII for making sure not to
+ load garbage
+ */
+ ok = ( len > 0 );
+ for ( n = 0; n < len; n++ )
+ if ( p[n] < 32 || p[n] > 127 )
+ {
+ ok = 0;
+ break;
+ }
+
+ if ( ok )
+ {
+ if ( FT_ALLOC( result, len + 1 ) )
+ goto Exit;
+
+ FT_MEM_COPY( result, p, len );
+ result[len] = 0;
+ }
+ Exit:
+ *astring = result;
+ return error;
+ }
+
+
+ FT_LOCAL_DEF( void )
+ pfr_phy_font_done( PFR_PhyFont phy_font,
+ FT_Memory memory )
+ {
+ FT_FREE( phy_font->font_id );
+ FT_FREE( phy_font->family_name );
+ FT_FREE( phy_font->style_name );
+
+ FT_FREE( phy_font->vertical.stem_snaps );
+ phy_font->vertical.num_stem_snaps = 0;
+
+ phy_font->horizontal.stem_snaps = NULL;
+ phy_font->horizontal.num_stem_snaps = 0;
+
+ FT_FREE( phy_font->strikes );
+ phy_font->num_strikes = 0;
+ phy_font->max_strikes = 0;
+
+ FT_FREE( phy_font->chars );
+ phy_font->num_chars = 0;
+ phy_font->chars_offset = 0;
+
+ FT_FREE( phy_font->blue_values );
+ phy_font->num_blue_values = 0;
+
+ {
+ PFR_KernItem item, next;
+
+
+ item = phy_font->kern_items;
+ while ( item )
+ {
+ next = item->next;
+ FT_FREE( item );
+ item = next;
+ }
+ phy_font->kern_items = NULL;
+ phy_font->kern_items_tail = NULL;
+ }
+
+ phy_font->num_kern_pairs = 0;
+ }
+
+
+ FT_LOCAL_DEF( FT_Error )
+ pfr_phy_font_load( PFR_PhyFont phy_font,
+ FT_Stream stream,
+ FT_UInt32 offset,
+ FT_UInt32 size )
+ {
+ FT_Error error;
+ FT_Memory memory = stream->memory;
+ FT_UInt flags, num_aux;
+ FT_Byte* p;
+ FT_Byte* limit;
+
+
+ phy_font->memory = memory;
+ phy_font->offset = offset;
+
+ phy_font->kern_items = NULL;
+ phy_font->kern_items_tail = &phy_font->kern_items;
+
+ if ( FT_STREAM_SEEK( offset ) || FT_FRAME_ENTER( size ) )
+ goto Exit;
+
+ phy_font->cursor = stream->cursor;
+
+ p = stream->cursor;
+ limit = p + size;
+
+ PFR_CHECK( 15 );
+ phy_font->font_ref_number = PFR_NEXT_USHORT( p );
+ phy_font->outline_resolution = PFR_NEXT_USHORT( p );
+ phy_font->metrics_resolution = PFR_NEXT_USHORT( p );
+ phy_font->bbox.xMin = PFR_NEXT_SHORT( p );
+ phy_font->bbox.yMin = PFR_NEXT_SHORT( p );
+ phy_font->bbox.xMax = PFR_NEXT_SHORT( p );
+ phy_font->bbox.yMax = PFR_NEXT_SHORT( p );
+ phy_font->flags = flags = PFR_NEXT_BYTE( p );
+
+ /* get the standard advance for non-proportional fonts */
+ if ( !(flags & PFR_PHY_PROPORTIONAL) )
+ {
+ PFR_CHECK( 2 );
+ phy_font->standard_advance = PFR_NEXT_SHORT( p );
+ }
+
+ /* load the extra items when present */
+ if ( flags & PFR_PHY_EXTRA_ITEMS )
+ {
+ error = pfr_extra_items_parse( &p, limit,
+ pfr_phy_font_extra_items, phy_font );
+
+ if ( error )
+ goto Fail;
+ }
+
+ /* In certain fonts, the auxiliary bytes contain interesting */
+ /* information. These are not in the specification but can be */
+ /* guessed by looking at the content of a few PFR0 fonts. */
+ PFR_CHECK( 3 );
+ num_aux = PFR_NEXT_ULONG( p );
+
+ if ( num_aux > 0 )
+ {
+ FT_Byte* q = p;
+ FT_Byte* q2;
+
+
+ PFR_CHECK( num_aux );
+ p += num_aux;
+
+ while ( num_aux > 0 )
+ {
+ FT_UInt length, type;
+
+
+ if ( q + 4 > p )
+ break;
+
+ length = PFR_NEXT_USHORT( q );
+ if ( length < 4 || length > num_aux )
+ break;
+
+ q2 = q + length - 2;
+ type = PFR_NEXT_USHORT( q );
+
+ switch ( type )
+ {
+ case 1:
+ /* this seems to correspond to the font's family name,
+ * padded to 16-bits with one zero when necessary
+ */
+ error = pfr_aux_name_load( q, length - 4U, memory,
+ &phy_font->family_name );
+ if ( error )
+ goto Exit;
+ break;
+
+ case 2:
+ if ( q + 32 > q2 )
+ break;
+
+ q += 10;
+ phy_font->ascent = PFR_NEXT_SHORT( q );
+ phy_font->descent = PFR_NEXT_SHORT( q );
+ phy_font->leading = PFR_NEXT_SHORT( q );
+ q += 16;
+ break;
+
+ case 3:
+ /* this seems to correspond to the font's style name,
+ * padded to 16-bits with one zero when necessary
+ */
+ error = pfr_aux_name_load( q, length - 4U, memory,
+ &phy_font->style_name );
+ if ( error )
+ goto Exit;
+ break;
+
+ default:
+ ;
+ }
+
+ q = q2;
+ num_aux -= length;
+ }
+ }
+
+ /* read the blue values */
+ {
+ FT_UInt n, count;
+
+
+ PFR_CHECK( 1 );
+ phy_font->num_blue_values = count = PFR_NEXT_BYTE( p );
+
+ PFR_CHECK( count * 2 );
+
+ if ( FT_NEW_ARRAY( phy_font->blue_values, count ) )
+ goto Fail;
+
+ for ( n = 0; n < count; n++ )
+ phy_font->blue_values[n] = PFR_NEXT_SHORT( p );
+ }
+
+ PFR_CHECK( 8 );
+ phy_font->blue_fuzz = PFR_NEXT_BYTE( p );
+ phy_font->blue_scale = PFR_NEXT_BYTE( p );
+
+ phy_font->vertical.standard = PFR_NEXT_USHORT( p );
+ phy_font->horizontal.standard = PFR_NEXT_USHORT( p );
+
+ /* read the character descriptors */
+ {
+ FT_UInt n, count, Size;
+
+
+ phy_font->num_chars = count = PFR_NEXT_USHORT( p );
+ phy_font->chars_offset = offset + ( p - stream->cursor );
+
+ if ( FT_NEW_ARRAY( phy_font->chars, count ) )
+ goto Fail;
+
+ Size = 1 + 1 + 2;
+ if ( flags & PFR_PHY_2BYTE_CHARCODE )
+ Size += 1;
+
+ if ( flags & PFR_PHY_PROPORTIONAL )
+ Size += 2;
+
+ if ( flags & PFR_PHY_ASCII_CODE )
+ Size += 1;
+
+ if ( flags & PFR_PHY_2BYTE_GPS_SIZE )
+ Size += 1;
+
+ if ( flags & PFR_PHY_3BYTE_GPS_OFFSET )
+ Size += 1;
+
+ PFR_CHECK( count * Size );
+
+ for ( n = 0; n < count; n++ )
+ {
+ PFR_Char cur = &phy_font->chars[n];
+
+
+ cur->char_code = ( flags & PFR_PHY_2BYTE_CHARCODE )
+ ? PFR_NEXT_USHORT( p )
+ : PFR_NEXT_BYTE( p );
+
+ cur->advance = ( flags & PFR_PHY_PROPORTIONAL )
+ ? PFR_NEXT_SHORT( p )
+ : (FT_Int) phy_font->standard_advance;
+
+#if 0
+ cur->ascii = ( flags & PFR_PHY_ASCII_CODE )
+ ? PFR_NEXT_BYTE( p )
+ : 0;
+#else
+ if ( flags & PFR_PHY_ASCII_CODE )
+ p += 1;
+#endif
+ cur->gps_size = ( flags & PFR_PHY_2BYTE_GPS_SIZE )
+ ? PFR_NEXT_USHORT( p )
+ : PFR_NEXT_BYTE( p );
+
+ cur->gps_offset = ( flags & PFR_PHY_3BYTE_GPS_OFFSET )
+ ? PFR_NEXT_ULONG( p )
+ : PFR_NEXT_USHORT( p );
+ }
+ }
+
+ /* that's it! */
+
+ Fail:
+ FT_FRAME_EXIT();
+
+ /* save position of bitmap info */
+ phy_font->bct_offset = FT_STREAM_POS();
+ phy_font->cursor = NULL;
+
+ Exit:
+ return error;
+
+ Too_Short:
+ error = PFR_Err_Invalid_Table;
+ FT_ERROR(( "pfr_phy_font_load: invalid physical font table\n" ));
+ goto Fail;
+ }
+
+
+/* END */
projects / reactos.git / blobdiff