-/*\r
- * Copyright 2000 Computing Research Labs, New Mexico State University\r
- * Copyright 2001, 2002, 2003, 2004, 2005, 2006, 2007\r
- * Francesco Zappa Nardelli\r
- *\r
- * Permission is hereby granted, free of charge, to any person obtaining a\r
- * copy of this software and associated documentation files (the "Software"),\r
- * to deal in the Software without restriction, including without limitation\r
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
- * and/or sell copies of the Software, and to permit persons to whom the\r
- * Software is furnished to do so, subject to the following conditions:\r
- *\r
- * The above copyright notice and this permission notice shall be included in\r
- * all copies or substantial portions of the Software.\r
- *\r
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL\r
- * THE COMPUTING RESEARCH LAB OR NEW MEXICO STATE UNIVERSITY BE LIABLE FOR ANY\r
- * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT\r
- * OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR\r
- * THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
- */\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* This file is based on bdf.c,v 1.22 2000/03/16 20:08:50 */\r
- /* */\r
- /* taken from Mark Leisher's xmbdfed package */\r
- /* */\r
- /*************************************************************************/\r
-\r
-\r
-#include <ft2build.h>\r
-\r
-#include FT_FREETYPE_H\r
-#include FT_INTERNAL_DEBUG_H\r
-#include FT_INTERNAL_STREAM_H\r
-#include FT_INTERNAL_OBJECTS_H\r
-\r
-#include "bdf.h"\r
-#include "bdferror.h"\r
-\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* The macro FT_COMPONENT is used in trace mode. It is an implicit */\r
- /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log */\r
- /* messages during execution. */\r
- /* */\r
-#undef FT_COMPONENT\r
-#define FT_COMPONENT trace_bdflib\r
-\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* Default BDF font options. */\r
- /* */\r
- /*************************************************************************/\r
-\r
-\r
- static const bdf_options_t _bdf_opts =\r
- {\r
- 1, /* Correct metrics. */\r
- 1, /* Preserve unencoded glyphs. */\r
- 0, /* Preserve comments. */\r
- BDF_PROPORTIONAL /* Default spacing. */\r
- };\r
-\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* Builtin BDF font properties. */\r
- /* */\r
- /*************************************************************************/\r
-\r
- /* List of most properties that might appear in a font. Doesn't include */\r
- /* the RAW_* and AXIS_* properties in X11R6 polymorphic fonts. */\r
-\r
- static const bdf_property_t _bdf_properties[] =\r
- {\r
- { (char *)"ADD_STYLE_NAME", BDF_ATOM, 1, { 0 } },\r
- { (char *)"AVERAGE_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"AVG_CAPITAL_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"AVG_LOWERCASE_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"CAP_HEIGHT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"CHARSET_COLLECTIONS", BDF_ATOM, 1, { 0 } },\r
- { (char *)"CHARSET_ENCODING", BDF_ATOM, 1, { 0 } },\r
- { (char *)"CHARSET_REGISTRY", BDF_ATOM, 1, { 0 } },\r
- { (char *)"COMMENT", BDF_ATOM, 1, { 0 } },\r
- { (char *)"COPYRIGHT", BDF_ATOM, 1, { 0 } },\r
- { (char *)"DEFAULT_CHAR", BDF_CARDINAL, 1, { 0 } },\r
- { (char *)"DESTINATION", BDF_CARDINAL, 1, { 0 } },\r
- { (char *)"DEVICE_FONT_NAME", BDF_ATOM, 1, { 0 } },\r
- { (char *)"END_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"FACE_NAME", BDF_ATOM, 1, { 0 } },\r
- { (char *)"FAMILY_NAME", BDF_ATOM, 1, { 0 } },\r
- { (char *)"FIGURE_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"FONT", BDF_ATOM, 1, { 0 } },\r
- { (char *)"FONTNAME_REGISTRY", BDF_ATOM, 1, { 0 } },\r
- { (char *)"FONT_ASCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"FONT_DESCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"FOUNDRY", BDF_ATOM, 1, { 0 } },\r
- { (char *)"FULL_NAME", BDF_ATOM, 1, { 0 } },\r
- { (char *)"ITALIC_ANGLE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"MAX_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"MIN_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"NORM_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"NOTICE", BDF_ATOM, 1, { 0 } },\r
- { (char *)"PIXEL_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"POINT_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"QUAD_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_ASCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_AVERAGE_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_AVG_CAPITAL_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_AVG_LOWERCASE_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_CAP_HEIGHT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_DESCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_END_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_FIGURE_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_MAX_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_MIN_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_NORM_SPACE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_PIXEL_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_POINT_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_PIXELSIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_POINTSIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_QUAD_WIDTH", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_SMALL_CAP_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_STRIKEOUT_ASCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_STRIKEOUT_DESCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_SUBSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_SUBSCRIPT_X", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_SUBSCRIPT_Y", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_SUPERSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_SUPERSCRIPT_X", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_SUPERSCRIPT_Y", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_UNDERLINE_POSITION", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_UNDERLINE_THICKNESS", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RAW_X_HEIGHT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RELATIVE_SETWIDTH", BDF_CARDINAL, 1, { 0 } },\r
- { (char *)"RELATIVE_WEIGHT", BDF_CARDINAL, 1, { 0 } },\r
- { (char *)"RESOLUTION", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"RESOLUTION_X", BDF_CARDINAL, 1, { 0 } },\r
- { (char *)"RESOLUTION_Y", BDF_CARDINAL, 1, { 0 } },\r
- { (char *)"SETWIDTH_NAME", BDF_ATOM, 1, { 0 } },\r
- { (char *)"SLANT", BDF_ATOM, 1, { 0 } },\r
- { (char *)"SMALL_CAP_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"SPACING", BDF_ATOM, 1, { 0 } },\r
- { (char *)"STRIKEOUT_ASCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"STRIKEOUT_DESCENT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"SUBSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"SUBSCRIPT_X", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"SUBSCRIPT_Y", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"SUPERSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"SUPERSCRIPT_X", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"SUPERSCRIPT_Y", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"UNDERLINE_POSITION", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"UNDERLINE_THICKNESS", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"WEIGHT", BDF_CARDINAL, 1, { 0 } },\r
- { (char *)"WEIGHT_NAME", BDF_ATOM, 1, { 0 } },\r
- { (char *)"X_HEIGHT", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"_MULE_BASELINE_OFFSET", BDF_INTEGER, 1, { 0 } },\r
- { (char *)"_MULE_RELATIVE_COMPOSE", BDF_INTEGER, 1, { 0 } },\r
- };\r
-\r
- static const unsigned long\r
- _num_bdf_properties = sizeof ( _bdf_properties ) /\r
- sizeof ( _bdf_properties[0] );\r
-\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* Hash table utilities for the properties. */\r
- /* */\r
- /*************************************************************************/\r
-\r
- /* XXX: Replace this with FreeType's hash functions */\r
-\r
-\r
-#define INITIAL_HT_SIZE 241\r
-\r
- typedef void\r
- (*hash_free_func)( hashnode node );\r
-\r
- static hashnode*\r
- hash_bucket( const char* key,\r
- hashtable* ht )\r
- {\r
- const char* kp = key;\r
- unsigned long res = 0;\r
- hashnode* bp = ht->table, *ndp;\r
-\r
-\r
- /* Mocklisp hash function. */\r
- while ( *kp )\r
- res = ( res << 5 ) - res + *kp++;\r
-\r
- ndp = bp + ( res % ht->size );\r
- while ( *ndp )\r
- {\r
- kp = (*ndp)->key;\r
- if ( kp[0] == key[0] && ft_strcmp( kp, key ) == 0 )\r
- break;\r
- ndp--;\r
- if ( ndp < bp )\r
- ndp = bp + ( ht->size - 1 );\r
- }\r
-\r
- return ndp;\r
- }\r
-\r
-\r
- static FT_Error\r
- hash_rehash( hashtable* ht,\r
- FT_Memory memory )\r
- {\r
- hashnode* obp = ht->table, *bp, *nbp;\r
- int i, sz = ht->size;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- ht->size <<= 1;\r
- ht->limit = ht->size / 3;\r
-\r
- if ( FT_NEW_ARRAY( ht->table, ht->size ) )\r
- goto Exit;\r
-\r
- for ( i = 0, bp = obp; i < sz; i++, bp++ )\r
- {\r
- if ( *bp )\r
- {\r
- nbp = hash_bucket( (*bp)->key, ht );\r
- *nbp = *bp;\r
- }\r
- }\r
- FT_FREE( obp );\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- static FT_Error\r
- hash_init( hashtable* ht,\r
- FT_Memory memory )\r
- {\r
- int sz = INITIAL_HT_SIZE;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- ht->size = sz;\r
- ht->limit = sz / 3;\r
- ht->used = 0;\r
-\r
- if ( FT_NEW_ARRAY( ht->table, sz ) )\r
- goto Exit;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- static void\r
- hash_free( hashtable* ht,\r
- FT_Memory memory )\r
- {\r
- if ( ht != 0 )\r
- {\r
- int i, sz = ht->size;\r
- hashnode* bp = ht->table;\r
-\r
-\r
- for ( i = 0; i < sz; i++, bp++ )\r
- FT_FREE( *bp );\r
-\r
- FT_FREE( ht->table );\r
- }\r
- }\r
-\r
-\r
- static FT_Error\r
- hash_insert( char* key,\r
- void* data,\r
- hashtable* ht,\r
- FT_Memory memory )\r
- {\r
- hashnode nn, *bp = hash_bucket( key, ht );\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- nn = *bp;\r
- if ( !nn )\r
- {\r
- if ( FT_NEW( nn ) )\r
- goto Exit;\r
- *bp = nn;\r
-\r
- nn->key = key;\r
- nn->data = data;\r
-\r
- if ( ht->used >= ht->limit )\r
- {\r
- error = hash_rehash( ht, memory );\r
- if ( error )\r
- goto Exit;\r
- }\r
- ht->used++;\r
- }\r
- else\r
- nn->data = data;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- static hashnode\r
- hash_lookup( const char* key,\r
- hashtable* ht )\r
- {\r
- hashnode *np = hash_bucket( key, ht );\r
-\r
-\r
- return *np;\r
- }\r
-\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* Utility types and functions. */\r
- /* */\r
- /*************************************************************************/\r
-\r
-\r
- /* Function type for parsing lines of a BDF font. */\r
-\r
- typedef FT_Error\r
- (*_bdf_line_func_t)( char* line,\r
- unsigned long linelen,\r
- unsigned long lineno,\r
- void* call_data,\r
- void* client_data );\r
-\r
-\r
- /* List structure for splitting lines into fields. */\r
-\r
- typedef struct _bdf_list_t_\r
- {\r
- char** field;\r
- unsigned long size;\r
- unsigned long used;\r
- FT_Memory memory;\r
-\r
- } _bdf_list_t;\r
-\r
-\r
- /* Structure used while loading BDF fonts. */\r
-\r
- typedef struct _bdf_parse_t_\r
- {\r
- unsigned long flags;\r
- unsigned long cnt;\r
- unsigned long row;\r
-\r
- short minlb;\r
- short maxlb;\r
- short maxrb;\r
- short maxas;\r
- short maxds;\r
-\r
- short rbearing;\r
-\r
- char* glyph_name;\r
- long glyph_enc;\r
-\r
- bdf_font_t* font;\r
- bdf_options_t* opts;\r
-\r
- unsigned long have[2048];\r
- _bdf_list_t list;\r
-\r
- FT_Memory memory;\r
-\r
- } _bdf_parse_t;\r
-\r
-\r
-#define setsbit( m, cc ) \\r
- ( m[(FT_Byte)(cc) >> 3] |= (FT_Byte)( 1 << ( (cc) & 7 ) ) )\r
-#define sbitset( m, cc ) \\r
- ( m[(FT_Byte)(cc) >> 3] & ( 1 << ( (cc) & 7 ) ) )\r
-\r
-\r
- static void\r
- _bdf_list_init( _bdf_list_t* list,\r
- FT_Memory memory )\r
- {\r
- FT_ZERO( list );\r
- list->memory = memory;\r
- }\r
-\r
-\r
- static void\r
- _bdf_list_done( _bdf_list_t* list )\r
- {\r
- FT_Memory memory = list->memory;\r
-\r
-\r
- if ( memory )\r
- {\r
- FT_FREE( list->field );\r
- FT_ZERO( list );\r
- }\r
- }\r
-\r
-\r
- static FT_Error\r
- _bdf_list_ensure( _bdf_list_t* list,\r
- int num_items )\r
- {\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- if ( num_items > (int)list->size )\r
- {\r
- int oldsize = list->size;\r
- int newsize = oldsize + ( oldsize >> 1 ) + 4;\r
- int bigsize = FT_INT_MAX / sizeof ( char* );\r
- FT_Memory memory = list->memory;\r
-\r
-\r
- if ( oldsize == bigsize )\r
- {\r
- error = BDF_Err_Out_Of_Memory;\r
- goto Exit;\r
- }\r
- else if ( newsize < oldsize || newsize > bigsize )\r
- newsize = bigsize;\r
-\r
- if ( FT_RENEW_ARRAY( list->field, oldsize, newsize ) )\r
- goto Exit;\r
-\r
- list->size = newsize;\r
- }\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- static void\r
- _bdf_list_shift( _bdf_list_t* list,\r
- unsigned long n )\r
- {\r
- unsigned long i, u;\r
-\r
-\r
- if ( list == 0 || list->used == 0 || n == 0 )\r
- return;\r
-\r
- if ( n >= list->used )\r
- {\r
- list->used = 0;\r
- return;\r
- }\r
-\r
- for ( u = n, i = 0; u < list->used; i++, u++ )\r
- list->field[i] = list->field[u];\r
- list->used -= n;\r
- }\r
-\r
-\r
- static char *\r
- _bdf_list_join( _bdf_list_t* list,\r
- int c,\r
- unsigned long *alen )\r
- {\r
- unsigned long i, j;\r
- char *fp, *dp;\r
-\r
-\r
- *alen = 0;\r
-\r
- if ( list == 0 || list->used == 0 )\r
- return 0;\r
-\r
- dp = list->field[0];\r
- for ( i = j = 0; i < list->used; i++ )\r
- {\r
- fp = list->field[i];\r
- while ( *fp )\r
- dp[j++] = *fp++;\r
-\r
- if ( i + 1 < list->used )\r
- dp[j++] = (char)c;\r
- }\r
- dp[j] = 0;\r
-\r
- *alen = j;\r
- return dp;\r
- }\r
-\r
-\r
- /* An empty string for empty fields. */\r
-\r
- static const char empty[1] = { 0 }; /* XXX eliminate this */\r
-\r
-\r
- static FT_Error\r
- _bdf_list_split( _bdf_list_t* list,\r
- char* separators,\r
- char* line,\r
- unsigned long linelen )\r
- {\r
- int mult, final_empty;\r
- char *sp, *ep, *end;\r
- char seps[32];\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- /* Initialize the list. */\r
- list->used = 0;\r
-\r
- /* If the line is empty, then simply return. */\r
- if ( linelen == 0 || line[0] == 0 )\r
- goto Exit;\r
-\r
- /* In the original code, if the `separators' parameter is NULL or */\r
- /* empty, the list is split into individual bytes. We don't need */\r
- /* this, so an error is signaled. */\r
- if ( separators == 0 || *separators == 0 )\r
- {\r
- error = BDF_Err_Invalid_Argument;\r
- goto Exit;\r
- }\r
-\r
- /* Prepare the separator bitmap. */\r
- FT_MEM_ZERO( seps, 32 );\r
-\r
- /* If the very last character of the separator string is a plus, then */\r
- /* set the `mult' flag to indicate that multiple separators should be */\r
- /* collapsed into one. */\r
- for ( mult = 0, sp = separators; sp && *sp; sp++ )\r
- {\r
- if ( *sp == '+' && *( sp + 1 ) == 0 )\r
- mult = 1;\r
- else\r
- setsbit( seps, *sp );\r
- }\r
-\r
- /* Break the line up into fields. */\r
- for ( final_empty = 0, sp = ep = line, end = sp + linelen;\r
- sp < end && *sp; )\r
- {\r
- /* Collect everything that is not a separator. */\r
- for ( ; *ep && !sbitset( seps, *ep ); ep++ )\r
- ;\r
-\r
- /* Resize the list if necessary. */\r
- if ( list->used == list->size )\r
- {\r
- error = _bdf_list_ensure( list, list->used + 1 );\r
- if ( error )\r
- goto Exit;\r
- }\r
-\r
- /* Assign the field appropriately. */\r
- list->field[list->used++] = ( ep > sp ) ? sp : (char*)empty;\r
-\r
- sp = ep;\r
-\r
- if ( mult )\r
- {\r
- /* If multiple separators should be collapsed, do it now by */\r
- /* setting all the separator characters to 0. */\r
- for ( ; *ep && sbitset( seps, *ep ); ep++ )\r
- *ep = 0;\r
- }\r
- else if ( *ep != 0 )\r
- /* Don't collapse multiple separators by making them 0, so just */\r
- /* make the one encountered 0. */\r
- *ep++ = 0;\r
-\r
- final_empty = ( ep > sp && *ep == 0 );\r
- sp = ep;\r
- }\r
-\r
- /* Finally, NULL-terminate the list. */\r
- if ( list->used + final_empty >= list->size )\r
- {\r
- error = _bdf_list_ensure( list, list->used + final_empty + 1 );\r
- if ( error )\r
- goto Exit;\r
- }\r
-\r
- if ( final_empty )\r
- list->field[list->used++] = (char*)empty;\r
-\r
- list->field[list->used] = 0;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
-#define NO_SKIP 256 /* this value cannot be stored in a 'char' */\r
-\r
-\r
- static FT_Error\r
- _bdf_readstream( FT_Stream stream,\r
- _bdf_line_func_t callback,\r
- void* client_data,\r
- unsigned long *lno )\r
- {\r
- _bdf_line_func_t cb;\r
- unsigned long lineno, buf_size;\r
- int refill, bytes, hold, to_skip;\r
- int start, end, cursor, avail;\r
- char* buf = 0;\r
- FT_Memory memory = stream->memory;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- if ( callback == 0 )\r
- {\r
- error = BDF_Err_Invalid_Argument;\r
- goto Exit;\r
- }\r
-\r
- /* initial size and allocation of the input buffer */\r
- buf_size = 1024;\r
-\r
- if ( FT_NEW_ARRAY( buf, buf_size ) )\r
- goto Exit;\r
-\r
- cb = callback;\r
- lineno = 1;\r
- buf[0] = 0;\r
- start = 0;\r
- end = 0;\r
- avail = 0;\r
- cursor = 0;\r
- refill = 1;\r
- to_skip = NO_SKIP;\r
- bytes = 0; /* make compiler happy */\r
-\r
- for (;;)\r
- {\r
- if ( refill )\r
- {\r
- bytes = (int)FT_Stream_TryRead( stream, (FT_Byte*)buf + cursor,\r
- (FT_ULong)(buf_size - cursor) );\r
- avail = cursor + bytes;\r
- cursor = 0;\r
- refill = 0;\r
- }\r
-\r
- end = start;\r
-\r
- /* should we skip an optional character like \n or \r? */\r
- if ( start < avail && buf[start] == to_skip )\r
- {\r
- start += 1;\r
- to_skip = NO_SKIP;\r
- continue;\r
- }\r
-\r
- /* try to find the end of the line */\r
- while ( end < avail && buf[end] != '\n' && buf[end] != '\r' )\r
- end++;\r
-\r
- /* if we hit the end of the buffer, try shifting its content */\r
- /* or even resizing it */\r
- if ( end >= avail )\r
- {\r
- if ( bytes == 0 ) /* last line in file doesn't end in \r or \n */\r
- break; /* ignore it then exit */\r
-\r
- if ( start == 0 )\r
- {\r
- /* this line is definitely too long; try resizing the input */\r
- /* buffer a bit to handle it. */\r
- FT_ULong new_size;\r
-\r
-\r
- if ( buf_size >= 65536UL ) /* limit ourselves to 64KByte */\r
- {\r
- error = BDF_Err_Invalid_Argument;\r
- goto Exit;\r
- }\r
-\r
- new_size = buf_size * 2;\r
- if ( FT_RENEW_ARRAY( buf, buf_size, new_size ) )\r
- goto Exit;\r
-\r
- cursor = buf_size;\r
- buf_size = new_size;\r
- }\r
- else\r
- {\r
- bytes = avail - start;\r
-\r
- FT_MEM_COPY( buf, buf + start, bytes );\r
-\r
- cursor = bytes;\r
- avail -= bytes;\r
- start = 0;\r
- }\r
- refill = 1;\r
- continue;\r
- }\r
-\r
- /* Temporarily NUL-terminate the line. */\r
- hold = buf[end];\r
- buf[end] = 0;\r
-\r
- /* XXX: Use encoding independent value for 0x1a */\r
- if ( buf[start] != '#' && buf[start] != 0x1a && end > start )\r
- {\r
- error = (*cb)( buf + start, end - start, lineno,\r
- (void*)&cb, client_data );\r
- if ( error )\r
- break;\r
- }\r
-\r
- lineno += 1;\r
- buf[end] = (char)hold;\r
- start = end + 1;\r
-\r
- if ( hold == '\n' )\r
- to_skip = '\r';\r
- else if ( hold == '\r' )\r
- to_skip = '\n';\r
- else\r
- to_skip = NO_SKIP;\r
- }\r
-\r
- *lno = lineno;\r
-\r
- Exit:\r
- FT_FREE( buf );\r
- return error;\r
- }\r
-\r
-\r
- /* XXX: make this work with EBCDIC also */\r
-\r
- static const unsigned char a2i[128] =\r
- {\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00\r
- };\r
-\r
- static const unsigned char odigits[32] =\r
- {\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- };\r
-\r
- static const unsigned char ddigits[32] =\r
- {\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x03,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- };\r
-\r
- static const unsigned char hdigits[32] =\r
- {\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x03,\r
- 0x7e, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\r
- };\r
-\r
-\r
-#define isdigok( m, d ) (m[(d) >> 3] & ( 1 << ( (d) & 7 ) ) )\r
-\r
-\r
- /* Routine to convert an ASCII string into an unsigned long integer. */\r
- static unsigned long\r
- _bdf_atoul( char* s,\r
- char** end,\r
- int base )\r
- {\r
- unsigned long v;\r
- const unsigned char* dmap;\r
-\r
-\r
- if ( s == 0 || *s == 0 )\r
- return 0;\r
-\r
- /* Make sure the radix is something recognizable. Default to 10. */\r
- switch ( base )\r
- {\r
- case 8:\r
- dmap = odigits;\r
- break;\r
- case 16:\r
- dmap = hdigits;\r
- break;\r
- default:\r
- base = 10;\r
- dmap = ddigits;\r
- break;\r
- }\r
-\r
- /* Check for the special hex prefix. */\r
- if ( *s == '0' &&\r
- ( *( s + 1 ) == 'x' || *( s + 1 ) == 'X' ) )\r
- {\r
- base = 16;\r
- dmap = hdigits;\r
- s += 2;\r
- }\r
-\r
- for ( v = 0; isdigok( dmap, *s ); s++ )\r
- v = v * base + a2i[(int)*s];\r
-\r
- if ( end != 0 )\r
- *end = s;\r
-\r
- return v;\r
- }\r
-\r
-\r
- /* Routine to convert an ASCII string into an signed long integer. */\r
- static long\r
- _bdf_atol( char* s,\r
- char** end,\r
- int base )\r
- {\r
- long v, neg;\r
- const unsigned char* dmap;\r
-\r
-\r
- if ( s == 0 || *s == 0 )\r
- return 0;\r
-\r
- /* Make sure the radix is something recognizable. Default to 10. */\r
- switch ( base )\r
- {\r
- case 8:\r
- dmap = odigits;\r
- break;\r
- case 16:\r
- dmap = hdigits;\r
- break;\r
- default:\r
- base = 10;\r
- dmap = ddigits;\r
- break;\r
- }\r
-\r
- /* Check for a minus sign. */\r
- neg = 0;\r
- if ( *s == '-' )\r
- {\r
- s++;\r
- neg = 1;\r
- }\r
-\r
- /* Check for the special hex prefix. */\r
- if ( *s == '0' &&\r
- ( *( s + 1 ) == 'x' || *( s + 1 ) == 'X' ) )\r
- {\r
- base = 16;\r
- dmap = hdigits;\r
- s += 2;\r
- }\r
-\r
- for ( v = 0; isdigok( dmap, *s ); s++ )\r
- v = v * base + a2i[(int)*s];\r
-\r
- if ( end != 0 )\r
- *end = s;\r
-\r
- return ( !neg ) ? v : -v;\r
- }\r
-\r
-\r
- /* Routine to convert an ASCII string into an signed short integer. */\r
- static short\r
- _bdf_atos( char* s,\r
- char** end,\r
- int base )\r
- {\r
- short v, neg;\r
- const unsigned char* dmap;\r
-\r
-\r
- if ( s == 0 || *s == 0 )\r
- return 0;\r
-\r
- /* Make sure the radix is something recognizable. Default to 10. */\r
- switch ( base )\r
- {\r
- case 8:\r
- dmap = odigits;\r
- break;\r
- case 16:\r
- dmap = hdigits;\r
- break;\r
- default:\r
- base = 10;\r
- dmap = ddigits;\r
- break;\r
- }\r
-\r
- /* Check for a minus. */\r
- neg = 0;\r
- if ( *s == '-' )\r
- {\r
- s++;\r
- neg = 1;\r
- }\r
-\r
- /* Check for the special hex prefix. */\r
- if ( *s == '0' &&\r
- ( *( s + 1 ) == 'x' || *( s + 1 ) == 'X' ) )\r
- {\r
- base = 16;\r
- dmap = hdigits;\r
- s += 2;\r
- }\r
-\r
- for ( v = 0; isdigok( dmap, *s ); s++ )\r
- v = (short)( v * base + a2i[(int)*s] );\r
-\r
- if ( end != 0 )\r
- *end = s;\r
-\r
- return (short)( ( !neg ) ? v : -v );\r
- }\r
-\r
-\r
- /* Routine to compare two glyphs by encoding so they can be sorted. */\r
- static int\r
- by_encoding( const void* a,\r
- const void* b )\r
- {\r
- bdf_glyph_t *c1, *c2;\r
-\r
-\r
- c1 = (bdf_glyph_t *)a;\r
- c2 = (bdf_glyph_t *)b;\r
-\r
- if ( c1->encoding < c2->encoding )\r
- return -1;\r
-\r
- if ( c1->encoding > c2->encoding )\r
- return 1;\r
-\r
- return 0;\r
- }\r
-\r
-\r
- static FT_Error\r
- bdf_create_property( char* name,\r
- int format,\r
- bdf_font_t* font )\r
- {\r
- unsigned long n;\r
- bdf_property_t* p;\r
- FT_Memory memory = font->memory;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- /* First check to see if the property has */\r
- /* already been added or not. If it has, then */\r
- /* simply ignore it. */\r
- if ( hash_lookup( name, &(font->proptbl) ) )\r
- goto Exit;\r
-\r
- if ( FT_RENEW_ARRAY( font->user_props,\r
- font->nuser_props,\r
- font->nuser_props + 1 ) )\r
- goto Exit;\r
-\r
- p = font->user_props + font->nuser_props;\r
- FT_ZERO( p );\r
-\r
- n = (unsigned long)( ft_strlen( name ) + 1 );\r
-\r
- if ( FT_NEW_ARRAY( p->name, n ) )\r
- goto Exit;\r
-\r
- FT_MEM_COPY( (char *)p->name, name, n );\r
-\r
- p->format = format;\r
- p->builtin = 0;\r
-\r
- n = _num_bdf_properties + font->nuser_props;\r
-\r
- error = hash_insert( p->name, (void *)n, &(font->proptbl), memory );\r
- if ( error )\r
- goto Exit;\r
-\r
- font->nuser_props++;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( bdf_property_t * )\r
- bdf_get_property( char* name,\r
- bdf_font_t* font )\r
- {\r
- hashnode hn;\r
- unsigned long propid;\r
-\r
-\r
- if ( name == 0 || *name == 0 )\r
- return 0;\r
-\r
- if ( ( hn = hash_lookup( name, &(font->proptbl) ) ) == 0 )\r
- return 0;\r
-\r
- propid = (unsigned long)hn->data;\r
- if ( propid >= _num_bdf_properties )\r
- return font->user_props + ( propid - _num_bdf_properties );\r
-\r
- return (bdf_property_t*)_bdf_properties + propid;\r
- }\r
-\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* BDF font file parsing flags and functions. */\r
- /* */\r
- /*************************************************************************/\r
-\r
-\r
- /* Parse flags. */\r
-\r
-#define _BDF_START 0x0001\r
-#define _BDF_FONT_NAME 0x0002\r
-#define _BDF_SIZE 0x0004\r
-#define _BDF_FONT_BBX 0x0008\r
-#define _BDF_PROPS 0x0010\r
-#define _BDF_GLYPHS 0x0020\r
-#define _BDF_GLYPH 0x0040\r
-#define _BDF_ENCODING 0x0080\r
-#define _BDF_SWIDTH 0x0100\r
-#define _BDF_DWIDTH 0x0200\r
-#define _BDF_BBX 0x0400\r
-#define _BDF_BITMAP 0x0800\r
-\r
-#define _BDF_SWIDTH_ADJ 0x1000\r
-\r
-#define _BDF_GLYPH_BITS ( _BDF_GLYPH | \\r
- _BDF_ENCODING | \\r
- _BDF_SWIDTH | \\r
- _BDF_DWIDTH | \\r
- _BDF_BBX | \\r
- _BDF_BITMAP )\r
-\r
-#define _BDF_GLYPH_WIDTH_CHECK 0x40000000UL\r
-#define _BDF_GLYPH_HEIGHT_CHECK 0x80000000UL\r
-\r
-\r
- /* Auto correction messages. */\r
-#define ACMSG1 "FONT_ASCENT property missing. " \\r
- "Added \"FONT_ASCENT %hd\".\n"\r
-#define ACMSG2 "FONT_DESCENT property missing. " \\r
- "Added \"FONT_DESCENT %hd\".\n"\r
-#define ACMSG3 "Font width != actual width. Old: %hd New: %hd.\n"\r
-#define ACMSG4 "Font left bearing != actual left bearing. " \\r
- "Old: %hd New: %hd.\n"\r
-#define ACMSG5 "Font ascent != actual ascent. Old: %hd New: %hd.\n"\r
-#define ACMSG6 "Font descent != actual descent. Old: %hd New: %hd.\n"\r
-#define ACMSG7 "Font height != actual height. Old: %hd New: %hd.\n"\r
-#define ACMSG8 "Glyph scalable width (SWIDTH) adjustments made.\n"\r
-#define ACMSG9 "SWIDTH field missing at line %ld. Set automatically.\n"\r
-#define ACMSG10 "DWIDTH field missing at line %ld. Set to glyph width.\n"\r
-#define ACMSG11 "SIZE bits per pixel field adjusted to %hd.\n"\r
-#define ACMSG12 "Duplicate encoding %ld (%s) changed to unencoded.\n"\r
-#define ACMSG13 "Glyph %ld extra rows removed.\n"\r
-#define ACMSG14 "Glyph %ld extra columns removed.\n"\r
-#define ACMSG15 "Incorrect glyph count: %ld indicated but %ld found.\n"\r
-\r
- /* Error messages. */\r
-#define ERRMSG1 "[line %ld] Missing \"%s\" line.\n"\r
-#define ERRMSG2 "[line %ld] Font header corrupted or missing fields.\n"\r
-#define ERRMSG3 "[line %ld] Font glyphs corrupted or missing fields.\n"\r
-#define ERRMSG4 "[line %ld] BBX too big.\n"\r
-\r
-\r
- static FT_Error\r
- _bdf_add_comment( bdf_font_t* font,\r
- char* comment,\r
- unsigned long len )\r
- {\r
- char* cp;\r
- FT_Memory memory = font->memory;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- if ( FT_RENEW_ARRAY( font->comments,\r
- font->comments_len,\r
- font->comments_len + len + 1 ) )\r
- goto Exit;\r
-\r
- cp = font->comments + font->comments_len;\r
-\r
- FT_MEM_COPY( cp, comment, len );\r
- cp[len] = '\n';\r
-\r
- font->comments_len += len + 1;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- /* Set the spacing from the font name if it exists, or set it to the */\r
- /* default specified in the options. */\r
- static FT_Error\r
- _bdf_set_default_spacing( bdf_font_t* font,\r
- bdf_options_t* opts )\r
- {\r
- unsigned long len;\r
- char name[256];\r
- _bdf_list_t list;\r
- FT_Memory memory;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- if ( font == 0 || font->name == 0 || font->name[0] == 0 )\r
- {\r
- error = BDF_Err_Invalid_Argument;\r
- goto Exit;\r
- }\r
-\r
- memory = font->memory;\r
-\r
- _bdf_list_init( &list, memory );\r
-\r
- font->spacing = opts->font_spacing;\r
-\r
- len = (unsigned long)( ft_strlen( font->name ) + 1 );\r
- /* Limit ourselves to 256 characters in the font name. */\r
- if ( len >= 256 )\r
- {\r
- error = BDF_Err_Invalid_Argument;\r
- goto Exit;\r
- }\r
-\r
- FT_MEM_COPY( name, font->name, len );\r
-\r
- error = _bdf_list_split( &list, (char *)"-", name, len );\r
- if ( error )\r
- goto Fail;\r
-\r
- if ( list.used == 15 )\r
- {\r
- switch ( list.field[11][0] )\r
- {\r
- case 'C':\r
- case 'c':\r
- font->spacing = BDF_CHARCELL;\r
- break;\r
- case 'M':\r
- case 'm':\r
- font->spacing = BDF_MONOWIDTH;\r
- break;\r
- case 'P':\r
- case 'p':\r
- font->spacing = BDF_PROPORTIONAL;\r
- break;\r
- }\r
- }\r
-\r
- Fail:\r
- _bdf_list_done( &list );\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- /* Determine whether the property is an atom or not. If it is, then */\r
- /* clean it up so the double quotes are removed if they exist. */\r
- static int\r
- _bdf_is_atom( char* line,\r
- unsigned long linelen,\r
- char** name,\r
- char** value,\r
- bdf_font_t* font )\r
- {\r
- int hold;\r
- char *sp, *ep;\r
- bdf_property_t* p;\r
-\r
-\r
- *name = sp = ep = line;\r
-\r
- while ( *ep && *ep != ' ' && *ep != '\t' )\r
- ep++;\r
-\r
- hold = -1;\r
- if ( *ep )\r
- {\r
- hold = *ep;\r
- *ep = 0;\r
- }\r
-\r
- p = bdf_get_property( sp, font );\r
-\r
- /* Restore the character that was saved before any return can happen. */\r
- if ( hold != -1 )\r
- *ep = (char)hold;\r
-\r
- /* If the property exists and is not an atom, just return here. */\r
- if ( p && p->format != BDF_ATOM )\r
- return 0;\r
-\r
- /* The property is an atom. Trim all leading and trailing whitespace */\r
- /* and double quotes for the atom value. */\r
- sp = ep;\r
- ep = line + linelen;\r
-\r
- /* Trim the leading whitespace if it exists. */\r
- *sp++ = 0;\r
- while ( *sp &&\r
- ( *sp == ' ' || *sp == '\t' ) )\r
- sp++;\r
-\r
- /* Trim the leading double quote if it exists. */\r
- if ( *sp == '"' )\r
- sp++;\r
- *value = sp;\r
-\r
- /* Trim the trailing whitespace if it exists. */\r
- while ( ep > sp &&\r
- ( *( ep - 1 ) == ' ' || *( ep - 1 ) == '\t' ) )\r
- *--ep = 0;\r
-\r
- /* Trim the trailing double quote if it exists. */\r
- if ( ep > sp && *( ep - 1 ) == '"' )\r
- *--ep = 0;\r
-\r
- return 1;\r
- }\r
-\r
-\r
- static FT_Error\r
- _bdf_add_property( bdf_font_t* font,\r
- char* name,\r
- char* value )\r
- {\r
- unsigned long propid;\r
- hashnode hn;\r
- bdf_property_t *prop, *fp;\r
- FT_Memory memory = font->memory;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- /* First, check to see if the property already exists in the font. */\r
- if ( ( hn = hash_lookup( name, (hashtable *)font->internal ) ) != 0 )\r
- {\r
- /* The property already exists in the font, so simply replace */\r
- /* the value of the property with the current value. */\r
- fp = font->props + (unsigned long)hn->data;\r
-\r
- switch ( fp->format )\r
- {\r
- case BDF_ATOM:\r
- /* Delete the current atom if it exists. */\r
- FT_FREE( fp->value.atom );\r
-\r
- if ( value && value[0] != 0 )\r
- {\r
- if ( FT_STRDUP( fp->value.atom, value ) )\r
- goto Exit;\r
- }\r
- break;\r
-\r
- case BDF_INTEGER:\r
- fp->value.int32 = _bdf_atol( value, 0, 10 );\r
- break;\r
-\r
- case BDF_CARDINAL:\r
- fp->value.card32 = _bdf_atoul( value, 0, 10 );\r
- break;\r
-\r
- default:\r
- ;\r
- }\r
-\r
- goto Exit;\r
- }\r
-\r
- /* See whether this property type exists yet or not. */\r
- /* If not, create it. */\r
- hn = hash_lookup( name, &(font->proptbl) );\r
- if ( hn == 0 )\r
- {\r
- error = bdf_create_property( name, BDF_ATOM, font );\r
- if ( error )\r
- goto Exit;\r
- hn = hash_lookup( name, &(font->proptbl) );\r
- }\r
-\r
- /* Allocate another property if this is overflow. */\r
- if ( font->props_used == font->props_size )\r
- {\r
- if ( font->props_size == 0 )\r
- {\r
- if ( FT_NEW_ARRAY( font->props, 1 ) )\r
- goto Exit;\r
- }\r
- else\r
- {\r
- if ( FT_RENEW_ARRAY( font->props,\r
- font->props_size,\r
- font->props_size + 1 ) )\r
- goto Exit;\r
- }\r
-\r
- fp = font->props + font->props_size;\r
- FT_MEM_ZERO( fp, sizeof ( bdf_property_t ) );\r
- font->props_size++;\r
- }\r
-\r
- propid = (unsigned long)hn->data;\r
- if ( propid >= _num_bdf_properties )\r
- prop = font->user_props + ( propid - _num_bdf_properties );\r
- else\r
- prop = (bdf_property_t*)_bdf_properties + propid;\r
-\r
- fp = font->props + font->props_used;\r
-\r
- fp->name = prop->name;\r
- fp->format = prop->format;\r
- fp->builtin = prop->builtin;\r
-\r
- switch ( prop->format )\r
- {\r
- case BDF_ATOM:\r
- fp->value.atom = 0;\r
- if ( value != 0 && value[0] )\r
- {\r
- if ( FT_STRDUP( fp->value.atom, value ) )\r
- goto Exit;\r
- }\r
- break;\r
-\r
- case BDF_INTEGER:\r
- fp->value.int32 = _bdf_atol( value, 0, 10 );\r
- break;\r
-\r
- case BDF_CARDINAL:\r
- fp->value.card32 = _bdf_atoul( value, 0, 10 );\r
- break;\r
- }\r
-\r
- /* If the property happens to be a comment, then it doesn't need */\r
- /* to be added to the internal hash table. */\r
- if ( ft_memcmp( name, "COMMENT", 7 ) != 0 ) {\r
- /* Add the property to the font property table. */\r
- error = hash_insert( fp->name,\r
- (void *)font->props_used,\r
- (hashtable *)font->internal,\r
- memory );\r
- if ( error )\r
- goto Exit;\r
- }\r
-\r
- font->props_used++;\r
-\r
- /* Some special cases need to be handled here. The DEFAULT_CHAR */\r
- /* property needs to be located if it exists in the property list, the */\r
- /* FONT_ASCENT and FONT_DESCENT need to be assigned if they are */\r
- /* present, and the SPACING property should override the default */\r
- /* spacing. */\r
- if ( ft_memcmp( name, "DEFAULT_CHAR", 12 ) == 0 )\r
- font->default_char = fp->value.int32;\r
- else if ( ft_memcmp( name, "FONT_ASCENT", 11 ) == 0 )\r
- font->font_ascent = fp->value.int32;\r
- else if ( ft_memcmp( name, "FONT_DESCENT", 12 ) == 0 )\r
- font->font_descent = fp->value.int32;\r
- else if ( ft_memcmp( name, "SPACING", 7 ) == 0 )\r
- {\r
- if ( fp->value.atom[0] == 'p' || fp->value.atom[0] == 'P' )\r
- font->spacing = BDF_PROPORTIONAL;\r
- else if ( fp->value.atom[0] == 'm' || fp->value.atom[0] == 'M' )\r
- font->spacing = BDF_MONOWIDTH;\r
- else if ( fp->value.atom[0] == 'c' || fp->value.atom[0] == 'C' )\r
- font->spacing = BDF_CHARCELL;\r
- }\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- static const unsigned char nibble_mask[8] =\r
- {\r
- 0xFF, 0x80, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC, 0xFE\r
- };\r
-\r
-\r
- /* Actually parse the glyph info and bitmaps. */\r
- static FT_Error\r
- _bdf_parse_glyphs( char* line,\r
- unsigned long linelen,\r
- unsigned long lineno,\r
- void* call_data,\r
- void* client_data )\r
- {\r
- int c, mask_index;\r
- char* s;\r
- unsigned char* bp;\r
- unsigned long i, slen, nibbles;\r
-\r
- _bdf_parse_t* p;\r
- bdf_glyph_t* glyph;\r
- bdf_font_t* font;\r
-\r
- FT_Memory memory;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
- FT_UNUSED( call_data );\r
- FT_UNUSED( lineno ); /* only used in debug mode */\r
-\r
-\r
- p = (_bdf_parse_t *)client_data;\r
-\r
- font = p->font;\r
- memory = font->memory;\r
-\r
- /* Check for a comment. */\r
- if ( ft_memcmp( line, "COMMENT", 7 ) == 0 )\r
- {\r
- linelen -= 7;\r
-\r
- s = line + 7;\r
- if ( *s != 0 )\r
- {\r
- s++;\r
- linelen--;\r
- }\r
- error = _bdf_add_comment( p->font, s, linelen );\r
- goto Exit;\r
- }\r
-\r
- /* The very first thing expected is the number of glyphs. */\r
- if ( !( p->flags & _BDF_GLYPHS ) )\r
- {\r
- if ( ft_memcmp( line, "CHARS", 5 ) != 0 )\r
- {\r
- FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "CHARS" ));\r
- error = BDF_Err_Missing_Chars_Field;\r
- goto Exit;\r
- }\r
-\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
- p->cnt = font->glyphs_size = _bdf_atoul( p->list.field[1], 0, 10 );\r
-\r
- /* Make sure the number of glyphs is non-zero. */\r
- if ( p->cnt == 0 )\r
- font->glyphs_size = 64;\r
-\r
- /* Limit ourselves to 1,114,112 glyphs in the font (this is the */\r
- /* number of code points available in Unicode). */\r
- if ( p->cnt >= 1114112UL )\r
- {\r
- error = BDF_Err_Invalid_Argument;\r
- goto Exit;\r
- }\r
-\r
- if ( FT_NEW_ARRAY( font->glyphs, font->glyphs_size ) )\r
- goto Exit;\r
-\r
- p->flags |= _BDF_GLYPHS;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Check for the ENDFONT field. */\r
- if ( ft_memcmp( line, "ENDFONT", 7 ) == 0 )\r
- {\r
- /* Sort the glyphs by encoding. */\r
- ft_qsort( (char *)font->glyphs,\r
- font->glyphs_used,\r
- sizeof ( bdf_glyph_t ),\r
- by_encoding );\r
-\r
- p->flags &= ~_BDF_START;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Check for the ENDCHAR field. */\r
- if ( ft_memcmp( line, "ENDCHAR", 7 ) == 0 )\r
- {\r
- p->glyph_enc = 0;\r
- p->flags &= ~_BDF_GLYPH_BITS;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Check to see whether a glyph is being scanned but should be */\r
- /* ignored because it is an unencoded glyph. */\r
- if ( ( p->flags & _BDF_GLYPH ) &&\r
- p->glyph_enc == -1 &&\r
- p->opts->keep_unencoded == 0 )\r
- goto Exit;\r
-\r
- /* Check for the STARTCHAR field. */\r
- if ( ft_memcmp( line, "STARTCHAR", 9 ) == 0 )\r
- {\r
- /* Set the character name in the parse info first until the */\r
- /* encoding can be checked for an unencoded character. */\r
- FT_FREE( p->glyph_name );\r
-\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
-\r
- _bdf_list_shift( &p->list, 1 );\r
-\r
- s = _bdf_list_join( &p->list, ' ', &slen );\r
-\r
- if ( !s )\r
- {\r
- error = BDF_Err_Invalid_File_Format;\r
- goto Exit;\r
- }\r
-\r
- if ( FT_NEW_ARRAY( p->glyph_name, slen + 1 ) )\r
- goto Exit;\r
-\r
- FT_MEM_COPY( p->glyph_name, s, slen + 1 );\r
-\r
- p->flags |= _BDF_GLYPH;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Check for the ENCODING field. */\r
- if ( ft_memcmp( line, "ENCODING", 8 ) == 0 )\r
- {\r
- if ( !( p->flags & _BDF_GLYPH ) )\r
- {\r
- /* Missing STARTCHAR field. */\r
- FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "STARTCHAR" ));\r
- error = BDF_Err_Missing_Startchar_Field;\r
- goto Exit;\r
- }\r
-\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
-\r
- p->glyph_enc = _bdf_atol( p->list.field[1], 0, 10 );\r
-\r
- /* Check that the encoding is in the range [0,65536] because */\r
- /* otherwise p->have (a bitmap with static size) overflows. */\r
- if ( (size_t)p->glyph_enc >= sizeof ( p->have ) * 8 )\r
- {\r
- error = BDF_Err_Invalid_File_Format;\r
- goto Exit;\r
- }\r
-\r
- /* Check to see whether this encoding has already been encountered. */\r
- /* If it has then change it to unencoded so it gets added if */\r
- /* indicated. */\r
- if ( p->glyph_enc >= 0 )\r
- {\r
- if ( _bdf_glyph_modified( p->have, p->glyph_enc ) )\r
- {\r
- /* Emit a message saying a glyph has been moved to the */\r
- /* unencoded area. */\r
- FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG12,\r
- p->glyph_enc, p->glyph_name ));\r
- p->glyph_enc = -1;\r
- font->modified = 1;\r
- }\r
- else\r
- _bdf_set_glyph_modified( p->have, p->glyph_enc );\r
- }\r
-\r
- if ( p->glyph_enc >= 0 )\r
- {\r
- /* Make sure there are enough glyphs allocated in case the */\r
- /* number of characters happen to be wrong. */\r
- if ( font->glyphs_used == font->glyphs_size )\r
- {\r
- if ( FT_RENEW_ARRAY( font->glyphs,\r
- font->glyphs_size,\r
- font->glyphs_size + 64 ) )\r
- goto Exit;\r
-\r
- font->glyphs_size += 64;\r
- }\r
-\r
- glyph = font->glyphs + font->glyphs_used++;\r
- glyph->name = p->glyph_name;\r
- glyph->encoding = p->glyph_enc;\r
-\r
- /* Reset the initial glyph info. */\r
- p->glyph_name = 0;\r
- }\r
- else\r
- {\r
- /* Unencoded glyph. Check to see whether it should */\r
- /* be added or not. */\r
- if ( p->opts->keep_unencoded != 0 )\r
- {\r
- /* Allocate the next unencoded glyph. */\r
- if ( font->unencoded_used == font->unencoded_size )\r
- {\r
- if ( FT_RENEW_ARRAY( font->unencoded ,\r
- font->unencoded_size,\r
- font->unencoded_size + 4 ) )\r
- goto Exit;\r
-\r
- font->unencoded_size += 4;\r
- }\r
-\r
- glyph = font->unencoded + font->unencoded_used;\r
- glyph->name = p->glyph_name;\r
- glyph->encoding = font->unencoded_used++;\r
- }\r
- else\r
- /* Free up the glyph name if the unencoded shouldn't be */\r
- /* kept. */\r
- FT_FREE( p->glyph_name );\r
-\r
- p->glyph_name = 0;\r
- }\r
-\r
- /* Clear the flags that might be added when width and height are */\r
- /* checked for consistency. */\r
- p->flags &= ~( _BDF_GLYPH_WIDTH_CHECK | _BDF_GLYPH_HEIGHT_CHECK );\r
-\r
- p->flags |= _BDF_ENCODING;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Point at the glyph being constructed. */\r
- if ( p->glyph_enc == -1 )\r
- glyph = font->unencoded + ( font->unencoded_used - 1 );\r
- else\r
- glyph = font->glyphs + ( font->glyphs_used - 1 );\r
-\r
- /* Check to see whether a bitmap is being constructed. */\r
- if ( p->flags & _BDF_BITMAP )\r
- {\r
- /* If there are more rows than are specified in the glyph metrics, */\r
- /* ignore the remaining lines. */\r
- if ( p->row >= (unsigned long)glyph->bbx.height )\r
- {\r
- if ( !( p->flags & _BDF_GLYPH_HEIGHT_CHECK ) )\r
- {\r
- FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG13, glyph->encoding ));\r
- p->flags |= _BDF_GLYPH_HEIGHT_CHECK;\r
- font->modified = 1;\r
- }\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Only collect the number of nibbles indicated by the glyph */\r
- /* metrics. If there are more columns, they are simply ignored. */\r
- nibbles = glyph->bpr << 1;\r
- bp = glyph->bitmap + p->row * glyph->bpr;\r
-\r
- for ( i = 0; i < nibbles; i++ )\r
- {\r
- c = line[i];\r
- *bp = (FT_Byte)( ( *bp << 4 ) + a2i[c] );\r
- if ( i + 1 < nibbles && ( i & 1 ) )\r
- *++bp = 0;\r
- }\r
-\r
- /* Remove possible garbage at the right. */\r
- mask_index = ( glyph->bbx.width * p->font->bpp ) & 7;\r
- if ( glyph->bbx.width )\r
- *bp &= nibble_mask[mask_index];\r
-\r
- /* If any line has extra columns, indicate they have been removed. */\r
- if ( ( line[nibbles] == '0' || a2i[(int)line[nibbles]] != 0 ) &&\r
- !( p->flags & _BDF_GLYPH_WIDTH_CHECK ) )\r
- {\r
- FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG14, glyph->encoding ));\r
- p->flags |= _BDF_GLYPH_WIDTH_CHECK;\r
- font->modified = 1;\r
- }\r
-\r
- p->row++;\r
- goto Exit;\r
- }\r
-\r
- /* Expect the SWIDTH (scalable width) field next. */\r
- if ( ft_memcmp( line, "SWIDTH", 6 ) == 0 )\r
- {\r
- if ( !( p->flags & _BDF_ENCODING ) )\r
- {\r
- /* Missing ENCODING field. */\r
- FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "ENCODING" ));\r
- error = BDF_Err_Missing_Encoding_Field;\r
- goto Exit;\r
- }\r
-\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
-\r
- glyph->swidth = (unsigned short)_bdf_atoul( p->list.field[1], 0, 10 );\r
- p->flags |= _BDF_SWIDTH;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Expect the DWIDTH (scalable width) field next. */\r
- if ( ft_memcmp( line, "DWIDTH", 6 ) == 0 )\r
- {\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
-\r
- glyph->dwidth = (unsigned short)_bdf_atoul( p->list.field[1], 0, 10 );\r
-\r
- if ( !( p->flags & _BDF_SWIDTH ) )\r
- {\r
- /* Missing SWIDTH field. Emit an auto correction message and set */\r
- /* the scalable width from the device width. */\r
- FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG9, lineno ));\r
-\r
- glyph->swidth = (unsigned short)FT_MulDiv(\r
- glyph->dwidth, 72000L,\r
- (FT_Long)( font->point_size *\r
- font->resolution_x ) );\r
- }\r
-\r
- p->flags |= _BDF_DWIDTH;\r
- goto Exit;\r
- }\r
-\r
- /* Expect the BBX field next. */\r
- if ( ft_memcmp( line, "BBX", 3 ) == 0 )\r
- {\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
-\r
- glyph->bbx.width = _bdf_atos( p->list.field[1], 0, 10 );\r
- glyph->bbx.height = _bdf_atos( p->list.field[2], 0, 10 );\r
- glyph->bbx.x_offset = _bdf_atos( p->list.field[3], 0, 10 );\r
- glyph->bbx.y_offset = _bdf_atos( p->list.field[4], 0, 10 );\r
-\r
- /* Generate the ascent and descent of the character. */\r
- glyph->bbx.ascent = (short)( glyph->bbx.height + glyph->bbx.y_offset );\r
- glyph->bbx.descent = (short)( -glyph->bbx.y_offset );\r
-\r
- /* Determine the overall font bounding box as the characters are */\r
- /* loaded so corrections can be done later if indicated. */\r
- p->maxas = (short)FT_MAX( glyph->bbx.ascent, p->maxas );\r
- p->maxds = (short)FT_MAX( glyph->bbx.descent, p->maxds );\r
-\r
- p->rbearing = (short)( glyph->bbx.width + glyph->bbx.x_offset );\r
-\r
- p->maxrb = (short)FT_MAX( p->rbearing, p->maxrb );\r
- p->minlb = (short)FT_MIN( glyph->bbx.x_offset, p->minlb );\r
- p->maxlb = (short)FT_MAX( glyph->bbx.x_offset, p->maxlb );\r
-\r
- if ( !( p->flags & _BDF_DWIDTH ) )\r
- {\r
- /* Missing DWIDTH field. Emit an auto correction message and set */\r
- /* the device width to the glyph width. */\r
- FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG10, lineno ));\r
- glyph->dwidth = glyph->bbx.width;\r
- }\r
-\r
- /* If the BDF_CORRECT_METRICS flag is set, then adjust the SWIDTH */\r
- /* value if necessary. */\r
- if ( p->opts->correct_metrics != 0 )\r
- {\r
- /* Determine the point size of the glyph. */\r
- unsigned short sw = (unsigned short)FT_MulDiv(\r
- glyph->dwidth, 72000L,\r
- (FT_Long)( font->point_size *\r
- font->resolution_x ) );\r
-\r
-\r
- if ( sw != glyph->swidth )\r
- {\r
- glyph->swidth = sw;\r
-\r
- if ( p->glyph_enc == -1 )\r
- _bdf_set_glyph_modified( font->umod,\r
- font->unencoded_used - 1 );\r
- else\r
- _bdf_set_glyph_modified( font->nmod, glyph->encoding );\r
-\r
- p->flags |= _BDF_SWIDTH_ADJ;\r
- font->modified = 1;\r
- }\r
- }\r
-\r
- p->flags |= _BDF_BBX;\r
- goto Exit;\r
- }\r
-\r
- /* And finally, gather up the bitmap. */\r
- if ( ft_memcmp( line, "BITMAP", 6 ) == 0 )\r
- {\r
- unsigned long bitmap_size;\r
-\r
-\r
- if ( !( p->flags & _BDF_BBX ) )\r
- {\r
- /* Missing BBX field. */\r
- FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "BBX" ));\r
- error = BDF_Err_Missing_Bbx_Field;\r
- goto Exit;\r
- }\r
-\r
- /* Allocate enough space for the bitmap. */\r
- glyph->bpr = ( glyph->bbx.width * p->font->bpp + 7 ) >> 3;\r
-\r
- bitmap_size = glyph->bpr * glyph->bbx.height;\r
- if ( bitmap_size > 0xFFFFU )\r
- {\r
- FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG4, lineno ));\r
- error = BDF_Err_Bbx_Too_Big;\r
- goto Exit;\r
- }\r
- else\r
- glyph->bytes = (unsigned short)bitmap_size;\r
-\r
- if ( FT_NEW_ARRAY( glyph->bitmap, glyph->bytes ) )\r
- goto Exit;\r
-\r
- p->row = 0;\r
- p->flags |= _BDF_BITMAP;\r
-\r
- goto Exit;\r
- }\r
-\r
- error = BDF_Err_Invalid_File_Format;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- /* Load the font properties. */\r
- static FT_Error\r
- _bdf_parse_properties( char* line,\r
- unsigned long linelen,\r
- unsigned long lineno,\r
- void* call_data,\r
- void* client_data )\r
- {\r
- unsigned long vlen;\r
- _bdf_line_func_t* next;\r
- _bdf_parse_t* p;\r
- char* name;\r
- char* value;\r
- char nbuf[128];\r
- FT_Error error = BDF_Err_Ok;\r
-\r
- FT_UNUSED( lineno );\r
-\r
-\r
- next = (_bdf_line_func_t *)call_data;\r
- p = (_bdf_parse_t *) client_data;\r
-\r
- /* Check for the end of the properties. */\r
- if ( ft_memcmp( line, "ENDPROPERTIES", 13 ) == 0 )\r
- {\r
- /* If the FONT_ASCENT or FONT_DESCENT properties have not been */\r
- /* encountered yet, then make sure they are added as properties and */\r
- /* make sure they are set from the font bounding box info. */\r
- /* */\r
- /* This is *always* done regardless of the options, because X11 */\r
- /* requires these two fields to compile fonts. */\r
- if ( bdf_get_font_property( p->font, "FONT_ASCENT" ) == 0 )\r
- {\r
- p->font->font_ascent = p->font->bbx.ascent;\r
- ft_sprintf( nbuf, "%hd", p->font->bbx.ascent );\r
- error = _bdf_add_property( p->font, (char *)"FONT_ASCENT", nbuf );\r
- if ( error )\r
- goto Exit;\r
-\r
- FT_TRACE2(( "_bdf_parse_properties: " ACMSG1, p->font->bbx.ascent ));\r
- p->font->modified = 1;\r
- }\r
-\r
- if ( bdf_get_font_property( p->font, "FONT_DESCENT" ) == 0 )\r
- {\r
- p->font->font_descent = p->font->bbx.descent;\r
- ft_sprintf( nbuf, "%hd", p->font->bbx.descent );\r
- error = _bdf_add_property( p->font, (char *)"FONT_DESCENT", nbuf );\r
- if ( error )\r
- goto Exit;\r
-\r
- FT_TRACE2(( "_bdf_parse_properties: " ACMSG2, p->font->bbx.descent ));\r
- p->font->modified = 1;\r
- }\r
-\r
- p->flags &= ~_BDF_PROPS;\r
- *next = _bdf_parse_glyphs;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Ignore the _XFREE86_GLYPH_RANGES properties. */\r
- if ( ft_memcmp( line, "_XFREE86_GLYPH_RANGES", 21 ) == 0 )\r
- goto Exit;\r
-\r
- /* Handle COMMENT fields and properties in a special way to preserve */\r
- /* the spacing. */\r
- if ( ft_memcmp( line, "COMMENT", 7 ) == 0 )\r
- {\r
- name = value = line;\r
- value += 7;\r
- if ( *value )\r
- *value++ = 0;\r
- error = _bdf_add_property( p->font, name, value );\r
- if ( error )\r
- goto Exit;\r
- }\r
- else if ( _bdf_is_atom( line, linelen, &name, &value, p->font ) )\r
- {\r
- error = _bdf_add_property( p->font, name, value );\r
- if ( error )\r
- goto Exit;\r
- }\r
- else\r
- {\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
- name = p->list.field[0];\r
-\r
- _bdf_list_shift( &p->list, 1 );\r
- value = _bdf_list_join( &p->list, ' ', &vlen );\r
-\r
- error = _bdf_add_property( p->font, name, value );\r
- if ( error )\r
- goto Exit;\r
- }\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- /* Load the font header. */\r
- static FT_Error\r
- _bdf_parse_start( char* line,\r
- unsigned long linelen,\r
- unsigned long lineno,\r
- void* call_data,\r
- void* client_data )\r
- {\r
- unsigned long slen;\r
- _bdf_line_func_t* next;\r
- _bdf_parse_t* p;\r
- bdf_font_t* font;\r
- char *s;\r
-\r
- FT_Memory memory = NULL;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
- FT_UNUSED( lineno ); /* only used in debug mode */\r
-\r
-\r
- next = (_bdf_line_func_t *)call_data;\r
- p = (_bdf_parse_t *) client_data;\r
-\r
- if ( p->font )\r
- memory = p->font->memory;\r
-\r
- /* Check for a comment. This is done to handle those fonts that have */\r
- /* comments before the STARTFONT line for some reason. */\r
- if ( ft_memcmp( line, "COMMENT", 7 ) == 0 )\r
- {\r
- if ( p->opts->keep_comments != 0 && p->font != 0 )\r
- {\r
- linelen -= 7;\r
-\r
- s = line + 7;\r
- if ( *s != 0 )\r
- {\r
- s++;\r
- linelen--;\r
- }\r
-\r
- error = _bdf_add_comment( p->font, s, linelen );\r
- if ( error )\r
- goto Exit;\r
- /* here font is not defined! */\r
- }\r
-\r
- goto Exit;\r
- }\r
-\r
- if ( !( p->flags & _BDF_START ) )\r
- {\r
- memory = p->memory;\r
-\r
- if ( ft_memcmp( line, "STARTFONT", 9 ) != 0 )\r
- {\r
- /* No STARTFONT field is a good indication of a problem. */\r
- error = BDF_Err_Missing_Startfont_Field;\r
- goto Exit;\r
- }\r
-\r
- p->flags = _BDF_START;\r
- font = p->font = 0;\r
-\r
- if ( FT_NEW( font ) )\r
- goto Exit;\r
- p->font = font;\r
-\r
- font->memory = p->memory;\r
- p->memory = 0;\r
-\r
- { /* setup */\r
- unsigned long i;\r
- bdf_property_t* prop;\r
-\r
-\r
- error = hash_init( &(font->proptbl), memory );\r
- if ( error )\r
- goto Exit;\r
- for ( i = 0, prop = (bdf_property_t*)_bdf_properties;\r
- i < _num_bdf_properties; i++, prop++ )\r
- {\r
- error = hash_insert( prop->name, (void *)i,\r
- &(font->proptbl), memory );\r
- if ( error )\r
- goto Exit;\r
- }\r
- }\r
-\r
- if ( FT_ALLOC( p->font->internal, sizeof ( hashtable ) ) )\r
- goto Exit;\r
- error = hash_init( (hashtable *)p->font->internal,memory );\r
- if ( error )\r
- goto Exit;\r
- p->font->spacing = p->opts->font_spacing;\r
- p->font->default_char = -1;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Check for the start of the properties. */\r
- if ( ft_memcmp( line, "STARTPROPERTIES", 15 ) == 0 )\r
- {\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
- p->cnt = p->font->props_size = _bdf_atoul( p->list.field[1], 0, 10 );\r
-\r
- if ( FT_NEW_ARRAY( p->font->props, p->cnt ) )\r
- goto Exit;\r
-\r
- p->flags |= _BDF_PROPS;\r
- *next = _bdf_parse_properties;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Check for the FONTBOUNDINGBOX field. */\r
- if ( ft_memcmp( line, "FONTBOUNDINGBOX", 15 ) == 0 )\r
- {\r
- if ( !(p->flags & _BDF_SIZE ) )\r
- {\r
- /* Missing the SIZE field. */\r
- FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "SIZE" ));\r
- error = BDF_Err_Missing_Size_Field;\r
- goto Exit;\r
- }\r
-\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
-\r
- p->font->bbx.width = _bdf_atos( p->list.field[1], 0, 10 );\r
- p->font->bbx.height = _bdf_atos( p->list.field[2], 0, 10 );\r
-\r
- p->font->bbx.x_offset = _bdf_atos( p->list.field[3], 0, 10 );\r
- p->font->bbx.y_offset = _bdf_atos( p->list.field[4], 0, 10 );\r
-\r
- p->font->bbx.ascent = (short)( p->font->bbx.height +\r
- p->font->bbx.y_offset );\r
-\r
- p->font->bbx.descent = (short)( -p->font->bbx.y_offset );\r
-\r
- p->flags |= _BDF_FONT_BBX;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* The next thing to check for is the FONT field. */\r
- if ( ft_memcmp( line, "FONT", 4 ) == 0 )\r
- {\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
- _bdf_list_shift( &p->list, 1 );\r
-\r
- s = _bdf_list_join( &p->list, ' ', &slen );\r
-\r
- if ( !s )\r
- {\r
- error = BDF_Err_Invalid_File_Format;\r
- goto Exit;\r
- }\r
-\r
- if ( FT_NEW_ARRAY( p->font->name, slen + 1 ) )\r
- goto Exit;\r
- FT_MEM_COPY( p->font->name, s, slen + 1 );\r
-\r
- /* If the font name is an XLFD name, set the spacing to the one in */\r
- /* the font name. If there is no spacing fall back on the default. */\r
- error = _bdf_set_default_spacing( p->font, p->opts );\r
- if ( error )\r
- goto Exit;\r
-\r
- p->flags |= _BDF_FONT_NAME;\r
-\r
- goto Exit;\r
- }\r
-\r
- /* Check for the SIZE field. */\r
- if ( ft_memcmp( line, "SIZE", 4 ) == 0 )\r
- {\r
- if ( !( p->flags & _BDF_FONT_NAME ) )\r
- {\r
- /* Missing the FONT field. */\r
- FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "FONT" ));\r
- error = BDF_Err_Missing_Font_Field;\r
- goto Exit;\r
- }\r
-\r
- error = _bdf_list_split( &p->list, (char *)" +", line, linelen );\r
- if ( error )\r
- goto Exit;\r
-\r
- p->font->point_size = _bdf_atoul( p->list.field[1], 0, 10 );\r
- p->font->resolution_x = _bdf_atoul( p->list.field[2], 0, 10 );\r
- p->font->resolution_y = _bdf_atoul( p->list.field[3], 0, 10 );\r
-\r
- /* Check for the bits per pixel field. */\r
- if ( p->list.used == 5 )\r
- {\r
- unsigned short bitcount, i, shift;\r
-\r
-\r
- p->font->bpp = (unsigned short)_bdf_atos( p->list.field[4], 0, 10 );\r
-\r
- /* Only values 1, 2, 4, 8 are allowed. */\r
- shift = p->font->bpp;\r
- bitcount = 0;\r
- for ( i = 0; shift > 0; i++ )\r
- {\r
- if ( shift & 1 )\r
- bitcount = i;\r
- shift >>= 1;\r
- }\r
-\r
- shift = (short)( ( bitcount > 3 ) ? 8 : ( 1 << bitcount ) );\r
-\r
- if ( p->font->bpp > shift || p->font->bpp != shift )\r
- {\r
- /* select next higher value */\r
- p->font->bpp = (unsigned short)( shift << 1 );\r
- FT_TRACE2(( "_bdf_parse_start: " ACMSG11, p->font->bpp ));\r
- }\r
- }\r
- else\r
- p->font->bpp = 1;\r
-\r
- p->flags |= _BDF_SIZE;\r
-\r
- goto Exit;\r
- }\r
-\r
- error = BDF_Err_Invalid_File_Format;\r
-\r
- Exit:\r
- return error;\r
- }\r
-\r
-\r
- /*************************************************************************/\r
- /* */\r
- /* API. */\r
- /* */\r
- /*************************************************************************/\r
-\r
-\r
- FT_LOCAL_DEF( FT_Error )\r
- bdf_load_font( FT_Stream stream,\r
- FT_Memory extmemory,\r
- bdf_options_t* opts,\r
- bdf_font_t* *font )\r
- {\r
- unsigned long lineno = 0; /* make compiler happy */\r
- _bdf_parse_t *p;\r
-\r
- FT_Memory memory = extmemory;\r
- FT_Error error = BDF_Err_Ok;\r
-\r
-\r
- if ( FT_NEW( p ) )\r
- goto Exit;\r
-\r
- memory = NULL;\r
- p->opts = (bdf_options_t*)( ( opts != 0 ) ? opts : &_bdf_opts );\r
- p->minlb = 32767;\r
- p->memory = extmemory; /* only during font creation */\r
-\r
- _bdf_list_init( &p->list, extmemory );\r
-\r
- error = _bdf_readstream( stream, _bdf_parse_start,\r
- (void *)p, &lineno );\r
- if ( error )\r
- goto Fail;\r
-\r
- if ( p->font != 0 )\r
- {\r
- /* If the font is not proportional, set the font's monowidth */\r
- /* field to the width of the font bounding box. */\r
- memory = p->font->memory;\r
-\r
- if ( p->font->spacing != BDF_PROPORTIONAL )\r
- p->font->monowidth = p->font->bbx.width;\r
-\r
- /* If the number of glyphs loaded is not that of the original count, */\r
- /* indicate the difference. */\r
- if ( p->cnt != p->font->glyphs_used + p->font->unencoded_used )\r
- {\r
- FT_TRACE2(( "bdf_load_font: " ACMSG15, p->cnt,\r
- p->font->glyphs_used + p->font->unencoded_used ));\r
- p->font->modified = 1;\r
- }\r
-\r
- /* Once the font has been loaded, adjust the overall font metrics if */\r
- /* necessary. */\r
- if ( p->opts->correct_metrics != 0 &&\r
- ( p->font->glyphs_used > 0 || p->font->unencoded_used > 0 ) )\r
- {\r
- if ( p->maxrb - p->minlb != p->font->bbx.width )\r
- {\r
- FT_TRACE2(( "bdf_load_font: " ACMSG3,\r
- p->font->bbx.width, p->maxrb - p->minlb ));\r
- p->font->bbx.width = (unsigned short)( p->maxrb - p->minlb );\r
- p->font->modified = 1;\r
- }\r
-\r
- if ( p->font->bbx.x_offset != p->minlb )\r
- {\r
- FT_TRACE2(( "bdf_load_font: " ACMSG4,\r
- p->font->bbx.x_offset, p->minlb ));\r
- p->font->bbx.x_offset = p->minlb;\r
- p->font->modified = 1;\r
- }\r
-\r
- if ( p->font->bbx.ascent != p->maxas )\r
- {\r
- FT_TRACE2(( "bdf_load_font: " ACMSG5,\r
- p->font->bbx.ascent, p->maxas ));\r
- p->font->bbx.ascent = p->maxas;\r
- p->font->modified = 1;\r
- }\r
-\r
- if ( p->font->bbx.descent != p->maxds )\r
- {\r
- FT_TRACE2(( "bdf_load_font: " ACMSG6,\r
- p->font->bbx.descent, p->maxds ));\r
- p->font->bbx.descent = p->maxds;\r
- p->font->bbx.y_offset = (short)( -p->maxds );\r
- p->font->modified = 1;\r
- }\r
-\r
- if ( p->maxas + p->maxds != p->font->bbx.height )\r
- {\r
- FT_TRACE2(( "bdf_load_font: " ACMSG7,\r
- p->font->bbx.height, p->maxas + p->maxds ));\r
- p->font->bbx.height = (unsigned short)( p->maxas + p->maxds );\r
- }\r
-\r
- if ( p->flags & _BDF_SWIDTH_ADJ )\r
- FT_TRACE2(( "bdf_load_font: " ACMSG8 ));\r
- }\r
- }\r
-\r
- if ( p->flags & _BDF_START )\r
- {\r
- {\r
- /* The ENDFONT field was never reached or did not exist. */\r
- if ( !( p->flags & _BDF_GLYPHS ) )\r
- {\r
- /* Error happened while parsing header. */\r
- FT_ERROR(( "bdf_load_font: " ERRMSG2, lineno ));\r
- error = BDF_Err_Corrupted_Font_Header;\r
- goto Exit;\r
- }\r
- else\r
- {\r
- /* Error happened when parsing glyphs. */\r
- FT_ERROR(( "bdf_load_font: " ERRMSG3, lineno ));\r
- error = BDF_Err_Corrupted_Font_Glyphs;\r
- goto Exit;\r
- }\r
- }\r
- }\r
-\r
- if ( p->font != 0 )\r
- {\r
- /* Make sure the comments are NULL terminated if they exist. */\r
- memory = p->font->memory;\r
-\r
- if ( p->font->comments_len > 0 ) {\r
- if ( FT_RENEW_ARRAY( p->font->comments,\r
- p->font->comments_len,\r
- p->font->comments_len + 1 ) )\r
- goto Fail;\r
-\r
- p->font->comments[p->font->comments_len] = 0;\r
- }\r
- }\r
- else if ( error == BDF_Err_Ok )\r
- error = BDF_Err_Invalid_File_Format;\r
-\r
- *font = p->font;\r
-\r
- Exit:\r
- if ( p )\r
- {\r
- _bdf_list_done( &p->list );\r
-\r
- memory = extmemory;\r
-\r
- FT_FREE( p );\r
- }\r
-\r
- return error;\r
-\r
- Fail:\r
- bdf_free_font( p->font );\r
-\r
- memory = extmemory;\r
-\r
- FT_FREE( p->font );\r
-\r
- goto Exit;\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( void )\r
- bdf_free_font( bdf_font_t* font )\r
- {\r
- bdf_property_t* prop;\r
- unsigned long i;\r
- bdf_glyph_t* glyphs;\r
- FT_Memory memory;\r
-\r
-\r
- if ( font == 0 )\r
- return;\r
-\r
- memory = font->memory;\r
-\r
- FT_FREE( font->name );\r
-\r
- /* Free up the internal hash table of property names. */\r
- if ( font->internal )\r
- {\r
- hash_free( (hashtable *)font->internal, memory );\r
- FT_FREE( font->internal );\r
- }\r
-\r
- /* Free up the comment info. */\r
- FT_FREE( font->comments );\r
-\r
- /* Free up the properties. */\r
- for ( i = 0; i < font->props_size; i++ )\r
- {\r
- if ( font->props[i].format == BDF_ATOM )\r
- FT_FREE( font->props[i].value.atom );\r
- }\r
-\r
- FT_FREE( font->props );\r
-\r
- /* Free up the character info. */\r
- for ( i = 0, glyphs = font->glyphs;\r
- i < font->glyphs_used; i++, glyphs++ )\r
- {\r
- FT_FREE( glyphs->name );\r
- FT_FREE( glyphs->bitmap );\r
- }\r
-\r
- for ( i = 0, glyphs = font->unencoded; i < font->unencoded_used;\r
- i++, glyphs++ )\r
- {\r
- FT_FREE( glyphs->name );\r
- FT_FREE( glyphs->bitmap );\r
- }\r
-\r
- FT_FREE( font->glyphs );\r
- FT_FREE( font->unencoded );\r
-\r
- /* Free up the overflow storage if it was used. */\r
- for ( i = 0, glyphs = font->overflow.glyphs;\r
- i < font->overflow.glyphs_used; i++, glyphs++ )\r
- {\r
- FT_FREE( glyphs->name );\r
- FT_FREE( glyphs->bitmap );\r
- }\r
-\r
- FT_FREE( font->overflow.glyphs );\r
-\r
- /* bdf_cleanup */\r
- hash_free( &(font->proptbl), memory );\r
-\r
- /* Free up the user defined properties. */\r
- for (prop = font->user_props, i = 0;\r
- i < font->nuser_props; i++, prop++ )\r
- {\r
- FT_FREE( prop->name );\r
- if ( prop->format == BDF_ATOM )\r
- FT_FREE( prop->value.atom );\r
- }\r
-\r
- FT_FREE( font->user_props );\r
-\r
- /* FREE( font ); */ /* XXX Fixme */\r
- }\r
-\r
-\r
- FT_LOCAL_DEF( bdf_property_t * )\r
- bdf_get_font_property( bdf_font_t* font,\r
- const char* name )\r
- {\r
- hashnode hn;\r
-\r
-\r
- if ( font == 0 || font->props_size == 0 || name == 0 || *name == 0 )\r
- return 0;\r
-\r
- hn = hash_lookup( name, (hashtable *)font->internal );\r
-\r
- return hn ? ( font->props + (unsigned long)hn->data ) : 0;\r
- }\r
-\r
-\r
-/* END */\r
+/*
+ * Copyright 2000 Computing Research Labs, New Mexico State University
+ * Copyright 2001, 2002, 2003, 2004, 2005, 2006, 2007
+ * Francesco Zappa Nardelli
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a
+ * copy of this software and associated documentation files (the "Software"),
+ * to deal in the Software without restriction, including without limitation
+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,
+ * and/or sell copies of the Software, and to permit persons to whom the
+ * Software is furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+ * THE COMPUTING RESEARCH LAB OR NEW MEXICO STATE UNIVERSITY BE LIABLE FOR ANY
+ * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT
+ * OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
+ * THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+ /*************************************************************************/
+ /* */
+ /* This file is based on bdf.c,v 1.22 2000/03/16 20:08:50 */
+ /* */
+ /* taken from Mark Leisher's xmbdfed package */
+ /* */
+ /*************************************************************************/
+
+
+#include <ft2build.h>
+
+#include FT_FREETYPE_H
+#include FT_INTERNAL_DEBUG_H
+#include FT_INTERNAL_STREAM_H
+#include FT_INTERNAL_OBJECTS_H
+
+#include "bdf.h"
+#include "bdferror.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_bdflib
+
+
+ /*************************************************************************/
+ /* */
+ /* Default BDF font options. */
+ /* */
+ /*************************************************************************/
+
+
+ static const bdf_options_t _bdf_opts =
+ {
+ 1, /* Correct metrics. */
+ 1, /* Preserve unencoded glyphs. */
+ 0, /* Preserve comments. */
+ BDF_PROPORTIONAL /* Default spacing. */
+ };
+
+
+ /*************************************************************************/
+ /* */
+ /* Builtin BDF font properties. */
+ /* */
+ /*************************************************************************/
+
+ /* List of most properties that might appear in a font. Doesn't include */
+ /* the RAW_* and AXIS_* properties in X11R6 polymorphic fonts. */
+
+ static const bdf_property_t _bdf_properties[] =
+ {
+ { (char *)"ADD_STYLE_NAME", BDF_ATOM, 1, { 0 } },
+ { (char *)"AVERAGE_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"AVG_CAPITAL_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"AVG_LOWERCASE_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"CAP_HEIGHT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"CHARSET_COLLECTIONS", BDF_ATOM, 1, { 0 } },
+ { (char *)"CHARSET_ENCODING", BDF_ATOM, 1, { 0 } },
+ { (char *)"CHARSET_REGISTRY", BDF_ATOM, 1, { 0 } },
+ { (char *)"COMMENT", BDF_ATOM, 1, { 0 } },
+ { (char *)"COPYRIGHT", BDF_ATOM, 1, { 0 } },
+ { (char *)"DEFAULT_CHAR", BDF_CARDINAL, 1, { 0 } },
+ { (char *)"DESTINATION", BDF_CARDINAL, 1, { 0 } },
+ { (char *)"DEVICE_FONT_NAME", BDF_ATOM, 1, { 0 } },
+ { (char *)"END_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"FACE_NAME", BDF_ATOM, 1, { 0 } },
+ { (char *)"FAMILY_NAME", BDF_ATOM, 1, { 0 } },
+ { (char *)"FIGURE_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"FONT", BDF_ATOM, 1, { 0 } },
+ { (char *)"FONTNAME_REGISTRY", BDF_ATOM, 1, { 0 } },
+ { (char *)"FONT_ASCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"FONT_DESCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"FOUNDRY", BDF_ATOM, 1, { 0 } },
+ { (char *)"FULL_NAME", BDF_ATOM, 1, { 0 } },
+ { (char *)"ITALIC_ANGLE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"MAX_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"MIN_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"NORM_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"NOTICE", BDF_ATOM, 1, { 0 } },
+ { (char *)"PIXEL_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"POINT_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"QUAD_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_ASCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_AVERAGE_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_AVG_CAPITAL_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_AVG_LOWERCASE_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_CAP_HEIGHT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_DESCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_END_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_FIGURE_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_MAX_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_MIN_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_NORM_SPACE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_PIXEL_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_POINT_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_PIXELSIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_POINTSIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_QUAD_WIDTH", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_SMALL_CAP_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_STRIKEOUT_ASCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_STRIKEOUT_DESCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_SUBSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_SUBSCRIPT_X", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_SUBSCRIPT_Y", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_SUPERSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_SUPERSCRIPT_X", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_SUPERSCRIPT_Y", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_UNDERLINE_POSITION", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_UNDERLINE_THICKNESS", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RAW_X_HEIGHT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RELATIVE_SETWIDTH", BDF_CARDINAL, 1, { 0 } },
+ { (char *)"RELATIVE_WEIGHT", BDF_CARDINAL, 1, { 0 } },
+ { (char *)"RESOLUTION", BDF_INTEGER, 1, { 0 } },
+ { (char *)"RESOLUTION_X", BDF_CARDINAL, 1, { 0 } },
+ { (char *)"RESOLUTION_Y", BDF_CARDINAL, 1, { 0 } },
+ { (char *)"SETWIDTH_NAME", BDF_ATOM, 1, { 0 } },
+ { (char *)"SLANT", BDF_ATOM, 1, { 0 } },
+ { (char *)"SMALL_CAP_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"SPACING", BDF_ATOM, 1, { 0 } },
+ { (char *)"STRIKEOUT_ASCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"STRIKEOUT_DESCENT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"SUBSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"SUBSCRIPT_X", BDF_INTEGER, 1, { 0 } },
+ { (char *)"SUBSCRIPT_Y", BDF_INTEGER, 1, { 0 } },
+ { (char *)"SUPERSCRIPT_SIZE", BDF_INTEGER, 1, { 0 } },
+ { (char *)"SUPERSCRIPT_X", BDF_INTEGER, 1, { 0 } },
+ { (char *)"SUPERSCRIPT_Y", BDF_INTEGER, 1, { 0 } },
+ { (char *)"UNDERLINE_POSITION", BDF_INTEGER, 1, { 0 } },
+ { (char *)"UNDERLINE_THICKNESS", BDF_INTEGER, 1, { 0 } },
+ { (char *)"WEIGHT", BDF_CARDINAL, 1, { 0 } },
+ { (char *)"WEIGHT_NAME", BDF_ATOM, 1, { 0 } },
+ { (char *)"X_HEIGHT", BDF_INTEGER, 1, { 0 } },
+ { (char *)"_MULE_BASELINE_OFFSET", BDF_INTEGER, 1, { 0 } },
+ { (char *)"_MULE_RELATIVE_COMPOSE", BDF_INTEGER, 1, { 0 } },
+ };
+
+ static const unsigned long
+ _num_bdf_properties = sizeof ( _bdf_properties ) /
+ sizeof ( _bdf_properties[0] );
+
+
+ /*************************************************************************/
+ /* */
+ /* Hash table utilities for the properties. */
+ /* */
+ /*************************************************************************/
+
+ /* XXX: Replace this with FreeType's hash functions */
+
+
+#define INITIAL_HT_SIZE 241
+
+ typedef void
+ (*hash_free_func)( hashnode node );
+
+ static hashnode*
+ hash_bucket( const char* key,
+ hashtable* ht )
+ {
+ const char* kp = key;
+ unsigned long res = 0;
+ hashnode* bp = ht->table, *ndp;
+
+
+ /* Mocklisp hash function. */
+ while ( *kp )
+ res = ( res << 5 ) - res + *kp++;
+
+ ndp = bp + ( res % ht->size );
+ while ( *ndp )
+ {
+ kp = (*ndp)->key;
+ if ( kp[0] == key[0] && ft_strcmp( kp, key ) == 0 )
+ break;
+ ndp--;
+ if ( ndp < bp )
+ ndp = bp + ( ht->size - 1 );
+ }
+
+ return ndp;
+ }
+
+
+ static FT_Error
+ hash_rehash( hashtable* ht,
+ FT_Memory memory )
+ {
+ hashnode* obp = ht->table, *bp, *nbp;
+ int i, sz = ht->size;
+ FT_Error error = BDF_Err_Ok;
+
+
+ ht->size <<= 1;
+ ht->limit = ht->size / 3;
+
+ if ( FT_NEW_ARRAY( ht->table, ht->size ) )
+ goto Exit;
+
+ for ( i = 0, bp = obp; i < sz; i++, bp++ )
+ {
+ if ( *bp )
+ {
+ nbp = hash_bucket( (*bp)->key, ht );
+ *nbp = *bp;
+ }
+ }
+ FT_FREE( obp );
+
+ Exit:
+ return error;
+ }
+
+
+ static FT_Error
+ hash_init( hashtable* ht,
+ FT_Memory memory )
+ {
+ int sz = INITIAL_HT_SIZE;
+ FT_Error error = BDF_Err_Ok;
+
+
+ ht->size = sz;
+ ht->limit = sz / 3;
+ ht->used = 0;
+
+ if ( FT_NEW_ARRAY( ht->table, sz ) )
+ goto Exit;
+
+ Exit:
+ return error;
+ }
+
+
+ static void
+ hash_free( hashtable* ht,
+ FT_Memory memory )
+ {
+ if ( ht != 0 )
+ {
+ int i, sz = ht->size;
+ hashnode* bp = ht->table;
+
+
+ for ( i = 0; i < sz; i++, bp++ )
+ FT_FREE( *bp );
+
+ FT_FREE( ht->table );
+ }
+ }
+
+
+ static FT_Error
+ hash_insert( char* key,
+ void* data,
+ hashtable* ht,
+ FT_Memory memory )
+ {
+ hashnode nn, *bp = hash_bucket( key, ht );
+ FT_Error error = BDF_Err_Ok;
+
+
+ nn = *bp;
+ if ( !nn )
+ {
+ if ( FT_NEW( nn ) )
+ goto Exit;
+ *bp = nn;
+
+ nn->key = key;
+ nn->data = data;
+
+ if ( ht->used >= ht->limit )
+ {
+ error = hash_rehash( ht, memory );
+ if ( error )
+ goto Exit;
+ }
+ ht->used++;
+ }
+ else
+ nn->data = data;
+
+ Exit:
+ return error;
+ }
+
+
+ static hashnode
+ hash_lookup( const char* key,
+ hashtable* ht )
+ {
+ hashnode *np = hash_bucket( key, ht );
+
+
+ return *np;
+ }
+
+
+ /*************************************************************************/
+ /* */
+ /* Utility types and functions. */
+ /* */
+ /*************************************************************************/
+
+
+ /* Function type for parsing lines of a BDF font. */
+
+ typedef FT_Error
+ (*_bdf_line_func_t)( char* line,
+ unsigned long linelen,
+ unsigned long lineno,
+ void* call_data,
+ void* client_data );
+
+
+ /* List structure for splitting lines into fields. */
+
+ typedef struct _bdf_list_t_
+ {
+ char** field;
+ unsigned long size;
+ unsigned long used;
+ FT_Memory memory;
+
+ } _bdf_list_t;
+
+
+ /* Structure used while loading BDF fonts. */
+
+ typedef struct _bdf_parse_t_
+ {
+ unsigned long flags;
+ unsigned long cnt;
+ unsigned long row;
+
+ short minlb;
+ short maxlb;
+ short maxrb;
+ short maxas;
+ short maxds;
+
+ short rbearing;
+
+ char* glyph_name;
+ long glyph_enc;
+
+ bdf_font_t* font;
+ bdf_options_t* opts;
+
+ unsigned long have[2048];
+ _bdf_list_t list;
+
+ FT_Memory memory;
+
+ } _bdf_parse_t;
+
+
+#define setsbit( m, cc ) \
+ ( m[(FT_Byte)(cc) >> 3] |= (FT_Byte)( 1 << ( (cc) & 7 ) ) )
+#define sbitset( m, cc ) \
+ ( m[(FT_Byte)(cc) >> 3] & ( 1 << ( (cc) & 7 ) ) )
+
+
+ static void
+ _bdf_list_init( _bdf_list_t* list,
+ FT_Memory memory )
+ {
+ FT_ZERO( list );
+ list->memory = memory;
+ }
+
+
+ static void
+ _bdf_list_done( _bdf_list_t* list )
+ {
+ FT_Memory memory = list->memory;
+
+
+ if ( memory )
+ {
+ FT_FREE( list->field );
+ FT_ZERO( list );
+ }
+ }
+
+
+ static FT_Error
+ _bdf_list_ensure( _bdf_list_t* list,
+ int num_items )
+ {
+ FT_Error error = BDF_Err_Ok;
+
+
+ if ( num_items > (int)list->size )
+ {
+ int oldsize = list->size;
+ int newsize = oldsize + ( oldsize >> 1 ) + 4;
+ int bigsize = FT_INT_MAX / sizeof ( char* );
+ FT_Memory memory = list->memory;
+
+
+ if ( oldsize == bigsize )
+ {
+ error = BDF_Err_Out_Of_Memory;
+ goto Exit;
+ }
+ else if ( newsize < oldsize || newsize > bigsize )
+ newsize = bigsize;
+
+ if ( FT_RENEW_ARRAY( list->field, oldsize, newsize ) )
+ goto Exit;
+
+ list->size = newsize;
+ }
+
+ Exit:
+ return error;
+ }
+
+
+ static void
+ _bdf_list_shift( _bdf_list_t* list,
+ unsigned long n )
+ {
+ unsigned long i, u;
+
+
+ if ( list == 0 || list->used == 0 || n == 0 )
+ return;
+
+ if ( n >= list->used )
+ {
+ list->used = 0;
+ return;
+ }
+
+ for ( u = n, i = 0; u < list->used; i++, u++ )
+ list->field[i] = list->field[u];
+ list->used -= n;
+ }
+
+
+ static char *
+ _bdf_list_join( _bdf_list_t* list,
+ int c,
+ unsigned long *alen )
+ {
+ unsigned long i, j;
+ char *fp, *dp;
+
+
+ *alen = 0;
+
+ if ( list == 0 || list->used == 0 )
+ return 0;
+
+ dp = list->field[0];
+ for ( i = j = 0; i < list->used; i++ )
+ {
+ fp = list->field[i];
+ while ( *fp )
+ dp[j++] = *fp++;
+
+ if ( i + 1 < list->used )
+ dp[j++] = (char)c;
+ }
+ dp[j] = 0;
+
+ *alen = j;
+ return dp;
+ }
+
+
+ /* An empty string for empty fields. */
+
+ static const char empty[1] = { 0 }; /* XXX eliminate this */
+
+
+ static FT_Error
+ _bdf_list_split( _bdf_list_t* list,
+ char* separators,
+ char* line,
+ unsigned long linelen )
+ {
+ int mult, final_empty;
+ char *sp, *ep, *end;
+ char seps[32];
+ FT_Error error = BDF_Err_Ok;
+
+
+ /* Initialize the list. */
+ list->used = 0;
+
+ /* If the line is empty, then simply return. */
+ if ( linelen == 0 || line[0] == 0 )
+ goto Exit;
+
+ /* In the original code, if the `separators' parameter is NULL or */
+ /* empty, the list is split into individual bytes. We don't need */
+ /* this, so an error is signaled. */
+ if ( separators == 0 || *separators == 0 )
+ {
+ error = BDF_Err_Invalid_Argument;
+ goto Exit;
+ }
+
+ /* Prepare the separator bitmap. */
+ FT_MEM_ZERO( seps, 32 );
+
+ /* If the very last character of the separator string is a plus, then */
+ /* set the `mult' flag to indicate that multiple separators should be */
+ /* collapsed into one. */
+ for ( mult = 0, sp = separators; sp && *sp; sp++ )
+ {
+ if ( *sp == '+' && *( sp + 1 ) == 0 )
+ mult = 1;
+ else
+ setsbit( seps, *sp );
+ }
+
+ /* Break the line up into fields. */
+ for ( final_empty = 0, sp = ep = line, end = sp + linelen;
+ sp < end && *sp; )
+ {
+ /* Collect everything that is not a separator. */
+ for ( ; *ep && !sbitset( seps, *ep ); ep++ )
+ ;
+
+ /* Resize the list if necessary. */
+ if ( list->used == list->size )
+ {
+ error = _bdf_list_ensure( list, list->used + 1 );
+ if ( error )
+ goto Exit;
+ }
+
+ /* Assign the field appropriately. */
+ list->field[list->used++] = ( ep > sp ) ? sp : (char*)empty;
+
+ sp = ep;
+
+ if ( mult )
+ {
+ /* If multiple separators should be collapsed, do it now by */
+ /* setting all the separator characters to 0. */
+ for ( ; *ep && sbitset( seps, *ep ); ep++ )
+ *ep = 0;
+ }
+ else if ( *ep != 0 )
+ /* Don't collapse multiple separators by making them 0, so just */
+ /* make the one encountered 0. */
+ *ep++ = 0;
+
+ final_empty = ( ep > sp && *ep == 0 );
+ sp = ep;
+ }
+
+ /* Finally, NULL-terminate the list. */
+ if ( list->used + final_empty >= list->size )
+ {
+ error = _bdf_list_ensure( list, list->used + final_empty + 1 );
+ if ( error )
+ goto Exit;
+ }
+
+ if ( final_empty )
+ list->field[list->used++] = (char*)empty;
+
+ list->field[list->used] = 0;
+
+ Exit:
+ return error;
+ }
+
+
+#define NO_SKIP 256 /* this value cannot be stored in a 'char' */
+
+
+ static FT_Error
+ _bdf_readstream( FT_Stream stream,
+ _bdf_line_func_t callback,
+ void* client_data,
+ unsigned long *lno )
+ {
+ _bdf_line_func_t cb;
+ unsigned long lineno, buf_size;
+ int refill, bytes, hold, to_skip;
+ int start, end, cursor, avail;
+ char* buf = 0;
+ FT_Memory memory = stream->memory;
+ FT_Error error = BDF_Err_Ok;
+
+
+ if ( callback == 0 )
+ {
+ error = BDF_Err_Invalid_Argument;
+ goto Exit;
+ }
+
+ /* initial size and allocation of the input buffer */
+ buf_size = 1024;
+
+ if ( FT_NEW_ARRAY( buf, buf_size ) )
+ goto Exit;
+
+ cb = callback;
+ lineno = 1;
+ buf[0] = 0;
+ start = 0;
+ end = 0;
+ avail = 0;
+ cursor = 0;
+ refill = 1;
+ to_skip = NO_SKIP;
+ bytes = 0; /* make compiler happy */
+
+ for (;;)
+ {
+ if ( refill )
+ {
+ bytes = (int)FT_Stream_TryRead( stream, (FT_Byte*)buf + cursor,
+ (FT_ULong)(buf_size - cursor) );
+ avail = cursor + bytes;
+ cursor = 0;
+ refill = 0;
+ }
+
+ end = start;
+
+ /* should we skip an optional character like \n or \r? */
+ if ( start < avail && buf[start] == to_skip )
+ {
+ start += 1;
+ to_skip = NO_SKIP;
+ continue;
+ }
+
+ /* try to find the end of the line */
+ while ( end < avail && buf[end] != '\n' && buf[end] != '\r' )
+ end++;
+
+ /* if we hit the end of the buffer, try shifting its content */
+ /* or even resizing it */
+ if ( end >= avail )
+ {
+ if ( bytes == 0 ) /* last line in file doesn't end in \r or \n */
+ break; /* ignore it then exit */
+
+ if ( start == 0 )
+ {
+ /* this line is definitely too long; try resizing the input */
+ /* buffer a bit to handle it. */
+ FT_ULong new_size;
+
+
+ if ( buf_size >= 65536UL ) /* limit ourselves to 64KByte */
+ {
+ error = BDF_Err_Invalid_Argument;
+ goto Exit;
+ }
+
+ new_size = buf_size * 2;
+ if ( FT_RENEW_ARRAY( buf, buf_size, new_size ) )
+ goto Exit;
+
+ cursor = buf_size;
+ buf_size = new_size;
+ }
+ else
+ {
+ bytes = avail - start;
+
+ FT_MEM_COPY( buf, buf + start, bytes );
+
+ cursor = bytes;
+ avail -= bytes;
+ start = 0;
+ }
+ refill = 1;
+ continue;
+ }
+
+ /* Temporarily NUL-terminate the line. */
+ hold = buf[end];
+ buf[end] = 0;
+
+ /* XXX: Use encoding independent value for 0x1a */
+ if ( buf[start] != '#' && buf[start] != 0x1a && end > start )
+ {
+ error = (*cb)( buf + start, end - start, lineno,
+ (void*)&cb, client_data );
+ if ( error )
+ break;
+ }
+
+ lineno += 1;
+ buf[end] = (char)hold;
+ start = end + 1;
+
+ if ( hold == '\n' )
+ to_skip = '\r';
+ else if ( hold == '\r' )
+ to_skip = '\n';
+ else
+ to_skip = NO_SKIP;
+ }
+
+ *lno = lineno;
+
+ Exit:
+ FT_FREE( buf );
+ return error;
+ }
+
+
+ /* XXX: make this work with EBCDIC also */
+
+ static const unsigned char a2i[128] =
+ {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
+ };
+
+ static const unsigned char odigits[32] =
+ {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ };
+
+ static const unsigned char ddigits[32] =
+ {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x03,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ };
+
+ static const unsigned char hdigits[32] =
+ {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x03,
+ 0x7e, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ };
+
+
+#define isdigok( m, d ) (m[(d) >> 3] & ( 1 << ( (d) & 7 ) ) )
+
+
+ /* Routine to convert an ASCII string into an unsigned long integer. */
+ static unsigned long
+ _bdf_atoul( char* s,
+ char** end,
+ int base )
+ {
+ unsigned long v;
+ const unsigned char* dmap;
+
+
+ if ( s == 0 || *s == 0 )
+ return 0;
+
+ /* Make sure the radix is something recognizable. Default to 10. */
+ switch ( base )
+ {
+ case 8:
+ dmap = odigits;
+ break;
+ case 16:
+ dmap = hdigits;
+ break;
+ default:
+ base = 10;
+ dmap = ddigits;
+ break;
+ }
+
+ /* Check for the special hex prefix. */
+ if ( *s == '0' &&
+ ( *( s + 1 ) == 'x' || *( s + 1 ) == 'X' ) )
+ {
+ base = 16;
+ dmap = hdigits;
+ s += 2;
+ }
+
+ for ( v = 0; isdigok( dmap, *s ); s++ )
+ v = v * base + a2i[(int)*s];
+
+ if ( end != 0 )
+ *end = s;
+
+ return v;
+ }
+
+
+ /* Routine to convert an ASCII string into an signed long integer. */
+ static long
+ _bdf_atol( char* s,
+ char** end,
+ int base )
+ {
+ long v, neg;
+ const unsigned char* dmap;
+
+
+ if ( s == 0 || *s == 0 )
+ return 0;
+
+ /* Make sure the radix is something recognizable. Default to 10. */
+ switch ( base )
+ {
+ case 8:
+ dmap = odigits;
+ break;
+ case 16:
+ dmap = hdigits;
+ break;
+ default:
+ base = 10;
+ dmap = ddigits;
+ break;
+ }
+
+ /* Check for a minus sign. */
+ neg = 0;
+ if ( *s == '-' )
+ {
+ s++;
+ neg = 1;
+ }
+
+ /* Check for the special hex prefix. */
+ if ( *s == '0' &&
+ ( *( s + 1 ) == 'x' || *( s + 1 ) == 'X' ) )
+ {
+ base = 16;
+ dmap = hdigits;
+ s += 2;
+ }
+
+ for ( v = 0; isdigok( dmap, *s ); s++ )
+ v = v * base + a2i[(int)*s];
+
+ if ( end != 0 )
+ *end = s;
+
+ return ( !neg ) ? v : -v;
+ }
+
+
+ /* Routine to convert an ASCII string into an signed short integer. */
+ static short
+ _bdf_atos( char* s,
+ char** end,
+ int base )
+ {
+ short v, neg;
+ const unsigned char* dmap;
+
+
+ if ( s == 0 || *s == 0 )
+ return 0;
+
+ /* Make sure the radix is something recognizable. Default to 10. */
+ switch ( base )
+ {
+ case 8:
+ dmap = odigits;
+ break;
+ case 16:
+ dmap = hdigits;
+ break;
+ default:
+ base = 10;
+ dmap = ddigits;
+ break;
+ }
+
+ /* Check for a minus. */
+ neg = 0;
+ if ( *s == '-' )
+ {
+ s++;
+ neg = 1;
+ }
+
+ /* Check for the special hex prefix. */
+ if ( *s == '0' &&
+ ( *( s + 1 ) == 'x' || *( s + 1 ) == 'X' ) )
+ {
+ base = 16;
+ dmap = hdigits;
+ s += 2;
+ }
+
+ for ( v = 0; isdigok( dmap, *s ); s++ )
+ v = (short)( v * base + a2i[(int)*s] );
+
+ if ( end != 0 )
+ *end = s;
+
+ return (short)( ( !neg ) ? v : -v );
+ }
+
+
+ /* Routine to compare two glyphs by encoding so they can be sorted. */
+ static int
+ by_encoding( const void* a,
+ const void* b )
+ {
+ bdf_glyph_t *c1, *c2;
+
+
+ c1 = (bdf_glyph_t *)a;
+ c2 = (bdf_glyph_t *)b;
+
+ if ( c1->encoding < c2->encoding )
+ return -1;
+
+ if ( c1->encoding > c2->encoding )
+ return 1;
+
+ return 0;
+ }
+
+
+ static FT_Error
+ bdf_create_property( char* name,
+ int format,
+ bdf_font_t* font )
+ {
+ unsigned long n;
+ bdf_property_t* p;
+ FT_Memory memory = font->memory;
+ FT_Error error = BDF_Err_Ok;
+
+
+ /* First check to see if the property has */
+ /* already been added or not. If it has, then */
+ /* simply ignore it. */
+ if ( hash_lookup( name, &(font->proptbl) ) )
+ goto Exit;
+
+ if ( FT_RENEW_ARRAY( font->user_props,
+ font->nuser_props,
+ font->nuser_props + 1 ) )
+ goto Exit;
+
+ p = font->user_props + font->nuser_props;
+ FT_ZERO( p );
+
+ n = (unsigned long)( ft_strlen( name ) + 1 );
+
+ if ( FT_NEW_ARRAY( p->name, n ) )
+ goto Exit;
+
+ FT_MEM_COPY( (char *)p->name, name, n );
+
+ p->format = format;
+ p->builtin = 0;
+
+ n = _num_bdf_properties + font->nuser_props;
+
+ error = hash_insert( p->name, (void *)n, &(font->proptbl), memory );
+ if ( error )
+ goto Exit;
+
+ font->nuser_props++;
+
+ Exit:
+ return error;
+ }
+
+
+ FT_LOCAL_DEF( bdf_property_t * )
+ bdf_get_property( char* name,
+ bdf_font_t* font )
+ {
+ hashnode hn;
+ unsigned long propid;
+
+
+ if ( name == 0 || *name == 0 )
+ return 0;
+
+ if ( ( hn = hash_lookup( name, &(font->proptbl) ) ) == 0 )
+ return 0;
+
+ propid = (unsigned long)hn->data;
+ if ( propid >= _num_bdf_properties )
+ return font->user_props + ( propid - _num_bdf_properties );
+
+ return (bdf_property_t*)_bdf_properties + propid;
+ }
+
+
+ /*************************************************************************/
+ /* */
+ /* BDF font file parsing flags and functions. */
+ /* */
+ /*************************************************************************/
+
+
+ /* Parse flags. */
+
+#define _BDF_START 0x0001
+#define _BDF_FONT_NAME 0x0002
+#define _BDF_SIZE 0x0004
+#define _BDF_FONT_BBX 0x0008
+#define _BDF_PROPS 0x0010
+#define _BDF_GLYPHS 0x0020
+#define _BDF_GLYPH 0x0040
+#define _BDF_ENCODING 0x0080
+#define _BDF_SWIDTH 0x0100
+#define _BDF_DWIDTH 0x0200
+#define _BDF_BBX 0x0400
+#define _BDF_BITMAP 0x0800
+
+#define _BDF_SWIDTH_ADJ 0x1000
+
+#define _BDF_GLYPH_BITS ( _BDF_GLYPH | \
+ _BDF_ENCODING | \
+ _BDF_SWIDTH | \
+ _BDF_DWIDTH | \
+ _BDF_BBX | \
+ _BDF_BITMAP )
+
+#define _BDF_GLYPH_WIDTH_CHECK 0x40000000UL
+#define _BDF_GLYPH_HEIGHT_CHECK 0x80000000UL
+
+
+ /* Auto correction messages. */
+#define ACMSG1 "FONT_ASCENT property missing. " \
+ "Added \"FONT_ASCENT %hd\".\n"
+#define ACMSG2 "FONT_DESCENT property missing. " \
+ "Added \"FONT_DESCENT %hd\".\n"
+#define ACMSG3 "Font width != actual width. Old: %hd New: %hd.\n"
+#define ACMSG4 "Font left bearing != actual left bearing. " \
+ "Old: %hd New: %hd.\n"
+#define ACMSG5 "Font ascent != actual ascent. Old: %hd New: %hd.\n"
+#define ACMSG6 "Font descent != actual descent. Old: %hd New: %hd.\n"
+#define ACMSG7 "Font height != actual height. Old: %hd New: %hd.\n"
+#define ACMSG8 "Glyph scalable width (SWIDTH) adjustments made.\n"
+#define ACMSG9 "SWIDTH field missing at line %ld. Set automatically.\n"
+#define ACMSG10 "DWIDTH field missing at line %ld. Set to glyph width.\n"
+#define ACMSG11 "SIZE bits per pixel field adjusted to %hd.\n"
+#define ACMSG12 "Duplicate encoding %ld (%s) changed to unencoded.\n"
+#define ACMSG13 "Glyph %ld extra rows removed.\n"
+#define ACMSG14 "Glyph %ld extra columns removed.\n"
+#define ACMSG15 "Incorrect glyph count: %ld indicated but %ld found.\n"
+
+ /* Error messages. */
+#define ERRMSG1 "[line %ld] Missing \"%s\" line.\n"
+#define ERRMSG2 "[line %ld] Font header corrupted or missing fields.\n"
+#define ERRMSG3 "[line %ld] Font glyphs corrupted or missing fields.\n"
+#define ERRMSG4 "[line %ld] BBX too big.\n"
+
+
+ static FT_Error
+ _bdf_add_comment( bdf_font_t* font,
+ char* comment,
+ unsigned long len )
+ {
+ char* cp;
+ FT_Memory memory = font->memory;
+ FT_Error error = BDF_Err_Ok;
+
+
+ if ( FT_RENEW_ARRAY( font->comments,
+ font->comments_len,
+ font->comments_len + len + 1 ) )
+ goto Exit;
+
+ cp = font->comments + font->comments_len;
+
+ FT_MEM_COPY( cp, comment, len );
+ cp[len] = '\n';
+
+ font->comments_len += len + 1;
+
+ Exit:
+ return error;
+ }
+
+
+ /* Set the spacing from the font name if it exists, or set it to the */
+ /* default specified in the options. */
+ static FT_Error
+ _bdf_set_default_spacing( bdf_font_t* font,
+ bdf_options_t* opts )
+ {
+ unsigned long len;
+ char name[256];
+ _bdf_list_t list;
+ FT_Memory memory;
+ FT_Error error = BDF_Err_Ok;
+
+
+ if ( font == 0 || font->name == 0 || font->name[0] == 0 )
+ {
+ error = BDF_Err_Invalid_Argument;
+ goto Exit;
+ }
+
+ memory = font->memory;
+
+ _bdf_list_init( &list, memory );
+
+ font->spacing = opts->font_spacing;
+
+ len = (unsigned long)( ft_strlen( font->name ) + 1 );
+ /* Limit ourselves to 256 characters in the font name. */
+ if ( len >= 256 )
+ {
+ error = BDF_Err_Invalid_Argument;
+ goto Exit;
+ }
+
+ FT_MEM_COPY( name, font->name, len );
+
+ error = _bdf_list_split( &list, (char *)"-", name, len );
+ if ( error )
+ goto Fail;
+
+ if ( list.used == 15 )
+ {
+ switch ( list.field[11][0] )
+ {
+ case 'C':
+ case 'c':
+ font->spacing = BDF_CHARCELL;
+ break;
+ case 'M':
+ case 'm':
+ font->spacing = BDF_MONOWIDTH;
+ break;
+ case 'P':
+ case 'p':
+ font->spacing = BDF_PROPORTIONAL;
+ break;
+ }
+ }
+
+ Fail:
+ _bdf_list_done( &list );
+
+ Exit:
+ return error;
+ }
+
+
+ /* Determine whether the property is an atom or not. If it is, then */
+ /* clean it up so the double quotes are removed if they exist. */
+ static int
+ _bdf_is_atom( char* line,
+ unsigned long linelen,
+ char** name,
+ char** value,
+ bdf_font_t* font )
+ {
+ int hold;
+ char *sp, *ep;
+ bdf_property_t* p;
+
+
+ *name = sp = ep = line;
+
+ while ( *ep && *ep != ' ' && *ep != '\t' )
+ ep++;
+
+ hold = -1;
+ if ( *ep )
+ {
+ hold = *ep;
+ *ep = 0;
+ }
+
+ p = bdf_get_property( sp, font );
+
+ /* Restore the character that was saved before any return can happen. */
+ if ( hold != -1 )
+ *ep = (char)hold;
+
+ /* If the property exists and is not an atom, just return here. */
+ if ( p && p->format != BDF_ATOM )
+ return 0;
+
+ /* The property is an atom. Trim all leading and trailing whitespace */
+ /* and double quotes for the atom value. */
+ sp = ep;
+ ep = line + linelen;
+
+ /* Trim the leading whitespace if it exists. */
+ *sp++ = 0;
+ while ( *sp &&
+ ( *sp == ' ' || *sp == '\t' ) )
+ sp++;
+
+ /* Trim the leading double quote if it exists. */
+ if ( *sp == '"' )
+ sp++;
+ *value = sp;
+
+ /* Trim the trailing whitespace if it exists. */
+ while ( ep > sp &&
+ ( *( ep - 1 ) == ' ' || *( ep - 1 ) == '\t' ) )
+ *--ep = 0;
+
+ /* Trim the trailing double quote if it exists. */
+ if ( ep > sp && *( ep - 1 ) == '"' )
+ *--ep = 0;
+
+ return 1;
+ }
+
+
+ static FT_Error
+ _bdf_add_property( bdf_font_t* font,
+ char* name,
+ char* value )
+ {
+ unsigned long propid;
+ hashnode hn;
+ bdf_property_t *prop, *fp;
+ FT_Memory memory = font->memory;
+ FT_Error error = BDF_Err_Ok;
+
+
+ /* First, check to see if the property already exists in the font. */
+ if ( ( hn = hash_lookup( name, (hashtable *)font->internal ) ) != 0 )
+ {
+ /* The property already exists in the font, so simply replace */
+ /* the value of the property with the current value. */
+ fp = font->props + (unsigned long)hn->data;
+
+ switch ( fp->format )
+ {
+ case BDF_ATOM:
+ /* Delete the current atom if it exists. */
+ FT_FREE( fp->value.atom );
+
+ if ( value && value[0] != 0 )
+ {
+ if ( FT_STRDUP( fp->value.atom, value ) )
+ goto Exit;
+ }
+ break;
+
+ case BDF_INTEGER:
+ fp->value.int32 = _bdf_atol( value, 0, 10 );
+ break;
+
+ case BDF_CARDINAL:
+ fp->value.card32 = _bdf_atoul( value, 0, 10 );
+ break;
+
+ default:
+ ;
+ }
+
+ goto Exit;
+ }
+
+ /* See whether this property type exists yet or not. */
+ /* If not, create it. */
+ hn = hash_lookup( name, &(font->proptbl) );
+ if ( hn == 0 )
+ {
+ error = bdf_create_property( name, BDF_ATOM, font );
+ if ( error )
+ goto Exit;
+ hn = hash_lookup( name, &(font->proptbl) );
+ }
+
+ /* Allocate another property if this is overflow. */
+ if ( font->props_used == font->props_size )
+ {
+ if ( font->props_size == 0 )
+ {
+ if ( FT_NEW_ARRAY( font->props, 1 ) )
+ goto Exit;
+ }
+ else
+ {
+ if ( FT_RENEW_ARRAY( font->props,
+ font->props_size,
+ font->props_size + 1 ) )
+ goto Exit;
+ }
+
+ fp = font->props + font->props_size;
+ FT_MEM_ZERO( fp, sizeof ( bdf_property_t ) );
+ font->props_size++;
+ }
+
+ propid = (unsigned long)hn->data;
+ if ( propid >= _num_bdf_properties )
+ prop = font->user_props + ( propid - _num_bdf_properties );
+ else
+ prop = (bdf_property_t*)_bdf_properties + propid;
+
+ fp = font->props + font->props_used;
+
+ fp->name = prop->name;
+ fp->format = prop->format;
+ fp->builtin = prop->builtin;
+
+ switch ( prop->format )
+ {
+ case BDF_ATOM:
+ fp->value.atom = 0;
+ if ( value != 0 && value[0] )
+ {
+ if ( FT_STRDUP( fp->value.atom, value ) )
+ goto Exit;
+ }
+ break;
+
+ case BDF_INTEGER:
+ fp->value.int32 = _bdf_atol( value, 0, 10 );
+ break;
+
+ case BDF_CARDINAL:
+ fp->value.card32 = _bdf_atoul( value, 0, 10 );
+ break;
+ }
+
+ /* If the property happens to be a comment, then it doesn't need */
+ /* to be added to the internal hash table. */
+ if ( ft_memcmp( name, "COMMENT", 7 ) != 0 ) {
+ /* Add the property to the font property table. */
+ error = hash_insert( fp->name,
+ (void *)font->props_used,
+ (hashtable *)font->internal,
+ memory );
+ if ( error )
+ goto Exit;
+ }
+
+ font->props_used++;
+
+ /* Some special cases need to be handled here. The DEFAULT_CHAR */
+ /* property needs to be located if it exists in the property list, the */
+ /* FONT_ASCENT and FONT_DESCENT need to be assigned if they are */
+ /* present, and the SPACING property should override the default */
+ /* spacing. */
+ if ( ft_memcmp( name, "DEFAULT_CHAR", 12 ) == 0 )
+ font->default_char = fp->value.int32;
+ else if ( ft_memcmp( name, "FONT_ASCENT", 11 ) == 0 )
+ font->font_ascent = fp->value.int32;
+ else if ( ft_memcmp( name, "FONT_DESCENT", 12 ) == 0 )
+ font->font_descent = fp->value.int32;
+ else if ( ft_memcmp( name, "SPACING", 7 ) == 0 )
+ {
+ if ( fp->value.atom[0] == 'p' || fp->value.atom[0] == 'P' )
+ font->spacing = BDF_PROPORTIONAL;
+ else if ( fp->value.atom[0] == 'm' || fp->value.atom[0] == 'M' )
+ font->spacing = BDF_MONOWIDTH;
+ else if ( fp->value.atom[0] == 'c' || fp->value.atom[0] == 'C' )
+ font->spacing = BDF_CHARCELL;
+ }
+
+ Exit:
+ return error;
+ }
+
+
+ static const unsigned char nibble_mask[8] =
+ {
+ 0xFF, 0x80, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC, 0xFE
+ };
+
+
+ /* Actually parse the glyph info and bitmaps. */
+ static FT_Error
+ _bdf_parse_glyphs( char* line,
+ unsigned long linelen,
+ unsigned long lineno,
+ void* call_data,
+ void* client_data )
+ {
+ int c, mask_index;
+ char* s;
+ unsigned char* bp;
+ unsigned long i, slen, nibbles;
+
+ _bdf_parse_t* p;
+ bdf_glyph_t* glyph;
+ bdf_font_t* font;
+
+ FT_Memory memory;
+ FT_Error error = BDF_Err_Ok;
+
+ FT_UNUSED( call_data );
+ FT_UNUSED( lineno ); /* only used in debug mode */
+
+
+ p = (_bdf_parse_t *)client_data;
+
+ font = p->font;
+ memory = font->memory;
+
+ /* Check for a comment. */
+ if ( ft_memcmp( line, "COMMENT", 7 ) == 0 )
+ {
+ linelen -= 7;
+
+ s = line + 7;
+ if ( *s != 0 )
+ {
+ s++;
+ linelen--;
+ }
+ error = _bdf_add_comment( p->font, s, linelen );
+ goto Exit;
+ }
+
+ /* The very first thing expected is the number of glyphs. */
+ if ( !( p->flags & _BDF_GLYPHS ) )
+ {
+ if ( ft_memcmp( line, "CHARS", 5 ) != 0 )
+ {
+ FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "CHARS" ));
+ error = BDF_Err_Missing_Chars_Field;
+ goto Exit;
+ }
+
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+ p->cnt = font->glyphs_size = _bdf_atoul( p->list.field[1], 0, 10 );
+
+ /* Make sure the number of glyphs is non-zero. */
+ if ( p->cnt == 0 )
+ font->glyphs_size = 64;
+
+ /* Limit ourselves to 1,114,112 glyphs in the font (this is the */
+ /* number of code points available in Unicode). */
+ if ( p->cnt >= 1114112UL )
+ {
+ error = BDF_Err_Invalid_Argument;
+ goto Exit;
+ }
+
+ if ( FT_NEW_ARRAY( font->glyphs, font->glyphs_size ) )
+ goto Exit;
+
+ p->flags |= _BDF_GLYPHS;
+
+ goto Exit;
+ }
+
+ /* Check for the ENDFONT field. */
+ if ( ft_memcmp( line, "ENDFONT", 7 ) == 0 )
+ {
+ /* Sort the glyphs by encoding. */
+ ft_qsort( (char *)font->glyphs,
+ font->glyphs_used,
+ sizeof ( bdf_glyph_t ),
+ by_encoding );
+
+ p->flags &= ~_BDF_START;
+
+ goto Exit;
+ }
+
+ /* Check for the ENDCHAR field. */
+ if ( ft_memcmp( line, "ENDCHAR", 7 ) == 0 )
+ {
+ p->glyph_enc = 0;
+ p->flags &= ~_BDF_GLYPH_BITS;
+
+ goto Exit;
+ }
+
+ /* Check to see whether a glyph is being scanned but should be */
+ /* ignored because it is an unencoded glyph. */
+ if ( ( p->flags & _BDF_GLYPH ) &&
+ p->glyph_enc == -1 &&
+ p->opts->keep_unencoded == 0 )
+ goto Exit;
+
+ /* Check for the STARTCHAR field. */
+ if ( ft_memcmp( line, "STARTCHAR", 9 ) == 0 )
+ {
+ /* Set the character name in the parse info first until the */
+ /* encoding can be checked for an unencoded character. */
+ FT_FREE( p->glyph_name );
+
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+
+ _bdf_list_shift( &p->list, 1 );
+
+ s = _bdf_list_join( &p->list, ' ', &slen );
+
+ if ( !s )
+ {
+ error = BDF_Err_Invalid_File_Format;
+ goto Exit;
+ }
+
+ if ( FT_NEW_ARRAY( p->glyph_name, slen + 1 ) )
+ goto Exit;
+
+ FT_MEM_COPY( p->glyph_name, s, slen + 1 );
+
+ p->flags |= _BDF_GLYPH;
+
+ goto Exit;
+ }
+
+ /* Check for the ENCODING field. */
+ if ( ft_memcmp( line, "ENCODING", 8 ) == 0 )
+ {
+ if ( !( p->flags & _BDF_GLYPH ) )
+ {
+ /* Missing STARTCHAR field. */
+ FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "STARTCHAR" ));
+ error = BDF_Err_Missing_Startchar_Field;
+ goto Exit;
+ }
+
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+
+ p->glyph_enc = _bdf_atol( p->list.field[1], 0, 10 );
+
+ /* Check that the encoding is in the range [0,65536] because */
+ /* otherwise p->have (a bitmap with static size) overflows. */
+ if ( (size_t)p->glyph_enc >= sizeof ( p->have ) * 8 )
+ {
+ error = BDF_Err_Invalid_File_Format;
+ goto Exit;
+ }
+
+ /* Check to see whether this encoding has already been encountered. */
+ /* If it has then change it to unencoded so it gets added if */
+ /* indicated. */
+ if ( p->glyph_enc >= 0 )
+ {
+ if ( _bdf_glyph_modified( p->have, p->glyph_enc ) )
+ {
+ /* Emit a message saying a glyph has been moved to the */
+ /* unencoded area. */
+ FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG12,
+ p->glyph_enc, p->glyph_name ));
+ p->glyph_enc = -1;
+ font->modified = 1;
+ }
+ else
+ _bdf_set_glyph_modified( p->have, p->glyph_enc );
+ }
+
+ if ( p->glyph_enc >= 0 )
+ {
+ /* Make sure there are enough glyphs allocated in case the */
+ /* number of characters happen to be wrong. */
+ if ( font->glyphs_used == font->glyphs_size )
+ {
+ if ( FT_RENEW_ARRAY( font->glyphs,
+ font->glyphs_size,
+ font->glyphs_size + 64 ) )
+ goto Exit;
+
+ font->glyphs_size += 64;
+ }
+
+ glyph = font->glyphs + font->glyphs_used++;
+ glyph->name = p->glyph_name;
+ glyph->encoding = p->glyph_enc;
+
+ /* Reset the initial glyph info. */
+ p->glyph_name = 0;
+ }
+ else
+ {
+ /* Unencoded glyph. Check to see whether it should */
+ /* be added or not. */
+ if ( p->opts->keep_unencoded != 0 )
+ {
+ /* Allocate the next unencoded glyph. */
+ if ( font->unencoded_used == font->unencoded_size )
+ {
+ if ( FT_RENEW_ARRAY( font->unencoded ,
+ font->unencoded_size,
+ font->unencoded_size + 4 ) )
+ goto Exit;
+
+ font->unencoded_size += 4;
+ }
+
+ glyph = font->unencoded + font->unencoded_used;
+ glyph->name = p->glyph_name;
+ glyph->encoding = font->unencoded_used++;
+ }
+ else
+ /* Free up the glyph name if the unencoded shouldn't be */
+ /* kept. */
+ FT_FREE( p->glyph_name );
+
+ p->glyph_name = 0;
+ }
+
+ /* Clear the flags that might be added when width and height are */
+ /* checked for consistency. */
+ p->flags &= ~( _BDF_GLYPH_WIDTH_CHECK | _BDF_GLYPH_HEIGHT_CHECK );
+
+ p->flags |= _BDF_ENCODING;
+
+ goto Exit;
+ }
+
+ /* Point at the glyph being constructed. */
+ if ( p->glyph_enc == -1 )
+ glyph = font->unencoded + ( font->unencoded_used - 1 );
+ else
+ glyph = font->glyphs + ( font->glyphs_used - 1 );
+
+ /* Check to see whether a bitmap is being constructed. */
+ if ( p->flags & _BDF_BITMAP )
+ {
+ /* If there are more rows than are specified in the glyph metrics, */
+ /* ignore the remaining lines. */
+ if ( p->row >= (unsigned long)glyph->bbx.height )
+ {
+ if ( !( p->flags & _BDF_GLYPH_HEIGHT_CHECK ) )
+ {
+ FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG13, glyph->encoding ));
+ p->flags |= _BDF_GLYPH_HEIGHT_CHECK;
+ font->modified = 1;
+ }
+
+ goto Exit;
+ }
+
+ /* Only collect the number of nibbles indicated by the glyph */
+ /* metrics. If there are more columns, they are simply ignored. */
+ nibbles = glyph->bpr << 1;
+ bp = glyph->bitmap + p->row * glyph->bpr;
+
+ for ( i = 0; i < nibbles; i++ )
+ {
+ c = line[i];
+ *bp = (FT_Byte)( ( *bp << 4 ) + a2i[c] );
+ if ( i + 1 < nibbles && ( i & 1 ) )
+ *++bp = 0;
+ }
+
+ /* Remove possible garbage at the right. */
+ mask_index = ( glyph->bbx.width * p->font->bpp ) & 7;
+ if ( glyph->bbx.width )
+ *bp &= nibble_mask[mask_index];
+
+ /* If any line has extra columns, indicate they have been removed. */
+ if ( ( line[nibbles] == '0' || a2i[(int)line[nibbles]] != 0 ) &&
+ !( p->flags & _BDF_GLYPH_WIDTH_CHECK ) )
+ {
+ FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG14, glyph->encoding ));
+ p->flags |= _BDF_GLYPH_WIDTH_CHECK;
+ font->modified = 1;
+ }
+
+ p->row++;
+ goto Exit;
+ }
+
+ /* Expect the SWIDTH (scalable width) field next. */
+ if ( ft_memcmp( line, "SWIDTH", 6 ) == 0 )
+ {
+ if ( !( p->flags & _BDF_ENCODING ) )
+ {
+ /* Missing ENCODING field. */
+ FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "ENCODING" ));
+ error = BDF_Err_Missing_Encoding_Field;
+ goto Exit;
+ }
+
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+
+ glyph->swidth = (unsigned short)_bdf_atoul( p->list.field[1], 0, 10 );
+ p->flags |= _BDF_SWIDTH;
+
+ goto Exit;
+ }
+
+ /* Expect the DWIDTH (scalable width) field next. */
+ if ( ft_memcmp( line, "DWIDTH", 6 ) == 0 )
+ {
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+
+ glyph->dwidth = (unsigned short)_bdf_atoul( p->list.field[1], 0, 10 );
+
+ if ( !( p->flags & _BDF_SWIDTH ) )
+ {
+ /* Missing SWIDTH field. Emit an auto correction message and set */
+ /* the scalable width from the device width. */
+ FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG9, lineno ));
+
+ glyph->swidth = (unsigned short)FT_MulDiv(
+ glyph->dwidth, 72000L,
+ (FT_Long)( font->point_size *
+ font->resolution_x ) );
+ }
+
+ p->flags |= _BDF_DWIDTH;
+ goto Exit;
+ }
+
+ /* Expect the BBX field next. */
+ if ( ft_memcmp( line, "BBX", 3 ) == 0 )
+ {
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+
+ glyph->bbx.width = _bdf_atos( p->list.field[1], 0, 10 );
+ glyph->bbx.height = _bdf_atos( p->list.field[2], 0, 10 );
+ glyph->bbx.x_offset = _bdf_atos( p->list.field[3], 0, 10 );
+ glyph->bbx.y_offset = _bdf_atos( p->list.field[4], 0, 10 );
+
+ /* Generate the ascent and descent of the character. */
+ glyph->bbx.ascent = (short)( glyph->bbx.height + glyph->bbx.y_offset );
+ glyph->bbx.descent = (short)( -glyph->bbx.y_offset );
+
+ /* Determine the overall font bounding box as the characters are */
+ /* loaded so corrections can be done later if indicated. */
+ p->maxas = (short)FT_MAX( glyph->bbx.ascent, p->maxas );
+ p->maxds = (short)FT_MAX( glyph->bbx.descent, p->maxds );
+
+ p->rbearing = (short)( glyph->bbx.width + glyph->bbx.x_offset );
+
+ p->maxrb = (short)FT_MAX( p->rbearing, p->maxrb );
+ p->minlb = (short)FT_MIN( glyph->bbx.x_offset, p->minlb );
+ p->maxlb = (short)FT_MAX( glyph->bbx.x_offset, p->maxlb );
+
+ if ( !( p->flags & _BDF_DWIDTH ) )
+ {
+ /* Missing DWIDTH field. Emit an auto correction message and set */
+ /* the device width to the glyph width. */
+ FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG10, lineno ));
+ glyph->dwidth = glyph->bbx.width;
+ }
+
+ /* If the BDF_CORRECT_METRICS flag is set, then adjust the SWIDTH */
+ /* value if necessary. */
+ if ( p->opts->correct_metrics != 0 )
+ {
+ /* Determine the point size of the glyph. */
+ unsigned short sw = (unsigned short)FT_MulDiv(
+ glyph->dwidth, 72000L,
+ (FT_Long)( font->point_size *
+ font->resolution_x ) );
+
+
+ if ( sw != glyph->swidth )
+ {
+ glyph->swidth = sw;
+
+ if ( p->glyph_enc == -1 )
+ _bdf_set_glyph_modified( font->umod,
+ font->unencoded_used - 1 );
+ else
+ _bdf_set_glyph_modified( font->nmod, glyph->encoding );
+
+ p->flags |= _BDF_SWIDTH_ADJ;
+ font->modified = 1;
+ }
+ }
+
+ p->flags |= _BDF_BBX;
+ goto Exit;
+ }
+
+ /* And finally, gather up the bitmap. */
+ if ( ft_memcmp( line, "BITMAP", 6 ) == 0 )
+ {
+ unsigned long bitmap_size;
+
+
+ if ( !( p->flags & _BDF_BBX ) )
+ {
+ /* Missing BBX field. */
+ FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "BBX" ));
+ error = BDF_Err_Missing_Bbx_Field;
+ goto Exit;
+ }
+
+ /* Allocate enough space for the bitmap. */
+ glyph->bpr = ( glyph->bbx.width * p->font->bpp + 7 ) >> 3;
+
+ bitmap_size = glyph->bpr * glyph->bbx.height;
+ if ( bitmap_size > 0xFFFFU )
+ {
+ FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG4, lineno ));
+ error = BDF_Err_Bbx_Too_Big;
+ goto Exit;
+ }
+ else
+ glyph->bytes = (unsigned short)bitmap_size;
+
+ if ( FT_NEW_ARRAY( glyph->bitmap, glyph->bytes ) )
+ goto Exit;
+
+ p->row = 0;
+ p->flags |= _BDF_BITMAP;
+
+ goto Exit;
+ }
+
+ error = BDF_Err_Invalid_File_Format;
+
+ Exit:
+ return error;
+ }
+
+
+ /* Load the font properties. */
+ static FT_Error
+ _bdf_parse_properties( char* line,
+ unsigned long linelen,
+ unsigned long lineno,
+ void* call_data,
+ void* client_data )
+ {
+ unsigned long vlen;
+ _bdf_line_func_t* next;
+ _bdf_parse_t* p;
+ char* name;
+ char* value;
+ char nbuf[128];
+ FT_Error error = BDF_Err_Ok;
+
+ FT_UNUSED( lineno );
+
+
+ next = (_bdf_line_func_t *)call_data;
+ p = (_bdf_parse_t *) client_data;
+
+ /* Check for the end of the properties. */
+ if ( ft_memcmp( line, "ENDPROPERTIES", 13 ) == 0 )
+ {
+ /* If the FONT_ASCENT or FONT_DESCENT properties have not been */
+ /* encountered yet, then make sure they are added as properties and */
+ /* make sure they are set from the font bounding box info. */
+ /* */
+ /* This is *always* done regardless of the options, because X11 */
+ /* requires these two fields to compile fonts. */
+ if ( bdf_get_font_property( p->font, "FONT_ASCENT" ) == 0 )
+ {
+ p->font->font_ascent = p->font->bbx.ascent;
+ ft_sprintf( nbuf, "%hd", p->font->bbx.ascent );
+ error = _bdf_add_property( p->font, (char *)"FONT_ASCENT", nbuf );
+ if ( error )
+ goto Exit;
+
+ FT_TRACE2(( "_bdf_parse_properties: " ACMSG1, p->font->bbx.ascent ));
+ p->font->modified = 1;
+ }
+
+ if ( bdf_get_font_property( p->font, "FONT_DESCENT" ) == 0 )
+ {
+ p->font->font_descent = p->font->bbx.descent;
+ ft_sprintf( nbuf, "%hd", p->font->bbx.descent );
+ error = _bdf_add_property( p->font, (char *)"FONT_DESCENT", nbuf );
+ if ( error )
+ goto Exit;
+
+ FT_TRACE2(( "_bdf_parse_properties: " ACMSG2, p->font->bbx.descent ));
+ p->font->modified = 1;
+ }
+
+ p->flags &= ~_BDF_PROPS;
+ *next = _bdf_parse_glyphs;
+
+ goto Exit;
+ }
+
+ /* Ignore the _XFREE86_GLYPH_RANGES properties. */
+ if ( ft_memcmp( line, "_XFREE86_GLYPH_RANGES", 21 ) == 0 )
+ goto Exit;
+
+ /* Handle COMMENT fields and properties in a special way to preserve */
+ /* the spacing. */
+ if ( ft_memcmp( line, "COMMENT", 7 ) == 0 )
+ {
+ name = value = line;
+ value += 7;
+ if ( *value )
+ *value++ = 0;
+ error = _bdf_add_property( p->font, name, value );
+ if ( error )
+ goto Exit;
+ }
+ else if ( _bdf_is_atom( line, linelen, &name, &value, p->font ) )
+ {
+ error = _bdf_add_property( p->font, name, value );
+ if ( error )
+ goto Exit;
+ }
+ else
+ {
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+ name = p->list.field[0];
+
+ _bdf_list_shift( &p->list, 1 );
+ value = _bdf_list_join( &p->list, ' ', &vlen );
+
+ error = _bdf_add_property( p->font, name, value );
+ if ( error )
+ goto Exit;
+ }
+
+ Exit:
+ return error;
+ }
+
+
+ /* Load the font header. */
+ static FT_Error
+ _bdf_parse_start( char* line,
+ unsigned long linelen,
+ unsigned long lineno,
+ void* call_data,
+ void* client_data )
+ {
+ unsigned long slen;
+ _bdf_line_func_t* next;
+ _bdf_parse_t* p;
+ bdf_font_t* font;
+ char *s;
+
+ FT_Memory memory = NULL;
+ FT_Error error = BDF_Err_Ok;
+
+ FT_UNUSED( lineno ); /* only used in debug mode */
+
+
+ next = (_bdf_line_func_t *)call_data;
+ p = (_bdf_parse_t *) client_data;
+
+ if ( p->font )
+ memory = p->font->memory;
+
+ /* Check for a comment. This is done to handle those fonts that have */
+ /* comments before the STARTFONT line for some reason. */
+ if ( ft_memcmp( line, "COMMENT", 7 ) == 0 )
+ {
+ if ( p->opts->keep_comments != 0 && p->font != 0 )
+ {
+ linelen -= 7;
+
+ s = line + 7;
+ if ( *s != 0 )
+ {
+ s++;
+ linelen--;
+ }
+
+ error = _bdf_add_comment( p->font, s, linelen );
+ if ( error )
+ goto Exit;
+ /* here font is not defined! */
+ }
+
+ goto Exit;
+ }
+
+ if ( !( p->flags & _BDF_START ) )
+ {
+ memory = p->memory;
+
+ if ( ft_memcmp( line, "STARTFONT", 9 ) != 0 )
+ {
+ /* No STARTFONT field is a good indication of a problem. */
+ error = BDF_Err_Missing_Startfont_Field;
+ goto Exit;
+ }
+
+ p->flags = _BDF_START;
+ font = p->font = 0;
+
+ if ( FT_NEW( font ) )
+ goto Exit;
+ p->font = font;
+
+ font->memory = p->memory;
+ p->memory = 0;
+
+ { /* setup */
+ unsigned long i;
+ bdf_property_t* prop;
+
+
+ error = hash_init( &(font->proptbl), memory );
+ if ( error )
+ goto Exit;
+ for ( i = 0, prop = (bdf_property_t*)_bdf_properties;
+ i < _num_bdf_properties; i++, prop++ )
+ {
+ error = hash_insert( prop->name, (void *)i,
+ &(font->proptbl), memory );
+ if ( error )
+ goto Exit;
+ }
+ }
+
+ if ( FT_ALLOC( p->font->internal, sizeof ( hashtable ) ) )
+ goto Exit;
+ error = hash_init( (hashtable *)p->font->internal,memory );
+ if ( error )
+ goto Exit;
+ p->font->spacing = p->opts->font_spacing;
+ p->font->default_char = -1;
+
+ goto Exit;
+ }
+
+ /* Check for the start of the properties. */
+ if ( ft_memcmp( line, "STARTPROPERTIES", 15 ) == 0 )
+ {
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+ p->cnt = p->font->props_size = _bdf_atoul( p->list.field[1], 0, 10 );
+
+ if ( FT_NEW_ARRAY( p->font->props, p->cnt ) )
+ goto Exit;
+
+ p->flags |= _BDF_PROPS;
+ *next = _bdf_parse_properties;
+
+ goto Exit;
+ }
+
+ /* Check for the FONTBOUNDINGBOX field. */
+ if ( ft_memcmp( line, "FONTBOUNDINGBOX", 15 ) == 0 )
+ {
+ if ( !(p->flags & _BDF_SIZE ) )
+ {
+ /* Missing the SIZE field. */
+ FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "SIZE" ));
+ error = BDF_Err_Missing_Size_Field;
+ goto Exit;
+ }
+
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+
+ p->font->bbx.width = _bdf_atos( p->list.field[1], 0, 10 );
+ p->font->bbx.height = _bdf_atos( p->list.field[2], 0, 10 );
+
+ p->font->bbx.x_offset = _bdf_atos( p->list.field[3], 0, 10 );
+ p->font->bbx.y_offset = _bdf_atos( p->list.field[4], 0, 10 );
+
+ p->font->bbx.ascent = (short)( p->font->bbx.height +
+ p->font->bbx.y_offset );
+
+ p->font->bbx.descent = (short)( -p->font->bbx.y_offset );
+
+ p->flags |= _BDF_FONT_BBX;
+
+ goto Exit;
+ }
+
+ /* The next thing to check for is the FONT field. */
+ if ( ft_memcmp( line, "FONT", 4 ) == 0 )
+ {
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+ _bdf_list_shift( &p->list, 1 );
+
+ s = _bdf_list_join( &p->list, ' ', &slen );
+
+ if ( !s )
+ {
+ error = BDF_Err_Invalid_File_Format;
+ goto Exit;
+ }
+
+ if ( FT_NEW_ARRAY( p->font->name, slen + 1 ) )
+ goto Exit;
+ FT_MEM_COPY( p->font->name, s, slen + 1 );
+
+ /* If the font name is an XLFD name, set the spacing to the one in */
+ /* the font name. If there is no spacing fall back on the default. */
+ error = _bdf_set_default_spacing( p->font, p->opts );
+ if ( error )
+ goto Exit;
+
+ p->flags |= _BDF_FONT_NAME;
+
+ goto Exit;
+ }
+
+ /* Check for the SIZE field. */
+ if ( ft_memcmp( line, "SIZE", 4 ) == 0 )
+ {
+ if ( !( p->flags & _BDF_FONT_NAME ) )
+ {
+ /* Missing the FONT field. */
+ FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "FONT" ));
+ error = BDF_Err_Missing_Font_Field;
+ goto Exit;
+ }
+
+ error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
+ if ( error )
+ goto Exit;
+
+ p->font->point_size = _bdf_atoul( p->list.field[1], 0, 10 );
+ p->font->resolution_x = _bdf_atoul( p->list.field[2], 0, 10 );
+ p->font->resolution_y = _bdf_atoul( p->list.field[3], 0, 10 );
+
+ /* Check for the bits per pixel field. */
+ if ( p->list.used == 5 )
+ {
+ unsigned short bitcount, i, shift;
+
+
+ p->font->bpp = (unsigned short)_bdf_atos( p->list.field[4], 0, 10 );
+
+ /* Only values 1, 2, 4, 8 are allowed. */
+ shift = p->font->bpp;
+ bitcount = 0;
+ for ( i = 0; shift > 0; i++ )
+ {
+ if ( shift & 1 )
+ bitcount = i;
+ shift >>= 1;
+ }
+
+ shift = (short)( ( bitcount > 3 ) ? 8 : ( 1 << bitcount ) );
+
+ if ( p->font->bpp > shift || p->font->bpp != shift )
+ {
+ /* select next higher value */
+ p->font->bpp = (unsigned short)( shift << 1 );
+ FT_TRACE2(( "_bdf_parse_start: " ACMSG11, p->font->bpp ));
+ }
+ }
+ else
+ p->font->bpp = 1;
+
+ p->flags |= _BDF_SIZE;
+
+ goto Exit;
+ }
+
+ error = BDF_Err_Invalid_File_Format;
+
+ Exit:
+ return error;
+ }
+
+
+ /*************************************************************************/
+ /* */
+ /* API. */
+ /* */
+ /*************************************************************************/
+
+
+ FT_LOCAL_DEF( FT_Error )
+ bdf_load_font( FT_Stream stream,
+ FT_Memory extmemory,
+ bdf_options_t* opts,
+ bdf_font_t* *font )
+ {
+ unsigned long lineno = 0; /* make compiler happy */
+ _bdf_parse_t *p;
+
+ FT_Memory memory = extmemory;
+ FT_Error error = BDF_Err_Ok;
+
+
+ if ( FT_NEW( p ) )
+ goto Exit;
+
+ memory = NULL;
+ p->opts = (bdf_options_t*)( ( opts != 0 ) ? opts : &_bdf_opts );
+ p->minlb = 32767;
+ p->memory = extmemory; /* only during font creation */
+
+ _bdf_list_init( &p->list, extmemory );
+
+ error = _bdf_readstream( stream, _bdf_parse_start,
+ (void *)p, &lineno );
+ if ( error )
+ goto Fail;
+
+ if ( p->font != 0 )
+ {
+ /* If the font is not proportional, set the font's monowidth */
+ /* field to the width of the font bounding box. */
+ memory = p->font->memory;
+
+ if ( p->font->spacing != BDF_PROPORTIONAL )
+ p->font->monowidth = p->font->bbx.width;
+
+ /* If the number of glyphs loaded is not that of the original count, */
+ /* indicate the difference. */
+ if ( p->cnt != p->font->glyphs_used + p->font->unencoded_used )
+ {
+ FT_TRACE2(( "bdf_load_font: " ACMSG15, p->cnt,
+ p->font->glyphs_used + p->font->unencoded_used ));
+ p->font->modified = 1;
+ }
+
+ /* Once the font has been loaded, adjust the overall font metrics if */
+ /* necessary. */
+ if ( p->opts->correct_metrics != 0 &&
+ ( p->font->glyphs_used > 0 || p->font->unencoded_used > 0 ) )
+ {
+ if ( p->maxrb - p->minlb != p->font->bbx.width )
+ {
+ FT_TRACE2(( "bdf_load_font: " ACMSG3,
+ p->font->bbx.width, p->maxrb - p->minlb ));
+ p->font->bbx.width = (unsigned short)( p->maxrb - p->minlb );
+ p->font->modified = 1;
+ }
+
+ if ( p->font->bbx.x_offset != p->minlb )
+ {
+ FT_TRACE2(( "bdf_load_font: " ACMSG4,
+ p->font->bbx.x_offset, p->minlb ));
+ p->font->bbx.x_offset = p->minlb;
+ p->font->modified = 1;
+ }
+
+ if ( p->font->bbx.ascent != p->maxas )
+ {
+ FT_TRACE2(( "bdf_load_font: " ACMSG5,
+ p->font->bbx.ascent, p->maxas ));
+ p->font->bbx.ascent = p->maxas;
+ p->font->modified = 1;
+ }
+
+ if ( p->font->bbx.descent != p->maxds )
+ {
+ FT_TRACE2(( "bdf_load_font: " ACMSG6,
+ p->font->bbx.descent, p->maxds ));
+ p->font->bbx.descent = p->maxds;
+ p->font->bbx.y_offset = (short)( -p->maxds );
+ p->font->modified = 1;
+ }
+
+ if ( p->maxas + p->maxds != p->font->bbx.height )
+ {
+ FT_TRACE2(( "bdf_load_font: " ACMSG7,
+ p->font->bbx.height, p->maxas + p->maxds ));
+ p->font->bbx.height = (unsigned short)( p->maxas + p->maxds );
+ }
+
+ if ( p->flags & _BDF_SWIDTH_ADJ )
+ FT_TRACE2(( "bdf_load_font: " ACMSG8 ));
+ }
+ }
+
+ if ( p->flags & _BDF_START )
+ {
+ {
+ /* The ENDFONT field was never reached or did not exist. */
+ if ( !( p->flags & _BDF_GLYPHS ) )
+ {
+ /* Error happened while parsing header. */
+ FT_ERROR(( "bdf_load_font: " ERRMSG2, lineno ));
+ error = BDF_Err_Corrupted_Font_Header;
+ goto Exit;
+ }
+ else
+ {
+ /* Error happened when parsing glyphs. */
+ FT_ERROR(( "bdf_load_font: " ERRMSG3, lineno ));
+ error = BDF_Err_Corrupted_Font_Glyphs;
+ goto Exit;
+ }
+ }
+ }
+
+ if ( p->font != 0 )
+ {
+ /* Make sure the comments are NULL terminated if they exist. */
+ memory = p->font->memory;
+
+ if ( p->font->comments_len > 0 ) {
+ if ( FT_RENEW_ARRAY( p->font->comments,
+ p->font->comments_len,
+ p->font->comments_len + 1 ) )
+ goto Fail;
+
+ p->font->comments[p->font->comments_len] = 0;
+ }
+ }
+ else if ( error == BDF_Err_Ok )
+ error = BDF_Err_Invalid_File_Format;
+
+ *font = p->font;
+
+ Exit:
+ if ( p )
+ {
+ _bdf_list_done( &p->list );
+
+ memory = extmemory;
+
+ FT_FREE( p );
+ }
+
+ return error;
+
+ Fail:
+ bdf_free_font( p->font );
+
+ memory = extmemory;
+
+ FT_FREE( p->font );
+
+ goto Exit;
+ }
+
+
+ FT_LOCAL_DEF( void )
+ bdf_free_font( bdf_font_t* font )
+ {
+ bdf_property_t* prop;
+ unsigned long i;
+ bdf_glyph_t* glyphs;
+ FT_Memory memory;
+
+
+ if ( font == 0 )
+ return;
+
+ memory = font->memory;
+
+ FT_FREE( font->name );
+
+ /* Free up the internal hash table of property names. */
+ if ( font->internal )
+ {
+ hash_free( (hashtable *)font->internal, memory );
+ FT_FREE( font->internal );
+ }
+
+ /* Free up the comment info. */
+ FT_FREE( font->comments );
+
+ /* Free up the properties. */
+ for ( i = 0; i < font->props_size; i++ )
+ {
+ if ( font->props[i].format == BDF_ATOM )
+ FT_FREE( font->props[i].value.atom );
+ }
+
+ FT_FREE( font->props );
+
+ /* Free up the character info. */
+ for ( i = 0, glyphs = font->glyphs;
+ i < font->glyphs_used; i++, glyphs++ )
+ {
+ FT_FREE( glyphs->name );
+ FT_FREE( glyphs->bitmap );
+ }
+
+ for ( i = 0, glyphs = font->unencoded; i < font->unencoded_used;
+ i++, glyphs++ )
+ {
+ FT_FREE( glyphs->name );
+ FT_FREE( glyphs->bitmap );
+ }
+
+ FT_FREE( font->glyphs );
+ FT_FREE( font->unencoded );
+
+ /* Free up the overflow storage if it was used. */
+ for ( i = 0, glyphs = font->overflow.glyphs;
+ i < font->overflow.glyphs_used; i++, glyphs++ )
+ {
+ FT_FREE( glyphs->name );
+ FT_FREE( glyphs->bitmap );
+ }
+
+ FT_FREE( font->overflow.glyphs );
+
+ /* bdf_cleanup */
+ hash_free( &(font->proptbl), memory );
+
+ /* Free up the user defined properties. */
+ for (prop = font->user_props, i = 0;
+ i < font->nuser_props; i++, prop++ )
+ {
+ FT_FREE( prop->name );
+ if ( prop->format == BDF_ATOM )
+ FT_FREE( prop->value.atom );
+ }
+
+ FT_FREE( font->user_props );
+
+ /* FREE( font ); */ /* XXX Fixme */
+ }
+
+
+ FT_LOCAL_DEF( bdf_property_t * )
+ bdf_get_font_property( bdf_font_t* font,
+ const char* name )
+ {
+ hashnode hn;
+
+
+ if ( font == 0 || font->props_size == 0 || name == 0 || *name == 0 )
+ return 0;
+
+ hn = hash_lookup( name, (hashtable *)font->internal );
+
+ return hn ? ( font->props + (unsigned long)hn->data ) : 0;
+ }
+
+
+/* END */
projects / reactos.git / blobdiff