Edit
kc3-lang/freetype/src/sfnt/ttpost.c
Werner Lemberg
- src/sfnt/ttpost.c
-
/***************************************************************************/ /* */ /* ttpost.c */ /* */ /* Postcript name table processing for TrueType and OpenType fonts */ /* (body). */ /* */ /* Copyright 1996-2001 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. */ /* */ /***************************************************************************/ /*************************************************************************/ /* */ /* The post table is not completely loaded by the core engine. This */ /* file loads the missing PS glyph names and implements an API to access */ /* them. */ /* */ /*************************************************************************/ #include <ft2build.h> #include FT_INTERNAL_STREAM_H #include FT_TRUETYPE_TAGS_H #include "ttpost.h" #include "ttload.h" #include "sferrors.h" /*************************************************************************/ /* */ /* The macro FT_COMPONENT is used in trace mode. It is an implicit */ /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log */ /* messages during execution. */ /* */ #undef FT_COMPONENT #define FT_COMPONENT trace_ttpost /* If this configuration macro is defined, we rely on the `PSNames' */ /* module to grab the glyph names. */ #ifdef FT_CONFIG_OPTION_POSTSCRIPT_NAMES #include <freetype/internal/psnames.h> #define MAC_NAME( x ) ( (FT_String*)psnames->macintosh_name( x ) ) #else /* FT_CONFIG_OPTION_POSTSCRIPT_NAMES */ /* Otherwise, we ignore the `PSNames' module, and provide our own */ /* table of Mac names. Thus, it is possible to build a version of */ /* FreeType without the Type 1 driver & PSNames module. */ #define MAC_NAME( x ) TT_Post_Default_Names[x] /* the 258 default Mac PS glyph names */ FT_String* TT_Post_Default_Names[258] = { /* 0 */ ".notdef", ".null", "CR", "space", "exclam", "quotedbl", "numbersign", "dollar", "percent", "ampersand", /* 10 */ "quotesingle", "parenleft", "parenright", "asterisk", "plus", "comma", "hyphen", "period", "slash", "zero", /* 20 */ "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "colon", /* 30 */ "semicolon", "less", "equal", "greater", "question", "at", "A", "B", "C", "D", /* 40 */ "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", /* 50 */ "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", /* 60 */ "Y", "Z", "bracketleft", "backslash", "bracketright", "asciicircum", "underscore", "grave", "a", "b", /* 70 */ "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", /* 80 */ "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", /* 90 */ "w", "x", "y", "z", "braceleft", "bar", "braceright", "asciitilde", "Adieresis", "Aring", /* 100 */ "Ccedilla", "Eacute", "Ntilde", "Odieresis", "Udieresis", "aacute", "agrave", "acircumflex", "adieresis", "atilde", /* 110 */ "aring", "ccedilla", "eacute", "egrave", "ecircumflex", "edieresis", "iacute", "igrave", "icircumflex", "idieresis", /* 120 */ "ntilde", "oacute", "ograve", "ocircumflex", "odieresis", "otilde", "uacute", "ugrave", "ucircumflex", "udieresis", /* 130 */ "dagger", "degree", "cent", "sterling", "section", "bullet", "paragraph", "germandbls", "registered", "copyright", /* 140 */ "trademark", "acute", "dieresis", "notequal", "AE", "Oslash", "infinity", "plusminus", "lessequal", "greaterequal", /* 150 */ "yen", "mu", "partialdiff", "summation", "product", "pi", "integral", "ordfeminine", "ordmasculine", "Omega", /* 160 */ "ae", "oslash", "questiondown", "exclamdown", "logicalnot", "radical", "florin", "approxequal", "Delta", "guillemotleft", /* 170 */ "guillemotright", "ellipsis", "nbspace", "Agrave", "Atilde", "Otilde", "OE", "oe", "endash", "emdash", /* 180 */ "quotedblleft", "quotedblright", "quoteleft", "quoteright", "divide", "lozenge", "ydieresis", "Ydieresis", "fraction", "currency", /* 190 */ "guilsinglleft", "guilsinglright", "fi", "fl", "daggerdbl", "periodcentered", "quotesinglbase", "quotedblbase", "perthousand", "Acircumflex", /* 200 */ "Ecircumflex", "Aacute", "Edieresis", "Egrave", "Iacute", "Icircumflex", "Idieresis", "Igrave", "Oacute", "Ocircumflex", /* 210 */ "apple", "Ograve", "Uacute", "Ucircumflex", "Ugrave", "dotlessi", "circumflex", "tilde", "macron", "breve", /* 220 */ "dotaccent", "ring", "cedilla", "hungarumlaut", "ogonek", "caron", "Lslash", "lslash", "Scaron", "scaron", /* 230 */ "Zcaron", "zcaron", "brokenbar", "Eth", "eth", "Yacute", "yacute", "Thorn", "thorn", "minus", /* 240 */ "multiply", "onesuperior", "twosuperior", "threesuperior", "onehalf", "onequarter", "threequarters", "franc", "Gbreve", "gbreve", /* 250 */ "Idot", "Scedilla", "scedilla", "Cacute", "cacute", "Ccaron", "ccaron", "dmacron", }; #endif /* FT_CONFIG_OPTION_POSTSCRIPT_NAMES */ static FT_Error Load_Format_20( TT_Face face, FT_Stream stream ) { FT_Memory memory = stream->memory; FT_Error error; FT_Int num_glyphs; FT_UShort num_names; FT_UShort* glyph_indices = 0; FT_Char** name_strings = 0; if ( READ_UShort( num_glyphs ) ) goto Exit; /* UNDOCUMENTED! The number of glyphs in this table can be smaller */ /* than the value in the maxp table (cf. cyberbit.ttf). */ /* There already exist fonts which have more than 32768 glyph names */ /* in this table, so the test for this threshold has been dropped. */ if ( num_glyphs > face->root.num_glyphs ) { error = SFNT_Err_Invalid_File_Format; goto Exit; } /* load the indices */ { FT_Int n; if ( ALLOC_ARRAY ( glyph_indices, num_glyphs, FT_UShort ) || ACCESS_Frame( num_glyphs * 2L ) ) goto Fail; for ( n = 0; n < num_glyphs; n++ ) glyph_indices[n] = GET_UShort(); FORGET_Frame(); } /* compute number of names stored in table */ { FT_Int n; num_names = 0; for ( n = 0; n < num_glyphs; n++ ) { FT_Int index; index = glyph_indices[n]; if ( index >= 258 ) { index -= 257; if ( index > num_names ) num_names = (FT_UShort)index; } } } /* now load the name strings */ { FT_UShort n; if ( ALLOC_ARRAY( name_strings, num_names, FT_Char* ) ) goto Fail; for ( n = 0; n < num_names; n++ ) { FT_UInt len; if ( READ_Byte ( len ) || ALLOC_ARRAY( name_strings[n], len + 1, FT_Char ) || FILE_Read ( name_strings[n], len ) ) goto Fail1; name_strings[n][len] = '\0'; } } /* all right, set table fields and exit successfuly */ { TT_Post_20* table = &face->postscript_names.names.format_20; table->num_glyphs = (FT_UShort)num_glyphs; table->num_names = (FT_UShort)num_names; table->glyph_indices = glyph_indices; table->glyph_names = name_strings; } return SFNT_Err_Ok; Fail1: { FT_UShort n; for ( n = 0; n < num_names; n++ ) FREE( name_strings[n] ); } Fail: FREE( name_strings ); FREE( glyph_indices ); Exit: return error; } static FT_Error Load_Format_25( TT_Face face, FT_Stream stream ) { FT_Memory memory = stream->memory; FT_Error error; FT_Int num_glyphs; FT_Char* offset_table = 0; /* UNDOCUMENTED! This value appears only in the Apple TT specs. */ if ( READ_UShort( num_glyphs ) ) goto Exit; /* check the number of glyphs */ if ( num_glyphs > face->root.num_glyphs || num_glyphs > 258 ) { error = SFNT_Err_Invalid_File_Format; goto Exit; } if ( ALLOC ( offset_table, num_glyphs ) || FILE_Read( offset_table, num_glyphs ) ) goto Fail; /* now check the offset table */ { FT_Int n; for ( n = 0; n < num_glyphs; n++ ) { FT_Long index = (FT_Long)n + offset_table[n]; if ( index < 0 || index > num_glyphs ) { error = SFNT_Err_Invalid_File_Format; goto Fail; } } } /* OK, set table fields and exit successfuly */ { TT_Post_25* table = &face->postscript_names.names.format_25; table->num_glyphs = (FT_UShort)num_glyphs; table->offsets = offset_table; } return SFNT_Err_Ok; Fail: FREE( offset_table ); Exit: return error; } static FT_Error Load_Post_Names( TT_Face face ) { FT_Stream stream; FT_Error error; FT_Fixed format; /* get a stream for the face's resource */ stream = face->root.stream; /* seek to the beginning of the PS names table */ error = face->goto_table( face, TTAG_post, stream, 0 ); if ( error ) goto Exit; format = face->postscript.FormatType; /* go to beginning of subtable */ if ( FILE_Skip( 32 ) ) goto Exit; /* now read postscript table */ switch ( format ) { case 0x00020000L: error = Load_Format_20( face, stream ); break; case 0x00028000L: error = Load_Format_25( face, stream ); break; default: error = SFNT_Err_Invalid_File_Format; } face->postscript_names.loaded = 1; Exit: return error; } FT_LOCAL_DEF void TT_Free_Post_Names( TT_Face face ) { FT_Memory memory = face->root.memory; TT_Post_Names* names = &face->postscript_names; if ( names->loaded ) { switch ( face->postscript.FormatType ) { case 0x00020000L: { TT_Post_20* table = &names->names.format_20; FT_UShort n; FREE( table->glyph_indices ); table->num_glyphs = 0; for ( n = 0; n < table->num_names; n++ ) FREE( table->glyph_names[n] ); FREE( table->glyph_names ); table->num_names = 0; } break; case 0x00028000L: { TT_Post_25* table = &names->names.format_25; FREE( table->offsets ); table->num_glyphs = 0; } break; } } names->loaded = 0; } /*************************************************************************/ /* */ /* <Function> */ /* TT_Get_PS_Name */ /* */ /* <Description> */ /* Gets the PostScript glyph name of a glyph. */ /* */ /* <Input> */ /* face :: A handle to the parent face. */ /* */ /* index :: The glyph index. */ /* */ /* PSname :: The address of a string pointer. Will be NULL in case */ /* of error, otherwise it is a pointer to the glyph name. */ /* */ /* You must not modify the returned string! */ /* */ /* <Output> */ /* FreeType error code. 0 means success. */ /* */ FT_LOCAL_DEF FT_Error TT_Get_PS_Name( TT_Face face, FT_UInt index, FT_String** PSname ) { FT_Error error; TT_Post_Names* names; #ifdef FT_CONFIG_OPTION_POSTSCRIPT_NAMES PSNames_Interface* psnames; #endif if ( !face ) return SFNT_Err_Invalid_Face_Handle; if ( index >= (FT_UInt)face->root.num_glyphs ) return SFNT_Err_Invalid_Glyph_Index; #ifdef FT_CONFIG_OPTION_POSTSCRIPT_NAMES psnames = (PSNames_Interface*)face->psnames; if ( !psnames ) return SFNT_Err_Unimplemented_Feature; #endif names = &face->postscript_names; /* `.notdef' by default */ *PSname = MAC_NAME( 0 ); switch ( face->postscript.FormatType ) { case 0x00010000L: if ( index < 258 ) /* paranoid checking */ *PSname = MAC_NAME( index ); break; case 0x00020000L: { TT_Post_20* table = &names->names.format_20; if ( !names->loaded ) { error = Load_Post_Names( face ); if ( error ) break; } if ( index < (FT_UInt)table->num_glyphs ) { FT_UShort name_index = table->glyph_indices[index]; if ( name_index < 258 ) *PSname = MAC_NAME( name_index ); else *PSname = (FT_String*)table->glyph_names[name_index - 258]; } } break; case 0x00028000L: { TT_Post_25* table = &names->names.format_25; if ( !names->loaded ) { error = Load_Post_Names( face ); if ( error ) break; } if ( index < (FT_UInt)table->num_glyphs ) /* paranoid checking */ { index += table->offsets[index]; *PSname = MAC_NAME( index ); } } break; case 0x00030000L: break; /* nothing to do */ } return SFNT_Err_Ok; } /* END */