text: /*
   * Copyright 2000 Computing Research Labs, New Mexico State University
   * Copyright 2001-2014
   *   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] );
  
  
    /* An auxiliary macro to parse properties, to be used in conditionals. */
    /* It behaves like `strncmp' but also tests the following character    */
    /* whether it is a whitespace or NULL.                                 */
    /* `property' is a constant string of length `n' to compare with.      */
  #define _bdf_strncmp( name, property, n )      \
            ( ft_strncmp( name, property, n ) || \
              !( name[n] == ' '  ||              \
                 name[n] == '\0' ||              \
                 name[n] == '\n' ||              \
                 name[n] == '\r' ||              \
                 name[n] == '\t' )            )
  
    /* 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"
  #define ACMSG16  "Glyph %ld missing columns padded with zero bits.\n"
  #define ACMSG17  "Adjusting number of glyphs to %ld.\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"
  #define ERRMSG5  "[line %ld] `%s' value too big.\n"
  #define ERRMSG6  "[line %ld] Input line too long.\n"
  #define ERRMSG7  "[line %ld] Font name too long.\n"
  #define ERRMSG8  "[line %ld] Invalid `%s' value.\n"
  #define ERRMSG9  "[line %ld] Invalid keyword.\n"
  
    /* Debug messages. */
  #define DBGMSG1  "  [%6ld] %s" /* no \n */
  #define DBGMSG2  " (0x%lX)\n"
  
  
    /*************************************************************************/
    /*                                                                       */
    /* 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 + (unsigned long)*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;
      unsigned int  i, sz = ht->size;
      FT_Error      error = FT_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 )
    {
      unsigned int  sz    = INITIAL_HT_SIZE;
      FT_Error      error = FT_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 )
      {
        unsigned 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,
                 size_t      data,
                 hashtable*  ht,
                 FT_Memory   memory )
    {
      hashnode   nn;
      hashnode*  bp      = hash_bucket( key, ht );
      FT_Error   error   = FT_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[34816]; /* must be in sync with `nmod' and `umod' */
                                   /* arrays from `bdf_font_t' structure     */
      _bdf_list_t     list;
  
      FT_Memory       memory;
      unsigned long   size;        /* the stream size */
  
    } _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,
                      unsigned long  num_items ) /* same as _bdf_list_t.used */
    {
      FT_Error  error = FT_Err_Ok;
  
  
      if ( num_items > list->size )
      {
        unsigned long  oldsize = list->size; /* same as _bdf_list_t.size */
        unsigned long  newsize = oldsize + ( oldsize >> 1 ) + 5;
        unsigned long  bigsize = (unsigned long)( FT_INT_MAX / sizeof ( char* ) );
        FT_Memory      memory  = list->memory;
  
  
        if ( oldsize == bigsize )
        {
          error = FT_THROW( 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;
    }
  
  
    /* An empty string for empty fields. */
  
    static const char  empty[1] = { 0 };      /* XXX eliminate this */
  
  
    static char *
    _bdf_list_join( _bdf_list_t*    list,
                    int             c,
                    unsigned long  *alen )
    {
      unsigned long  i, j;
      char*          dp;
  
  
      *alen = 0;
  
      if ( list == 0 || list->used == 0 )
        return 0;
  
      dp = list->field[0];
      for ( i = j = 0; i < list->used; i++ )
      {
        char*  fp = list->field[i];
  
  
        while ( *fp )
          dp[j++] = *fp++;
  
        if ( i + 1 < list->used )
          dp[j++] = (char)c;
      }
      if ( dp != empty )
        dp[j] = 0;
  
      *alen = j;
      return dp;
    }
  
  
    /* The code below ensures that we have at least 4 + 1 `field' */
    /* elements in `list' (which are possibly NULL) so that we    */
    /* don't have to check the number of fields in most cases.    */
  
    static FT_Error
    _bdf_list_split( _bdf_list_t*   list,
                     char*          separators,
                     char*          line,
                     unsigned long  linelen )
    {
      unsigned long  final_empty;
      int            mult;
      char           *sp, *ep, *end;
      char           seps[32];
      FT_Error       error = FT_Err_Ok;
  
  
      /* Initialize the list. */
      list->used = 0;
      if ( list->size )
      {
        list->field[0] = (char*)empty;
        list->field[1] = (char*)empty;
        list->field[2] = (char*)empty;
        list->field[3] = (char*)empty;
        list->field[4] = (char*)empty;
      }
  
      /* 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 = FT_THROW( 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, hold, to_skip;
      ptrdiff_t         bytes, start, end, cursor, avail;
      char*             buf    = NULL;
      FT_Memory         memory = stream->memory;
      FT_Error          error  = FT_Err_Ok;
  
  
      if ( callback == 0 )
      {
        error = FT_THROW( 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;
      avail   = 0;
      cursor  = 0;
      refill  = 1;
      to_skip = NO_SKIP;
      bytes   = 0;        /* make compiler happy */
  
      for (;;)
      {
        if ( refill )
        {
          bytes  = (ptrdiff_t)FT_Stream_TryRead(
                     stream, (FT_Byte*)buf + cursor,
                     buf_size - (unsigned long)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 */
            {
              FT_ERROR(( "_bdf_readstream: " ERRMSG6, lineno ));
              error = FT_THROW( Invalid_Argument );
              goto Exit;
            }
  
            new_size = buf_size * 2;
            if ( FT_RENEW_ARRAY( buf, buf_size, new_size ) )
              goto Exit;
  
            cursor   = (ptrdiff_t)buf_size;
            buf_size = new_size;
          }
          else
          {
            bytes = avail - start;
  
            FT_MEM_MOVE( 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, (unsigned long)( end - start ), lineno,
                         (void*)&cb, client_data );
          /* Redo if we have encountered CHARS without properties. */
          if ( error == -1 )
            error = (*cb)( buf + start, (unsigned long)( 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,
    };
  
  
    /* Routine to convert an ASCII string into an unsigned long integer. */
    static unsigned long
    _bdf_atoul( char*         s,
                char**        end,
                unsigned 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; sbitset( dmap, *s ); s++ )
        v = v * base + a2i[(int)*s];
  
      if ( end != 0 )
        *end = s;
  
      return v;
    }
  
  
    /* Routine to convert an ASCII string into a 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; sbitset( 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 unsigned short integer. */
    static unsigned short
    _bdf_atous( char*         s,
                char**        end,
                unsigned int  base )
    {
      unsigned short        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; sbitset( dmap, *s ); s++ )
        v = (unsigned short)( v * base + a2i[(int)*s] );
  
      if ( end != 0 )
        *end = s;
  
      return v;
    }
  
  
    /* Routine to convert an ASCII string into a 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; sbitset( 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 )
    {
      size_t           n;
      bdf_property_t*  p;
      FT_Memory        memory = font->memory;
      FT_Error         error  = FT_Err_Ok;
  
  
      /* First check whether 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 = ft_strlen( name ) + 1;
      if ( n > FT_ULONG_MAX )
        return FT_THROW( Invalid_Argument );
  
      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, 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;
      size_t    propid;
  
  
      if ( name == 0 || *name == 0 )
        return 0;
  
      if ( ( hn = hash_lookup( name, &(font->proptbl) ) ) == 0 )
        return 0;
  
      propid = 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      0x0001U
  #define _BDF_FONT_NAME  0x0002U
  #define _BDF_SIZE       0x0004U
  #define _BDF_FONT_BBX   0x0008U
  #define _BDF_PROPS      0x0010U
  #define _BDF_GLYPHS     0x0020U
  #define _BDF_GLYPH      0x0040U
  #define _BDF_ENCODING   0x0080U
  #define _BDF_SWIDTH     0x0100U
  #define _BDF_DWIDTH     0x0200U
  #define _BDF_BBX        0x0400U
  #define _BDF_BITMAP     0x0800U
  
  #define _BDF_SWIDTH_ADJ  0x1000U
  
  #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
  
  
    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  = FT_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   lineno )
    {
      size_t       len;
      char         name[256];
      _bdf_list_t  list;
      FT_Memory    memory;
      FT_Error     error = FT_Err_Ok;
  
      FT_UNUSED( lineno );        /* only used in debug mode */
  
  
      if ( font == 0 || font->name == 0 || font->name[0] == 0 )
      {
        error = FT_THROW( Invalid_Argument );
        goto Exit;
      }
  
      memory = font->memory;
  
      _bdf_list_init( &list, memory );
  
      font->spacing = opts->font_spacing;
  
      len = ft_strlen( font->name ) + 1;
      /* Limit ourselves to 256 characters in the font name. */
      if ( len >= 256 )
      {
        FT_ERROR(( "_bdf_set_default_spacing: " ERRMSG7, lineno ));
        error = FT_THROW( Invalid_Argument );
        goto Exit;
      }
  
      FT_MEM_COPY( name, font->name, len );
  
      error = _bdf_list_split( &list, (char *)"-", name, (unsigned long)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. */
      if ( *sp )
        *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  lineno )
    {
      size_t          propid;
      hashnode        hn;
      bdf_property_t  *prop, *fp;
      FT_Memory       memory = font->memory;
      FT_Error        error  = FT_Err_Ok;
  
      FT_UNUSED( lineno );        /* only used in debug mode */
  
  
      /* First, check whether 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 + 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.l = _bdf_atol( value, 0, 10 );
          break;
  
        case BDF_CARDINAL:
          fp->value.ul = _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 = 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.l = _bdf_atol( value, 0, 10 );
        break;
  
      case BDF_CARDINAL:
        fp->value.ul = _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 ( _bdf_strncmp( name, "COMMENT", 7 ) != 0 )
      {
        /* Add the property to the font property table. */
        error = hash_insert( fp->name,
                             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 ( _bdf_strncmp( name, "DEFAULT_CHAR", 12 ) == 0 )
        font->default_char = fp->value.l;
      else if ( _bdf_strncmp( name, "FONT_ASCENT", 11 ) == 0 )
        font->font_ascent = fp->value.l;
      else if ( _bdf_strncmp( name, "FONT_DESCENT", 12 ) == 0 )
        font->font_descent = fp->value.l;
      else if ( _bdf_strncmp( name, "SPACING", 7 ) == 0 )
      {
        if ( !fp->value.atom )
        {
          FT_ERROR(( "_bdf_add_property: " ERRMSG8, lineno, "SPACING" ));
          error = FT_THROW( Invalid_File_Format );
          goto Exit;
        }
  
        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 = FT_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 ( _bdf_strncmp( 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 ( _bdf_strncmp( line, "CHARS", 5 ) != 0 )
        {
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "CHARS" ));
          error = FT_THROW( 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 );
  
        /* We need at least 20 bytes per glyph. */
        if ( p->cnt > p->size / 20 )
        {
          p->cnt = font->glyphs_size = p->size / 20;
          FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG17, p->cnt ));
        }
  
        /* 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 >= 0x110000UL )
        {
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG5, lineno, "CHARS" ));
          error = FT_THROW( 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 ( _bdf_strncmp( line, "ENDFONT", 7 ) == 0 )
      {
        if ( p->flags & _BDF_GLYPH_BITS )
        {
          /* Missing ENDCHAR field. */
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "ENDCHAR" ));
          error = FT_THROW( Corrupted_Font_Glyphs );
          goto Exit;
        }
  
        /* 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 ( _bdf_strncmp( line, "ENDCHAR", 7 ) == 0 )
      {
        p->glyph_enc = 0;
        p->flags    &= ~_BDF_GLYPH_BITS;
  
        goto Exit;
      }
  
      /* Check 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 ( _bdf_strncmp( line, "STARTCHAR", 9 ) == 0 )
      {
        if ( p->flags & _BDF_GLYPH_BITS )
        {
          /* Missing ENDCHAR field. */
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "ENDCHAR" ));
          error = FT_THROW( Missing_Startchar_Field );
          goto Exit;
        }
  
        /* 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 )
        {
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG8, lineno, "STARTCHAR" ));
          error = FT_THROW( 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;
  
        FT_TRACE4(( DBGMSG1, lineno, s ));
  
        goto Exit;
      }
  
      /* Check for the ENCODING field. */
      if ( _bdf_strncmp( line, "ENCODING", 8 ) == 0 )
      {
        if ( !( p->flags & _BDF_GLYPH ) )
        {
          /* Missing STARTCHAR field. */
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "STARTCHAR" ));
          error = FT_THROW( 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 );
  
        /* Normalize negative encoding values.  The specification only */
        /* allows -1, but we can be more generous here.                */
        if ( p->glyph_enc < -1 )
          p->glyph_enc = -1;
  
        /* Check for alternative encoding format. */
        if ( p->glyph_enc == -1 && p->list.used > 2 )
          p->glyph_enc = _bdf_atol( p->list.field[2], 0, 10 );
  
        if ( p->glyph_enc < -1 )
          p->glyph_enc = -1;
  
        FT_TRACE4(( DBGMSG2, p->glyph_enc ));
  
        /* Check that the encoding is in the Unicode range because  */
        /* otherwise p->have (a bitmap with static size) overflows. */
        if ( p->glyph_enc > 0                                      &&
             (size_t)p->glyph_enc >= sizeof ( p->have ) /
                                     sizeof ( unsigned long ) * 32 )
        {
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG5, lineno, "ENCODING" ));
          error = FT_THROW( Invalid_File_Format );
          goto Exit;
        }
  
        /* Check 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 = NULL;
        }
        else
        {
          /* Unencoded glyph.  Check 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 = (long)font->unencoded_used++;
          }
          else
          {
            /* Free up the glyph name if the unencoded shouldn't be */
            /* kept.                                                */
            FT_FREE( p->glyph_name );
          }
  
          p->glyph_name = NULL;
        }
  
        /* 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 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];
          if ( !sbitset( hdigits, c ) )
            break;
          *bp = (FT_Byte)( ( *bp << 4 ) + a2i[c] );
          if ( i + 1 < nibbles && ( i & 1 ) )
            *++bp = 0;
        }
  
        /* If any line has not enough columns,            */
        /* indicate they have been padded with zero bits. */
        if ( i < nibbles                            &&
             !( p->flags & _BDF_GLYPH_WIDTH_CHECK ) )
        {
          FT_TRACE2(( "_bdf_parse_glyphs: " ACMSG16, glyph->encoding ));
          p->flags       |= _BDF_GLYPH_WIDTH_CHECK;
          font->modified  = 1;
        }
  
        /* 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 ( i == nibbles                           &&
             sbitset( hdigits, line[nibbles] )      &&
             !( 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 ( _bdf_strncmp( line, "SWIDTH", 6 ) == 0 )
      {
        if ( !( p->flags & _BDF_ENCODING ) )
          goto Missing_Encoding;
  
        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 ( _bdf_strncmp( line, "DWIDTH", 6 ) == 0 )
      {
        if ( !( p->flags & _BDF_ENCODING ) )
          goto Missing_Encoding;
  
        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 ( _bdf_strncmp( line, "BBX", 3 ) == 0 )
      {
        if ( !( p->flags & _BDF_ENCODING ) )
          goto Missing_Encoding;
  
        error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
        if ( error )
          goto Exit;
  
        glyph->bbx.width    = _bdf_atous( p->list.field[1], 0, 10 );
        glyph->bbx.height   = _bdf_atous( 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 ( _bdf_strncmp( 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 = FT_THROW( 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 ( glyph->bpr > 0xFFFFU || bitmap_size > 0xFFFFU )
        {
          FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG4, lineno ));
          error = FT_THROW( 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;
      }
  
      FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG9, lineno ));
      error = FT_THROW( Invalid_File_Format );
      goto Exit;
  
    Missing_Encoding:
      /* Missing ENCODING field. */
      FT_ERROR(( "_bdf_parse_glyphs: " ERRMSG1, lineno, "ENCODING" ));
      error = FT_THROW( Missing_Encoding_Field );
  
    Exit:
      if ( error && ( p->flags & _BDF_GLYPH ) )
        FT_FREE( p->glyph_name );
  
      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 = FT_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 ( _bdf_strncmp( 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, lineno );
          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, lineno );
          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 ( _bdf_strncmp( line, "_XFREE86_GLYPH_RANGES", 21 ) == 0 )
        goto Exit;
  
      /* Handle COMMENT fields and properties in a special way to preserve */
      /* the spacing.                                                      */
      if ( _bdf_strncmp( line, "COMMENT", 7 ) == 0 )
      {
        name = value = line;
        value += 7;
        if ( *value )
          *value++ = 0;
        error = _bdf_add_property( p->font, name, value, lineno );
        if ( error )
          goto Exit;
      }
      else if ( _bdf_is_atom( line, linelen, &name, &value, p->font ) )
      {
        error = _bdf_add_property( p->font, name, value, lineno );
        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, lineno );
        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  = FT_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 ( _bdf_strncmp( 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 ( _bdf_strncmp( line, "STARTFONT", 9 ) != 0 )
        {
          /* we don't emit an error message since this code gets */
          /* explicitly caught one level higher                  */
          error = FT_THROW( 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 */
          size_t           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, 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 ( _bdf_strncmp( line, "STARTPROPERTIES", 15 ) == 0 )
      {
        if ( !( p->flags & _BDF_FONT_BBX ) )
        {
          /* Missing the FONTBOUNDINGBOX field. */
          FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "FONTBOUNDINGBOX" ));
          error = FT_THROW( Missing_Fontboundingbox_Field );
          goto Exit;
        }
  
        error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
        if ( error )
          goto Exit;
        /* at this point, `p->font' can't be NULL */
        p->cnt = p->font->props_size = _bdf_atoul( p->list.field[1], 0, 10 );
  
        if ( FT_NEW_ARRAY( p->font->props, p->cnt ) )
        {
          p->font->props_size = 0;
          goto Exit;
        }
  
        p->flags |= _BDF_PROPS;
        *next     = _bdf_parse_properties;
  
        goto Exit;
      }
  
      /* Check for the FONTBOUNDINGBOX field. */
      if ( _bdf_strncmp( line, "FONTBOUNDINGBOX", 15 ) == 0 )
      {
        if ( !( p->flags & _BDF_SIZE ) )
        {
          /* Missing the SIZE field. */
          FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "SIZE" ));
          error = FT_THROW( Missing_Size_Field );
          goto Exit;
        }
  
        error = _bdf_list_split( &p->list, (char *)" +", line, linelen );
        if ( error )
          goto Exit;
  
        p->font->bbx.width  = _bdf_atous( p->list.field[1], 0, 10 );
        p->font->bbx.height = _bdf_atous( 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 ( _bdf_strncmp( 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 )
        {
          FT_ERROR(( "_bdf_parse_start: " ERRMSG8, lineno, "FONT" ));
          error = FT_THROW( Invalid_File_Format );
          goto Exit;
        }
  
        /* Allowing multiple `FONT' lines (which is invalid) doesn't hurt... */
        FT_FREE( p->font->name );
  
        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, lineno );
        if ( error )
          goto Exit;
  
        p->flags |= _BDF_FONT_NAME;
  
        goto Exit;
      }
  
      /* Check for the SIZE field. */
      if ( _bdf_strncmp( line, "SIZE", 4 ) == 0 )
      {
        if ( !( p->flags & _BDF_FONT_NAME ) )
        {
          /* Missing the FONT field. */
          FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "FONT" ));
          error = FT_THROW( 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 bpp;
  
  
          bpp = (unsigned short)_bdf_atos( p->list.field[4], 0, 10 );
  
          /* Only values 1, 2, 4, 8 are allowed for greymap fonts. */
          if ( bpp > 4 )
            p->font->bpp = 8;
          else if ( bpp > 2 )
            p->font->bpp = 4;
          else if ( bpp > 1 )
            p->font->bpp = 2;
          else
            p->font->bpp = 1;
  
          if ( p->font->bpp != bpp )
            FT_TRACE2(( "_bdf_parse_start: " ACMSG11, p->font->bpp ));
        }
        else
          p->font->bpp = 1;
  
        p->flags |= _BDF_SIZE;
  
        goto Exit;
      }
  
      /* Check for the CHARS field -- font properties are optional */
      if ( _bdf_strncmp( line, "CHARS", 5 ) == 0 )
      {
        char  nbuf[128];
  
  
        if ( !( p->flags & _BDF_FONT_BBX ) )
        {
          /* Missing the FONTBOUNDINGBOX field. */
          FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "FONTBOUNDINGBOX" ));
          error = FT_THROW( Missing_Fontboundingbox_Field );
          goto Exit;
        }
  
        /* Add the two standard X11 properties which are required */
        /* for compiling fonts.                                   */
        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, lineno );
        if ( error )
          goto Exit;
        FT_TRACE2(( "_bdf_parse_properties: " ACMSG1, p->font->bbx.ascent ));
  
        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, lineno );
        if ( error )
          goto Exit;
        FT_TRACE2(( "_bdf_parse_properties: " ACMSG2, p->font->bbx.descent ));
  
        p->font->modified = 1;
  
        *next = _bdf_parse_glyphs;
  
        /* A special return value. */
        error = -1;
        goto Exit;
      }
  
      FT_ERROR(( "_bdf_parse_start: " ERRMSG9, lineno ));
      error = FT_THROW( 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     = NULL;
  
      FT_Memory  memory = extmemory; /* needed for FT_NEW */
      FT_Error   error  = FT_Err_Ok;
  
  
      if ( FT_NEW( p ) )
        goto Exit;
  
      memory    = NULL;
      p->opts   = (bdf_options_t*)( ( opts != 0 ) ? opts : &_bdf_opts );
      p->minlb  = 32767;
      p->size   = stream->size;
      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.              */
  
        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 = FT_THROW( Corrupted_Font_Header );
          goto Fail;
        }
        else
        {
          /* Error happened when parsing glyphs. */
          FT_ERROR(( "bdf_load_font: " ERRMSG3, lineno ));
          error = FT_THROW( Corrupted_Font_Glyphs );
          goto Fail;
        }
      }
  
      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 == FT_Err_Ok )
        error = FT_THROW( 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 );
      FT_FREE( p->glyph_name );
  
      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 + hn->data ) : 0;
    }
  
  
  /* END */
  