/*

 * Copyright 2000 Computing Research Labs, New Mexico State University

 * Copyright 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2009, 2010

 *   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,

               size_t      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,

                    unsigned long  num_items ) /* same as _bdf_list_t.used */

  {

    FT_Error  error = BDF_Err_Ok;





    if ( num_items > list->size )

    {

      unsigned long  oldsize = list->size; /* same as _bdf_list_t.size */

      unsigned long  newsize = oldsize + ( oldsize >> 1 ) + 4;

      unsigned long  bigsize = (unsigned long)( 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;

  }





  /* 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           *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;

    }

    if ( dp != empty )

      dp[j] = 0;



    *alen = j;

    return dp;

  }





  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, hold, to_skip;

    ptrdiff_t         bytes, 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  = (ptrdiff_t)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 );

        /* Redo if we have encountered CHARS without properties. */

        if ( error == -1 )

          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 )

  {

    size_t           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 = ft_strlen( name ) + 1;

    if ( n > FT_ULONG_MAX )

      return BDF_Err_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      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 )

  {

    size_t       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 = 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 )

  {

    size_t          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 + 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 ( ft_memcmp( 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 ( ft_memcmp( name, "DEFAULT_CHAR", 12 ) == 0 )

      font->default_char = fp->value.l;

    else if ( ft_memcmp( name, "FONT_ASCENT", 11 ) == 0 )

      font->font_ascent = fp->value.l;

    else if ( ft_memcmp( name, "FONT_DESCENT", 12 ) == 0 )

      font->font_descent = fp->value.l;

    else if ( ft_memcmp( name, "SPACING", 7 ) == 0 )

    {

      if ( !fp->value.atom )

      {

        error = BDF_Err_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 = 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:

    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 = 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 */

        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 ( ft_memcmp( line, "STARTPROPERTIES", 15 ) == 0 )

    {

      if ( !( p->flags & _BDF_FONT_BBX ) )

      {

        /* Missing the FONTBOUNDINGBOX field. */

        FT_ERROR(( "_bdf_parse_start: " ERRMSG1, lineno, "FONTBOUNDINGBOX" ));

        error = BDF_Err_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 ) )

        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;

      }



      /* 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 );

      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;

    }



    /* Check for the CHARS field -- font properties are optional */

    if ( ft_memcmp( 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 = BDF_Err_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 );

      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 );

      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;

    }



    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     = NULL;



    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 + hn->data ) : 0;

  }





/* END */

