ftobjs.c
上传用户:yisoukefu
上传日期:2020-08-09
资源大小:39506k
文件大小:105k
源码类别:

其他游戏

开发平台:

Visual C++

  1. /***************************************************************************/
  2. /*                                                                         */
  3. /*  ftobjs.c                                                               */
  4. /*                                                                         */
  5. /*    The FreeType private base classes (body).                            */
  6. /*                                                                         */
  7. /*  Copyright 1996-2001, 2002, 2003, 2004, 2005, 2006, 2007 by             */
  8. /*  David Turner, Robert Wilhelm, and Werner Lemberg.                      */
  9. /*                                                                         */
  10. /*  This file is part of the FreeType project, and may only be used,       */
  11. /*  modified, and distributed under the terms of the FreeType project      */
  12. /*  license, LICENSE.TXT.  By continuing to use, modify, or distribute     */
  13. /*  this file you indicate that you have read the license and              */
  14. /*  understand and accept it fully.                                        */
  15. /*                                                                         */
  16. /***************************************************************************/
  17. #include <ft2build.h>
  18. #include FT_LIST_H
  19. #include FT_OUTLINE_H
  20. #include FT_INTERNAL_VALIDATE_H
  21. #include FT_INTERNAL_OBJECTS_H
  22. #include FT_INTERNAL_DEBUG_H
  23. #include FT_INTERNAL_RFORK_H
  24. #include FT_INTERNAL_STREAM_H
  25. #include FT_INTERNAL_SFNT_H    /* for SFNT_Load_Table_Func */
  26. #include FT_TRUETYPE_TABLES_H
  27. #include FT_TRUETYPE_IDS_H
  28. #include FT_OUTLINE_H
  29. #include FT_SERVICE_SFNT_H
  30. #include FT_SERVICE_POSTSCRIPT_NAME_H
  31. #include FT_SERVICE_GLYPH_DICT_H
  32. #include FT_SERVICE_TT_CMAP_H
  33. #include FT_SERVICE_KERNING_H
  34. #include FT_SERVICE_TRUETYPE_ENGINE_H
  35. #define GRID_FIT_METRICS
  36.   FT_BASE_DEF( FT_Pointer )
  37.   ft_service_list_lookup( FT_ServiceDesc  service_descriptors,
  38.                           const char*     service_id )
  39.   {
  40.     FT_Pointer      result = NULL;
  41.     FT_ServiceDesc  desc   = service_descriptors;
  42.     if ( desc && service_id )
  43.     {
  44.       for ( ; desc->serv_id != NULL; desc++ )
  45.       {
  46.         if ( ft_strcmp( desc->serv_id, service_id ) == 0 )
  47.         {
  48.           result = (FT_Pointer)desc->serv_data;
  49.           break;
  50.         }
  51.       }
  52.     }
  53.     return result;
  54.   }
  55.   FT_BASE_DEF( void )
  56.   ft_validator_init( FT_Validator        valid,
  57.                      const FT_Byte*      base,
  58.                      const FT_Byte*      limit,
  59.                      FT_ValidationLevel  level )
  60.   {
  61.     valid->base  = base;
  62.     valid->limit = limit;
  63.     valid->level = level;
  64.     valid->error = FT_Err_Ok;
  65.   }
  66.   FT_BASE_DEF( FT_Int )
  67.   ft_validator_run( FT_Validator  valid )
  68.   {
  69.     /* This function doesn't work!  None should call it. */
  70.     FT_UNUSED( valid );
  71.     return -1;
  72.   }
  73.   FT_BASE_DEF( void )
  74.   ft_validator_error( FT_Validator  valid,
  75.                       FT_Error      error )
  76.   {
  77.     /* since the cast below also disables the compiler's */
  78.     /* type check, we introduce a dummy variable, which  */
  79.     /* will be optimized away                            */
  80.     volatile ft_jmp_buf* jump_buffer = &valid->jump_buffer;
  81.     valid->error = error;
  82.     /* throw away volatileness; use `jump_buffer' or the  */
  83.     /* compiler may warn about an unused local variable   */
  84.     ft_longjmp( *(ft_jmp_buf*) jump_buffer, 1 );
  85.   }
  86.   /*************************************************************************/
  87.   /*************************************************************************/
  88.   /*************************************************************************/
  89.   /****                                                                 ****/
  90.   /****                                                                 ****/
  91.   /****                           S T R E A M                           ****/
  92.   /****                                                                 ****/
  93.   /****                                                                 ****/
  94.   /*************************************************************************/
  95.   /*************************************************************************/
  96.   /*************************************************************************/
  97.   /* create a new input stream from an FT_Open_Args structure */
  98.   /*                                                          */
  99.   FT_BASE_DEF( FT_Error )
  100.   FT_Stream_New( FT_Library           library,
  101.                  const FT_Open_Args*  args,
  102.                  FT_Stream           *astream )
  103.   {
  104.     FT_Error   error;
  105.     FT_Memory  memory;
  106.     FT_Stream  stream;
  107.     if ( !library )
  108.       return FT_Err_Invalid_Library_Handle;
  109.     if ( !args )
  110.       return FT_Err_Invalid_Argument;
  111.     *astream = 0;
  112.     memory   = library->memory;
  113.     if ( FT_NEW( stream ) )
  114.       goto Exit;
  115.     stream->memory = memory;
  116.     if ( args->flags & FT_OPEN_MEMORY )
  117.     {
  118.       /* create a memory-based stream */
  119.       FT_Stream_OpenMemory( stream,
  120.                             (const FT_Byte*)args->memory_base,
  121.                             args->memory_size );
  122.     }
  123.     else if ( args->flags & FT_OPEN_PATHNAME )
  124.     {
  125.       /* create a normal system stream */
  126.       error = FT_Stream_Open( stream, args->pathname );
  127.       stream->pathname.pointer = args->pathname;
  128.     }
  129.     else if ( ( args->flags & FT_OPEN_STREAM ) && args->stream )
  130.     {
  131.       /* use an existing, user-provided stream */
  132.       /* in this case, we do not need to allocate a new stream object */
  133.       /* since the caller is responsible for closing it himself       */
  134.       FT_FREE( stream );
  135.       stream = args->stream;
  136.     }
  137.     else
  138.       error = FT_Err_Invalid_Argument;
  139.     if ( error )
  140.       FT_FREE( stream );
  141.     else
  142.       stream->memory = memory;  /* just to be certain */
  143.     *astream = stream;
  144.   Exit:
  145.     return error;
  146.   }
  147.   FT_BASE_DEF( void )
  148.   FT_Stream_Free( FT_Stream  stream,
  149.                   FT_Int     external )
  150.   {
  151.     if ( stream )
  152.     {
  153.       FT_Memory  memory = stream->memory;
  154.       FT_Stream_Close( stream );
  155.       if ( !external )
  156.         FT_FREE( stream );
  157.     }
  158.   }
  159. #undef  FT_COMPONENT
  160. #define FT_COMPONENT  trace_objs
  161.   /*************************************************************************/
  162.   /*************************************************************************/
  163.   /*************************************************************************/
  164.   /****                                                                 ****/
  165.   /****                                                                 ****/
  166.   /****               FACE, SIZE & GLYPH SLOT OBJECTS                   ****/
  167.   /****                                                                 ****/
  168.   /****                                                                 ****/
  169.   /*************************************************************************/
  170.   /*************************************************************************/
  171.   /*************************************************************************/
  172.   static FT_Error
  173.   ft_glyphslot_init( FT_GlyphSlot  slot )
  174.   {
  175.     FT_Driver         driver = slot->face->driver;
  176.     FT_Driver_Class   clazz  = driver->clazz;
  177.     FT_Memory         memory = driver->root.memory;
  178.     FT_Error          error  = FT_Err_Ok;
  179.     FT_Slot_Internal  internal;
  180.     slot->library = driver->root.library;
  181.     if ( FT_NEW( internal ) )
  182.       goto Exit;
  183.     slot->internal = internal;
  184.     if ( FT_DRIVER_USES_OUTLINES( driver ) )
  185.       error = FT_GlyphLoader_New( memory, &internal->loader );
  186.     if ( !error && clazz->init_slot )
  187.       error = clazz->init_slot( slot );
  188.   Exit:
  189.     return error;
  190.   }
  191.   FT_BASE_DEF( void )
  192.   ft_glyphslot_free_bitmap( FT_GlyphSlot  slot )
  193.   {
  194.     if ( slot->internal->flags & FT_GLYPH_OWN_BITMAP )
  195.     {
  196.       FT_Memory  memory = FT_FACE_MEMORY( slot->face );
  197.       FT_FREE( slot->bitmap.buffer );
  198.       slot->internal->flags &= ~FT_GLYPH_OWN_BITMAP;
  199.     }
  200.     else
  201.     {
  202.       /* assume that the bitmap buffer was stolen or not */
  203.       /* allocated from the heap                         */
  204.       slot->bitmap.buffer = NULL;
  205.     }
  206.   }
  207.   FT_BASE_DEF( void )
  208.   ft_glyphslot_set_bitmap( FT_GlyphSlot  slot,
  209.                            FT_Byte*      buffer )
  210.   {
  211.     ft_glyphslot_free_bitmap( slot );
  212.     slot->bitmap.buffer = buffer;
  213.     FT_ASSERT( (slot->internal->flags & FT_GLYPH_OWN_BITMAP) == 0 );
  214.   }
  215.   FT_BASE_DEF( FT_Error )
  216.   ft_glyphslot_alloc_bitmap( FT_GlyphSlot  slot,
  217.                              FT_ULong      size )
  218.   {
  219.     FT_Memory  memory = FT_FACE_MEMORY( slot->face );
  220.     FT_Error   error;
  221.     if ( slot->internal->flags & FT_GLYPH_OWN_BITMAP )
  222.       FT_FREE( slot->bitmap.buffer );
  223.     else
  224.       slot->internal->flags |= FT_GLYPH_OWN_BITMAP;
  225.     (void)FT_ALLOC( slot->bitmap.buffer, size );
  226.     return error;
  227.   }
  228.   static void
  229.   ft_glyphslot_clear( FT_GlyphSlot  slot )
  230.   {
  231.     /* free bitmap if needed */
  232.     ft_glyphslot_free_bitmap( slot );
  233.     /* clear all public fields in the glyph slot */
  234.     FT_ZERO( &slot->metrics );
  235.     FT_ZERO( &slot->outline );
  236.     slot->bitmap.width      = 0;
  237.     slot->bitmap.rows       = 0;
  238.     slot->bitmap.pitch      = 0;
  239.     slot->bitmap.pixel_mode = 0;
  240.     /* `slot->bitmap.buffer' has been handled by ft_glyphslot_free_bitmap */
  241.     slot->bitmap_left   = 0;
  242.     slot->bitmap_top    = 0;
  243.     slot->num_subglyphs = 0;
  244.     slot->subglyphs     = 0;
  245.     slot->control_data  = 0;
  246.     slot->control_len   = 0;
  247.     slot->other         = 0;
  248.     slot->format        = FT_GLYPH_FORMAT_NONE;
  249.     slot->linearHoriAdvance = 0;
  250.     slot->linearVertAdvance = 0;
  251.     slot->lsb_delta         = 0;
  252.     slot->rsb_delta         = 0;
  253.   }
  254.   static void
  255.   ft_glyphslot_done( FT_GlyphSlot  slot )
  256.   {
  257.     FT_Driver        driver = slot->face->driver;
  258.     FT_Driver_Class  clazz  = driver->clazz;
  259.     FT_Memory        memory = driver->root.memory;
  260.     if ( clazz->done_slot )
  261.       clazz->done_slot( slot );
  262.     /* free bitmap buffer if needed */
  263.     ft_glyphslot_free_bitmap( slot );
  264.     /* free glyph loader */
  265.     if ( FT_DRIVER_USES_OUTLINES( driver ) )
  266.     {
  267.       FT_GlyphLoader_Done( slot->internal->loader );
  268.       slot->internal->loader = 0;
  269.     }
  270.     FT_FREE( slot->internal );
  271.   }
  272.   /* documentation is in ftobjs.h */
  273.   FT_BASE_DEF( FT_Error )
  274.   FT_New_GlyphSlot( FT_Face        face,
  275.                     FT_GlyphSlot  *aslot )
  276.   {
  277.     FT_Error         error;
  278.     FT_Driver        driver;
  279.     FT_Driver_Class  clazz;
  280.     FT_Memory        memory;
  281.     FT_GlyphSlot     slot;
  282.     if ( !face || !face->driver )
  283.       return FT_Err_Invalid_Argument;
  284.     driver = face->driver;
  285.     clazz  = driver->clazz;
  286.     memory = driver->root.memory;
  287.     FT_TRACE4(( "FT_New_GlyphSlot: Creating new slot objectn" ));
  288.     if ( !FT_ALLOC( slot, clazz->slot_object_size ) )
  289.     {
  290.       slot->face = face;
  291.       error = ft_glyphslot_init( slot );
  292.       if ( error )
  293.       {
  294.         ft_glyphslot_done( slot );
  295.         FT_FREE( slot );
  296.         goto Exit;
  297.       }
  298.       slot->next  = face->glyph;
  299.       face->glyph = slot;
  300.       if ( aslot )
  301.         *aslot = slot;
  302.     }
  303.     else if ( aslot )
  304.       *aslot = 0;
  305.   Exit:
  306.     FT_TRACE4(( "FT_New_GlyphSlot: Return %dn", error ));
  307.     return error;
  308.   }
  309.   /* documentation is in ftobjs.h */
  310.   FT_BASE_DEF( void )
  311.   FT_Done_GlyphSlot( FT_GlyphSlot  slot )
  312.   {
  313.     if ( slot )
  314.     {
  315.       FT_Driver     driver = slot->face->driver;
  316.       FT_Memory     memory = driver->root.memory;
  317.       FT_GlyphSlot  prev;
  318.       FT_GlyphSlot  cur;
  319.       /* Remove slot from its parent face's list */
  320.       prev = NULL;
  321.       cur  = slot->face->glyph;
  322.       while ( cur )
  323.       {
  324.         if ( cur == slot )
  325.         {
  326.           if ( !prev )
  327.             slot->face->glyph = cur->next;
  328.           else
  329.             prev->next = cur->next;
  330.           ft_glyphslot_done( slot );
  331.           FT_FREE( slot );
  332.           break;
  333.         }
  334.         prev = cur;
  335.         cur  = cur->next;
  336.       }
  337.     }
  338.   }
  339.   /* documentation is in freetype.h */
  340.   FT_EXPORT_DEF( void )
  341.   FT_Set_Transform( FT_Face     face,
  342.                     FT_Matrix*  matrix,
  343.                     FT_Vector*  delta )
  344.   {
  345.     FT_Face_Internal  internal;
  346.     if ( !face )
  347.       return;
  348.     internal = face->internal;
  349.     internal->transform_flags = 0;
  350.     if ( !matrix )
  351.     {
  352.       internal->transform_matrix.xx = 0x10000L;
  353.       internal->transform_matrix.xy = 0;
  354.       internal->transform_matrix.yx = 0;
  355.       internal->transform_matrix.yy = 0x10000L;
  356.       matrix = &internal->transform_matrix;
  357.     }
  358.     else
  359.       internal->transform_matrix = *matrix;
  360.     /* set transform_flags bit flag 0 if `matrix' isn't the identity */
  361.     if ( ( matrix->xy | matrix->yx ) ||
  362.          matrix->xx != 0x10000L      ||
  363.          matrix->yy != 0x10000L      )
  364.       internal->transform_flags |= 1;
  365.     if ( !delta )
  366.     {
  367.       internal->transform_delta.x = 0;
  368.       internal->transform_delta.y = 0;
  369.       delta = &internal->transform_delta;
  370.     }
  371.     else
  372.       internal->transform_delta = *delta;
  373.     /* set transform_flags bit flag 1 if `delta' isn't the null vector */
  374.     if ( delta->x | delta->y )
  375.       internal->transform_flags |= 2;
  376.   }
  377.   static FT_Renderer
  378.   ft_lookup_glyph_renderer( FT_GlyphSlot  slot );
  379. #ifdef GRID_FIT_METRICS
  380.   static void
  381.   ft_glyphslot_grid_fit_metrics( FT_GlyphSlot  slot,
  382.                                  FT_Bool       vertical )
  383.   {
  384.     FT_Glyph_Metrics*  metrics = &slot->metrics;
  385.     FT_Pos             right, bottom;
  386.     if ( vertical )
  387.     {
  388.       metrics->horiBearingX = FT_PIX_FLOOR( metrics->horiBearingX );
  389.       metrics->horiBearingY = FT_PIX_CEIL ( metrics->horiBearingY );
  390.       right  = FT_PIX_CEIL( metrics->vertBearingX + metrics->width );
  391.       bottom = FT_PIX_CEIL( metrics->vertBearingY + metrics->height );
  392.       metrics->vertBearingX = FT_PIX_FLOOR( metrics->vertBearingX );
  393.       metrics->vertBearingY = FT_PIX_FLOOR( metrics->vertBearingY );
  394.       metrics->width  = right - metrics->vertBearingX;
  395.       metrics->height = bottom - metrics->vertBearingY;
  396.     }
  397.     else
  398.     {
  399.       metrics->vertBearingX = FT_PIX_FLOOR( metrics->vertBearingX );
  400.       metrics->vertBearingY = FT_PIX_FLOOR( metrics->vertBearingY );
  401.       right  = FT_PIX_CEIL ( metrics->horiBearingX + metrics->width );
  402.       bottom = FT_PIX_FLOOR( metrics->horiBearingY - metrics->height );
  403.       metrics->horiBearingX = FT_PIX_FLOOR( metrics->horiBearingX );
  404.       metrics->horiBearingY = FT_PIX_CEIL ( metrics->horiBearingY );
  405.       metrics->width  = right - metrics->horiBearingX;
  406.       metrics->height = metrics->horiBearingY - bottom;
  407.     }
  408.     metrics->horiAdvance = FT_PIX_ROUND( metrics->horiAdvance );
  409.     metrics->vertAdvance = FT_PIX_ROUND( metrics->vertAdvance );
  410.   }
  411. #endif /* GRID_FIT_METRICS */
  412.   /* documentation is in freetype.h */
  413.   FT_EXPORT_DEF( FT_Error )
  414.   FT_Load_Glyph( FT_Face   face,
  415.                  FT_UInt   glyph_index,
  416.                  FT_Int32  load_flags )
  417.   {
  418.     FT_Error      error;
  419.     FT_Driver     driver;
  420.     FT_GlyphSlot  slot;
  421.     FT_Library    library;
  422.     FT_Bool       autohint = 0;
  423.     FT_Module     hinter;
  424.     if ( !face || !face->size || !face->glyph )
  425.       return FT_Err_Invalid_Face_Handle;
  426.     /* The validity test for `glyph_index' is performed by the */
  427.     /* font drivers.                                           */
  428.     slot = face->glyph;
  429.     ft_glyphslot_clear( slot );
  430.     driver  = face->driver;
  431.     library = driver->root.library;
  432.     hinter  = library->auto_hinter;
  433.     /* resolve load flags dependencies */
  434.     if ( load_flags & FT_LOAD_NO_RECURSE )
  435.       load_flags |= FT_LOAD_NO_SCALE         |
  436.                     FT_LOAD_IGNORE_TRANSFORM;
  437.     if ( load_flags & FT_LOAD_NO_SCALE )
  438.     {
  439.       load_flags |= FT_LOAD_NO_HINTING |
  440.                     FT_LOAD_NO_BITMAP;
  441.       load_flags &= ~FT_LOAD_RENDER;
  442.     }
  443.     /*
  444.      * Determine whether we need to auto-hint or not.
  445.      * The general rules are:
  446.      *
  447.      * - Do only auto-hinting if we have a hinter module,
  448.      *   a scalable font format dealing with outlines,
  449.      *   and no transforms except simple slants.
  450.      *
  451.      * - Then, autohint if FT_LOAD_FORCE_AUTOHINT is set
  452.      *   or if we don't have a native font hinter.
  453.      *
  454.      * - Otherwise, auto-hint for LIGHT hinting mode.
  455.      *
  456.      * - Exception: The font requires the unpatented
  457.      *   bytecode interpreter to load properly.
  458.      */
  459.     autohint = 0;
  460.     if ( hinter                                    &&
  461.          ( load_flags & FT_LOAD_NO_HINTING  ) == 0 &&
  462.          ( load_flags & FT_LOAD_NO_AUTOHINT ) == 0 &&
  463.          FT_DRIVER_IS_SCALABLE( driver )           &&
  464.          FT_DRIVER_USES_OUTLINES( driver )         &&
  465.          face->internal->transform_matrix.yy > 0   &&
  466.          face->internal->transform_matrix.yx == 0  )
  467.     {
  468.       if ( ( load_flags & FT_LOAD_FORCE_AUTOHINT ) != 0 ||
  469.            !FT_DRIVER_HAS_HINTER( driver )              )
  470.         autohint = 1;
  471.       else
  472.       {
  473.         FT_Render_Mode  mode = FT_LOAD_TARGET_MODE( load_flags );
  474.         if ( mode == FT_RENDER_MODE_LIGHT             ||
  475.              face->internal->ignore_unpatented_hinter )
  476.           autohint = 1;
  477.       }
  478.     }
  479.     if ( autohint )
  480.     {
  481.       FT_AutoHinter_Service  hinting;
  482.       /* try to load embedded bitmaps first if available            */
  483.       /*                                                            */
  484.       /* XXX: This is really a temporary hack that should disappear */
  485.       /*      promptly with FreeType 2.1!                           */
  486.       /*                                                            */
  487.       if ( FT_HAS_FIXED_SIZES( face )             &&
  488.           ( load_flags & FT_LOAD_NO_BITMAP ) == 0 )
  489.       {
  490.         error = driver->clazz->load_glyph( slot, face->size,
  491.                                            glyph_index,
  492.                                            load_flags | FT_LOAD_SBITS_ONLY );
  493.         if ( !error && slot->format == FT_GLYPH_FORMAT_BITMAP )
  494.           goto Load_Ok;
  495.       }
  496.       /* load auto-hinted outline */
  497.       hinting = (FT_AutoHinter_Service)hinter->clazz->module_interface;
  498.       error   = hinting->load_glyph( (FT_AutoHinter)hinter,
  499.                                      slot, face->size,
  500.                                      glyph_index, load_flags );
  501.     }
  502.     else
  503.     {
  504.       error = driver->clazz->load_glyph( slot,
  505.                                          face->size,
  506.                                          glyph_index,
  507.                                          load_flags );
  508.       if ( error )
  509.         goto Exit;
  510.       if ( slot->format == FT_GLYPH_FORMAT_OUTLINE )
  511.       {
  512.         /* check that the loaded outline is correct */
  513.         error = FT_Outline_Check( &slot->outline );
  514.         if ( error )
  515.           goto Exit;
  516. #ifdef GRID_FIT_METRICS
  517.         if ( !( load_flags & FT_LOAD_NO_HINTING ) )
  518.           ft_glyphslot_grid_fit_metrics( slot,
  519.               FT_BOOL( load_flags & FT_LOAD_VERTICAL_LAYOUT ) );
  520. #endif
  521.       }
  522.     }
  523.   Load_Ok:
  524.     /* compute the advance */
  525.     if ( load_flags & FT_LOAD_VERTICAL_LAYOUT )
  526.     {
  527.       slot->advance.x = 0;
  528.       slot->advance.y = slot->metrics.vertAdvance;
  529.     }
  530.     else
  531.     {
  532.       slot->advance.x = slot->metrics.horiAdvance;
  533.       slot->advance.y = 0;
  534.     }
  535.     /* compute the linear advance in 16.16 pixels */
  536.     if ( ( load_flags & FT_LOAD_LINEAR_DESIGN ) == 0  &&
  537.          ( face->face_flags & FT_FACE_FLAG_SCALABLE ) )
  538.     {
  539.       FT_Size_Metrics*  metrics = &face->size->metrics;
  540.       /* it's tricky! */
  541.       slot->linearHoriAdvance = FT_MulDiv( slot->linearHoriAdvance,
  542.                                            metrics->x_scale, 64 );
  543.       slot->linearVertAdvance = FT_MulDiv( slot->linearVertAdvance,
  544.                                            metrics->y_scale, 64 );
  545.     }
  546.     if ( ( load_flags & FT_LOAD_IGNORE_TRANSFORM ) == 0 )
  547.     {
  548.       FT_Face_Internal  internal = face->internal;
  549.       /* now, transform the glyph image if needed */
  550.       if ( internal->transform_flags )
  551.       {
  552.         /* get renderer */
  553.         FT_Renderer  renderer = ft_lookup_glyph_renderer( slot );
  554.         if ( renderer )
  555.           error = renderer->clazz->transform_glyph(
  556.                                      renderer, slot,
  557.                                      &internal->transform_matrix,
  558.                                      &internal->transform_delta );
  559.         /* transform advance */
  560.         FT_Vector_Transform( &slot->advance, &internal->transform_matrix );
  561.       }
  562.     }
  563.     /* do we need to render the image now? */
  564.     if ( !error                                    &&
  565.          slot->format != FT_GLYPH_FORMAT_BITMAP    &&
  566.          slot->format != FT_GLYPH_FORMAT_COMPOSITE &&
  567.          load_flags & FT_LOAD_RENDER )
  568.     {
  569.       FT_Render_Mode  mode = FT_LOAD_TARGET_MODE( load_flags );
  570.       if ( mode == FT_RENDER_MODE_NORMAL      &&
  571.            (load_flags & FT_LOAD_MONOCHROME ) )
  572.         mode = FT_RENDER_MODE_MONO;
  573.       error = FT_Render_Glyph( slot, mode );
  574.     }
  575.   Exit:
  576.     return error;
  577.   }
  578.   /* documentation is in freetype.h */
  579.   FT_EXPORT_DEF( FT_Error )
  580.   FT_Load_Char( FT_Face   face,
  581.                 FT_ULong  char_code,
  582.                 FT_Int32  load_flags )
  583.   {
  584.     FT_UInt  glyph_index;
  585.     if ( !face )
  586.       return FT_Err_Invalid_Face_Handle;
  587.     glyph_index = (FT_UInt)char_code;
  588.     if ( face->charmap )
  589.       glyph_index = FT_Get_Char_Index( face, char_code );
  590.     return FT_Load_Glyph( face, glyph_index, load_flags );
  591.   }
  592.   /* destructor for sizes list */
  593.   static void
  594.   destroy_size( FT_Memory  memory,
  595.                 FT_Size    size,
  596.                 FT_Driver  driver )
  597.   {
  598.     /* finalize client-specific data */
  599.     if ( size->generic.finalizer )
  600.       size->generic.finalizer( size );
  601.     /* finalize format-specific stuff */
  602.     if ( driver->clazz->done_size )
  603.       driver->clazz->done_size( size );
  604.     FT_FREE( size->internal );
  605.     FT_FREE( size );
  606.   }
  607.   static void
  608.   ft_cmap_done_internal( FT_CMap  cmap );
  609.   static void
  610.   destroy_charmaps( FT_Face    face,
  611.                     FT_Memory  memory )
  612.   {
  613.     FT_Int  n;
  614.     if ( !face )
  615.       return;
  616.     for ( n = 0; n < face->num_charmaps; n++ )
  617.     {
  618.       FT_CMap  cmap = FT_CMAP( face->charmaps[n] );
  619.       ft_cmap_done_internal( cmap );
  620.       face->charmaps[n] = NULL;
  621.     }
  622.     FT_FREE( face->charmaps );
  623.     face->num_charmaps = 0;
  624.   }
  625.   /* destructor for faces list */
  626.   static void
  627.   destroy_face( FT_Memory  memory,
  628.                 FT_Face    face,
  629.                 FT_Driver  driver )
  630.   {
  631.     FT_Driver_Class  clazz = driver->clazz;
  632.     /* discard auto-hinting data */
  633.     if ( face->autohint.finalizer )
  634.       face->autohint.finalizer( face->autohint.data );
  635.     /* Discard glyph slots for this face.                           */
  636.     /* Beware!  FT_Done_GlyphSlot() changes the field `face->glyph' */
  637.     while ( face->glyph )
  638.       FT_Done_GlyphSlot( face->glyph );
  639.     /* discard all sizes for this face */
  640.     FT_List_Finalize( &face->sizes_list,
  641.                       (FT_List_Destructor)destroy_size,
  642.                       memory,
  643.                       driver );
  644.     face->size = 0;
  645.     /* now discard client data */
  646.     if ( face->generic.finalizer )
  647.       face->generic.finalizer( face );
  648.     /* discard charmaps */
  649.     destroy_charmaps( face, memory );
  650.     /* finalize format-specific stuff */
  651.     if ( clazz->done_face )
  652.       clazz->done_face( face );
  653.     /* close the stream for this face if needed */
  654.     FT_Stream_Free(
  655.       face->stream,
  656.       ( face->face_flags & FT_FACE_FLAG_EXTERNAL_STREAM ) != 0 );
  657.     face->stream = 0;
  658.     /* get rid of it */
  659.     if ( face->internal )
  660.     {
  661.       FT_FREE( face->internal );
  662.     }
  663.     FT_FREE( face );
  664.   }
  665.   static void
  666.   Destroy_Driver( FT_Driver  driver )
  667.   {
  668.     FT_List_Finalize( &driver->faces_list,
  669.                       (FT_List_Destructor)destroy_face,
  670.                       driver->root.memory,
  671.                       driver );
  672.     /* check whether we need to drop the driver's glyph loader */
  673.     if ( FT_DRIVER_USES_OUTLINES( driver ) )
  674.       FT_GlyphLoader_Done( driver->glyph_loader );
  675.   }
  676.   /*************************************************************************/
  677.   /*                                                                       */
  678.   /* <Function>                                                            */
  679.   /*    find_unicode_charmap                                               */
  680.   /*                                                                       */
  681.   /* <Description>                                                         */
  682.   /*    This function finds a Unicode charmap, if there is one.            */
  683.   /*    And if there is more than one, it tries to favour the more         */
  684.   /*    extensive one, i.e., one that supports UCS-4 against those which   */
  685.   /*    are limited to the BMP (said UCS-2 encoding.)                      */
  686.   /*                                                                       */
  687.   /*    This function is called from open_face() (just below), and also    */
  688.   /*    from FT_Select_Charmap( ..., FT_ENCODING_UNICODE).                 */
  689.   /*                                                                       */
  690.   static FT_Error
  691.   find_unicode_charmap( FT_Face  face )
  692.   {
  693.     FT_CharMap*  first;
  694.     FT_CharMap*  cur;
  695.     FT_CharMap*  unicmap = NULL;  /* some UCS-2 map, if we found it */
  696.     /* caller should have already checked that `face' is valid */
  697.     FT_ASSERT( face );
  698.     first = face->charmaps;
  699.     if ( !first )
  700.       return FT_Err_Invalid_CharMap_Handle;
  701.     /*
  702.      *  The original TrueType specification(s) only specified charmap
  703.      *  formats that are capable of mapping 8 or 16 bit character codes to
  704.      *  glyph indices.
  705.      *
  706.      *  However, recent updates to the Apple and OpenType specifications
  707.      *  introduced new formats that are capable of mapping 32-bit character
  708.      *  codes as well.  And these are already used on some fonts, mainly to
  709.      *  map non-BMP Asian ideographs as defined in Unicode.
  710.      *
  711.      *  For compatibility purposes, these fonts generally come with
  712.      *  *several* Unicode charmaps:
  713.      *
  714.      *   - One of them in the "old" 16-bit format, that cannot access
  715.      *     all glyphs in the font.
  716.      *
  717.      *   - Another one in the "new" 32-bit format, that can access all
  718.      *     the glyphs.
  719.      *
  720.      *  This function has been written to always favor a 32-bit charmap
  721.      *  when found.  Otherwise, a 16-bit one is returned when found.
  722.      */
  723.     /* Since the `interesting' table, with IDs (3,10), is normally the */
  724.     /* last one, we loop backwards.  This loses with type1 fonts with  */
  725.     /* non-BMP characters (<.0001%), this wins with .ttf with non-BMP  */
  726.     /* chars (.01% ?), and this is the same about 99.99% of the time!  */
  727.     cur = first + face->num_charmaps;  /* points after the last one */
  728.     for ( ; --cur >= first; )
  729.     {
  730.       if ( cur[0]->encoding == FT_ENCODING_UNICODE )
  731.       {
  732.         unicmap = cur;  /* record we found a Unicode charmap */
  733.         /* XXX If some new encodings to represent UCS-4 are added,  */
  734.         /*     they should be added here.                           */
  735.         if ( ( cur[0]->platform_id == TT_PLATFORM_MICROSOFT &&
  736.                cur[0]->encoding_id == TT_MS_ID_UCS_4        )          ||
  737.              ( cur[0]->platform_id == TT_PLATFORM_APPLE_UNICODE &&
  738.                cur[0]->encoding_id == TT_APPLE_ID_UNICODE_32    )      )
  739.         /* Hurray!  We found a UCS-4 charmap.  We can stop the scan! */
  740.         {
  741.           face->charmap = cur[0];
  742.           return 0;
  743.         }
  744.       }
  745.     }
  746.     /* We do not have any UCS-4 charmap.  Sigh.                         */
  747.     /* Let's see if we have some other kind of Unicode charmap, though. */
  748.     if ( unicmap != NULL )
  749.     {
  750.       face->charmap = unicmap[0];
  751.       return 0;
  752.     }
  753.     /* Chou blanc! */
  754.     return FT_Err_Invalid_CharMap_Handle;
  755.   }
  756.   /*************************************************************************/
  757.   /*                                                                       */
  758.   /* <Function>                                                            */
  759.   /*    open_face                                                          */
  760.   /*                                                                       */
  761.   /* <Description>                                                         */
  762.   /*    This function does some work for FT_Open_Face().                   */
  763.   /*                                                                       */
  764.   static FT_Error
  765.   open_face( FT_Driver      driver,
  766.              FT_Stream      stream,
  767.              FT_Long        face_index,
  768.              FT_Int         num_params,
  769.              FT_Parameter*  params,
  770.              FT_Face       *aface )
  771.   {
  772.     FT_Memory         memory;
  773.     FT_Driver_Class   clazz;
  774.     FT_Face           face = 0;
  775.     FT_Error          error, error2;
  776.     FT_Face_Internal  internal = NULL;
  777.     clazz  = driver->clazz;
  778.     memory = driver->root.memory;
  779.     /* allocate the face object and perform basic initialization */
  780.     if ( FT_ALLOC( face, clazz->face_object_size ) )
  781.       goto Fail;
  782.     if ( FT_NEW( internal ) )
  783.       goto Fail;
  784.     face->internal = internal;
  785.     face->driver   = driver;
  786.     face->memory   = memory;
  787.     face->stream   = stream;
  788. #ifdef FT_CONFIG_OPTION_INCREMENTAL
  789.     {
  790.       int  i;
  791.       face->internal->incremental_interface = 0;
  792.       for ( i = 0; i < num_params && !face->internal->incremental_interface;
  793.             i++ )
  794.         if ( params[i].tag == FT_PARAM_TAG_INCREMENTAL )
  795.           face->internal->incremental_interface = params[i].data;
  796.     }
  797. #endif
  798.     error = clazz->init_face( stream,
  799.                               face,
  800.                               (FT_Int)face_index,
  801.                               num_params,
  802.                               params );
  803.     if ( error )
  804.       goto Fail;
  805.     /* select Unicode charmap by default */
  806.     error2 = find_unicode_charmap( face );
  807.     /* if no Unicode charmap can be found, FT_Err_Invalid_CharMap_Handle */
  808.     /* is returned.                                                      */
  809.     /* no error should happen, but we want to play safe */
  810.     if ( error2 && error2 != FT_Err_Invalid_CharMap_Handle )
  811.     {
  812.       error = error2;
  813.       goto Fail;
  814.     }
  815.     *aface = face;
  816.   Fail:
  817.     if ( error )
  818.     {
  819.       destroy_charmaps( face, memory );
  820.       clazz->done_face( face );
  821.       FT_FREE( internal );
  822.       FT_FREE( face );
  823.       *aface = 0;
  824.     }
  825.     return error;
  826.   }
  827.   /* there's a Mac-specific extended implementation of FT_New_Face() */
  828.   /* in src/base/ftmac.c                                             */
  829. #ifndef FT_MACINTOSH
  830.   /* documentation is in freetype.h */
  831.   FT_EXPORT_DEF( FT_Error )
  832.   FT_New_Face( FT_Library   library,
  833.                const char*  pathname,
  834.                FT_Long      face_index,
  835.                FT_Face     *aface )
  836.   {
  837.     FT_Open_Args  args;
  838.     /* test for valid `library' and `aface' delayed to FT_Open_Face() */
  839.     if ( !pathname )
  840.       return FT_Err_Invalid_Argument;
  841.     args.flags    = FT_OPEN_PATHNAME;
  842.     args.pathname = (char*)pathname;
  843.     return FT_Open_Face( library, &args, face_index, aface );
  844.   }
  845. #endif  /* !FT_MACINTOSH */
  846.   /* documentation is in freetype.h */
  847.   FT_EXPORT_DEF( FT_Error )
  848.   FT_New_Memory_Face( FT_Library      library,
  849.                       const FT_Byte*  file_base,
  850.                       FT_Long         file_size,
  851.                       FT_Long         face_index,
  852.                       FT_Face        *aface )
  853.   {
  854.     FT_Open_Args  args;
  855.     /* test for valid `library' and `face' delayed to FT_Open_Face() */
  856.     if ( !file_base )
  857.       return FT_Err_Invalid_Argument;
  858.     args.flags       = FT_OPEN_MEMORY;
  859.     args.memory_base = file_base;
  860.     args.memory_size = file_size;
  861.     return FT_Open_Face( library, &args, face_index, aface );
  862.   }
  863. #if !defined( FT_MACINTOSH ) && defined( FT_CONFIG_OPTION_MAC_FONTS )
  864.   /* The behavior here is very similar to that in base/ftmac.c, but it     */
  865.   /* is designed to work on non-mac systems, so no mac specific calls.     */
  866.   /*                                                                       */
  867.   /* We look at the file and determine if it is a mac dfont file or a mac  */
  868.   /* resource file, or a macbinary file containing a mac resource file.    */
  869.   /*                                                                       */
  870.   /* Unlike ftmac I'm not going to look at a `FOND'.  I don't really see   */
  871.   /* the point, especially since there may be multiple `FOND' resources.   */
  872.   /* Instead I'll just look for `sfnt' and `POST' resources, ordered as    */
  873.   /* they occur in the file.                                               */
  874.   /*                                                                       */
  875.   /* Note that multiple `POST' resources do not mean multiple postscript   */
  876.   /* fonts; they all get jammed together to make what is essentially a     */
  877.   /* pfb file.                                                             */
  878.   /*                                                                       */
  879.   /* We aren't interested in `NFNT' or `FONT' bitmap resources.            */
  880.   /*                                                                       */
  881.   /* As soon as we get an `sfnt' load it into memory and pass it off to    */
  882.   /* FT_Open_Face.                                                         */
  883.   /*                                                                       */
  884.   /* If we have a (set of) `POST' resources, massage them into a (memory)  */
  885.   /* pfb file and pass that to FT_Open_Face.  (As with ftmac.c I'm not     */
  886.   /* going to try to save the kerning info.  After all that lives in the   */
  887.   /* `FOND' which isn't in the file containing the `POST' resources so     */
  888.   /* we don't really have access to it.                                    */
  889.   /* Finalizer for a memory stream; gets called by FT_Done_Face().
  890.      It frees the memory it uses. */
  891.   /* from ftmac.c */
  892.   static void
  893.   memory_stream_close( FT_Stream  stream )
  894.   {
  895.     FT_Memory  memory = stream->memory;
  896.     FT_FREE( stream->base );
  897.     stream->size  = 0;
  898.     stream->base  = 0;
  899.     stream->close = 0;
  900.   }
  901.   /* Create a new memory stream from a buffer and a size. */
  902.   /* from ftmac.c */
  903.   static FT_Error
  904.   new_memory_stream( FT_Library           library,
  905.                      FT_Byte*             base,
  906.                      FT_ULong             size,
  907.                      FT_Stream_CloseFunc  close,
  908.                      FT_Stream           *astream )
  909.   {
  910.     FT_Error   error;
  911.     FT_Memory  memory;
  912.     FT_Stream  stream;
  913.     if ( !library )
  914.       return FT_Err_Invalid_Library_Handle;
  915.     if ( !base )
  916.       return FT_Err_Invalid_Argument;
  917.     *astream = 0;
  918.     memory = library->memory;
  919.     if ( FT_NEW( stream ) )
  920.       goto Exit;
  921.     FT_Stream_OpenMemory( stream, base, size );
  922.     stream->close = close;
  923.     *astream = stream;
  924.   Exit:
  925.     return error;
  926.   }
  927.   /* Create a new FT_Face given a buffer and a driver name. */
  928.   /* from ftmac.c */
  929.   static FT_Error
  930.   open_face_from_buffer( FT_Library   library,
  931.                          FT_Byte*     base,
  932.                          FT_ULong     size,
  933.                          FT_Long      face_index,
  934.                          const char*  driver_name,
  935.                          FT_Face     *aface )
  936.   {
  937.     FT_Open_Args  args;
  938.     FT_Error      error;
  939.     FT_Stream     stream = NULL;
  940.     FT_Memory     memory = library->memory;
  941.     error = new_memory_stream( library,
  942.                                base,
  943.                                size,
  944.                                memory_stream_close,
  945.                                &stream );
  946.     if ( error )
  947.     {
  948.       FT_FREE( base );
  949.       return error;
  950.     }
  951.     args.flags = FT_OPEN_STREAM;
  952.     args.stream = stream;
  953.     if ( driver_name )
  954.     {
  955.       args.flags = args.flags | FT_OPEN_DRIVER;
  956.       args.driver = FT_Get_Module( library, driver_name );
  957.     }
  958.     error = FT_Open_Face( library, &args, face_index, aface );
  959.     if ( error == FT_Err_Ok )
  960.       (*aface)->face_flags &= ~FT_FACE_FLAG_EXTERNAL_STREAM;
  961.     else
  962.     {
  963.       FT_Stream_Close( stream );
  964.       FT_FREE( stream );
  965.     }
  966.     return error;
  967.   }
  968.   /* The resource header says we've got resource_cnt `POST' (type1) */
  969.   /* resources in this file.  They all need to be coalesced into    */
  970.   /* one lump which gets passed on to the type1 driver.             */
  971.   /* Here can be only one PostScript font in a file so face_index   */
  972.   /* must be 0 (or -1).                                             */
  973.   /*                                                                */
  974.   static FT_Error
  975.   Mac_Read_POST_Resource( FT_Library  library,
  976.                           FT_Stream   stream,
  977.                           FT_Long    *offsets,
  978.                           FT_Long     resource_cnt,
  979.                           FT_Long     face_index,
  980.                           FT_Face    *aface )
  981.   {
  982.     FT_Error   error  = FT_Err_Cannot_Open_Resource;
  983.     FT_Memory  memory = library->memory;
  984.     FT_Byte*   pfb_data;
  985.     int        i, type, flags;
  986.     FT_Long    len;
  987.     FT_Long    pfb_len, pfb_pos, pfb_lenpos;
  988.     FT_Long    rlen, temp;
  989.     if ( face_index == -1 )
  990.       face_index = 0;
  991.     if ( face_index != 0 )
  992.       return error;
  993.     /* Find the length of all the POST resources, concatenated.  Assume */
  994.     /* worst case (each resource in its own section).                   */
  995.     pfb_len = 0;
  996.     for ( i = 0; i < resource_cnt; ++i )
  997.     {
  998.       error = FT_Stream_Seek( stream, offsets[i] );
  999.       if ( error )
  1000.         goto Exit;
  1001.       if ( FT_READ_LONG( temp ) )
  1002.         goto Exit;
  1003.       pfb_len += temp + 6;
  1004.     }
  1005.     if ( FT_ALLOC( pfb_data, (FT_Long)pfb_len + 2 ) )
  1006.       goto Exit;
  1007.     pfb_data[0] = 0x80;
  1008.     pfb_data[1] = 1;            /* Ascii section */
  1009.     pfb_data[2] = 0;            /* 4-byte length, fill in later */
  1010.     pfb_data[3] = 0;
  1011.     pfb_data[4] = 0;
  1012.     pfb_data[5] = 0;
  1013.     pfb_pos     = 6;
  1014.     pfb_lenpos  = 2;
  1015.     len = 0;
  1016.     type = 1;
  1017.     for ( i = 0; i < resource_cnt; ++i )
  1018.     {
  1019.       error = FT_Stream_Seek( stream, offsets[i] );
  1020.       if ( error )
  1021.         goto Exit2;
  1022.       if ( FT_READ_LONG( rlen ) )
  1023.         goto Exit;
  1024.       if ( FT_READ_USHORT( flags ) )
  1025.         goto Exit;
  1026.       rlen -= 2;                    /* the flags are part of the resource */
  1027.       if ( ( flags >> 8 ) == type )
  1028.         len += rlen;
  1029.       else
  1030.       {
  1031.         pfb_data[pfb_lenpos    ] = (FT_Byte)( len );
  1032.         pfb_data[pfb_lenpos + 1] = (FT_Byte)( len >> 8 );
  1033.         pfb_data[pfb_lenpos + 2] = (FT_Byte)( len >> 16 );
  1034.         pfb_data[pfb_lenpos + 3] = (FT_Byte)( len >> 24 );
  1035.         if ( ( flags >> 8 ) == 5 )      /* End of font mark */
  1036.           break;
  1037.         pfb_data[pfb_pos++] = 0x80;
  1038.         type = flags >> 8;
  1039.         len = rlen;
  1040.         pfb_data[pfb_pos++] = (FT_Byte)type;
  1041.         pfb_lenpos          = pfb_pos;
  1042.         pfb_data[pfb_pos++] = 0;        /* 4-byte length, fill in later */
  1043.         pfb_data[pfb_pos++] = 0;
  1044.         pfb_data[pfb_pos++] = 0;
  1045.         pfb_data[pfb_pos++] = 0;
  1046.       }
  1047.       error = FT_Stream_Read( stream, (FT_Byte *)pfb_data + pfb_pos, rlen );
  1048.       pfb_pos += rlen;
  1049.     }
  1050.     pfb_data[pfb_pos++] = 0x80;
  1051.     pfb_data[pfb_pos++] = 3;
  1052.     pfb_data[pfb_lenpos    ] = (FT_Byte)( len );
  1053.     pfb_data[pfb_lenpos + 1] = (FT_Byte)( len >> 8 );
  1054.     pfb_data[pfb_lenpos + 2] = (FT_Byte)( len >> 16 );
  1055.     pfb_data[pfb_lenpos + 3] = (FT_Byte)( len >> 24 );
  1056.     return open_face_from_buffer( library,
  1057.                                   pfb_data,
  1058.                                   pfb_pos,
  1059.                                   face_index,
  1060.                                   "type1",
  1061.                                   aface );
  1062.   Exit2:
  1063.     FT_FREE( pfb_data );
  1064.   Exit:
  1065.     return error;
  1066.   }
  1067.   /* The resource header says we've got resource_cnt `sfnt'      */
  1068.   /* (TrueType/OpenType) resources in this file.  Look through   */
  1069.   /* them for the one indicated by face_index, load it into mem, */
  1070.   /* pass it on the the truetype driver and return it.           */
  1071.   /*                                                             */
  1072.   static FT_Error
  1073.   Mac_Read_sfnt_Resource( FT_Library  library,
  1074.                           FT_Stream   stream,
  1075.                           FT_Long    *offsets,
  1076.                           FT_Long     resource_cnt,
  1077.                           FT_Long     face_index,
  1078.                           FT_Face    *aface )
  1079.   {
  1080.     FT_Memory  memory = library->memory;
  1081.     FT_Byte*   sfnt_data;
  1082.     FT_Error   error;
  1083.     FT_Long    flag_offset;
  1084.     FT_Long    rlen;
  1085.     int        is_cff;
  1086.     FT_Long    face_index_in_resource = 0;
  1087.     if ( face_index == -1 )
  1088.       face_index = 0;
  1089.     if ( face_index >= resource_cnt )
  1090.       return FT_Err_Cannot_Open_Resource;
  1091.     flag_offset = offsets[face_index];
  1092.     error = FT_Stream_Seek( stream, flag_offset );
  1093.     if ( error )
  1094.       goto Exit;
  1095.     if ( FT_READ_LONG( rlen ) )
  1096.       goto Exit;
  1097.     if ( rlen == -1 )
  1098.       return FT_Err_Cannot_Open_Resource;
  1099.     if ( FT_ALLOC( sfnt_data, (FT_Long)rlen ) )
  1100.       return error;
  1101.     error = FT_Stream_Read( stream, (FT_Byte *)sfnt_data, rlen );
  1102.     if ( error )
  1103.       goto Exit;
  1104.     is_cff = rlen > 4 && sfnt_data[0] == 'O' &&
  1105.                          sfnt_data[1] == 'T' &&
  1106.                          sfnt_data[2] == 'T' &&
  1107.                          sfnt_data[3] == 'O';
  1108.     error = open_face_from_buffer( library,
  1109.                                    sfnt_data,
  1110.                                    rlen,
  1111.                                    face_index_in_resource,
  1112.                                    is_cff ? "cff" : "truetype",
  1113.                                    aface );
  1114.   Exit:
  1115.     return error;
  1116.   }
  1117.   /* Check for a valid resource fork header, or a valid dfont    */
  1118.   /* header.  In a resource fork the first 16 bytes are repeated */
  1119.   /* at the location specified by bytes 4-7.  In a dfont bytes   */
  1120.   /* 4-7 point to 16 bytes of zeroes instead.                    */
  1121.   /*                                                             */
  1122.   static FT_Error
  1123.   IsMacResource( FT_Library  library,
  1124.                  FT_Stream   stream,
  1125.                  FT_Long     resource_offset,
  1126.                  FT_Long     face_index,
  1127.                  FT_Face    *aface )
  1128.   {
  1129.     FT_Memory  memory = library->memory;
  1130.     FT_Error   error;
  1131.     FT_Long    map_offset, rdara_pos;
  1132.     FT_Long    *data_offsets;
  1133.     FT_Long    count;
  1134.     error = FT_Raccess_Get_HeaderInfo( library, stream, resource_offset,
  1135.                                        &map_offset, &rdara_pos );
  1136.     if ( error )
  1137.       return error;
  1138.     error = FT_Raccess_Get_DataOffsets( library, stream,
  1139.                                         map_offset, rdara_pos,
  1140.                                         FT_MAKE_TAG( 'P', 'O', 'S', 'T' ),
  1141.                                         &data_offsets, &count );
  1142.     if ( !error )
  1143.     {
  1144.       error = Mac_Read_POST_Resource( library, stream, data_offsets, count,
  1145.                                       face_index, aface );
  1146.       FT_FREE( data_offsets );
  1147.       /* POST exists in an LWFN providing a single face */
  1148.       if ( !error )
  1149.         (*aface)->num_faces = 1;
  1150.       return error;
  1151.     }
  1152.     error = FT_Raccess_Get_DataOffsets( library, stream,
  1153.                                         map_offset, rdara_pos,
  1154.                                         FT_MAKE_TAG( 's', 'f', 'n', 't' ),
  1155.                                         &data_offsets, &count );
  1156.     if ( !error )
  1157.     {
  1158.       FT_Long  face_index_internal = face_index % count;
  1159.       error = Mac_Read_sfnt_Resource( library, stream, data_offsets, count,
  1160.                                       face_index_internal, aface );
  1161.       FT_FREE( data_offsets );
  1162.       if ( !error )
  1163.         (*aface)->num_faces = count;
  1164.     }
  1165.     return error;
  1166.   }
  1167.   /* Check for a valid macbinary header, and if we find one   */
  1168.   /* check that the (flattened) resource fork in it is valid. */
  1169.   /*                                                          */
  1170.   static FT_Error
  1171.   IsMacBinary( FT_Library  library,
  1172.                FT_Stream   stream,
  1173.                FT_Long     face_index,
  1174.                FT_Face    *aface )
  1175.   {
  1176.     unsigned char  header[128];
  1177.     FT_Error       error;
  1178.     FT_Long        dlen, offset;
  1179.     error = FT_Stream_Seek( stream, 0 );
  1180.     if ( error )
  1181.       goto Exit;
  1182.     error = FT_Stream_Read( stream, (FT_Byte*)header, 128 );
  1183.     if ( error )
  1184.       goto Exit;
  1185.     if (            header[ 0] !=  0 ||
  1186.                     header[74] !=  0 ||
  1187.                     header[82] !=  0 ||
  1188.                     header[ 1] ==  0 ||
  1189.                     header[ 1] >  33 ||
  1190.                     header[63] !=  0 ||
  1191.          header[2 + header[1]] !=  0 )
  1192.       return FT_Err_Unknown_File_Format;
  1193.     dlen = ( header[0x53] << 24 ) |
  1194.            ( header[0x54] << 16 ) |
  1195.            ( header[0x55] <<  8 ) |
  1196.              header[0x56];
  1197. #if 0
  1198.     rlen = ( header[0x57] << 24 ) |
  1199.            ( header[0x58] << 16 ) |
  1200.            ( header[0x59] <<  8 ) |
  1201.              header[0x5a];
  1202. #endif /* 0 */
  1203.     offset = 128 + ( ( dlen + 127 ) & ~127 );
  1204.     return IsMacResource( library, stream, offset, face_index, aface );
  1205.   Exit:
  1206.     return error;
  1207.   }
  1208.   static FT_Error
  1209.   load_face_in_embedded_rfork( FT_Library           library,
  1210.                                FT_Stream            stream,
  1211.                                FT_Long              face_index,
  1212.                                FT_Face             *aface,
  1213.                                const FT_Open_Args  *args )
  1214.   {
  1215. #undef  FT_COMPONENT
  1216. #define FT_COMPONENT  trace_raccess
  1217.     FT_Memory  memory = library->memory;
  1218.     FT_Error   error  = FT_Err_Unknown_File_Format;
  1219.     int        i;
  1220.     char *     file_names[FT_RACCESS_N_RULES];
  1221.     FT_Long    offsets[FT_RACCESS_N_RULES];
  1222.     FT_Error   errors[FT_RACCESS_N_RULES];
  1223.     FT_Open_Args  args2;
  1224.     FT_Stream     stream2;
  1225.     FT_Raccess_Guess( library, stream,
  1226.                       args->pathname, file_names, offsets, errors );
  1227.     for ( i = 0; i < FT_RACCESS_N_RULES; i++ )
  1228.     {
  1229.       if ( errors[i] )
  1230.       {
  1231.         FT_TRACE3(( "Error[%d] has occurred in rule %dn", errors[i], i ));
  1232.         continue;
  1233.       }
  1234.       args2.flags    = FT_OPEN_PATHNAME;
  1235.       args2.pathname = file_names[i] ? file_names[i] : args->pathname;
  1236.       FT_TRACE3(( "Try rule %d: %s (offset=%d) ...",
  1237.                   i, args2.pathname, offsets[i] ));
  1238.       error = FT_Stream_New( library, &args2, &stream2 );
  1239.       if ( error )
  1240.       {
  1241.         FT_TRACE3(( "failedn" ));
  1242.         continue;
  1243.       }
  1244.       error = IsMacResource( library, stream2, offsets[i],
  1245.                              face_index, aface );
  1246.       FT_Stream_Free( stream2, 0 );
  1247.       FT_TRACE3(( "%sn", error ? "failed": "successful" ));
  1248.       if ( !error )
  1249.           break;
  1250.     }
  1251.     for (i = 0; i < FT_RACCESS_N_RULES; i++)
  1252.     {
  1253.       if ( file_names[i] )
  1254.         FT_FREE( file_names[i] );
  1255.     }
  1256.     /* Caller (load_mac_face) requires FT_Err_Unknown_File_Format. */
  1257.     if ( error )
  1258.       error = FT_Err_Unknown_File_Format;
  1259.     return error;
  1260. #undef  FT_COMPONENT
  1261. #define FT_COMPONENT  trace_objs
  1262.   }
  1263.   /* Check for some macintosh formats.                             */
  1264.   /* Is this a macbinary file?  If so look at the resource fork.   */
  1265.   /* Is this a mac dfont file?                                     */
  1266.   /* Is this an old style resource fork? (in data)                 */
  1267.   /* Else call load_face_in_embedded_rfork to try extra rules      */
  1268.   /* (defined in `ftrfork.c').                                     */
  1269.   /*                                                               */
  1270.   static FT_Error
  1271.   load_mac_face( FT_Library           library,
  1272.                  FT_Stream            stream,
  1273.                  FT_Long              face_index,
  1274.                  FT_Face             *aface,
  1275.                  const FT_Open_Args  *args )
  1276.   {
  1277.     FT_Error error;
  1278.     FT_UNUSED( args );
  1279.     error = IsMacBinary( library, stream, face_index, aface );
  1280.     if ( FT_ERROR_BASE( error ) == FT_Err_Unknown_File_Format )
  1281.     {
  1282. #undef  FT_COMPONENT
  1283. #define FT_COMPONENT  trace_raccess
  1284.       FT_TRACE3(( "Try as dfont: %s ...", args->pathname ));
  1285.       error = IsMacResource( library, stream, 0, face_index, aface );
  1286.       FT_TRACE3(( "%sn", error ? "failed" : "successful" ));
  1287. #undef  FT_COMPONENT
  1288. #define FT_COMPONENT  trace_objs
  1289.     }
  1290.     if ( ( FT_ERROR_BASE( error ) == FT_Err_Unknown_File_Format      ||
  1291.            FT_ERROR_BASE( error ) == FT_Err_Invalid_Stream_Operation ) &&
  1292.          ( args->flags & FT_OPEN_PATHNAME )                            )
  1293.       error = load_face_in_embedded_rfork( library, stream,
  1294.                                            face_index, aface, args );
  1295.     return error;
  1296.   }
  1297. #endif  /* !FT_MACINTOSH && FT_CONFIG_OPTION_MAC_FONTS */
  1298.   /* documentation is in freetype.h */
  1299.   FT_EXPORT_DEF( FT_Error )
  1300.   FT_Open_Face( FT_Library           library,
  1301.                 const FT_Open_Args*  args,
  1302.                 FT_Long              face_index,
  1303.                 FT_Face             *aface )
  1304.   {
  1305.     FT_Error     error;
  1306.     FT_Driver    driver;
  1307.     FT_Memory    memory;
  1308.     FT_Stream    stream;
  1309.     FT_Face      face = 0;
  1310.     FT_ListNode  node = 0;
  1311.     FT_Bool      external_stream;
  1312.     /* test for valid `library' delayed to */
  1313.     /* FT_Stream_New()                     */
  1314.     if ( ( !aface && face_index >= 0 ) || !args )
  1315.       return FT_Err_Invalid_Argument;
  1316.     external_stream = FT_BOOL( ( args->flags & FT_OPEN_STREAM ) &&
  1317.                                args->stream                     );
  1318.     /* create input stream */
  1319.     error = FT_Stream_New( library, args, &stream );
  1320.     if ( error )
  1321.       goto Exit;
  1322.     memory = library->memory;
  1323.     /* If the font driver is specified in the `args' structure, use */
  1324.     /* it.  Otherwise, we scan the list of registered drivers.      */
  1325.     if ( ( args->flags & FT_OPEN_DRIVER ) && args->driver )
  1326.     {
  1327.       driver = FT_DRIVER( args->driver );
  1328.       /* not all modules are drivers, so check... */
  1329.       if ( FT_MODULE_IS_DRIVER( driver ) )
  1330.       {
  1331.         FT_Int         num_params = 0;
  1332.         FT_Parameter*  params     = 0;
  1333.         if ( args->flags & FT_OPEN_PARAMS )
  1334.         {
  1335.           num_params = args->num_params;
  1336.           params     = args->params;
  1337.         }
  1338.         error = open_face( driver, stream, face_index,
  1339.                            num_params, params, &face );
  1340.         if ( !error )
  1341.           goto Success;
  1342.       }
  1343.       else
  1344.         error = FT_Err_Invalid_Handle;
  1345.       FT_Stream_Free( stream, external_stream );
  1346.       goto Fail;
  1347.     }
  1348.     else
  1349.     {
  1350.       /* check each font driver for an appropriate format */
  1351.       FT_Module*  cur   = library->modules;
  1352.       FT_Module*  limit = cur + library->num_modules;
  1353.       for ( ; cur < limit; cur++ )
  1354.       {
  1355.         /* not all modules are font drivers, so check... */
  1356.         if ( FT_MODULE_IS_DRIVER( cur[0] ) )
  1357.         {
  1358.           FT_Int         num_params = 0;
  1359.           FT_Parameter*  params     = 0;
  1360.           driver = FT_DRIVER( cur[0] );
  1361.           if ( args->flags & FT_OPEN_PARAMS )
  1362.           {
  1363.             num_params = args->num_params;
  1364.             params     = args->params;
  1365.           }
  1366.           error = open_face( driver, stream, face_index,
  1367.                              num_params, params, &face );
  1368.           if ( !error )
  1369.             goto Success;
  1370.           if ( FT_ERROR_BASE( error ) != FT_Err_Unknown_File_Format )
  1371.             goto Fail3;
  1372.         }
  1373.       }
  1374.   Fail3:
  1375.     /* If we are on the mac, and we get an FT_Err_Invalid_Stream_Operation */
  1376.     /* it may be because we have an empty data fork, so we need to check   */
  1377.     /* the resource fork.                                                  */
  1378.     if ( FT_ERROR_BASE( error ) != FT_Err_Unknown_File_Format      &&
  1379.          FT_ERROR_BASE( error ) != FT_Err_Invalid_Stream_Operation )
  1380.       goto Fail2;
  1381. #if !defined( FT_MACINTOSH ) && defined( FT_CONFIG_OPTION_MAC_FONTS )
  1382.     error = load_mac_face( library, stream, face_index, aface, args );
  1383.     if ( !error )
  1384.     {
  1385.       /* We don't want to go to Success here.  We've already done that. */
  1386.       /* On the other hand, if we succeeded we still need to close this */
  1387.       /* stream (we opened a different stream which extracted the       */
  1388.       /* interesting information out of this stream here.  That stream  */
  1389.       /* will still be open and the face will point to it).             */
  1390.       FT_Stream_Free( stream, external_stream );
  1391.       return error;
  1392.     }
  1393.     if ( FT_ERROR_BASE( error ) != FT_Err_Unknown_File_Format )
  1394.       goto Fail2;
  1395. #endif  /* !FT_MACINTOSH && FT_CONFIG_OPTION_MAC_FONTS */
  1396.       /* no driver is able to handle this format */
  1397.       error = FT_Err_Unknown_File_Format;
  1398.   Fail2:
  1399.       FT_Stream_Free( stream, external_stream );
  1400.       goto Fail;
  1401.     }
  1402.   Success:
  1403.     FT_TRACE4(( "FT_Open_Face: New face object, adding to listn" ));
  1404.     /* set the FT_FACE_FLAG_EXTERNAL_STREAM bit for FT_Done_Face */
  1405.     if ( external_stream )
  1406.       face->face_flags |= FT_FACE_FLAG_EXTERNAL_STREAM;
  1407.     /* add the face object to its driver's list */
  1408.     if ( FT_NEW( node ) )
  1409.       goto Fail;
  1410.     node->data = face;
  1411.     /* don't assume driver is the same as face->driver, so use */
  1412.     /* face->driver instead.                                   */
  1413.     FT_List_Add( &face->driver->faces_list, node );
  1414.     /* now allocate a glyph slot object for the face */
  1415.     FT_TRACE4(( "FT_Open_Face: Creating glyph slotn" ));
  1416.     if ( face_index >= 0 )
  1417.     {
  1418.       error = FT_New_GlyphSlot( face, NULL );
  1419.       if ( error )
  1420.         goto Fail;
  1421.       /* finally, allocate a size object for the face */
  1422.       {
  1423.         FT_Size  size;
  1424.         FT_TRACE4(( "FT_Open_Face: Creating size objectn" ));
  1425.         error = FT_New_Size( face, &size );
  1426.         if ( error )
  1427.           goto Fail;
  1428.         face->size = size;
  1429.       }
  1430.     }
  1431.     /* some checks */
  1432.     if ( FT_IS_SCALABLE( face ) )
  1433.     {
  1434.       if ( face->height < 0 )
  1435.         face->height = (FT_Short)-face->height;
  1436.       if ( !FT_HAS_VERTICAL( face ) )
  1437.         face->max_advance_height = (FT_Short)face->height;
  1438.     }
  1439.     if ( FT_HAS_FIXED_SIZES( face ) )
  1440.     {
  1441.       FT_Int  i;
  1442.       for ( i = 0; i < face->num_fixed_sizes; i++ )
  1443.       {
  1444.         FT_Bitmap_Size*  bsize = face->available_sizes + i;
  1445.         if ( bsize->height < 0 )
  1446.           bsize->height = (FT_Short)-bsize->height;
  1447.         if ( bsize->x_ppem < 0 )
  1448.           bsize->x_ppem = (FT_Short)-bsize->x_ppem;
  1449.         if ( bsize->y_ppem < 0 )
  1450.           bsize->y_ppem = -bsize->y_ppem;
  1451.       }
  1452.     }
  1453.     /* initialize internal face data */
  1454.     {
  1455.       FT_Face_Internal  internal = face->internal;
  1456.       internal->transform_matrix.xx = 0x10000L;
  1457.       internal->transform_matrix.xy = 0;
  1458.       internal->transform_matrix.yx = 0;
  1459.       internal->transform_matrix.yy = 0x10000L;
  1460.       internal->transform_delta.x = 0;
  1461.       internal->transform_delta.y = 0;
  1462.     }
  1463.     if ( aface )
  1464.       *aface = face;
  1465.     else
  1466.       FT_Done_Face( face );
  1467.     goto Exit;
  1468.   Fail:
  1469.     FT_Done_Face( face );
  1470.   Exit:
  1471.     FT_TRACE4(( "FT_Open_Face: Return %dn", error ));
  1472.     return error;
  1473.   }
  1474.   /* documentation is in freetype.h */
  1475.   FT_EXPORT_DEF( FT_Error )
  1476.   FT_Attach_File( FT_Face      face,
  1477.                   const char*  filepathname )
  1478.   {
  1479.     FT_Open_Args  open;
  1480.     /* test for valid `face' delayed to FT_Attach_Stream() */
  1481.     if ( !filepathname )
  1482.       return FT_Err_Invalid_Argument;
  1483.     open.stream   = NULL;
  1484.     open.flags    = FT_OPEN_PATHNAME;
  1485.     open.pathname = (char*)filepathname;
  1486.     return FT_Attach_Stream( face, &open );
  1487.   }
  1488.   /* documentation is in freetype.h */
  1489.   FT_EXPORT_DEF( FT_Error )
  1490.   FT_Attach_Stream( FT_Face        face,
  1491.                     FT_Open_Args*  parameters )
  1492.   {
  1493.     FT_Stream  stream;
  1494.     FT_Error   error;
  1495.     FT_Driver  driver;
  1496.     FT_Driver_Class  clazz;
  1497.     /* test for valid `parameters' delayed to FT_Stream_New() */
  1498.     if ( !face )
  1499.       return FT_Err_Invalid_Face_Handle;
  1500.     driver = face->driver;
  1501.     if ( !driver )
  1502.       return FT_Err_Invalid_Driver_Handle;
  1503.     error = FT_Stream_New( driver->root.library, parameters, &stream );
  1504.     if ( error )
  1505.       goto Exit;
  1506.     /* we implement FT_Attach_Stream in each driver through the */
  1507.     /* `attach_file' interface                                  */
  1508.     error = FT_Err_Unimplemented_Feature;
  1509.     clazz = driver->clazz;
  1510.     if ( clazz->attach_file )
  1511.       error = clazz->attach_file( face, stream );
  1512.     /* close the attached stream */
  1513.     FT_Stream_Free( stream,
  1514.                     (FT_Bool)( parameters->stream &&
  1515.                                ( parameters->flags & FT_OPEN_STREAM ) ) );
  1516.   Exit:
  1517.     return error;
  1518.   }
  1519.   /* documentation is in freetype.h */
  1520.   FT_EXPORT_DEF( FT_Error )
  1521.   FT_Done_Face( FT_Face  face )
  1522.   {
  1523.     FT_Error     error;
  1524.     FT_Driver    driver;
  1525.     FT_Memory    memory;
  1526.     FT_ListNode  node;
  1527.     error = FT_Err_Invalid_Face_Handle;
  1528.     if ( face && face->driver )
  1529.     {
  1530.       driver = face->driver;
  1531.       memory = driver->root.memory;
  1532.       /* find face in driver's list */
  1533.       node = FT_List_Find( &driver->faces_list, face );
  1534.       if ( node )
  1535.       {
  1536.         /* remove face object from the driver's list */
  1537.         FT_List_Remove( &driver->faces_list, node );
  1538.         FT_FREE( node );
  1539.         /* now destroy the object proper */
  1540.         destroy_face( memory, face, driver );
  1541.         error = FT_Err_Ok;
  1542.       }
  1543.     }
  1544.     return error;
  1545.   }
  1546.   /* documentation is in ftobjs.h */
  1547.   FT_EXPORT_DEF( FT_Error )
  1548.   FT_New_Size( FT_Face   face,
  1549.                FT_Size  *asize )
  1550.   {
  1551.     FT_Error         error;
  1552.     FT_Memory        memory;
  1553.     FT_Driver        driver;
  1554.     FT_Driver_Class  clazz;
  1555.     FT_Size          size = 0;
  1556.     FT_ListNode      node = 0;
  1557.     if ( !face )
  1558.       return FT_Err_Invalid_Face_Handle;
  1559.     if ( !asize )
  1560.       return FT_Err_Invalid_Size_Handle;
  1561.     if ( !face->driver )
  1562.       return FT_Err_Invalid_Driver_Handle;
  1563.     *asize = 0;
  1564.     driver = face->driver;
  1565.     clazz  = driver->clazz;
  1566.     memory = face->memory;
  1567.     /* Allocate new size object and perform basic initialisation */
  1568.     if ( FT_ALLOC( size, clazz->size_object_size ) || FT_NEW( node ) )
  1569.       goto Exit;
  1570.     size->face = face;
  1571.     /* for now, do not use any internal fields in size objects */
  1572.     size->internal = 0;
  1573.     if ( clazz->init_size )
  1574.       error = clazz->init_size( size );
  1575.     /* in case of success, add to the face's list */
  1576.     if ( !error )
  1577.     {
  1578.       *asize     = size;
  1579.       node->data = size;
  1580.       FT_List_Add( &face->sizes_list, node );
  1581.     }
  1582.   Exit:
  1583.     if ( error )
  1584.     {
  1585.       FT_FREE( node );
  1586.       FT_FREE( size );
  1587.     }
  1588.     return error;
  1589.   }
  1590.   /* documentation is in ftobjs.h */
  1591.   FT_EXPORT_DEF( FT_Error )
  1592.   FT_Done_Size( FT_Size  size )
  1593.   {
  1594.     FT_Error     error;
  1595.     FT_Driver    driver;
  1596.     FT_Memory    memory;
  1597.     FT_Face      face;
  1598.     FT_ListNode  node;
  1599.     if ( !size )
  1600.       return FT_Err_Invalid_Size_Handle;
  1601.     face = size->face;
  1602.     if ( !face )
  1603.       return FT_Err_Invalid_Face_Handle;
  1604.     driver = face->driver;
  1605.     if ( !driver )
  1606.       return FT_Err_Invalid_Driver_Handle;
  1607.     memory = driver->root.memory;
  1608.     error = FT_Err_Ok;
  1609.     node  = FT_List_Find( &face->sizes_list, size );
  1610.     if ( node )
  1611.     {
  1612.       FT_List_Remove( &face->sizes_list, node );
  1613.       FT_FREE( node );
  1614.       if ( face->size == size )
  1615.       {
  1616.         face->size = 0;
  1617.         if ( face->sizes_list.head )
  1618.           face->size = (FT_Size)(face->sizes_list.head->data);
  1619.       }
  1620.       destroy_size( memory, size, driver );
  1621.     }
  1622.     else
  1623.       error = FT_Err_Invalid_Size_Handle;
  1624.     return error;
  1625.   }
  1626.   /* documentation is in ftobjs.h */
  1627.   FT_BASE_DEF( FT_Error )
  1628.   FT_Match_Size( FT_Face          face,
  1629.                  FT_Size_Request  req,
  1630.                  FT_Bool          ignore_width,
  1631.                  FT_ULong*        size_index )
  1632.   {
  1633.     FT_Int   i;
  1634.     FT_Long  w, h;
  1635.     if ( !FT_HAS_FIXED_SIZES( face ) )
  1636.       return FT_Err_Invalid_Face_Handle;
  1637.     /* FT_Bitmap_Size doesn't provide enough info... */
  1638.     if ( req->type != FT_SIZE_REQUEST_TYPE_NOMINAL )
  1639.       return FT_Err_Unimplemented_Feature;
  1640.     w = FT_REQUEST_WIDTH ( req );
  1641.     h = FT_REQUEST_HEIGHT( req );
  1642.     if ( req->width && !req->height )
  1643.       h = w;
  1644.     else if ( !req->width && req->height )
  1645.       w = h;
  1646.     w = FT_PIX_ROUND( w );
  1647.     h = FT_PIX_ROUND( h );
  1648.     for ( i = 0; i < face->num_fixed_sizes; i++ )
  1649.     {
  1650.       FT_Bitmap_Size*  bsize = face->available_sizes + i;
  1651.       if ( h != FT_PIX_ROUND( bsize->y_ppem ) )
  1652.         continue;
  1653.       if ( w == FT_PIX_ROUND( bsize->x_ppem ) || ignore_width )
  1654.       {
  1655.         if ( size_index )
  1656.           *size_index = (FT_ULong)i;
  1657.         return FT_Err_Ok;
  1658.       }
  1659.     }
  1660.     return FT_Err_Invalid_Pixel_Size;
  1661.   }
  1662.   /* documentation is in ftobjs.h */
  1663.   FT_BASE_DEF( void )
  1664.   ft_synthesize_vertical_metrics( FT_Glyph_Metrics*  metrics,
  1665.                                   FT_Pos             advance )
  1666.   {
  1667.     /* the factor 1.2 is a heuristical value */
  1668.     if ( !advance )
  1669.       advance = metrics->height * 12 / 10;
  1670.     metrics->vertBearingX = -( metrics->width / 2 );
  1671.     metrics->vertBearingY = ( advance - metrics->height ) / 2;
  1672.     metrics->vertAdvance  = advance;
  1673.   }
  1674.   static void
  1675.   ft_recompute_scaled_metrics( FT_Face           face,
  1676.                                FT_Size_Metrics*  metrics )
  1677.   {
  1678.     /* Compute root ascender, descender, test height, and max_advance */
  1679. #ifdef GRID_FIT_METRICS
  1680.     metrics->ascender    = FT_PIX_CEIL( FT_MulFix( face->ascender,
  1681.                                                    metrics->y_scale ) );
  1682.     metrics->descender   = FT_PIX_FLOOR( FT_MulFix( face->descender,
  1683.                                                     metrics->y_scale ) );
  1684.     metrics->height      = FT_PIX_ROUND( FT_MulFix( face->height,
  1685.                                                     metrics->y_scale ) );
  1686.     metrics->max_advance = FT_PIX_ROUND( FT_MulFix( face->max_advance_width,
  1687.                                                     metrics->x_scale ) );
  1688. #else /* !GRID_FIT_METRICS */
  1689.     metrics->ascender    = FT_MulFix( face->ascender,
  1690.                                       metrics->y_scale );
  1691.     metrics->descender   = FT_MulFix( face->descender,
  1692.                                       metrics->y_scale );
  1693.     metrics->height      = FT_MulFix( face->height,
  1694.                                       metrics->y_scale );
  1695.     metrics->max_advance = FT_MulFix( face->max_advance_width,
  1696.                                       metrics->x_scale );
  1697. #endif /* !GRID_FIT_METRICS */
  1698.   }
  1699.   FT_BASE_DEF( void )
  1700.   FT_Select_Metrics( FT_Face   face,
  1701.                      FT_ULong  strike_index )
  1702.   {
  1703.     FT_Size_Metrics*  metrics;
  1704.     FT_Bitmap_Size*   bsize;
  1705.     metrics = &face->size->metrics;
  1706.     bsize   = face->available_sizes + strike_index;
  1707.     metrics->x_ppem = (FT_UShort)( ( bsize->x_ppem + 32 ) >> 6 );
  1708.     metrics->y_ppem = (FT_UShort)( ( bsize->y_ppem + 32 ) >> 6 );
  1709.     if ( FT_IS_SCALABLE( face ) )
  1710.     {
  1711.       metrics->x_scale = FT_DivFix( bsize->x_ppem,
  1712.                                     face->units_per_EM );
  1713.       metrics->y_scale = FT_DivFix( bsize->y_ppem,
  1714.                                     face->units_per_EM );
  1715.       ft_recompute_scaled_metrics( face, metrics );
  1716.     }
  1717.     else
  1718.     {
  1719.       metrics->x_scale     = 1L << 22;
  1720.       metrics->y_scale     = 1L << 22;
  1721.       metrics->ascender    = bsize->y_ppem;
  1722.       metrics->descender   = 0;
  1723.       metrics->height      = bsize->height << 6;
  1724.       metrics->max_advance = bsize->x_ppem;
  1725.     }
  1726.   }
  1727.   FT_BASE_DEF( void )
  1728.   FT_Request_Metrics( FT_Face          face,
  1729.                       FT_Size_Request  req )
  1730.   {
  1731.     FT_Size_Metrics*  metrics;
  1732.     metrics = &face->size->metrics;
  1733.     if ( FT_IS_SCALABLE( face ) )
  1734.     {
  1735.       FT_Long  w = 0, h = 0, scaled_w = 0, scaled_h = 0;
  1736.       switch ( req->type )
  1737.       {
  1738.       case FT_SIZE_REQUEST_TYPE_NOMINAL:
  1739.         w = h = face->units_per_EM;
  1740.         break;
  1741.       case FT_SIZE_REQUEST_TYPE_REAL_DIM:
  1742.         w = h = face->ascender - face->descender;
  1743.         break;
  1744.       case FT_SIZE_REQUEST_TYPE_BBOX:
  1745.         w = face->bbox.xMax - face->bbox.xMin;
  1746.         h = face->bbox.yMax - face->bbox.yMin;
  1747.         break;
  1748.       case FT_SIZE_REQUEST_TYPE_CELL:
  1749.         w = face->max_advance_width;
  1750.         h = face->ascender - face->descender;
  1751.         break;
  1752.       case FT_SIZE_REQUEST_TYPE_SCALES:
  1753.         metrics->x_scale = (FT_Fixed)req->width;
  1754.         metrics->y_scale = (FT_Fixed)req->height;
  1755.         if ( !metrics->x_scale )
  1756.           metrics->x_scale = metrics->y_scale;
  1757.         else if ( !metrics->y_scale )
  1758.           metrics->y_scale = metrics->x_scale;
  1759.         goto Calculate_Ppem;
  1760.       case FT_SIZE_REQUEST_TYPE_MAX:
  1761.         break;
  1762.       }
  1763.       /* to be on the safe side */
  1764.       if ( w < 0 )
  1765.         w = -w;
  1766.       if ( h < 0 )
  1767.         h = -h;
  1768.       scaled_w = FT_REQUEST_WIDTH ( req );
  1769.       scaled_h = FT_REQUEST_HEIGHT( req );
  1770.       /* determine scales */
  1771.       if ( req->width )
  1772.       {
  1773.         metrics->x_scale = FT_DivFix( scaled_w, w );
  1774.         if ( req->height )
  1775.         {
  1776.           metrics->y_scale = FT_DivFix( scaled_h, h );
  1777.           if ( req->type == FT_SIZE_REQUEST_TYPE_CELL )
  1778.           {
  1779.             if ( metrics->y_scale > metrics->x_scale )
  1780.               metrics->y_scale = metrics->x_scale;
  1781.             else
  1782.               metrics->x_scale = metrics->y_scale;
  1783.           }
  1784.         }
  1785.         else
  1786.         {
  1787.           metrics->y_scale = metrics->x_scale;
  1788.           scaled_h = FT_MulDiv( scaled_w, h, w );
  1789.         }
  1790.       }
  1791.       else
  1792.       {
  1793.         metrics->x_scale = metrics->y_scale = FT_DivFix( scaled_h, h );
  1794.         scaled_w = FT_MulDiv( scaled_h, w, h );
  1795.       }
  1796.   Calculate_Ppem:
  1797.       /* calculate the ppems */
  1798.       if ( req->type != FT_SIZE_REQUEST_TYPE_NOMINAL )
  1799.       {
  1800.         scaled_w = FT_MulFix( face->units_per_EM, metrics->x_scale );
  1801.         scaled_h = FT_MulFix( face->units_per_EM, metrics->y_scale );
  1802.       }
  1803.       metrics->x_ppem = (FT_UShort)( ( scaled_w + 32 ) >> 6 );
  1804.       metrics->y_ppem = (FT_UShort)( ( scaled_h + 32 ) >> 6 );
  1805.       ft_recompute_scaled_metrics( face, metrics );
  1806.     }
  1807.     else
  1808.     {
  1809.       FT_ZERO( metrics );
  1810.       metrics->x_scale = 1L << 22;
  1811.       metrics->y_scale = 1L << 22;
  1812.     }
  1813.   }
  1814.   /* documentation is in freetype.h */
  1815.   FT_EXPORT_DEF( FT_Error )
  1816.   FT_Select_Size( FT_Face  face,
  1817.                   FT_Int   strike_index )
  1818.   {
  1819.     FT_Driver_Class  clazz;
  1820.     if ( !face || !FT_HAS_FIXED_SIZES( face ) )
  1821.       return FT_Err_Invalid_Face_Handle;
  1822.     if ( strike_index < 0 || strike_index >= face->num_fixed_sizes )
  1823.       return FT_Err_Invalid_Argument;
  1824.     clazz = face->driver->clazz;
  1825.     if ( clazz->select_size )
  1826.       return clazz->select_size( face->size, (FT_ULong)strike_index );
  1827.     FT_Select_Metrics( face, (FT_ULong)strike_index );
  1828.     return FT_Err_Ok;
  1829.   }
  1830.   /* documentation is in freetype.h */
  1831.   FT_EXPORT_DEF( FT_Error )
  1832.   FT_Request_Size( FT_Face          face,
  1833.                    FT_Size_Request  req )
  1834.   {
  1835.     FT_Driver_Class  clazz;
  1836.     FT_ULong         strike_index;
  1837.     if ( !face )
  1838.       return FT_Err_Invalid_Face_Handle;
  1839.     if ( !req || req->width < 0 || req->height < 0 ||
  1840.          req->type >= FT_SIZE_REQUEST_TYPE_MAX )
  1841.       return FT_Err_Invalid_Argument;
  1842.     clazz = face->driver->clazz;
  1843.     if ( clazz->request_size )
  1844.       return clazz->request_size( face->size, req );
  1845.     /*
  1846.      * The reason that a driver doesn't have `request_size' defined is
  1847.      * either that the scaling here suffices or that the supported formats
  1848.      * are bitmap-only and size matching is not implemented.
  1849.      *
  1850.      * In the latter case, a simple size matching is done.
  1851.      */
  1852.     if ( !FT_IS_SCALABLE( face ) && FT_HAS_FIXED_SIZES( face ) )
  1853.     {
  1854.       FT_Error  error;
  1855.       error = FT_Match_Size( face, req, 0, &strike_index );
  1856.       if ( error )
  1857.         return error;
  1858.       FT_TRACE3(( "FT_Request_Size: bitmap strike %lu matchedn",
  1859.                   strike_index ));
  1860.       return FT_Select_Size( face, (FT_Int)strike_index );
  1861.     }
  1862.     FT_Request_Metrics( face, req );
  1863.     return FT_Err_Ok;
  1864.   }
  1865.   /* documentation is in freetype.h */
  1866.   FT_EXPORT_DEF( FT_Error )
  1867.   FT_Set_Char_Size( FT_Face     face,
  1868.                     FT_F26Dot6  char_width,
  1869.                     FT_F26Dot6  char_height,
  1870.                     FT_UInt     horz_resolution,
  1871.                     FT_UInt     vert_resolution )
  1872.   {
  1873.     FT_Size_RequestRec  req;
  1874.     if ( !char_width )
  1875.       char_width = char_height;
  1876.     else if ( !char_height )
  1877.       char_height = char_width;
  1878.     if ( !horz_resolution )
  1879.       horz_resolution = vert_resolution;
  1880.     else if ( !vert_resolution )
  1881.       vert_resolution = horz_resolution;
  1882.     if ( char_width  < 1 * 64 )
  1883.       char_width  = 1 * 64;
  1884.     if ( char_height < 1 * 64 )
  1885.       char_height = 1 * 64;
  1886.     if ( !horz_resolution )
  1887.       horz_resolution = vert_resolution = 72;
  1888.     req.type           = FT_SIZE_REQUEST_TYPE_NOMINAL;
  1889.     req.width          = char_width;
  1890.     req.height         = char_height;
  1891.     req.horiResolution = horz_resolution;
  1892.     req.vertResolution = vert_resolution;
  1893.     return FT_Request_Size( face, &req );
  1894.   }
  1895.   /* documentation is in freetype.h */
  1896.   FT_EXPORT_DEF( FT_Error )
  1897.   FT_Set_Pixel_Sizes( FT_Face  face,
  1898.                       FT_UInt  pixel_width,
  1899.                       FT_UInt  pixel_height )
  1900.   {
  1901.     FT_Size_RequestRec  req;
  1902.     if ( pixel_width == 0 )
  1903.       pixel_width = pixel_height;
  1904.     else if ( pixel_height == 0 )
  1905.       pixel_height = pixel_width;
  1906.     if ( pixel_width  < 1 )
  1907.       pixel_width  = 1;
  1908.     if ( pixel_height < 1 )
  1909.       pixel_height = 1;
  1910.     /* use `>=' to avoid potential compiler warning on 16bit platforms */
  1911.     if ( pixel_width  >= 0xFFFFU )
  1912.       pixel_width  = 0xFFFFU;
  1913.     if ( pixel_height >= 0xFFFFU )
  1914.       pixel_height = 0xFFFFU;
  1915.     req.type           = FT_SIZE_REQUEST_TYPE_NOMINAL;
  1916.     req.width          = pixel_width << 6;
  1917.     req.height         = pixel_height << 6;
  1918.     req.horiResolution = 0;
  1919.     req.vertResolution = 0;
  1920.     return FT_Request_Size( face, &req );
  1921.   }
  1922.   /* documentation is in freetype.h */
  1923.   FT_EXPORT_DEF( FT_Error )
  1924.   FT_Get_Kerning( FT_Face     face,
  1925.                   FT_UInt     left_glyph,
  1926.                   FT_UInt     right_glyph,
  1927.                   FT_UInt     kern_mode,
  1928.                   FT_Vector  *akerning )
  1929.   {
  1930.     FT_Error   error = FT_Err_Ok;
  1931.     FT_Driver  driver;
  1932.     if ( !face )
  1933.       return FT_Err_Invalid_Face_Handle;
  1934.     if ( !akerning )
  1935.       return FT_Err_Invalid_Argument;
  1936.     driver = face->driver;
  1937.     akerning->x = 0;
  1938.     akerning->y = 0;
  1939.     if ( driver->clazz->get_kerning )
  1940.     {
  1941.       error = driver->clazz->get_kerning( face,
  1942.                                           left_glyph,
  1943.                                           right_glyph,
  1944.                                           akerning );
  1945.       if ( !error )
  1946.       {
  1947.         if ( kern_mode != FT_KERNING_UNSCALED )
  1948.         {
  1949.           akerning->x = FT_MulFix( akerning->x, face->size->metrics.x_scale );
  1950.           akerning->y = FT_MulFix( akerning->y, face->size->metrics.y_scale );
  1951.           if ( kern_mode != FT_KERNING_UNFITTED )
  1952.           {
  1953.             /* we scale down kerning values for small ppem values */
  1954.             /* to avoid that rounding makes them too big.         */
  1955.             /* `25' has been determined heuristically.            */
  1956.             if ( face->size->metrics.x_ppem < 25 )
  1957.               akerning->x = FT_MulDiv( akerning->x,
  1958.                                        face->size->metrics.x_ppem, 25 );
  1959.             if ( face->size->metrics.y_ppem < 25 )
  1960.               akerning->y = FT_MulDiv( akerning->y,
  1961.                                        face->size->metrics.y_ppem, 25 );
  1962.             akerning->x = FT_PIX_ROUND( akerning->x );
  1963.             akerning->y = FT_PIX_ROUND( akerning->y );
  1964.           }
  1965.         }
  1966.       }
  1967.     }
  1968.     return error;
  1969.   }
  1970.   /* documentation is in freetype.h */
  1971.   FT_EXPORT_DEF( FT_Error )
  1972.   FT_Get_Track_Kerning( FT_Face    face,
  1973.                         FT_Fixed   point_size,
  1974.                         FT_Int     degree,
  1975.                         FT_Fixed*  akerning )
  1976.   {
  1977.     FT_Service_Kerning  service;
  1978.     FT_Error            error = FT_Err_Ok;
  1979.     if ( !face )
  1980.       return FT_Err_Invalid_Face_Handle;
  1981.     if ( !akerning )
  1982.       return FT_Err_Invalid_Argument;
  1983.     FT_FACE_FIND_SERVICE( face, service, KERNING );
  1984.     if ( !service )
  1985.       return FT_Err_Unimplemented_Feature;
  1986.     error = service->get_track( face,
  1987.                                 point_size,
  1988.                                 degree,
  1989.                                 akerning );
  1990.     return error;
  1991.   }
  1992.   /* documentation is in freetype.h */
  1993.   FT_EXPORT_DEF( FT_Error )
  1994.   FT_Select_Charmap( FT_Face      face,
  1995.                      FT_Encoding  encoding )
  1996.   {
  1997.     FT_CharMap*  cur;
  1998.     FT_CharMap*  limit;
  1999.     if ( !face )
  2000.       return FT_Err_Invalid_Face_Handle;
  2001.     if ( encoding == FT_ENCODING_NONE )
  2002.       return FT_Err_Invalid_Argument;
  2003.     /* FT_ENCODING_UNICODE is special.  We try to find the `best' Unicode */
  2004.     /* charmap available, i.e., one with UCS-4 characters, if possible.   */
  2005.     /*                                                                    */
  2006.     /* This is done by find_unicode_charmap() above, to share code.       */
  2007.     if ( encoding == FT_ENCODING_UNICODE )
  2008.       return find_unicode_charmap( face );
  2009.     cur = face->charmaps;
  2010.     if ( !cur )
  2011.       return FT_Err_Invalid_CharMap_Handle;
  2012.     limit = cur + face->num_charmaps;
  2013.     for ( ; cur < limit; cur++ )
  2014.     {
  2015.       if ( cur[0]->encoding == encoding )
  2016.       {
  2017.         face->charmap = cur[0];
  2018.         return 0;
  2019.       }
  2020.     }
  2021.     return FT_Err_Invalid_Argument;
  2022.   }
  2023.   /* documentation is in freetype.h */
  2024.   FT_EXPORT_DEF( FT_Error )
  2025.   FT_Set_Charmap( FT_Face     face,
  2026.                   FT_CharMap  charmap )
  2027.   {
  2028.     FT_CharMap*  cur;
  2029.     FT_CharMap*  limit;
  2030.     if ( !face )
  2031.       return FT_Err_Invalid_Face_Handle;
  2032.     cur = face->charmaps;
  2033.     if ( !cur )
  2034.       return FT_Err_Invalid_CharMap_Handle;
  2035.     limit = cur + face->num_charmaps;
  2036.     for ( ; cur < limit; cur++ )
  2037.     {
  2038.       if ( cur[0] == charmap )
  2039.       {
  2040.         face->charmap = cur[0];
  2041.         return 0;
  2042.       }
  2043.     }
  2044.     return FT_Err_Invalid_Argument;
  2045.   }
  2046.   /* documentation is in freetype.h */
  2047.   FT_EXPORT_DEF( FT_Int )
  2048.   FT_Get_Charmap_Index( FT_CharMap  charmap )
  2049.   {
  2050.     FT_Int  i;
  2051.     for ( i = 0; i < charmap->face->num_charmaps; i++ )
  2052.       if ( charmap->face->charmaps[i] == charmap )
  2053.         break;
  2054.     FT_ASSERT( i < charmap->face->num_charmaps );
  2055.     return i;
  2056.   }
  2057.   static void
  2058.   ft_cmap_done_internal( FT_CMap  cmap )
  2059.   {
  2060.     FT_CMap_Class  clazz  = cmap->clazz;
  2061.     FT_Face        face   = cmap->charmap.face;
  2062.     FT_Memory      memory = FT_FACE_MEMORY(face);
  2063.     if ( clazz->done )
  2064.       clazz->done( cmap );
  2065.     FT_FREE( cmap );
  2066.   }
  2067.   FT_BASE_DEF( void )
  2068.   FT_CMap_Done( FT_CMap  cmap )
  2069.   {
  2070.     if ( cmap )
  2071.     {
  2072.       FT_Face    face   = cmap->charmap.face;
  2073.       FT_Memory  memory = FT_FACE_MEMORY( face );
  2074.       FT_Error   error;
  2075.       FT_Int     i, j;
  2076.       for ( i = 0; i < face->num_charmaps; i++ )
  2077.       {
  2078.         if ( (FT_CMap)face->charmaps[i] == cmap )
  2079.         {
  2080.           FT_CharMap  last_charmap = face->charmaps[face->num_charmaps - 1];
  2081.           if ( FT_RENEW_ARRAY( face->charmaps,
  2082.                                face->num_charmaps,
  2083.                                face->num_charmaps - 1 ) )
  2084.             return;
  2085.           /* remove it from our list of charmaps */
  2086.           for ( j = i + 1; j < face->num_charmaps; j++ )
  2087.           {
  2088.             if ( j == face->num_charmaps - 1 )
  2089.               face->charmaps[j - 1] = last_charmap;
  2090.             else
  2091.               face->charmaps[j - 1] = face->charmaps[j];
  2092.           }
  2093.           face->num_charmaps--;
  2094.           if ( (FT_CMap)face->charmap == cmap )
  2095.             face->charmap = NULL;
  2096.           ft_cmap_done_internal( cmap );
  2097.           break;
  2098.         }
  2099.       }
  2100.     }
  2101.   }
  2102.   FT_BASE_DEF( FT_Error )
  2103.   FT_CMap_New( FT_CMap_Class  clazz,
  2104.                FT_Pointer     init_data,
  2105.                FT_CharMap     charmap,
  2106.                FT_CMap       *acmap )
  2107.   {
  2108.     FT_Error   error = FT_Err_Ok;
  2109.     FT_Face    face;
  2110.     FT_Memory  memory;
  2111.     FT_CMap    cmap;
  2112.     if ( clazz == NULL || charmap == NULL || charmap->face == NULL )
  2113.       return FT_Err_Invalid_Argument;
  2114.     face   = charmap->face;
  2115.     memory = FT_FACE_MEMORY( face );
  2116.     if ( !FT_ALLOC( cmap, clazz->size ) )
  2117.     {
  2118.       cmap->charmap = *charmap;
  2119.       cmap->clazz   = clazz;
  2120.       if ( clazz->init )
  2121.       {
  2122.         error = clazz->init( cmap, init_data );
  2123.         if ( error )
  2124.           goto Fail;
  2125.       }
  2126.       /* add it to our list of charmaps */
  2127.       if ( FT_RENEW_ARRAY( face->charmaps,
  2128.                            face->num_charmaps,
  2129.                            face->num_charmaps + 1 ) )
  2130.         goto Fail;
  2131.       face->charmaps[face->num_charmaps++] = (FT_CharMap)cmap;
  2132.     }
  2133.   Exit:
  2134.     if ( acmap )
  2135.       *acmap = cmap;
  2136.     return error;
  2137.   Fail:
  2138.     ft_cmap_done_internal( cmap );
  2139.     cmap = NULL;
  2140.     goto Exit;
  2141.   }
  2142.   /* documentation is in freetype.h */
  2143.   FT_EXPORT_DEF( FT_UInt )
  2144.   FT_Get_Char_Index( FT_Face   face,
  2145.                      FT_ULong  charcode )
  2146.   {
  2147.     FT_UInt  result = 0;
  2148.     if ( face && face->charmap )
  2149.     {
  2150.       FT_CMap  cmap = FT_CMAP( face->charmap );
  2151.       result = cmap->clazz->char_index( cmap, charcode );
  2152.     }
  2153.     return  result;
  2154.   }
  2155.   /* documentation is in freetype.h */
  2156.   FT_EXPORT_DEF( FT_ULong )
  2157.   FT_Get_First_Char( FT_Face   face,
  2158.                      FT_UInt  *agindex )
  2159.   {
  2160.     FT_ULong  result = 0;
  2161.     FT_UInt   gindex = 0;
  2162.     if ( face && face->charmap )
  2163.     {
  2164.       gindex = FT_Get_Char_Index( face, 0 );
  2165.       if ( gindex == 0 )
  2166.         result = FT_Get_Next_Char( face, 0, &gindex );
  2167.     }
  2168.     if ( agindex  )
  2169.       *agindex = gindex;
  2170.     return result;
  2171.   }
  2172.   /* documentation is in freetype.h */
  2173.   FT_EXPORT_DEF( FT_ULong )
  2174.   FT_Get_Next_Char( FT_Face   face,
  2175.                     FT_ULong  charcode,
  2176.                     FT_UInt  *agindex )
  2177.   {
  2178.     FT_ULong  result = 0;
  2179.     FT_UInt   gindex = 0;
  2180.     if ( face && face->charmap )
  2181.     {
  2182.       FT_UInt32  code = (FT_UInt32)charcode;
  2183.       FT_CMap    cmap = FT_CMAP( face->charmap );
  2184.       gindex = cmap->clazz->char_next( cmap, &code );
  2185.       result = ( gindex == 0 ) ? 0 : code;
  2186.     }
  2187.     if ( agindex )
  2188.       *agindex = gindex;
  2189.     return result;
  2190.   }
  2191.   /* documentation is in freetype.h */
  2192.   FT_EXPORT_DEF( FT_UInt )
  2193.   FT_Get_Name_Index( FT_Face     face,
  2194.                      FT_String*  glyph_name )
  2195.   {
  2196.     FT_UInt  result = 0;
  2197.     if ( face && FT_HAS_GLYPH_NAMES( face ) )
  2198.     {
  2199.       FT_Service_GlyphDict  service;
  2200.       FT_FACE_LOOKUP_SERVICE( face,
  2201.                               service,
  2202.                               GLYPH_DICT );
  2203.       if ( service && service->name_index )
  2204.         result = service->name_index( face, glyph_name );
  2205.     }
  2206.     return result;
  2207.   }
  2208.   /* documentation is in freetype.h */
  2209.   FT_EXPORT_DEF( FT_Error )
  2210.   FT_Get_Glyph_Name( FT_Face     face,
  2211.                      FT_UInt     glyph_index,
  2212.                      FT_Pointer  buffer,
  2213.                      FT_UInt     buffer_max )
  2214.   {
  2215.     FT_Error  error = FT_Err_Invalid_Argument;
  2216.     /* clean up buffer */
  2217.     if ( buffer && buffer_max > 0 )
  2218.       ((FT_Byte*)buffer)[0] = 0;
  2219.     if ( face                                     &&
  2220.          glyph_index <= (FT_UInt)face->num_glyphs &&
  2221.          FT_HAS_GLYPH_NAMES( face )               )
  2222.     {
  2223.       FT_Service_GlyphDict  service;
  2224.       FT_FACE_LOOKUP_SERVICE( face,
  2225.                               service,
  2226.                               GLYPH_DICT );
  2227.       if ( service && service->get_name )
  2228.         error = service->get_name( face, glyph_index, buffer, buffer_max );
  2229.     }
  2230.     return error;
  2231.   }
  2232.   /* documentation is in freetype.h */
  2233.   FT_EXPORT_DEF( const char* )
  2234.   FT_Get_Postscript_Name( FT_Face  face )
  2235.   {
  2236.     const char*  result = NULL;
  2237.     if ( !face )
  2238.       goto Exit;
  2239.     if ( !result )
  2240.     {
  2241.       FT_Service_PsFontName  service;
  2242.       FT_FACE_LOOKUP_SERVICE( face,
  2243.                               service,
  2244.                               POSTSCRIPT_FONT_NAME );
  2245.       if ( service && service->get_ps_font_name )
  2246.         result = service->get_ps_font_name( face );
  2247.     }
  2248.   Exit:
  2249.     return result;
  2250.   }
  2251.   /* documentation is in tttables.h */
  2252.   FT_EXPORT_DEF( void* )
  2253.   FT_Get_Sfnt_Table( FT_Face      face,
  2254.                      FT_Sfnt_Tag  tag )
  2255.   {
  2256.     void*                  table = 0;
  2257.     FT_Service_SFNT_Table  service;
  2258.     if ( face && FT_IS_SFNT( face ) )
  2259.     {
  2260.       FT_FACE_FIND_SERVICE( face, service, SFNT_TABLE );
  2261.       if ( service != NULL )
  2262.         table = service->get_table( face, tag );
  2263.     }
  2264.     return table;
  2265.   }
  2266.   /* documentation is in tttables.h */
  2267.   FT_EXPORT_DEF( FT_Error )
  2268.   FT_Load_Sfnt_Table( FT_Face    face,
  2269.                       FT_ULong   tag,
  2270.                       FT_Long    offset,
  2271.                       FT_Byte*   buffer,
  2272.                       FT_ULong*  length )
  2273.   {
  2274.     FT_Service_SFNT_Table  service;
  2275.     if ( !face || !FT_IS_SFNT( face ) )
  2276.       return FT_Err_Invalid_Face_Handle;
  2277.     FT_FACE_FIND_SERVICE( face, service, SFNT_TABLE );
  2278.     if ( service == NULL )
  2279.       return FT_Err_Unimplemented_Feature;
  2280.     return service->load_table( face, tag, offset, buffer, length );
  2281.   }
  2282.   /* documentation is in tttables.h */
  2283.   FT_EXPORT_DEF( FT_Error )
  2284.   FT_Sfnt_Table_Info( FT_Face    face,
  2285.                       FT_UInt    table_index,
  2286.                       FT_ULong  *tag,
  2287.                       FT_ULong  *length )
  2288.   {
  2289.     FT_Service_SFNT_Table  service;
  2290.     if ( !face || !FT_IS_SFNT( face ) )
  2291.       return FT_Err_Invalid_Face_Handle;
  2292.     FT_FACE_FIND_SERVICE( face, service, SFNT_TABLE );
  2293.     if ( service == NULL )
  2294.       return FT_Err_Unimplemented_Feature;
  2295.     return service->table_info( face, table_index, tag, length );
  2296.   }
  2297.   /* documentation is in tttables.h */
  2298.   FT_EXPORT_DEF( FT_ULong )
  2299.   FT_Get_CMap_Language_ID( FT_CharMap  charmap )
  2300.   {
  2301.     FT_Service_TTCMaps  service;
  2302.     FT_Face             face;
  2303.     TT_CMapInfo         cmap_info;
  2304.     if ( !charmap || !charmap->face )
  2305.       return 0;
  2306.     face = charmap->face;
  2307.     FT_FACE_FIND_SERVICE( face, service, TT_CMAP );
  2308.     if ( service == NULL )
  2309.       return 0;
  2310.     if ( service->get_cmap_info( charmap, &cmap_info ))
  2311.       return 0;
  2312.     return cmap_info.language;
  2313.   }
  2314.   /* documentation is in tttables.h */
  2315.   FT_EXPORT_DEF( FT_Long )
  2316.   FT_Get_CMap_Format( FT_CharMap  charmap )
  2317.   {
  2318.     FT_Service_TTCMaps  service;
  2319.     FT_Face             face;
  2320.     TT_CMapInfo         cmap_info;
  2321.     if ( !charmap || !charmap->face )
  2322.       return -1;
  2323.     face = charmap->face;
  2324.     FT_FACE_FIND_SERVICE( face, service, TT_CMAP );
  2325.     if ( service == NULL )
  2326.       return -1;
  2327.     if ( service->get_cmap_info( charmap, &cmap_info ))
  2328.       return -1;
  2329.     return cmap_info.format;
  2330.   }
  2331.   /* documentation is in ftsizes.h */
  2332.   FT_EXPORT_DEF( FT_Error )
  2333.   FT_Activate_Size( FT_Size  size )
  2334.   {
  2335.     FT_Face  face;
  2336.     if ( size == NULL )
  2337.       return FT_Err_Bad_Argument;
  2338.     face = size->face;
  2339.     if ( face == NULL || face->driver == NULL )
  2340.       return FT_Err_Bad_Argument;
  2341.     /* we don't need anything more complex than that; all size objects */
  2342.     /* are already listed by the face                                  */
  2343.     face->size = size;
  2344.     return FT_Err_Ok;
  2345.   }
  2346.   /*************************************************************************/
  2347.   /*************************************************************************/
  2348.   /*************************************************************************/
  2349.   /****                                                                 ****/
  2350.   /****                                                                 ****/
  2351.   /****                        R E N D E R E R S                        ****/
  2352.   /****                                                                 ****/
  2353.   /****                                                                 ****/
  2354.   /*************************************************************************/
  2355.   /*************************************************************************/
  2356.   /*************************************************************************/
  2357.   /* lookup a renderer by glyph format in the library's list */
  2358.   FT_BASE_DEF( FT_Renderer )
  2359.   FT_Lookup_Renderer( FT_Library       library,
  2360.                       FT_Glyph_Format  format,
  2361.                       FT_ListNode*     node )
  2362.   {
  2363.     FT_ListNode  cur;
  2364.     FT_Renderer  result = 0;
  2365.     if ( !library )
  2366.       goto Exit;
  2367.     cur = library->renderers.head;
  2368.     if ( node )
  2369.     {
  2370.       if ( *node )
  2371.         cur = (*node)->next;
  2372.       *node = 0;
  2373.     }
  2374.     while ( cur )
  2375.     {
  2376.       FT_Renderer  renderer = FT_RENDERER( cur->data );
  2377.       if ( renderer->glyph_format == format )
  2378.       {
  2379.         if ( node )
  2380.           *node = cur;
  2381.         result = renderer;
  2382.         break;
  2383.       }
  2384.       cur = cur->next;
  2385.     }
  2386.   Exit:
  2387.     return result;
  2388.   }
  2389.   static FT_Renderer
  2390.   ft_lookup_glyph_renderer( FT_GlyphSlot  slot )
  2391.   {
  2392.     FT_Face      face    = slot->face;
  2393.     FT_Library   library = FT_FACE_LIBRARY( face );
  2394.     FT_Renderer  result  = library->cur_renderer;
  2395.     if ( !result || result->glyph_format != slot->format )
  2396.       result = FT_Lookup_Renderer( library, slot->format, 0 );
  2397.     return result;
  2398.   }
  2399.   static void
  2400.   ft_set_current_renderer( FT_Library  library )
  2401.   {
  2402.     FT_Renderer  renderer;
  2403.     renderer = FT_Lookup_Renderer( library, FT_GLYPH_FORMAT_OUTLINE, 0 );
  2404.     library->cur_renderer = renderer;
  2405.   }
  2406.   static FT_Error
  2407.   ft_add_renderer( FT_Module  module )
  2408.   {
  2409.     FT_Library   library = module->library;
  2410.     FT_Memory    memory  = library->memory;
  2411.     FT_Error     error;
  2412.     FT_ListNode  node;
  2413.     if ( FT_NEW( node ) )
  2414.       goto Exit;
  2415.     {
  2416.       FT_Renderer         render = FT_RENDERER( module );
  2417.       FT_Renderer_Class*  clazz  = (FT_Renderer_Class*)module->clazz;
  2418.       render->clazz        = clazz;
  2419.       render->glyph_format = clazz->glyph_format;
  2420.       /* allocate raster object if needed */
  2421.       if ( clazz->glyph_format == FT_GLYPH_FORMAT_OUTLINE &&
  2422.            clazz->raster_class->raster_new )
  2423.       {
  2424.         error = clazz->raster_class->raster_new( memory, &render->raster );
  2425.         if ( error )
  2426.           goto Fail;
  2427.         render->raster_render = clazz->raster_class->raster_render;
  2428.         render->render        = clazz->render_glyph;
  2429.       }
  2430.       /* add to list */
  2431.       node->data = module;
  2432.       FT_List_Add( &library->renderers, node );
  2433.       ft_set_current_renderer( library );
  2434.     }
  2435.   Fail:
  2436.     if ( error )
  2437.       FT_FREE( node );
  2438.   Exit:
  2439.     return error;
  2440.   }
  2441.   static void
  2442.   ft_remove_renderer( FT_Module  module )
  2443.   {
  2444.     FT_Library   library = module->library;
  2445.     FT_Memory    memory  = library->memory;
  2446.     FT_ListNode  node;
  2447.     node = FT_List_Find( &library->renderers, module );
  2448.     if ( node )
  2449.     {
  2450.       FT_Renderer  render = FT_RENDERER( module );
  2451.       /* release raster object, if any */
  2452.       if ( render->raster )
  2453.         render->clazz->raster_class->raster_done( render->raster );
  2454.       /* remove from list */
  2455.       FT_List_Remove( &library->renderers, node );
  2456.       FT_FREE( node );
  2457.       ft_set_current_renderer( library );
  2458.     }
  2459.   }
  2460.   /* documentation is in ftrender.h */
  2461.   FT_EXPORT_DEF( FT_Renderer )
  2462.   FT_Get_Renderer( FT_Library       library,
  2463.                    FT_Glyph_Format  format )
  2464.   {
  2465.     /* test for valid `library' delayed to FT_Lookup_Renderer() */
  2466.     return FT_Lookup_Renderer( library, format, 0 );
  2467.   }
  2468.   /* documentation is in ftrender.h */
  2469.   FT_EXPORT_DEF( FT_Error )
  2470.   FT_Set_Renderer( FT_Library     library,
  2471.                    FT_Renderer    renderer,
  2472.                    FT_UInt        num_params,
  2473.                    FT_Parameter*  parameters )
  2474.   {
  2475.     FT_ListNode  node;
  2476.     FT_Error     error = FT_Err_Ok;
  2477.     if ( !library )
  2478.       return FT_Err_Invalid_Library_Handle;
  2479.     if ( !renderer )
  2480.       return FT_Err_Invalid_Argument;
  2481.     node = FT_List_Find( &library->renderers, renderer );
  2482.     if ( !node )
  2483.     {
  2484.       error = FT_Err_Invalid_Argument;
  2485.       goto Exit;
  2486.     }
  2487.     FT_List_Up( &library->renderers, node );
  2488.     if ( renderer->glyph_format == FT_GLYPH_FORMAT_OUTLINE )
  2489.       library->cur_renderer = renderer;
  2490.     if ( num_params > 0 )
  2491.     {
  2492.       FT_Renderer_SetModeFunc  set_mode = renderer->clazz->set_mode;
  2493.       for ( ; num_params > 0; num_params-- )
  2494.       {
  2495.         error = set_mode( renderer, parameters->tag, parameters->data );
  2496.         if ( error )
  2497.           break;
  2498.       }
  2499.     }
  2500.   Exit:
  2501.     return error;
  2502.   }
  2503.   FT_BASE_DEF( FT_Error )
  2504.   FT_Render_Glyph_Internal( FT_Library      library,
  2505.                             FT_GlyphSlot    slot,
  2506.                             FT_Render_Mode  render_mode )
  2507.   {
  2508.     FT_Error     error = FT_Err_Ok;
  2509.     FT_Renderer  renderer;
  2510.     /* if it is already a bitmap, no need to do anything */
  2511.     switch ( slot->format )
  2512.     {
  2513.     case FT_GLYPH_FORMAT_BITMAP:   /* already a bitmap, don't do anything */
  2514.       break;
  2515.     default:
  2516.       {
  2517.         FT_ListNode  node   = 0;
  2518.         FT_Bool      update = 0;
  2519.         /* small shortcut for the very common case */
  2520.         if ( slot->format == FT_GLYPH_FORMAT_OUTLINE )
  2521.         {
  2522.           renderer = library->cur_renderer;
  2523.           node     = library->renderers.head;
  2524.         }
  2525.         else
  2526.           renderer = FT_Lookup_Renderer( library, slot->format, &node );
  2527.         error = FT_Err_Unimplemented_Feature;
  2528.         while ( renderer )
  2529.         {
  2530.           error = renderer->render( renderer, slot, render_mode, NULL );
  2531.           if ( !error ||
  2532.                FT_ERROR_BASE( error ) != FT_Err_Cannot_Render_Glyph )
  2533.             break;
  2534.           /* FT_Err_Cannot_Render_Glyph is returned if the render mode   */
  2535.           /* is unsupported by the current renderer for this glyph image */
  2536.           /* format.                                                     */
  2537.           /* now, look for another renderer that supports the same */
  2538.           /* format.                                               */
  2539.           renderer = FT_Lookup_Renderer( library, slot->format, &node );
  2540.           update   = 1;
  2541.         }
  2542.         /* if we changed the current renderer for the glyph image format */
  2543.         /* we need to select it as the next current one                  */
  2544.         if ( !error && update && renderer )
  2545.           FT_Set_Renderer( library, renderer, 0, 0 );
  2546.       }
  2547.     }
  2548.     return error;
  2549.   }
  2550.   /* documentation is in freetype.h */
  2551.   FT_EXPORT_DEF( FT_Error )
  2552.   FT_Render_Glyph( FT_GlyphSlot    slot,
  2553.                    FT_Render_Mode  render_mode )
  2554.   {
  2555.     FT_Library  library;
  2556.     if ( !slot )
  2557.       return FT_Err_Invalid_Argument;
  2558.     library = FT_FACE_LIBRARY( slot->face );
  2559.     return FT_Render_Glyph_Internal( library, slot, render_mode );
  2560.   }
  2561.   /*************************************************************************/
  2562.   /*************************************************************************/
  2563.   /*************************************************************************/
  2564.   /****                                                                 ****/
  2565.   /****                                                                 ****/
  2566.   /****                         M O D U L E S                           ****/
  2567.   /****                                                                 ****/
  2568.   /****                                                                 ****/
  2569.   /*************************************************************************/
  2570.   /*************************************************************************/
  2571.   /*************************************************************************/
  2572.   /*************************************************************************/
  2573.   /*                                                                       */
  2574.   /* <Function>                                                            */
  2575.   /*    Destroy_Module                                                     */
  2576.   /*                                                                       */
  2577.   /* <Description>                                                         */
  2578.   /*    Destroys a given module object.  For drivers, this also destroys   */
  2579.   /*    all child faces.                                                   */
  2580.   /*                                                                       */
  2581.   /* <InOut>                                                               */
  2582.   /*     module :: A handle to the target driver object.                   */
  2583.   /*                                                                       */
  2584.   /* <Note>                                                                */
  2585.   /*     The driver _must_ be LOCKED!                                      */
  2586.   /*                                                                       */
  2587.   static void
  2588.   Destroy_Module( FT_Module  module )
  2589.   {
  2590.     FT_Memory         memory  = module->memory;
  2591.     FT_Module_Class*  clazz   = module->clazz;
  2592.     FT_Library        library = module->library;
  2593.     /* finalize client-data - before anything else */
  2594.     if ( module->generic.finalizer )
  2595.       module->generic.finalizer( module );
  2596.     if ( library && library->auto_hinter == module )
  2597.       library->auto_hinter = 0;
  2598.     /* if the module is a renderer */
  2599.     if ( FT_MODULE_IS_RENDERER( module ) )
  2600.       ft_remove_renderer( module );
  2601.     /* if the module is a font driver, add some steps */
  2602.     if ( FT_MODULE_IS_DRIVER( module ) )
  2603.       Destroy_Driver( FT_DRIVER( module ) );
  2604.     /* finalize the module object */
  2605.     if ( clazz->module_done )
  2606.       clazz->module_done( module );
  2607.     /* discard it */
  2608.     FT_FREE( module );
  2609.   }
  2610.   /* documentation is in ftmodapi.h */
  2611.   FT_EXPORT_DEF( FT_Error )
  2612.   FT_Add_Module( FT_Library              library,
  2613.                  const FT_Module_Class*  clazz )
  2614.   {
  2615.     FT_Error   error;
  2616.     FT_Memory  memory;
  2617.     FT_Module  module;
  2618.     FT_UInt    nn;
  2619. #define FREETYPE_VER_FIXED  ( ( (FT_Long)FREETYPE_MAJOR << 16 ) | 
  2620.                                 FREETYPE_MINOR                  )
  2621.     if ( !library )
  2622.       return FT_Err_Invalid_Library_Handle;
  2623.     if ( !clazz )
  2624.       return FT_Err_Invalid_Argument;
  2625.     /* check freetype version */
  2626.     if ( clazz->module_requires > FREETYPE_VER_FIXED )
  2627.       return FT_Err_Invalid_Version;
  2628.     /* look for a module with the same name in the library's table */
  2629.     for ( nn = 0; nn < library->num_modules; nn++ )
  2630.     {
  2631.       module = library->modules[nn];
  2632.       if ( ft_strcmp( module->clazz->module_name, clazz->module_name ) == 0 )
  2633.       {
  2634.         /* this installed module has the same name, compare their versions */
  2635.         if ( clazz->module_version <= module->clazz->module_version )
  2636.           return FT_Err_Lower_Module_Version;
  2637.         /* remove the module from our list, then exit the loop to replace */
  2638.         /* it by our new version..                                        */
  2639.         FT_Remove_Module( library, module );
  2640.         break;
  2641.       }
  2642.     }
  2643.     memory = library->memory;
  2644.     error  = FT_Err_Ok;
  2645.     if ( library->num_modules >= FT_MAX_MODULES )
  2646.     {
  2647.       error = FT_Err_Too_Many_Drivers;
  2648.       goto Exit;
  2649.     }
  2650.     /* allocate module object */
  2651.     if ( FT_ALLOC( module, clazz->module_size ) )
  2652.       goto Exit;
  2653.     /* base initialization */
  2654.     module->library = library;
  2655.     module->memory  = memory;
  2656.     module->clazz   = (FT_Module_Class*)clazz;
  2657.     /* check whether the module is a renderer - this must be performed */
  2658.     /* before the normal module initialization                         */
  2659.     if ( FT_MODULE_IS_RENDERER( module ) )
  2660.     {
  2661.       /* add to the renderers list */
  2662.       error = ft_add_renderer( module );
  2663.       if ( error )
  2664.         goto Fail;
  2665.     }
  2666.     /* is the module a auto-hinter? */
  2667.     if ( FT_MODULE_IS_HINTER( module ) )
  2668.       library->auto_hinter = module;
  2669.     /* if the module is a font driver */
  2670.     if ( FT_MODULE_IS_DRIVER( module ) )
  2671.     {
  2672.       /* allocate glyph loader if needed */
  2673.       FT_Driver  driver = FT_DRIVER( module );
  2674.       driver->clazz = (FT_Driver_Class)module->clazz;
  2675.       if ( FT_DRIVER_USES_OUTLINES( driver ) )
  2676.       {
  2677.         error = FT_GlyphLoader_New( memory, &driver->glyph_loader );
  2678.         if ( error )
  2679.           goto Fail;
  2680.       }
  2681.     }
  2682.     if ( clazz->module_init )
  2683.     {
  2684.       error = clazz->module_init( module );
  2685.       if ( error )
  2686.         goto Fail;
  2687.     }
  2688.     /* add module to the library's table */
  2689.     library->modules[library->num_modules++] = module;
  2690.   Exit:
  2691.     return error;
  2692.   Fail:
  2693.     if ( FT_MODULE_IS_DRIVER( module ) )
  2694.     {
  2695.       FT_Driver  driver = FT_DRIVER( module );
  2696.       if ( FT_DRIVER_USES_OUTLINES( driver ) )
  2697.         FT_GlyphLoader_Done( driver->glyph_loader );
  2698.     }
  2699.     if ( FT_MODULE_IS_RENDERER( module ) )
  2700.     {
  2701.       FT_Renderer  renderer = FT_RENDERER( module );
  2702.       if ( renderer->raster )
  2703.         renderer->clazz->raster_class->raster_done( renderer->raster );
  2704.     }
  2705.     FT_FREE( module );
  2706.     goto Exit;
  2707.   }
  2708.   /* documentation is in ftmodapi.h */
  2709.   FT_EXPORT_DEF( FT_Module )
  2710.   FT_Get_Module( FT_Library   library,
  2711.                  const char*  module_name )
  2712.   {
  2713.     FT_Module   result = 0;
  2714.     FT_Module*  cur;
  2715.     FT_Module*  limit;
  2716.     if ( !library || !module_name )
  2717.       return result;
  2718.     cur   = library->modules;
  2719.     limit = cur + library->num_modules;
  2720.     for ( ; cur < limit; cur++ )
  2721.       if ( ft_strcmp( cur[0]->clazz->module_name, module_name ) == 0 )
  2722.       {
  2723.         result = cur[0];
  2724.         break;
  2725.       }
  2726.     return result;
  2727.   }
  2728.   /* documentation is in ftobjs.h */
  2729.   FT_BASE_DEF( const void* )
  2730.   FT_Get_Module_Interface( FT_Library   library,
  2731.                            const char*  mod_name )
  2732.   {
  2733.     FT_Module  module;
  2734.     /* test for valid `library' delayed to FT_Get_Module() */
  2735.     module = FT_Get_Module( library, mod_name );
  2736.     return module ? module->clazz->module_interface : 0;
  2737.   }
  2738.   FT_BASE_DEF( FT_Pointer )
  2739.   ft_module_get_service( FT_Module    module,
  2740.                          const char*  service_id )
  2741.   {
  2742.     FT_Pointer  result = NULL;
  2743.     if ( module )
  2744.     {
  2745.       FT_ASSERT( module->clazz && module->clazz->get_interface );
  2746.      /* first, look for the service in the module
  2747.       */
  2748.       if ( module->clazz->get_interface )
  2749.         result = module->clazz->get_interface( module, service_id );
  2750.       if ( result == NULL )
  2751.       {
  2752.        /* we didn't find it, look in all other modules then
  2753.         */
  2754.         FT_Library  library = module->library;
  2755.         FT_Module*  cur     = library->modules;
  2756.         FT_Module*  limit   = cur + library->num_modules;
  2757.         for ( ; cur < limit; cur++ )
  2758.         {
  2759.           if ( cur[0] != module )
  2760.           {
  2761.             FT_ASSERT( cur[0]->clazz );
  2762.             if ( cur[0]->clazz->get_interface )
  2763.             {
  2764.               result = cur[0]->clazz->get_interface( cur[0], service_id );
  2765.               if ( result != NULL )
  2766.                 break;
  2767.             }
  2768.           }
  2769.         }
  2770.       }
  2771.     }
  2772.     return result;
  2773.   }
  2774.   /* documentation is in ftmodapi.h */
  2775.   FT_EXPORT_DEF( FT_Error )
  2776.   FT_Remove_Module( FT_Library  library,
  2777.                     FT_Module   module )
  2778.   {
  2779.     /* try to find the module from the table, then remove it from there */
  2780.     if ( !library )
  2781.       return FT_Err_Invalid_Library_Handle;
  2782.     if ( module )
  2783.     {
  2784.       FT_Module*  cur   = library->modules;
  2785.       FT_Module*  limit = cur + library->num_modules;
  2786.       for ( ; cur < limit; cur++ )
  2787.       {
  2788.         if ( cur[0] == module )
  2789.         {
  2790.           /* remove it from the table */
  2791.           library->num_modules--;
  2792.           limit--;
  2793.           while ( cur < limit )
  2794.           {
  2795.             cur[0] = cur[1];
  2796.             cur++;
  2797.           }
  2798.           limit[0] = 0;
  2799.           /* destroy the module */
  2800.           Destroy_Module( module );
  2801.           return FT_Err_Ok;
  2802.         }
  2803.       }
  2804.     }
  2805.     return FT_Err_Invalid_Driver_Handle;
  2806.   }
  2807.   /*************************************************************************/
  2808.   /*************************************************************************/
  2809.   /*************************************************************************/
  2810.   /****                                                                 ****/
  2811.   /****                                                                 ****/
  2812.   /****                         L I B R A R Y                           ****/
  2813.   /****                                                                 ****/
  2814.   /****                                                                 ****/
  2815.   /*************************************************************************/
  2816.   /*************************************************************************/
  2817.   /*************************************************************************/
  2818.   /* documentation is in ftmodapi.h */
  2819.   FT_EXPORT_DEF( FT_Error )
  2820.   FT_New_Library( FT_Memory    memory,
  2821.                   FT_Library  *alibrary )
  2822.   {
  2823.     FT_Library  library = 0;
  2824.     FT_Error    error;
  2825.     if ( !memory )
  2826.       return FT_Err_Invalid_Argument;
  2827. #ifdef FT_DEBUG_LEVEL_ERROR
  2828.     /* init debugging support */
  2829.     ft_debug_init();
  2830. #endif
  2831.     /* first of all, allocate the library object */
  2832.     if ( FT_NEW( library ) )
  2833.       return error;
  2834.     library->memory = memory;
  2835.     /* allocate the render pool */
  2836.     library->raster_pool_size = FT_RENDER_POOL_SIZE;
  2837.     if ( FT_RENDER_POOL_SIZE > 0 )
  2838.       if ( FT_ALLOC( library->raster_pool, FT_RENDER_POOL_SIZE ) )
  2839.         goto Fail;
  2840.     /* That's ok now */
  2841.     *alibrary = library;
  2842.     return FT_Err_Ok;
  2843.   Fail:
  2844.     FT_FREE( library );
  2845.     return error;
  2846.   }
  2847.   /* documentation is in freetype.h */
  2848.   FT_EXPORT_DEF( void )
  2849.   FT_Library_Version( FT_Library   library,
  2850.                       FT_Int      *amajor,
  2851.                       FT_Int      *aminor,
  2852.                       FT_Int      *apatch )
  2853.   {
  2854.     FT_Int  major = 0;
  2855.     FT_Int  minor = 0;
  2856.     FT_Int  patch = 0;
  2857.     if ( library )
  2858.     {
  2859.       major = library->version_major;
  2860.       minor = library->version_minor;
  2861.       patch = library->version_patch;
  2862.     }
  2863.     if ( amajor )
  2864.       *amajor = major;
  2865.     if ( aminor )
  2866.       *aminor = minor;
  2867.     if ( apatch )
  2868.       *apatch = patch;
  2869.   }
  2870.   /* documentation is in ftmodapi.h */
  2871.   FT_EXPORT_DEF( FT_Error )
  2872.   FT_Done_Library( FT_Library  library )
  2873.   {
  2874.     FT_Memory  memory;
  2875.     if ( !library )
  2876.       return FT_Err_Invalid_Library_Handle;
  2877.     memory = library->memory;
  2878.     /* Discard client-data */
  2879.     if ( library->generic.finalizer )
  2880.       library->generic.finalizer( library );
  2881.     /* Close all faces in the library.  If we don't do
  2882.      * this, we can have some subtle memory leaks.
  2883.      * Example:
  2884.      *
  2885.      *  - the cff font driver uses the pshinter module in cff_size_done
  2886.      *  - if the pshinter module is destroyed before the cff font driver,
  2887.      *    opened FT_Face objects managed by the driver are not properly
  2888.      *    destroyed, resulting in a memory leak
  2889.      */
  2890.     {
  2891.       FT_UInt  n;
  2892.       for ( n = 0; n < library->num_modules; n++ )
  2893.       {
  2894.         FT_Module  module = library->modules[n];
  2895.         FT_List    faces;
  2896.         if ( ( module->clazz->module_flags & FT_MODULE_FONT_DRIVER ) == 0 )
  2897.           continue;
  2898.         faces = &FT_DRIVER(module)->faces_list;
  2899.         while ( faces->head )
  2900.           FT_Done_Face( FT_FACE( faces->head->data ) );
  2901.       }
  2902.     }
  2903.     /* Close all other modules in the library */
  2904. #if 1
  2905.     /* XXX Modules are removed in the reversed order so that  */
  2906.     /* type42 module is removed before truetype module.  This */
  2907.     /* avoids double free in some occasions.  It is a hack.   */
  2908.     while ( library->num_modules > 0 )
  2909.       FT_Remove_Module( library,
  2910.                         library->modules[library->num_modules - 1] );
  2911. #else
  2912.     {
  2913.       FT_UInt  n;
  2914.       for ( n = 0; n < library->num_modules; n++ )
  2915.       {
  2916.         FT_Module  module = library->modules[n];
  2917.         if ( module )
  2918.         {
  2919.           Destroy_Module( module );
  2920.           library->modules[n] = 0;
  2921.         }
  2922.       }
  2923.     }
  2924. #endif
  2925.     /* Destroy raster objects */
  2926.     FT_FREE( library->raster_pool );
  2927.     library->raster_pool_size = 0;
  2928.     FT_FREE( library );
  2929.     return FT_Err_Ok;
  2930.   }
  2931.   /* documentation is in ftmodapi.h */
  2932.   FT_EXPORT_DEF( void )
  2933.   FT_Set_Debug_Hook( FT_Library         library,
  2934.                      FT_UInt            hook_index,
  2935.                      FT_DebugHook_Func  debug_hook )
  2936.   {
  2937.     if ( library && debug_hook &&
  2938.          hook_index <
  2939.            ( sizeof ( library->debug_hooks ) / sizeof ( void* ) ) )
  2940.       library->debug_hooks[hook_index] = debug_hook;
  2941.   }
  2942.   /* documentation is in ftmodapi.h */
  2943.   FT_EXPORT_DEF( FT_TrueTypeEngineType )
  2944.   FT_Get_TrueType_Engine_Type( FT_Library  library )
  2945.   {
  2946.     FT_TrueTypeEngineType  result = FT_TRUETYPE_ENGINE_TYPE_NONE;
  2947.     if ( library )
  2948.     {
  2949.       FT_Module  module = FT_Get_Module( library, "truetype" );
  2950.       if ( module )
  2951.       {
  2952.         FT_Service_TrueTypeEngine  service;
  2953.         service = (FT_Service_TrueTypeEngine)
  2954.                     ft_module_get_service( module,
  2955.                                            FT_SERVICE_ID_TRUETYPE_ENGINE );
  2956.         if ( service )
  2957.           result = service->engine_type;
  2958.       }
  2959.     }
  2960.     return result;
  2961.   }
  2962. #ifdef FT_CONFIG_OPTION_OLD_INTERNALS
  2963.   FT_BASE_DEF( FT_Error )
  2964.   ft_stub_set_char_sizes( FT_Size     size,
  2965.                           FT_F26Dot6  width,
  2966.                           FT_F26Dot6  height,
  2967.                           FT_UInt     horz_res,
  2968.                           FT_UInt     vert_res )
  2969.   {
  2970.     FT_Size_RequestRec  req;
  2971.     FT_Driver           driver = size->face->driver;
  2972.     if ( driver->clazz->request_size )
  2973.     {
  2974.       req.type   = FT_SIZE_REQUEST_TYPE_NOMINAL;
  2975.       req.width  = width;
  2976.       req.height = height;
  2977.       if ( horz_res == 0 )
  2978.         horz_res = vert_res;
  2979.       if ( vert_res == 0 )
  2980.         vert_res = horz_res;
  2981.       if ( horz_res == 0 )
  2982.         horz_res = vert_res = 72;
  2983.       req.horiResolution = horz_res;
  2984.       req.vertResolution = vert_res;
  2985.       return driver->clazz->request_size( size, &req );
  2986.     }
  2987.     return 0;
  2988.   }
  2989.   FT_BASE_DEF( FT_Error )
  2990.   ft_stub_set_pixel_sizes( FT_Size  size,
  2991.                            FT_UInt  width,
  2992.                            FT_UInt  height )
  2993.   {
  2994.     FT_Size_RequestRec  req;
  2995.     FT_Driver           driver = size->face->driver;
  2996.     if ( driver->clazz->request_size )
  2997.     {
  2998.       req.type           = FT_SIZE_REQUEST_TYPE_NOMINAL;
  2999.       req.width          = width  << 6;
  3000.       req.height         = height << 6;
  3001.       req.horiResolution = 0;
  3002.       req.vertResolution = 0;
  3003.       return driver->clazz->request_size( size, &req );
  3004.     }
  3005.     return 0;
  3006.   }
  3007. #endif /* FT_CONFIG_OPTION_OLD_INTERNALS */
  3008.   FT_EXPORT_DEF( FT_Error )
  3009.   FT_Get_SubGlyph_Info( FT_GlyphSlot  glyph,
  3010.                         FT_UInt       sub_index,
  3011.                         FT_Int       *p_index,
  3012.                         FT_UInt      *p_flags,
  3013.                         FT_Int       *p_arg1,
  3014.                         FT_Int       *p_arg2,
  3015.                         FT_Matrix    *p_transform )
  3016.   {
  3017.     FT_Error  error = FT_Err_Invalid_Argument;
  3018.     if ( glyph != NULL                              &&
  3019.          glyph->format == FT_GLYPH_FORMAT_COMPOSITE &&
  3020.          sub_index < glyph->num_subglyphs           )
  3021.     {
  3022.       FT_SubGlyph  subg = glyph->subglyphs + sub_index;
  3023.       *p_index     = subg->index;
  3024.       *p_flags     = subg->flags;
  3025.       *p_arg1      = subg->arg1;
  3026.       *p_arg2      = subg->arg2;
  3027.       *p_transform = subg->transform;
  3028.     }
  3029.     return error;
  3030.   }
  3031. /* END */