source: trunk/poppler/freetype2/src/base/ftobjs.c @ 251

Last change on this file since 251 was 251, checked in by Eugene Romanenko, 13 years ago

PDF plugin: freetype library updated to version 2.3.5

File size: 114.3 KB
Line 
1/***************************************************************************/
2/*                                                                         */
3/*  ftobjs.c                                                               */
4/*                                                                         */
5/*    The FreeType private base classes (body).                            */
6/*                                                                         */
7/*  Copyright 1996-2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 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
18
19#include <ft2build.h>
20#include FT_LIST_H
21#include FT_OUTLINE_H
22#include FT_INTERNAL_VALIDATE_H
23#include FT_INTERNAL_OBJECTS_H
24#include FT_INTERNAL_DEBUG_H
25#include FT_INTERNAL_RFORK_H
26#include FT_INTERNAL_STREAM_H
27#include FT_INTERNAL_SFNT_H    /* for SFNT_Load_Table_Func */
28#include FT_TRUETYPE_TABLES_H
29#include FT_TRUETYPE_IDS_H
30#include FT_OUTLINE_H
31
32#include FT_SERVICE_SFNT_H
33#include FT_SERVICE_POSTSCRIPT_NAME_H
34#include FT_SERVICE_GLYPH_DICT_H
35#include FT_SERVICE_TT_CMAP_H
36#include FT_SERVICE_KERNING_H
37#include FT_SERVICE_TRUETYPE_ENGINE_H
38
39#define GRID_FIT_METRICS
40
41  FT_BASE_DEF( FT_Pointer )
42  ft_service_list_lookup( FT_ServiceDesc  service_descriptors,
43                          const char*     service_id )
44  {
45    FT_Pointer      result = NULL;
46    FT_ServiceDesc  desc   = service_descriptors;
47
48
49    if ( desc && service_id )
50    {
51      for ( ; desc->serv_id != NULL; desc++ )
52      {
53        if ( ft_strcmp( desc->serv_id, service_id ) == 0 )
54        {
55          result = (FT_Pointer)desc->serv_data;
56          break;
57        }
58      }
59    }
60
61    return result;
62  }
63
64
65  FT_BASE_DEF( void )
66  ft_validator_init( FT_Validator        valid,
67                     const FT_Byte*      base,
68                     const FT_Byte*      limit,
69                     FT_ValidationLevel  level )
70  {
71    valid->base  = base;
72    valid->limit = limit;
73    valid->level = level;
74    valid->error = FT_Err_Ok;
75  }
76
77
78  FT_BASE_DEF( FT_Int )
79  ft_validator_run( FT_Validator  valid )
80  {
81    /* This function doesn't work!  None should call it. */
82    FT_UNUSED( valid );
83
84    return -1;
85  }
86
87
88  FT_BASE_DEF( void )
89  ft_validator_error( FT_Validator  valid,
90                      FT_Error      error )
91  {
92    /* since the cast below also disables the compiler's */
93    /* type check, we introduce a dummy variable, which  */
94    /* will be optimized away                            */
95    volatile ft_jmp_buf* jump_buffer = &valid->jump_buffer;
96
97
98    valid->error = error;
99
100    /* throw away volatileness; use `jump_buffer' or the  */
101    /* compiler may warn about an unused local variable   */
102    ft_longjmp( *(ft_jmp_buf*) jump_buffer, 1 );
103  }
104
105
106  /*************************************************************************/
107  /*************************************************************************/
108  /*************************************************************************/
109  /****                                                                 ****/
110  /****                                                                 ****/
111  /****                           S T R E A M                           ****/
112  /****                                                                 ****/
113  /****                                                                 ****/
114  /*************************************************************************/
115  /*************************************************************************/
116  /*************************************************************************/
117
118
119  /* create a new input stream from an FT_Open_Args structure */
120  /*                                                          */
121  FT_BASE_DEF( FT_Error )
122  FT_Stream_New( FT_Library           library,
123                 const FT_Open_Args*  args,
124                 FT_Stream           *astream )
125  {
126    FT_Error   error;
127    FT_Memory  memory;
128    FT_Stream  stream;
129
130
131    if ( !library )
132      return FT_Err_Invalid_Library_Handle;
133
134    if ( !args )
135      return FT_Err_Invalid_Argument;
136
137    *astream = 0;
138    memory   = library->memory;
139
140    if ( FT_NEW( stream ) )
141      goto Exit;
142
143    stream->memory = memory;
144
145    if ( args->flags & FT_OPEN_MEMORY )
146    {
147      /* create a memory-based stream */
148      FT_Stream_OpenMemory( stream,
149                            (const FT_Byte*)args->memory_base,
150                            args->memory_size );
151    }
152    else if ( args->flags & FT_OPEN_PATHNAME )
153    {
154      /* create a normal system stream */
155      error = FT_Stream_Open( stream, args->pathname );
156      stream->pathname.pointer = args->pathname;
157    }
158    else if ( ( args->flags & FT_OPEN_STREAM ) && args->stream )
159    {
160      /* use an existing, user-provided stream */
161
162      /* in this case, we do not need to allocate a new stream object */
163      /* since the caller is responsible for closing it himself       */
164      FT_FREE( stream );
165      stream = args->stream;
166    }
167    else
168      error = FT_Err_Invalid_Argument;
169
170    if ( error )
171      FT_FREE( stream );
172    else
173      stream->memory = memory;  /* just to be certain */
174
175    *astream = stream;
176
177  Exit:
178    return error;
179  }
180
181
182  FT_BASE_DEF( void )
183  FT_Stream_Free( FT_Stream  stream,
184                  FT_Int     external )
185  {
186    if ( stream )
187    {
188      FT_Memory  memory = stream->memory;
189
190
191      FT_Stream_Close( stream );
192
193      if ( !external )
194        FT_FREE( stream );
195    }
196  }
197
198
199#undef  FT_COMPONENT
200#define FT_COMPONENT  trace_objs
201
202
203  /*************************************************************************/
204  /*************************************************************************/
205  /*************************************************************************/
206  /****                                                                 ****/
207  /****                                                                 ****/
208  /****               FACE, SIZE & GLYPH SLOT OBJECTS                   ****/
209  /****                                                                 ****/
210  /****                                                                 ****/
211  /*************************************************************************/
212  /*************************************************************************/
213  /*************************************************************************/
214
215
216  static FT_Error
217  ft_glyphslot_init( FT_GlyphSlot  slot )
218  {
219    FT_Driver         driver = slot->face->driver;
220    FT_Driver_Class   clazz  = driver->clazz;
221    FT_Memory         memory = driver->root.memory;
222    FT_Error          error  = FT_Err_Ok;
223    FT_Slot_Internal  internal;
224
225
226    slot->library = driver->root.library;
227
228    if ( FT_NEW( internal ) )
229      goto Exit;
230
231    slot->internal = internal;
232
233    if ( FT_DRIVER_USES_OUTLINES( driver ) )
234      error = FT_GlyphLoader_New( memory, &internal->loader );
235
236    if ( !error && clazz->init_slot )
237      error = clazz->init_slot( slot );
238
239  Exit:
240    return error;
241  }
242
243
244  FT_BASE_DEF( void )
245  ft_glyphslot_free_bitmap( FT_GlyphSlot  slot )
246  {
247    if ( slot->internal->flags & FT_GLYPH_OWN_BITMAP )
248    {
249      FT_Memory  memory = FT_FACE_MEMORY( slot->face );
250
251
252      FT_FREE( slot->bitmap.buffer );
253      slot->internal->flags &= ~FT_GLYPH_OWN_BITMAP;
254    }
255    else
256    {
257      /* assume that the bitmap buffer was stolen or not */
258      /* allocated from the heap                         */
259      slot->bitmap.buffer = NULL;
260    }
261  }
262
263
264  FT_BASE_DEF( void )
265  ft_glyphslot_set_bitmap( FT_GlyphSlot  slot,
266                           FT_Byte*      buffer )
267  {
268    ft_glyphslot_free_bitmap( slot );
269
270    slot->bitmap.buffer = buffer;
271
272    FT_ASSERT( (slot->internal->flags & FT_GLYPH_OWN_BITMAP) == 0 );
273  }
274
275
276  FT_BASE_DEF( FT_Error )
277  ft_glyphslot_alloc_bitmap( FT_GlyphSlot  slot,
278                             FT_ULong      size )
279  {
280    FT_Memory  memory = FT_FACE_MEMORY( slot->face );
281    FT_Error   error;
282
283
284    if ( slot->internal->flags & FT_GLYPH_OWN_BITMAP )
285      FT_FREE( slot->bitmap.buffer );
286    else
287      slot->internal->flags |= FT_GLYPH_OWN_BITMAP;
288
289    (void)FT_ALLOC( slot->bitmap.buffer, size );
290    return error;
291  }
292
293
294  static void
295  ft_glyphslot_clear( FT_GlyphSlot  slot )
296  {
297    /* free bitmap if needed */
298    ft_glyphslot_free_bitmap( slot );
299
300    /* clear all public fields in the glyph slot */
301    FT_ZERO( &slot->metrics );
302    FT_ZERO( &slot->outline );
303
304    slot->bitmap.width      = 0;
305    slot->bitmap.rows       = 0;
306    slot->bitmap.pitch      = 0;
307    slot->bitmap.pixel_mode = 0;
308    /* `slot->bitmap.buffer' has been handled by ft_glyphslot_free_bitmap */
309
310    slot->bitmap_left   = 0;
311    slot->bitmap_top    = 0;
312    slot->num_subglyphs = 0;
313    slot->subglyphs     = 0;
314    slot->control_data  = 0;
315    slot->control_len   = 0;
316    slot->other         = 0;
317    slot->format        = FT_GLYPH_FORMAT_NONE;
318
319    slot->linearHoriAdvance = 0;
320    slot->linearVertAdvance = 0;
321    slot->lsb_delta         = 0;
322    slot->rsb_delta         = 0;
323  }
324
325
326  static void
327  ft_glyphslot_done( FT_GlyphSlot  slot )
328  {
329    FT_Driver        driver = slot->face->driver;
330    FT_Driver_Class  clazz  = driver->clazz;
331    FT_Memory        memory = driver->root.memory;
332
333
334    if ( clazz->done_slot )
335      clazz->done_slot( slot );
336
337    /* free bitmap buffer if needed */
338    ft_glyphslot_free_bitmap( slot );
339
340    /* free glyph loader */
341    if ( FT_DRIVER_USES_OUTLINES( driver ) )
342    {
343      FT_GlyphLoader_Done( slot->internal->loader );
344      slot->internal->loader = 0;
345    }
346
347    FT_FREE( slot->internal );
348  }
349
350
351  /* documentation is in ftobjs.h */
352
353  FT_BASE_DEF( FT_Error )
354  FT_New_GlyphSlot( FT_Face        face,
355                    FT_GlyphSlot  *aslot )
356  {
357    FT_Error         error;
358    FT_Driver        driver;
359    FT_Driver_Class  clazz;
360    FT_Memory        memory;
361    FT_GlyphSlot     slot;
362
363
364    if ( !face || !face->driver )
365      return FT_Err_Invalid_Argument;
366
367    driver = face->driver;
368    clazz  = driver->clazz;
369    memory = driver->root.memory;
370
371    FT_TRACE4(( "FT_New_GlyphSlot: Creating new slot object\n" ));
372    if ( !FT_ALLOC( slot, clazz->slot_object_size ) )
373    {
374      slot->face = face;
375
376      error = ft_glyphslot_init( slot );
377      if ( error )
378      {
379        ft_glyphslot_done( slot );
380        FT_FREE( slot );
381        goto Exit;
382      }
383
384      slot->next  = face->glyph;
385      face->glyph = slot;
386
387      if ( aslot )
388        *aslot = slot;
389    }
390    else if ( aslot )
391      *aslot = 0;
392
393
394  Exit:
395    FT_TRACE4(( "FT_New_GlyphSlot: Return %d\n", error ));
396    return error;
397  }
398
399
400  /* documentation is in ftobjs.h */
401
402  FT_BASE_DEF( void )
403  FT_Done_GlyphSlot( FT_GlyphSlot  slot )
404  {
405    if ( slot )
406    {
407      FT_Driver     driver = slot->face->driver;
408      FT_Memory     memory = driver->root.memory;
409      FT_GlyphSlot  prev;
410      FT_GlyphSlot  cur;
411
412
413      /* Remove slot from its parent face's list */
414      prev = NULL;
415      cur  = slot->face->glyph;
416
417      while ( cur )
418      {
419        if ( cur == slot )
420        {
421          if ( !prev )
422            slot->face->glyph = cur->next;
423          else
424            prev->next = cur->next;
425
426          ft_glyphslot_done( slot );
427          FT_FREE( slot );
428          break;
429        }
430        prev = cur;
431        cur  = cur->next;
432      }
433    }
434  }
435
436
437  /* documentation is in freetype.h */
438
439  FT_EXPORT_DEF( void )
440  FT_Set_Transform( FT_Face     face,
441                    FT_Matrix*  matrix,
442                    FT_Vector*  delta )
443  {
444    FT_Face_Internal  internal;
445
446
447    if ( !face )
448      return;
449
450    internal = face->internal;
451
452    internal->transform_flags = 0;
453
454    if ( !matrix )
455    {
456      internal->transform_matrix.xx = 0x10000L;
457      internal->transform_matrix.xy = 0;
458      internal->transform_matrix.yx = 0;
459      internal->transform_matrix.yy = 0x10000L;
460      matrix = &internal->transform_matrix;
461    }
462    else
463      internal->transform_matrix = *matrix;
464
465    /* set transform_flags bit flag 0 if `matrix' isn't the identity */
466    if ( ( matrix->xy | matrix->yx ) ||
467         matrix->xx != 0x10000L      ||
468         matrix->yy != 0x10000L      )
469      internal->transform_flags |= 1;
470
471    if ( !delta )
472    {
473      internal->transform_delta.x = 0;
474      internal->transform_delta.y = 0;
475      delta = &internal->transform_delta;
476    }
477    else
478      internal->transform_delta = *delta;
479
480    /* set transform_flags bit flag 1 if `delta' isn't the null vector */
481    if ( delta->x | delta->y )
482      internal->transform_flags |= 2;
483  }
484
485
486  static FT_Renderer
487  ft_lookup_glyph_renderer( FT_GlyphSlot  slot );
488
489
490#ifdef GRID_FIT_METRICS
491  static void
492  ft_glyphslot_grid_fit_metrics( FT_GlyphSlot  slot,
493                                 FT_Bool       vertical )
494  {
495    FT_Glyph_Metrics*  metrics = &slot->metrics;
496    FT_Pos             right, bottom;
497
498
499    if ( vertical )
500    {
501      metrics->horiBearingX = FT_PIX_FLOOR( metrics->horiBearingX );
502      metrics->horiBearingY = FT_PIX_CEIL ( metrics->horiBearingY );
503
504      right  = FT_PIX_CEIL( metrics->vertBearingX + metrics->width );
505      bottom = FT_PIX_CEIL( metrics->vertBearingY + metrics->height );
506
507      metrics->vertBearingX = FT_PIX_FLOOR( metrics->vertBearingX );
508      metrics->vertBearingY = FT_PIX_FLOOR( metrics->vertBearingY );
509
510      metrics->width  = right - metrics->vertBearingX;
511      metrics->height = bottom - metrics->vertBearingY;
512    }
513    else
514    {
515      metrics->vertBearingX = FT_PIX_FLOOR( metrics->vertBearingX );
516      metrics->vertBearingY = FT_PIX_FLOOR( metrics->vertBearingY );
517
518      right  = FT_PIX_CEIL ( metrics->horiBearingX + metrics->width );
519      bottom = FT_PIX_FLOOR( metrics->horiBearingY - metrics->height );
520
521      metrics->horiBearingX = FT_PIX_FLOOR( metrics->horiBearingX );
522      metrics->horiBearingY = FT_PIX_CEIL ( metrics->horiBearingY );
523
524      metrics->width  = right - metrics->horiBearingX;
525      metrics->height = metrics->horiBearingY - bottom;
526    }
527
528    metrics->horiAdvance = FT_PIX_ROUND( metrics->horiAdvance );
529    metrics->vertAdvance = FT_PIX_ROUND( metrics->vertAdvance );
530  }
531#endif /* GRID_FIT_METRICS */
532
533
534  /* documentation is in freetype.h */
535
536  FT_EXPORT_DEF( FT_Error )
537  FT_Load_Glyph( FT_Face   face,
538                 FT_UInt   glyph_index,
539                 FT_Int32  load_flags )
540  {
541    FT_Error      error;
542    FT_Driver     driver;
543    FT_GlyphSlot  slot;
544    FT_Library    library;
545    FT_Bool       autohint = 0;
546    FT_Module     hinter;
547
548
549    if ( !face || !face->size || !face->glyph )
550      return FT_Err_Invalid_Face_Handle;
551
552    /* The validity test for `glyph_index' is performed by the */
553    /* font drivers.                                           */
554
555    slot = face->glyph;
556    ft_glyphslot_clear( slot );
557
558    driver  = face->driver;
559    library = driver->root.library;
560    hinter  = library->auto_hinter;
561
562    /* resolve load flags dependencies */
563
564    if ( load_flags & FT_LOAD_NO_RECURSE )
565      load_flags |= FT_LOAD_NO_SCALE         |
566                    FT_LOAD_IGNORE_TRANSFORM;
567
568    if ( load_flags & FT_LOAD_NO_SCALE )
569    {
570      load_flags |= FT_LOAD_NO_HINTING |
571                    FT_LOAD_NO_BITMAP;
572
573      load_flags &= ~FT_LOAD_RENDER;
574    }
575
576    /*
577     * Determine whether we need to auto-hint or not.
578     * The general rules are:
579     *
580     * - Do only auto-hinting if we have a hinter module,
581     *   a scalable font format dealing with outlines,
582     *   and no transforms except simple slants.
583     *
584     * - Then, autohint if FT_LOAD_FORCE_AUTOHINT is set
585     *   or if we don't have a native font hinter.
586     *
587     * - Otherwise, auto-hint for LIGHT hinting mode.
588     *
589     * - Exception: The font requires the unpatented
590     *   bytecode interpreter to load properly.
591     */
592
593    autohint = 0;
594    if ( hinter                                    &&
595         ( load_flags & FT_LOAD_NO_HINTING  ) == 0 &&
596         ( load_flags & FT_LOAD_NO_AUTOHINT ) == 0 &&
597         FT_DRIVER_IS_SCALABLE( driver )           &&
598         FT_DRIVER_USES_OUTLINES( driver )         &&
599         face->internal->transform_matrix.yy > 0   &&
600         face->internal->transform_matrix.yx == 0  )
601    {
602      if ( ( load_flags & FT_LOAD_FORCE_AUTOHINT ) != 0 ||
603           !FT_DRIVER_HAS_HINTER( driver )              )
604        autohint = 1;
605      else
606      {
607        FT_Render_Mode  mode = FT_LOAD_TARGET_MODE( load_flags );
608
609
610        if ( mode == FT_RENDER_MODE_LIGHT             ||
611             face->internal->ignore_unpatented_hinter )
612          autohint = 1;
613      }
614    }
615
616    if ( autohint )
617    {
618      FT_AutoHinter_Service  hinting;
619
620
621      /* try to load embedded bitmaps first if available            */
622      /*                                                            */
623      /* XXX: This is really a temporary hack that should disappear */
624      /*      promptly with FreeType 2.1!                           */
625      /*                                                            */
626      if ( FT_HAS_FIXED_SIZES( face )             &&
627          ( load_flags & FT_LOAD_NO_BITMAP ) == 0 )
628      {
629        error = driver->clazz->load_glyph( slot, face->size,
630                                           glyph_index,
631                                           load_flags | FT_LOAD_SBITS_ONLY );
632
633        if ( !error && slot->format == FT_GLYPH_FORMAT_BITMAP )
634          goto Load_Ok;
635      }
636
637      {
638        FT_Face_Internal  internal        = face->internal;
639        FT_Int            transform_flags = internal->transform_flags;
640
641
642        /* since the auto-hinter calls FT_Load_Glyph by itself, */
643        /* make sure that glyphs aren't transformed             */
644        internal->transform_flags = 0;
645
646        /* load auto-hinted outline */
647        hinting = (FT_AutoHinter_Service)hinter->clazz->module_interface;
648
649        error   = hinting->load_glyph( (FT_AutoHinter)hinter,
650                                       slot, face->size,
651                                       glyph_index, load_flags );
652
653        internal->transform_flags = transform_flags;
654      }
655    }
656    else
657    {
658      error = driver->clazz->load_glyph( slot,
659                                         face->size,
660                                         glyph_index,
661                                         load_flags );
662      if ( error )
663        goto Exit;
664
665      if ( slot->format == FT_GLYPH_FORMAT_OUTLINE )
666      {
667        /* check that the loaded outline is correct */
668        error = FT_Outline_Check( &slot->outline );
669        if ( error )
670          goto Exit;
671
672#ifdef GRID_FIT_METRICS
673        if ( !( load_flags & FT_LOAD_NO_HINTING ) )
674          ft_glyphslot_grid_fit_metrics( slot,
675              FT_BOOL( load_flags & FT_LOAD_VERTICAL_LAYOUT ) );
676#endif
677      }
678    }
679
680  Load_Ok:
681    /* compute the advance */
682    if ( load_flags & FT_LOAD_VERTICAL_LAYOUT )
683    {
684      slot->advance.x = 0;
685      slot->advance.y = slot->metrics.vertAdvance;
686    }
687    else
688    {
689      slot->advance.x = slot->metrics.horiAdvance;
690      slot->advance.y = 0;
691    }
692
693    /* compute the linear advance in 16.16 pixels */
694    if ( ( load_flags & FT_LOAD_LINEAR_DESIGN ) == 0  &&
695         ( face->face_flags & FT_FACE_FLAG_SCALABLE ) )
696    {
697      FT_Size_Metrics*  metrics = &face->size->metrics;
698
699
700      /* it's tricky! */
701      slot->linearHoriAdvance = FT_MulDiv( slot->linearHoriAdvance,
702                                           metrics->x_scale, 64 );
703
704      slot->linearVertAdvance = FT_MulDiv( slot->linearVertAdvance,
705                                           metrics->y_scale, 64 );
706    }
707
708    if ( ( load_flags & FT_LOAD_IGNORE_TRANSFORM ) == 0 )
709    {
710      FT_Face_Internal  internal = face->internal;
711
712
713      /* now, transform the glyph image if needed */
714      if ( internal->transform_flags )
715      {
716        /* get renderer */
717        FT_Renderer  renderer = ft_lookup_glyph_renderer( slot );
718
719
720        if ( renderer )
721          error = renderer->clazz->transform_glyph(
722                                     renderer, slot,
723                                     &internal->transform_matrix,
724                                     &internal->transform_delta );
725        /* transform advance */
726        FT_Vector_Transform( &slot->advance, &internal->transform_matrix );
727      }
728    }
729
730    /* do we need to render the image now? */
731    if ( !error                                    &&
732         slot->format != FT_GLYPH_FORMAT_BITMAP    &&
733         slot->format != FT_GLYPH_FORMAT_COMPOSITE &&
734         load_flags & FT_LOAD_RENDER )
735    {
736      FT_Render_Mode  mode = FT_LOAD_TARGET_MODE( load_flags );
737
738
739      if ( mode == FT_RENDER_MODE_NORMAL      &&
740           (load_flags & FT_LOAD_MONOCHROME ) )
741        mode = FT_RENDER_MODE_MONO;
742
743      error = FT_Render_Glyph( slot, mode );
744    }
745
746  Exit:
747    return error;
748  }
749
750
751  /* documentation is in freetype.h */
752
753  FT_EXPORT_DEF( FT_Error )
754  FT_Load_Char( FT_Face   face,
755                FT_ULong  char_code,
756                FT_Int32  load_flags )
757  {
758    FT_UInt  glyph_index;
759
760
761    if ( !face )
762      return FT_Err_Invalid_Face_Handle;
763
764    glyph_index = (FT_UInt)char_code;
765    if ( face->charmap )
766      glyph_index = FT_Get_Char_Index( face, char_code );
767
768    return FT_Load_Glyph( face, glyph_index, load_flags );
769  }
770
771
772  /* destructor for sizes list */
773  static void
774  destroy_size( FT_Memory  memory,
775                FT_Size    size,
776                FT_Driver  driver )
777  {
778    /* finalize client-specific data */
779    if ( size->generic.finalizer )
780      size->generic.finalizer( size );
781
782    /* finalize format-specific stuff */
783    if ( driver->clazz->done_size )
784      driver->clazz->done_size( size );
785
786    FT_FREE( size->internal );
787    FT_FREE( size );
788  }
789
790
791  static void
792  ft_cmap_done_internal( FT_CMap  cmap );
793
794
795  static void
796  destroy_charmaps( FT_Face    face,
797                    FT_Memory  memory )
798  {
799    FT_Int  n;
800
801
802    if ( !face )
803      return;
804
805    for ( n = 0; n < face->num_charmaps; n++ )
806    {
807      FT_CMap  cmap = FT_CMAP( face->charmaps[n] );
808
809
810      ft_cmap_done_internal( cmap );
811
812      face->charmaps[n] = NULL;
813    }
814
815    FT_FREE( face->charmaps );
816    face->num_charmaps = 0;
817  }
818
819
820  /* destructor for faces list */
821  static void
822  destroy_face( FT_Memory  memory,
823                FT_Face    face,
824                FT_Driver  driver )
825  {
826    FT_Driver_Class  clazz = driver->clazz;
827
828
829    /* discard auto-hinting data */
830    if ( face->autohint.finalizer )
831      face->autohint.finalizer( face->autohint.data );
832
833    /* Discard glyph slots for this face.                           */
834    /* Beware!  FT_Done_GlyphSlot() changes the field `face->glyph' */
835    while ( face->glyph )
836      FT_Done_GlyphSlot( face->glyph );
837
838    /* discard all sizes for this face */
839    FT_List_Finalize( &face->sizes_list,
840                      (FT_List_Destructor)destroy_size,
841                      memory,
842                      driver );
843    face->size = 0;
844
845    /* now discard client data */
846    if ( face->generic.finalizer )
847      face->generic.finalizer( face );
848
849    /* discard charmaps */
850    destroy_charmaps( face, memory );
851
852    /* finalize format-specific stuff */
853    if ( clazz->done_face )
854      clazz->done_face( face );
855
856    /* close the stream for this face if needed */
857    FT_Stream_Free(
858      face->stream,
859      ( face->face_flags & FT_FACE_FLAG_EXTERNAL_STREAM ) != 0 );
860
861    face->stream = 0;
862
863    /* get rid of it */
864    if ( face->internal )
865    {
866      FT_FREE( face->internal );
867    }
868    FT_FREE( face );
869  }
870
871
872  static void
873  Destroy_Driver( FT_Driver  driver )
874  {
875    FT_List_Finalize( &driver->faces_list,
876                      (FT_List_Destructor)destroy_face,
877                      driver->root.memory,
878                      driver );
879
880    /* check whether we need to drop the driver's glyph loader */
881    if ( FT_DRIVER_USES_OUTLINES( driver ) )
882      FT_GlyphLoader_Done( driver->glyph_loader );
883  }
884
885
886  /*************************************************************************/
887  /*                                                                       */
888  /* <Function>                                                            */
889  /*    find_unicode_charmap                                               */
890  /*                                                                       */
891  /* <Description>                                                         */
892  /*    This function finds a Unicode charmap, if there is one.            */
893  /*    And if there is more than one, it tries to favour the more         */
894  /*    extensive one, i.e., one that supports UCS-4 against those which   */
895  /*    are limited to the BMP (said UCS-2 encoding.)                      */
896  /*                                                                       */
897  /*    This function is called from open_face() (just below), and also    */
898  /*    from FT_Select_Charmap( ..., FT_ENCODING_UNICODE ).                */
899  /*                                                                       */
900  static FT_Error
901  find_unicode_charmap( FT_Face  face )
902  {
903    FT_CharMap*  first;
904    FT_CharMap*  cur;
905
906
907    /* caller should have already checked that `face' is valid */
908    FT_ASSERT( face );
909
910    first = face->charmaps;
911
912    if ( !first )
913      return FT_Err_Invalid_CharMap_Handle;
914
915    /*
916     *  The original TrueType specification(s) only specified charmap
917     *  formats that are capable of mapping 8 or 16 bit character codes to
918     *  glyph indices.
919     *
920     *  However, recent updates to the Apple and OpenType specifications
921     *  introduced new formats that are capable of mapping 32-bit character
922     *  codes as well.  And these are already used on some fonts, mainly to
923     *  map non-BMP Asian ideographs as defined in Unicode.
924     *
925     *  For compatibility purposes, these fonts generally come with
926     *  *several* Unicode charmaps:
927     *
928     *   - One of them in the "old" 16-bit format, that cannot access
929     *     all glyphs in the font.
930     *
931     *   - Another one in the "new" 32-bit format, that can access all
932     *     the glyphs.
933     *
934     *  This function has been written to always favor a 32-bit charmap
935     *  when found.  Otherwise, a 16-bit one is returned when found.
936     */
937
938    /* Since the `interesting' table, with IDs (3,10), is normally the */
939    /* last one, we loop backwards.  This loses with type1 fonts with  */
940    /* non-BMP characters (<.0001%), this wins with .ttf with non-BMP  */
941    /* chars (.01% ?), and this is the same about 99.99% of the time!  */
942
943    cur = first + face->num_charmaps;  /* points after the last one */
944
945    for ( ; --cur >= first; )
946    {
947      if ( cur[0]->encoding == FT_ENCODING_UNICODE )
948      {
949        /* XXX If some new encodings to represent UCS-4 are added, */
950        /*     they should be added here.                          */
951        if ( ( cur[0]->platform_id == TT_PLATFORM_MICROSOFT &&
952               cur[0]->encoding_id == TT_MS_ID_UCS_4        )     ||
953             ( cur[0]->platform_id == TT_PLATFORM_APPLE_UNICODE &&
954               cur[0]->encoding_id == TT_APPLE_ID_UNICODE_32    ) )
955        {
956          face->charmap = cur[0];
957          return FT_Err_Ok;
958        }
959      }
960    }
961
962    /* We do not have any UCS-4 charmap.                */
963    /* Do the loop again and search for UCS-2 charmaps. */
964    cur = first + face->num_charmaps;
965
966    for ( ; --cur >= first; )
967    {
968      if ( cur[0]->encoding == FT_ENCODING_UNICODE )
969      {
970        face->charmap = cur[0];
971        return FT_Err_Ok;
972      }
973    }
974
975    return FT_Err_Invalid_CharMap_Handle;
976  }
977
978
979  /*************************************************************************/
980  /*                                                                       */
981  /* <Function>                                                            */
982  /*    find_variant_selector_charmap                                      */
983  /*                                                                       */
984  /* <Description>                                                         */
985  /*    This function finds the variant selector charmap, if there is one. */
986  /*    There can only be one (platform=0, specific=5, format=14).         */
987  /*                                                                       */
988  static FT_CharMap
989  find_variant_selector_charmap( FT_Face  face )
990  {
991    FT_CharMap*  first;
992    FT_CharMap*  end;
993    FT_CharMap*  cur;
994
995
996    /* caller should have already checked that `face' is valid */
997    FT_ASSERT( face );
998
999    first = face->charmaps;
1000
1001    if ( !first )
1002      return NULL;
1003
1004    end = first + face->num_charmaps;  /* points after the last one */
1005
1006    for ( cur = first; cur < end; ++cur )
1007    {
1008      if ( cur[0]->platform_id == TT_PLATFORM_APPLE_UNICODE    &&
1009           cur[0]->encoding_id == TT_APPLE_ID_VARIANT_SELECTOR &&
1010           FT_Get_CMap_Format( cur[0] ) == 14                  )
1011        return cur[0];
1012    }
1013
1014    return NULL;
1015  }
1016
1017
1018  /*************************************************************************/
1019  /*                                                                       */
1020  /* <Function>                                                            */
1021  /*    open_face                                                          */
1022  /*                                                                       */
1023  /* <Description>                                                         */
1024  /*    This function does some work for FT_Open_Face().                   */
1025  /*                                                                       */
1026  static FT_Error
1027  open_face( FT_Driver      driver,
1028             FT_Stream      stream,
1029             FT_Long        face_index,
1030             FT_Int         num_params,
1031             FT_Parameter*  params,
1032             FT_Face       *aface )
1033  {
1034    FT_Memory         memory;
1035    FT_Driver_Class   clazz;
1036    FT_Face           face = 0;
1037    FT_Error          error, error2;
1038    FT_Face_Internal  internal = NULL;
1039
1040
1041    clazz  = driver->clazz;
1042    memory = driver->root.memory;
1043
1044    /* allocate the face object and perform basic initialization */
1045    if ( FT_ALLOC( face, clazz->face_object_size ) )
1046      goto Fail;
1047
1048    if ( FT_NEW( internal ) )
1049      goto Fail;
1050
1051    face->internal = internal;
1052
1053    face->driver   = driver;
1054    face->memory   = memory;
1055    face->stream   = stream;
1056
1057#ifdef FT_CONFIG_OPTION_INCREMENTAL
1058    {
1059      int  i;
1060
1061
1062      face->internal->incremental_interface = 0;
1063      for ( i = 0; i < num_params && !face->internal->incremental_interface;
1064            i++ )
1065        if ( params[i].tag == FT_PARAM_TAG_INCREMENTAL )
1066          face->internal->incremental_interface =
1067            (FT_Incremental_Interface)params[i].data;
1068    }
1069#endif
1070
1071    if ( clazz->init_face )
1072      error = clazz->init_face( stream,
1073                                face,
1074                                (FT_Int)face_index,
1075                                num_params,
1076                                params );
1077    if ( error )
1078      goto Fail;
1079
1080    /* select Unicode charmap by default */
1081    error2 = find_unicode_charmap( face );
1082
1083    /* if no Unicode charmap can be found, FT_Err_Invalid_CharMap_Handle */
1084    /* is returned.                                                      */
1085
1086    /* no error should happen, but we want to play safe */
1087    if ( error2 && error2 != FT_Err_Invalid_CharMap_Handle )
1088    {
1089      error = error2;
1090      goto Fail;
1091    }
1092
1093    *aface = face;
1094
1095  Fail:
1096    if ( error )
1097    {
1098      destroy_charmaps( face, memory );
1099      if ( clazz->done_face )
1100        clazz->done_face( face );
1101      FT_FREE( internal );
1102      FT_FREE( face );
1103      *aface = 0;
1104    }
1105
1106    return error;
1107  }
1108
1109
1110  /* there's a Mac-specific extended implementation of FT_New_Face() */
1111  /* in src/base/ftmac.c                                             */
1112
1113#ifndef FT_MACINTOSH
1114
1115  /* documentation is in freetype.h */
1116
1117  FT_EXPORT_DEF( FT_Error )
1118  FT_New_Face( FT_Library   library,
1119               const char*  pathname,
1120               FT_Long      face_index,
1121               FT_Face     *aface )
1122  {
1123    FT_Open_Args  args;
1124
1125
1126    /* test for valid `library' and `aface' delayed to FT_Open_Face() */
1127    if ( !pathname )
1128      return FT_Err_Invalid_Argument;
1129
1130    args.flags    = FT_OPEN_PATHNAME;
1131    args.pathname = (char*)pathname;
1132
1133    return FT_Open_Face( library, &args, face_index, aface );
1134  }
1135
1136#endif  /* !FT_MACINTOSH */
1137
1138
1139  /* documentation is in freetype.h */
1140
1141  FT_EXPORT_DEF( FT_Error )
1142  FT_New_Memory_Face( FT_Library      library,
1143                      const FT_Byte*  file_base,
1144                      FT_Long         file_size,
1145                      FT_Long         face_index,
1146                      FT_Face        *aface )
1147  {
1148    FT_Open_Args  args;
1149
1150
1151    /* test for valid `library' and `face' delayed to FT_Open_Face() */
1152    if ( !file_base )
1153      return FT_Err_Invalid_Argument;
1154
1155    args.flags       = FT_OPEN_MEMORY;
1156    args.memory_base = file_base;
1157    args.memory_size = file_size;
1158
1159    return FT_Open_Face( library, &args, face_index, aface );
1160  }
1161
1162
1163#if !defined( FT_MACINTOSH ) && defined( FT_CONFIG_OPTION_MAC_FONTS )
1164
1165  /* The behavior here is very similar to that in base/ftmac.c, but it     */
1166  /* is designed to work on non-mac systems, so no mac specific calls.     */
1167  /*                                                                       */
1168  /* We look at the file and determine if it is a mac dfont file or a mac  */
1169  /* resource file, or a macbinary file containing a mac resource file.    */
1170  /*                                                                       */
1171  /* Unlike ftmac I'm not going to look at a `FOND'.  I don't really see   */
1172  /* the point, especially since there may be multiple `FOND' resources.   */
1173  /* Instead I'll just look for `sfnt' and `POST' resources, ordered as    */
1174  /* they occur in the file.                                               */
1175  /*                                                                       */
1176  /* Note that multiple `POST' resources do not mean multiple postscript   */
1177  /* fonts; they all get jammed together to make what is essentially a     */
1178  /* pfb file.                                                             */
1179  /*                                                                       */
1180  /* We aren't interested in `NFNT' or `FONT' bitmap resources.            */
1181  /*                                                                       */
1182  /* As soon as we get an `sfnt' load it into memory and pass it off to    */
1183  /* FT_Open_Face.                                                         */
1184  /*                                                                       */
1185  /* If we have a (set of) `POST' resources, massage them into a (memory)  */
1186  /* pfb file and pass that to FT_Open_Face.  (As with ftmac.c I'm not     */
1187  /* going to try to save the kerning info.  After all that lives in the   */
1188  /* `FOND' which isn't in the file containing the `POST' resources so     */
1189  /* we don't really have access to it.                                    */
1190
1191
1192  /* Finalizer for a memory stream; gets called by FT_Done_Face().
1193     It frees the memory it uses. */
1194  /* from ftmac.c */
1195  static void
1196  memory_stream_close( FT_Stream  stream )
1197  {
1198    FT_Memory  memory = stream->memory;
1199
1200
1201    FT_FREE( stream->base );
1202
1203    stream->size  = 0;
1204    stream->base  = 0;
1205    stream->close = 0;
1206  }
1207
1208
1209  /* Create a new memory stream from a buffer and a size. */
1210  /* from ftmac.c */
1211  static FT_Error
1212  new_memory_stream( FT_Library           library,
1213                     FT_Byte*             base,
1214                     FT_ULong             size,
1215                     FT_Stream_CloseFunc  close,
1216                     FT_Stream           *astream )
1217  {
1218    FT_Error   error;
1219    FT_Memory  memory;
1220    FT_Stream  stream;
1221
1222
1223    if ( !library )
1224      return FT_Err_Invalid_Library_Handle;
1225
1226    if ( !base )
1227      return FT_Err_Invalid_Argument;
1228
1229    *astream = 0;
1230    memory = library->memory;
1231    if ( FT_NEW( stream ) )
1232      goto Exit;
1233
1234    FT_Stream_OpenMemory( stream, base, size );
1235
1236    stream->close = close;
1237
1238    *astream = stream;
1239
1240  Exit:
1241    return error;
1242  }
1243
1244
1245  /* Create a new FT_Face given a buffer and a driver name. */
1246  /* from ftmac.c */
1247  static FT_Error
1248  open_face_from_buffer( FT_Library   library,
1249                         FT_Byte*     base,
1250                         FT_ULong     size,
1251                         FT_Long      face_index,
1252                         const char*  driver_name,
1253                         FT_Face     *aface )
1254  {
1255    FT_Open_Args  args;
1256    FT_Error      error;
1257    FT_Stream     stream = NULL;
1258    FT_Memory     memory = library->memory;
1259
1260
1261    error = new_memory_stream( library,
1262                               base,
1263                               size,
1264                               memory_stream_close,
1265                               &stream );
1266    if ( error )
1267    {
1268      FT_FREE( base );
1269      return error;
1270    }
1271
1272    args.flags = FT_OPEN_STREAM;
1273    args.stream = stream;
1274    if ( driver_name )
1275    {
1276      args.flags = args.flags | FT_OPEN_DRIVER;
1277      args.driver = FT_Get_Module( library, driver_name );
1278    }
1279
1280    error = FT_Open_Face( library, &args, face_index, aface );
1281
1282    if ( error == FT_Err_Ok )
1283      (*aface)->face_flags &= ~FT_FACE_FLAG_EXTERNAL_STREAM;
1284    else
1285    {
1286      FT_Stream_Close( stream );
1287      FT_FREE( stream );
1288    }
1289
1290    return error;
1291  }
1292
1293
1294  /* The resource header says we've got resource_cnt `POST' (type1) */
1295  /* resources in this file.  They all need to be coalesced into    */
1296  /* one lump which gets passed on to the type1 driver.             */
1297  /* Here can be only one PostScript font in a file so face_index   */
1298  /* must be 0 (or -1).                                             */
1299  /*                                                                */
1300  static FT_Error
1301  Mac_Read_POST_Resource( FT_Library  library,
1302                          FT_Stream   stream,
1303                          FT_Long    *offsets,
1304                          FT_Long     resource_cnt,
1305                          FT_Long     face_index,
1306                          FT_Face    *aface )
1307  {
1308    FT_Error   error  = FT_Err_Cannot_Open_Resource;
1309    FT_Memory  memory = library->memory;
1310    FT_Byte*   pfb_data;
1311    int        i, type, flags;
1312    FT_Long    len;
1313    FT_Long    pfb_len, pfb_pos, pfb_lenpos;
1314    FT_Long    rlen, temp;
1315
1316
1317    if ( face_index == -1 )
1318      face_index = 0;
1319    if ( face_index != 0 )
1320      return error;
1321
1322    /* Find the length of all the POST resources, concatenated.  Assume */
1323    /* worst case (each resource in its own section).                   */
1324    pfb_len = 0;
1325    for ( i = 0; i < resource_cnt; ++i )
1326    {
1327      error = FT_Stream_Seek( stream, offsets[i] );
1328      if ( error )
1329        goto Exit;
1330      if ( FT_READ_LONG( temp ) )
1331        goto Exit;
1332      pfb_len += temp + 6;
1333    }
1334
1335    if ( FT_ALLOC( pfb_data, (FT_Long)pfb_len + 2 ) )
1336      goto Exit;
1337
1338    pfb_data[0] = 0x80;
1339    pfb_data[1] = 1;            /* Ascii section */
1340    pfb_data[2] = 0;            /* 4-byte length, fill in later */
1341    pfb_data[3] = 0;
1342    pfb_data[4] = 0;
1343    pfb_data[5] = 0;
1344    pfb_pos     = 6;
1345    pfb_lenpos  = 2;
1346
1347    len = 0;
1348    type = 1;
1349    for ( i = 0; i < resource_cnt; ++i )
1350    {
1351      error = FT_Stream_Seek( stream, offsets[i] );
1352      if ( error )
1353        goto Exit2;
1354      if ( FT_READ_LONG( rlen ) )
1355        goto Exit;
1356      if ( FT_READ_USHORT( flags ) )
1357        goto Exit;
1358      rlen -= 2;                    /* the flags are part of the resource */
1359      if ( ( flags >> 8 ) == type )
1360        len += rlen;
1361      else
1362      {
1363        pfb_data[pfb_lenpos    ] = (FT_Byte)( len );
1364        pfb_data[pfb_lenpos + 1] = (FT_Byte)( len >> 8 );
1365        pfb_data[pfb_lenpos + 2] = (FT_Byte)( len >> 16 );
1366        pfb_data[pfb_lenpos + 3] = (FT_Byte)( len >> 24 );
1367
1368        if ( ( flags >> 8 ) == 5 )      /* End of font mark */
1369          break;
1370
1371        pfb_data[pfb_pos++] = 0x80;
1372
1373        type = flags >> 8;
1374        len = rlen;
1375
1376        pfb_data[pfb_pos++] = (FT_Byte)type;
1377        pfb_lenpos          = pfb_pos;
1378        pfb_data[pfb_pos++] = 0;        /* 4-byte length, fill in later */
1379        pfb_data[pfb_pos++] = 0;
1380        pfb_data[pfb_pos++] = 0;
1381        pfb_data[pfb_pos++] = 0;
1382      }
1383
1384      error = FT_Stream_Read( stream, (FT_Byte *)pfb_data + pfb_pos, rlen );
1385      pfb_pos += rlen;
1386    }
1387
1388    pfb_data[pfb_pos++] = 0x80;
1389    pfb_data[pfb_pos++] = 3;
1390
1391    pfb_data[pfb_lenpos    ] = (FT_Byte)( len );
1392    pfb_data[pfb_lenpos + 1] = (FT_Byte)( len >> 8 );
1393    pfb_data[pfb_lenpos + 2] = (FT_Byte)( len >> 16 );
1394    pfb_data[pfb_lenpos + 3] = (FT_Byte)( len >> 24 );
1395
1396    return open_face_from_buffer( library,
1397                                  pfb_data,
1398                                  pfb_pos,
1399                                  face_index,
1400                                  "type1",
1401                                  aface );
1402
1403  Exit2:
1404    FT_FREE( pfb_data );
1405
1406  Exit:
1407    return error;
1408  }
1409
1410
1411  /* The resource header says we've got resource_cnt `sfnt'      */
1412  /* (TrueType/OpenType) resources in this file.  Look through   */
1413  /* them for the one indicated by face_index, load it into mem, */
1414  /* pass it on the the truetype driver and return it.           */
1415  /*                                                             */
1416  static FT_Error
1417  Mac_Read_sfnt_Resource( FT_Library  library,
1418                          FT_Stream   stream,
1419                          FT_Long    *offsets,
1420                          FT_Long     resource_cnt,
1421                          FT_Long     face_index,
1422                          FT_Face    *aface )
1423  {
1424    FT_Memory  memory = library->memory;
1425    FT_Byte*   sfnt_data;
1426    FT_Error   error;
1427    FT_Long    flag_offset;
1428    FT_Long    rlen;
1429    int        is_cff;
1430    FT_Long    face_index_in_resource = 0;
1431
1432
1433    if ( face_index == -1 )
1434      face_index = 0;
1435    if ( face_index >= resource_cnt )
1436      return FT_Err_Cannot_Open_Resource;
1437
1438    flag_offset = offsets[face_index];
1439    error = FT_Stream_Seek( stream, flag_offset );
1440    if ( error )
1441      goto Exit;
1442
1443    if ( FT_READ_LONG( rlen ) )
1444      goto Exit;
1445    if ( rlen == -1 )
1446      return FT_Err_Cannot_Open_Resource;
1447
1448    if ( FT_ALLOC( sfnt_data, (FT_Long)rlen ) )
1449      return error;
1450    error = FT_Stream_Read( stream, (FT_Byte *)sfnt_data, rlen );
1451    if ( error )
1452      goto Exit;
1453
1454    is_cff = rlen > 4 && sfnt_data[0] == 'O' &&
1455                         sfnt_data[1] == 'T' &&
1456                         sfnt_data[2] == 'T' &&
1457                         sfnt_data[3] == 'O';
1458
1459    error = open_face_from_buffer( library,
1460                                   sfnt_data,
1461                                   rlen,
1462                                   face_index_in_resource,
1463                                   is_cff ? "cff" : "truetype",
1464                                   aface );
1465
1466  Exit:
1467    return error;
1468  }
1469
1470
1471  /* Check for a valid resource fork header, or a valid dfont    */
1472  /* header.  In a resource fork the first 16 bytes are repeated */
1473  /* at the location specified by bytes 4-7.  In a dfont bytes   */
1474  /* 4-7 point to 16 bytes of zeroes instead.                    */
1475  /*                                                             */
1476  static FT_Error
1477  IsMacResource( FT_Library  library,
1478                 FT_Stream   stream,
1479                 FT_Long     resource_offset,
1480                 FT_Long     face_index,
1481                 FT_Face    *aface )
1482  {
1483    FT_Memory  memory = library->memory;
1484    FT_Error   error;
1485    FT_Long    map_offset, rdara_pos;
1486    FT_Long    *data_offsets;
1487    FT_Long    count;
1488
1489
1490    error = FT_Raccess_Get_HeaderInfo( library, stream, resource_offset,
1491                                       &map_offset, &rdara_pos );
1492    if ( error )
1493      return error;
1494
1495    error = FT_Raccess_Get_DataOffsets( library, stream,
1496                                        map_offset, rdara_pos,
1497                                        FT_MAKE_TAG( 'P', 'O', 'S', 'T' ),
1498                                        &data_offsets, &count );
1499    if ( !error )
1500    {
1501      error = Mac_Read_POST_Resource( library, stream, data_offsets, count,
1502                                      face_index, aface );
1503      FT_FREE( data_offsets );
1504      /* POST exists in an LWFN providing a single face */
1505      if ( !error )
1506        (*aface)->num_faces = 1;
1507      return error;
1508    }
1509
1510    error = FT_Raccess_Get_DataOffsets( library, stream,
1511                                        map_offset, rdara_pos,
1512                                        FT_MAKE_TAG( 's', 'f', 'n', 't' ),
1513                                        &data_offsets, &count );
1514    if ( !error )
1515    {
1516      FT_Long  face_index_internal = face_index % count;
1517
1518
1519      error = Mac_Read_sfnt_Resource( library, stream, data_offsets, count,
1520                                      face_index_internal, aface );
1521      FT_FREE( data_offsets );
1522      if ( !error )
1523        (*aface)->num_faces = count;
1524    }
1525
1526    return error;
1527  }
1528
1529
1530  /* Check for a valid macbinary header, and if we find one   */
1531  /* check that the (flattened) resource fork in it is valid. */
1532  /*                                                          */
1533  static FT_Error
1534  IsMacBinary( FT_Library  library,
1535               FT_Stream   stream,
1536               FT_Long     face_index,
1537               FT_Face    *aface )
1538  {
1539    unsigned char  header[128];
1540    FT_Error       error;
1541    FT_Long        dlen, offset;
1542
1543
1544    if ( NULL == stream )
1545      return FT_Err_Invalid_Stream_Operation;
1546
1547    error = FT_Stream_Seek( stream, 0 );
1548    if ( error )
1549      goto Exit;
1550
1551    error = FT_Stream_Read( stream, (FT_Byte*)header, 128 );
1552    if ( error )
1553      goto Exit;
1554
1555    if (            header[ 0] !=  0 ||
1556                    header[74] !=  0 ||
1557                    header[82] !=  0 ||
1558                    header[ 1] ==  0 ||
1559                    header[ 1] >  33 ||
1560                    header[63] !=  0 ||
1561         header[2 + header[1]] !=  0 )
1562      return FT_Err_Unknown_File_Format;
1563
1564    dlen = ( header[0x53] << 24 ) |
1565           ( header[0x54] << 16 ) |
1566           ( header[0x55] <<  8 ) |
1567             header[0x56];
1568#if 0
1569    rlen = ( header[0x57] << 24 ) |
1570           ( header[0x58] << 16 ) |
1571           ( header[0x59] <<  8 ) |
1572             header[0x5a];
1573#endif /* 0 */
1574    offset = 128 + ( ( dlen + 127 ) & ~127 );
1575
1576    return IsMacResource( library, stream, offset, face_index, aface );
1577
1578  Exit:
1579    return error;
1580  }
1581
1582
1583  static FT_Error
1584  load_face_in_embedded_rfork( FT_Library           library,
1585                               FT_Stream            stream,
1586                               FT_Long              face_index,
1587                               FT_Face             *aface,
1588                               const FT_Open_Args  *args )
1589  {
1590
1591#undef  FT_COMPONENT
1592#define FT_COMPONENT  trace_raccess
1593
1594    FT_Memory  memory = library->memory;
1595    FT_Error   error  = FT_Err_Unknown_File_Format;
1596    int        i;
1597
1598    char *     file_names[FT_RACCESS_N_RULES];
1599    FT_Long    offsets[FT_RACCESS_N_RULES];
1600    FT_Error   errors[FT_RACCESS_N_RULES];
1601
1602    FT_Open_Args  args2;
1603    FT_Stream     stream2;
1604
1605
1606    FT_Raccess_Guess( library, stream,
1607                      args->pathname, file_names, offsets, errors );
1608
1609    for ( i = 0; i < FT_RACCESS_N_RULES; i++ )
1610    {
1611      if ( errors[i] )
1612      {
1613        FT_TRACE3(( "Error[%d] has occurred in rule %d\n", errors[i], i ));
1614        continue;
1615      }
1616
1617      args2.flags    = FT_OPEN_PATHNAME;
1618      args2.pathname = file_names[i] ? file_names[i] : args->pathname;
1619
1620      FT_TRACE3(( "Try rule %d: %s (offset=%d) ...",
1621                  i, args2.pathname, offsets[i] ));
1622
1623      error = FT_Stream_New( library, &args2, &stream2 );
1624      if ( error )
1625      {
1626        FT_TRACE3(( "failed\n" ));
1627        continue;
1628      }
1629
1630      error = IsMacResource( library, stream2, offsets[i],
1631                             face_index, aface );
1632      FT_Stream_Free( stream2, 0 );
1633
1634      FT_TRACE3(( "%s\n", error ? "failed": "successful" ));
1635
1636      if ( !error )
1637          break;
1638    }
1639
1640    for (i = 0; i < FT_RACCESS_N_RULES; i++)
1641    {
1642      if ( file_names[i] )
1643        FT_FREE( file_names[i] );
1644    }
1645
1646    /* Caller (load_mac_face) requires FT_Err_Unknown_File_Format. */
1647    if ( error )
1648      error = FT_Err_Unknown_File_Format;
1649
1650    return error;
1651
1652#undef  FT_COMPONENT
1653#define FT_COMPONENT  trace_objs
1654
1655  }
1656
1657
1658  /* Check for some macintosh formats.                             */
1659  /* Is this a macbinary file?  If so look at the resource fork.   */
1660  /* Is this a mac dfont file?                                     */
1661  /* Is this an old style resource fork? (in data)                 */
1662  /* Else call load_face_in_embedded_rfork to try extra rules      */
1663  /* (defined in `ftrfork.c').                                     */
1664  /*                                                               */
1665  static FT_Error
1666  load_mac_face( FT_Library           library,
1667                 FT_Stream            stream,
1668                 FT_Long              face_index,
1669                 FT_Face             *aface,
1670                 const FT_Open_Args  *args )
1671  {
1672    FT_Error error;
1673    FT_UNUSED( args );
1674
1675
1676    error = IsMacBinary( library, stream, face_index, aface );
1677    if ( FT_ERROR_BASE( error ) == FT_Err_Unknown_File_Format )
1678    {
1679
1680#undef  FT_COMPONENT
1681#define FT_COMPONENT  trace_raccess
1682
1683      FT_TRACE3(( "Try as dfont: %s ...", args->pathname ));
1684
1685      error = IsMacResource( library, stream, 0, face_index, aface );
1686
1687      FT_TRACE3(( "%s\n", error ? "failed" : "successful" ));
1688
1689#undef  FT_COMPONENT
1690#define FT_COMPONENT  trace_objs
1691
1692    }
1693
1694    if ( ( FT_ERROR_BASE( error ) == FT_Err_Unknown_File_Format      ||
1695           FT_ERROR_BASE( error ) == FT_Err_Invalid_Stream_Operation ) &&
1696         ( args->flags & FT_OPEN_PATHNAME )                            )
1697      error = load_face_in_embedded_rfork( library, stream,
1698                                           face_index, aface, args );
1699    return error;
1700  }
1701
1702#endif  /* !FT_MACINTOSH && FT_CONFIG_OPTION_MAC_FONTS */
1703
1704
1705  /* documentation is in freetype.h */
1706
1707  FT_EXPORT_DEF( FT_Error )
1708  FT_Open_Face( FT_Library           library,
1709                const FT_Open_Args*  args,
1710                FT_Long              face_index,
1711                FT_Face             *aface )
1712  {
1713    FT_Error     error;
1714    FT_Driver    driver;
1715    FT_Memory    memory;
1716    FT_Stream    stream;
1717    FT_Face      face = 0;
1718    FT_ListNode  node = 0;
1719    FT_Bool      external_stream;
1720    FT_Module*   cur;
1721    FT_Module*   limit;
1722
1723
1724    /* test for valid `library' delayed to */
1725    /* FT_Stream_New()                     */
1726
1727    if ( ( !aface && face_index >= 0 ) || !args )
1728      return FT_Err_Invalid_Argument;
1729
1730    external_stream = FT_BOOL( ( args->flags & FT_OPEN_STREAM ) &&
1731                               args->stream                     );
1732
1733    /* create input stream */
1734    error = FT_Stream_New( library, args, &stream );
1735    if ( error )
1736      goto Fail3;
1737
1738    memory = library->memory;
1739
1740    /* If the font driver is specified in the `args' structure, use */
1741    /* it.  Otherwise, we scan the list of registered drivers.      */
1742    if ( ( args->flags & FT_OPEN_DRIVER ) && args->driver )
1743    {
1744      driver = FT_DRIVER( args->driver );
1745
1746      /* not all modules are drivers, so check... */
1747      if ( FT_MODULE_IS_DRIVER( driver ) )
1748      {
1749        FT_Int         num_params = 0;
1750        FT_Parameter*  params     = 0;
1751
1752
1753        if ( args->flags & FT_OPEN_PARAMS )
1754        {
1755          num_params = args->num_params;
1756          params     = args->params;
1757        }
1758
1759        error = open_face( driver, stream, face_index,
1760                           num_params, params, &face );
1761        if ( !error )
1762          goto Success;
1763      }
1764      else
1765        error = FT_Err_Invalid_Handle;
1766
1767      FT_Stream_Free( stream, external_stream );
1768      goto Fail;
1769    }
1770    else
1771    {
1772      /* check each font driver for an appropriate format */
1773      cur   = library->modules;
1774      limit = cur + library->num_modules;
1775
1776
1777      for ( ; cur < limit; cur++ )
1778      {
1779        /* not all modules are font drivers, so check... */
1780        if ( FT_MODULE_IS_DRIVER( cur[0] ) )
1781        {
1782          FT_Int         num_params = 0;
1783          FT_Parameter*  params     = 0;
1784
1785
1786          driver = FT_DRIVER( cur[0] );
1787
1788          if ( args->flags & FT_OPEN_PARAMS )
1789          {
1790            num_params = args->num_params;
1791            params     = args->params;
1792          }
1793
1794          error = open_face( driver, stream, face_index,
1795                             num_params, params, &face );
1796          if ( !error )
1797            goto Success;
1798
1799          if ( FT_ERROR_BASE( error ) != FT_Err_Unknown_File_Format )
1800            goto Fail3;
1801        }
1802      }
1803
1804  Fail3:
1805    /* If we are on the mac, and we get an FT_Err_Invalid_Stream_Operation */
1806    /* it may be because we have an empty data fork, so we need to check   */
1807    /* the resource fork.                                                  */
1808    if ( FT_ERROR_BASE( error ) != FT_Err_Cannot_Open_Stream       &&
1809         FT_ERROR_BASE( error ) != FT_Err_Unknown_File_Format      &&
1810         FT_ERROR_BASE( error ) != FT_Err_Invalid_Stream_Operation )
1811      goto Fail2;
1812
1813#if !defined( FT_MACINTOSH ) && defined( FT_CONFIG_OPTION_MAC_FONTS )
1814    error = load_mac_face( library, stream, face_index, aface, args );
1815    if ( !error )
1816    {
1817      /* We don't want to go to Success here.  We've already done that. */
1818      /* On the other hand, if we succeeded we still need to close this */
1819      /* stream (we opened a different stream which extracted the       */
1820      /* interesting information out of this stream here.  That stream  */
1821      /* will still be open and the face will point to it).             */
1822      FT_Stream_Free( stream, external_stream );
1823      return error;
1824    }
1825
1826    if ( FT_ERROR_BASE( error ) != FT_Err_Unknown_File_Format )
1827      goto Fail2;
1828#endif  /* !FT_MACINTOSH && FT_CONFIG_OPTION_MAC_FONTS */
1829
1830      /* no driver is able to handle this format */
1831      error = FT_Err_Unknown_File_Format;
1832
1833  Fail2:
1834      FT_Stream_Free( stream, external_stream );
1835      goto Fail;
1836    }
1837
1838  Success:
1839    FT_TRACE4(( "FT_Open_Face: New face object, adding to list\n" ));
1840
1841    /* set the FT_FACE_FLAG_EXTERNAL_STREAM bit for FT_Done_Face */
1842    if ( external_stream )
1843      face->face_flags |= FT_FACE_FLAG_EXTERNAL_STREAM;
1844
1845    /* add the face object to its driver's list */
1846    if ( FT_NEW( node ) )
1847      goto Fail;
1848
1849    node->data = face;
1850    /* don't assume driver is the same as face->driver, so use */
1851    /* face->driver instead.                                   */
1852    FT_List_Add( &face->driver->faces_list, node );
1853
1854    /* now allocate a glyph slot object for the face */
1855    FT_TRACE4(( "FT_Open_Face: Creating glyph slot\n" ));
1856
1857    if ( face_index >= 0 )
1858    {
1859      error = FT_New_GlyphSlot( face, NULL );
1860      if ( error )
1861        goto Fail;
1862
1863      /* finally, allocate a size object for the face */
1864      {
1865        FT_Size  size;
1866
1867
1868        FT_TRACE4(( "FT_Open_Face: Creating size object\n" ));
1869
1870        error = FT_New_Size( face, &size );
1871        if ( error )
1872          goto Fail;
1873
1874        face->size = size;
1875      }
1876    }
1877
1878    /* some checks */
1879
1880    if ( FT_IS_SCALABLE( face ) )
1881    {
1882      if ( face->height < 0 )
1883        face->height = (FT_Short)-face->height;
1884
1885      if ( !FT_HAS_VERTICAL( face ) )
1886        face->max_advance_height = (FT_Short)face->height;
1887    }
1888
1889    if ( FT_HAS_FIXED_SIZES( face ) )
1890    {
1891      FT_Int  i;
1892
1893
1894      for ( i = 0; i < face->num_fixed_sizes; i++ )
1895      {
1896        FT_Bitmap_Size*  bsize = face->available_sizes + i;
1897
1898
1899        if ( bsize->height < 0 )
1900          bsize->height = (FT_Short)-bsize->height;
1901        if ( bsize->x_ppem < 0 )
1902          bsize->x_ppem = (FT_Short)-bsize->x_ppem;
1903        if ( bsize->y_ppem < 0 )
1904          bsize->y_ppem = -bsize->y_ppem;
1905      }
1906    }
1907
1908    /* initialize internal face data */
1909    {
1910      FT_Face_Internal  internal = face->internal;
1911
1912
1913      internal->transform_matrix.xx = 0x10000L;
1914      internal->transform_matrix.xy = 0;
1915      internal->transform_matrix.yx = 0;
1916      internal->transform_matrix.yy = 0x10000L;
1917
1918      internal->transform_delta.x = 0;
1919      internal->transform_delta.y = 0;
1920    }
1921
1922    if ( aface )
1923      *aface = face;
1924    else
1925      FT_Done_Face( face );
1926
1927    goto Exit;
1928
1929  Fail:
1930    FT_Done_Face( face );
1931
1932  Exit:
1933    FT_TRACE4(( "FT_Open_Face: Return %d\n", error ));
1934
1935    return error;
1936  }
1937
1938
1939  /* documentation is in freetype.h */
1940
1941  FT_EXPORT_DEF( FT_Error )
1942  FT_Attach_File( FT_Face      face,
1943                  const char*  filepathname )
1944  {
1945    FT_Open_Args  open;
1946
1947
1948    /* test for valid `face' delayed to FT_Attach_Stream() */
1949
1950    if ( !filepathname )
1951      return FT_Err_Invalid_Argument;
1952
1953    open.stream   = NULL;
1954    open.flags    = FT_OPEN_PATHNAME;
1955    open.pathname = (char*)filepathname;
1956
1957    return FT_Attach_Stream( face, &open );
1958  }
1959
1960
1961  /* documentation is in freetype.h */
1962
1963  FT_EXPORT_DEF( FT_Error )
1964  FT_Attach_Stream( FT_Face        face,
1965                    FT_Open_Args*  parameters )
1966  {
1967    FT_Stream  stream;
1968    FT_Error   error;
1969    FT_Driver  driver;
1970
1971    FT_Driver_Class  clazz;
1972
1973
1974    /* test for valid `parameters' delayed to FT_Stream_New() */
1975
1976    if ( !face )
1977      return FT_Err_Invalid_Face_Handle;
1978
1979    driver = face->driver;
1980    if ( !driver )
1981      return FT_Err_Invalid_Driver_Handle;
1982
1983    error = FT_Stream_New( driver->root.library, parameters, &stream );
1984    if ( error )
1985      goto Exit;
1986
1987    /* we implement FT_Attach_Stream in each driver through the */
1988    /* `attach_file' interface                                  */
1989
1990    error = FT_Err_Unimplemented_Feature;
1991    clazz = driver->clazz;
1992    if ( clazz->attach_file )
1993      error = clazz->attach_file( face, stream );
1994
1995    /* close the attached stream */
1996    FT_Stream_Free( stream,
1997                    (FT_Bool)( parameters->stream &&
1998                               ( parameters->flags & FT_OPEN_STREAM ) ) );
1999
2000  Exit:
2001    return error;
2002  }
2003
2004
2005  /* documentation is in freetype.h */
2006
2007  FT_EXPORT_DEF( FT_Error )
2008  FT_Done_Face( FT_Face  face )
2009  {
2010    FT_Error     error;
2011    FT_Driver    driver;
2012    FT_Memory    memory;
2013    FT_ListNode  node;
2014
2015
2016    error = FT_Err_Invalid_Face_Handle;
2017    if ( face && face->driver )
2018    {
2019      driver = face->driver;
2020      memory = driver->root.memory;
2021
2022      /* find face in driver's list */
2023      node = FT_List_Find( &driver->faces_list, face );
2024      if ( node )
2025      {
2026        /* remove face object from the driver's list */
2027        FT_List_Remove( &driver->faces_list, node );
2028        FT_FREE( node );
2029
2030        /* now destroy the object proper */
2031        destroy_face( memory, face, driver );
2032        error = FT_Err_Ok;
2033      }
2034    }
2035    return error;
2036  }
2037
2038
2039  /* documentation is in ftobjs.h */
2040
2041  FT_EXPORT_DEF( FT_Error )
2042  FT_New_Size( FT_Face   face,
2043               FT_Size  *asize )
2044  {
2045    FT_Error         error;
2046    FT_Memory        memory;
2047    FT_Driver        driver;
2048    FT_Driver_Class  clazz;
2049
2050    FT_Size          size = 0;
2051    FT_ListNode      node = 0;
2052
2053
2054    if ( !face )
2055      return FT_Err_Invalid_Face_Handle;
2056
2057    if ( !asize )
2058      return FT_Err_Invalid_Size_Handle;
2059
2060    if ( !face->driver )
2061      return FT_Err_Invalid_Driver_Handle;
2062
2063    *asize = 0;
2064
2065    driver = face->driver;
2066    clazz  = driver->clazz;
2067    memory = face->memory;
2068
2069    /* Allocate new size object and perform basic initialisation */
2070    if ( FT_ALLOC( size, clazz->size_object_size ) || FT_NEW( node ) )
2071      goto Exit;
2072
2073    size->face = face;
2074
2075    /* for now, do not use any internal fields in size objects */
2076    size->internal = 0;
2077
2078    if ( clazz->init_size )
2079      error = clazz->init_size( size );
2080
2081    /* in case of success, add to the face's list */
2082    if ( !error )
2083    {
2084      *asize     = size;
2085      node->data = size;
2086      FT_List_Add( &face->sizes_list, node );
2087    }
2088
2089  Exit:
2090    if ( error )
2091    {
2092      FT_FREE( node );
2093      FT_FREE( size );
2094    }
2095
2096    return error;
2097  }
2098
2099
2100  /* documentation is in ftobjs.h */
2101
2102  FT_EXPORT_DEF( FT_Error )
2103  FT_Done_Size( FT_Size  size )
2104  {
2105    FT_Error     error;
2106    FT_Driver    driver;
2107    FT_Memory    memory;
2108    FT_Face      face;
2109    FT_ListNode  node;
2110
2111
2112    if ( !size )
2113      return FT_Err_Invalid_Size_Handle;
2114
2115    face = size->face;
2116    if ( !face )
2117      return FT_Err_Invalid_Face_Handle;
2118
2119    driver = face->driver;
2120    if ( !driver )
2121      return FT_Err_Invalid_Driver_Handle;
2122
2123    memory = driver->root.memory;
2124
2125    error = FT_Err_Ok;
2126    node  = FT_List_Find( &face->sizes_list, size );
2127    if ( node )
2128    {
2129      FT_List_Remove( &face->sizes_list, node );
2130      FT_FREE( node );
2131
2132      if ( face->size == size )
2133      {
2134        face->size = 0;
2135        if ( face->sizes_list.head )
2136          face->size = (FT_Size)(face->sizes_list.head->data);
2137      }
2138
2139      destroy_size( memory, size, driver );
2140    }
2141    else
2142      error = FT_Err_Invalid_Size_Handle;
2143
2144    return error;
2145  }
2146
2147
2148  /* documentation is in ftobjs.h */
2149
2150  FT_BASE_DEF( FT_Error )
2151  FT_Match_Size( FT_Face          face,
2152                 FT_Size_Request  req,
2153                 FT_Bool          ignore_width,
2154                 FT_ULong*        size_index )
2155  {
2156    FT_Int   i;
2157    FT_Long  w, h;
2158
2159
2160    if ( !FT_HAS_FIXED_SIZES( face ) )
2161      return FT_Err_Invalid_Face_Handle;
2162
2163    /* FT_Bitmap_Size doesn't provide enough info... */
2164    if ( req->type != FT_SIZE_REQUEST_TYPE_NOMINAL )
2165      return FT_Err_Unimplemented_Feature;
2166
2167    w = FT_REQUEST_WIDTH ( req );
2168    h = FT_REQUEST_HEIGHT( req );
2169
2170    if ( req->width && !req->height )
2171      h = w;
2172    else if ( !req->width && req->height )
2173      w = h;
2174
2175    w = FT_PIX_ROUND( w );
2176    h = FT_PIX_ROUND( h );
2177
2178    for ( i = 0; i < face->num_fixed_sizes; i++ )
2179    {
2180      FT_Bitmap_Size*  bsize = face->available_sizes + i;
2181
2182
2183      if ( h != FT_PIX_ROUND( bsize->y_ppem ) )
2184        continue;
2185
2186      if ( w == FT_PIX_ROUND( bsize->x_ppem ) || ignore_width )
2187      {
2188        if ( size_index )
2189          *size_index = (FT_ULong)i;
2190
2191        return FT_Err_Ok;
2192      }
2193    }
2194
2195    return FT_Err_Invalid_Pixel_Size;
2196  }
2197
2198
2199  /* documentation is in ftobjs.h */
2200
2201  FT_BASE_DEF( void )
2202  ft_synthesize_vertical_metrics( FT_Glyph_Metrics*  metrics,
2203                                  FT_Pos             advance )
2204  {
2205    /* the factor 1.2 is a heuristical value */
2206    if ( !advance )
2207      advance = metrics->height * 12 / 10;
2208
2209    metrics->vertBearingX = -( metrics->width / 2 );
2210    metrics->vertBearingY = ( advance - metrics->height ) / 2;
2211    metrics->vertAdvance  = advance;
2212  }
2213
2214
2215  static void
2216  ft_recompute_scaled_metrics( FT_Face           face,
2217                               FT_Size_Metrics*  metrics )
2218  {
2219    /* Compute root ascender, descender, test height, and max_advance */
2220
2221#ifdef GRID_FIT_METRICS
2222    metrics->ascender    = FT_PIX_CEIL( FT_MulFix( face->ascender,
2223                                                   metrics->y_scale ) );
2224
2225    metrics->descender   = FT_PIX_FLOOR( FT_MulFix( face->descender,
2226                                                    metrics->y_scale ) );
2227
2228    metrics->height      = FT_PIX_ROUND( FT_MulFix( face->height,
2229                                                    metrics->y_scale ) );
2230
2231    metrics->max_advance = FT_PIX_ROUND( FT_MulFix( face->max_advance_width,
2232                                                    metrics->x_scale ) );
2233#else /* !GRID_FIT_METRICS */
2234    metrics->ascender    = FT_MulFix( face->ascender,
2235                                      metrics->y_scale );
2236
2237    metrics->descender   = FT_MulFix( face->descender,
2238                                      metrics->y_scale );
2239
2240    metrics->height      = FT_MulFix( face->height,
2241                                      metrics->y_scale );
2242
2243    metrics->max_advance = FT_MulFix( face->max_advance_width,
2244                                      metrics->x_scale );
2245#endif /* !GRID_FIT_METRICS */
2246  }
2247
2248
2249  FT_BASE_DEF( void )
2250  FT_Select_Metrics( FT_Face   face,
2251                     FT_ULong  strike_index )
2252  {
2253    FT_Size_Metrics*  metrics;
2254    FT_Bitmap_Size*   bsize;
2255
2256
2257    metrics = &face->size->metrics;
2258    bsize   = face->available_sizes + strike_index;
2259
2260    metrics->x_ppem = (FT_UShort)( ( bsize->x_ppem + 32 ) >> 6 );
2261    metrics->y_ppem = (FT_UShort)( ( bsize->y_ppem + 32 ) >> 6 );
2262
2263    if ( FT_IS_SCALABLE( face ) )
2264    {
2265      metrics->x_scale = FT_DivFix( bsize->x_ppem,
2266                                    face->units_per_EM );
2267      metrics->y_scale = FT_DivFix( bsize->y_ppem,
2268                                    face->units_per_EM );
2269
2270      ft_recompute_scaled_metrics( face, metrics );
2271    }
2272    else
2273    {
2274      metrics->x_scale     = 1L << 22;
2275      metrics->y_scale     = 1L << 22;
2276      metrics->ascender    = bsize->y_ppem;
2277      metrics->descender   = 0;
2278      metrics->height      = bsize->height << 6;
2279      metrics->max_advance = bsize->x_ppem;
2280    }
2281  }
2282
2283
2284  FT_BASE_DEF( void )
2285  FT_Request_Metrics( FT_Face          face,
2286                      FT_Size_Request  req )
2287  {
2288    FT_Size_Metrics*  metrics;
2289
2290
2291    metrics = &face->size->metrics;
2292
2293    if ( FT_IS_SCALABLE( face ) )
2294    {
2295      FT_Long  w = 0, h = 0, scaled_w = 0, scaled_h = 0;
2296
2297
2298      switch ( req->type )
2299      {
2300      case FT_SIZE_REQUEST_TYPE_NOMINAL:
2301        w = h = face->units_per_EM;
2302        break;
2303
2304      case FT_SIZE_REQUEST_TYPE_REAL_DIM:
2305        w = h = face->ascender - face->descender;
2306        break;
2307
2308      case FT_SIZE_REQUEST_TYPE_BBOX:
2309        w = face->bbox.xMax - face->bbox.xMin;
2310        h = face->bbox.yMax - face->bbox.yMin;
2311        break;
2312
2313      case FT_SIZE_REQUEST_TYPE_CELL:
2314        w = face->max_advance_width;
2315        h = face->ascender - face->descender;
2316        break;
2317
2318      case FT_SIZE_REQUEST_TYPE_SCALES:
2319        metrics->x_scale = (FT_Fixed)req->width;
2320        metrics->y_scale = (FT_Fixed)req->height;
2321        if ( !metrics->x_scale )
2322          metrics->x_scale = metrics->y_scale;
2323        else if ( !metrics->y_scale )
2324          metrics->y_scale = metrics->x_scale;
2325        goto Calculate_Ppem;
2326
2327      case FT_SIZE_REQUEST_TYPE_MAX:
2328        break;
2329      }
2330
2331      /* to be on the safe side */
2332      if ( w < 0 )
2333        w = -w;
2334
2335      if ( h < 0 )
2336        h = -h;
2337
2338      scaled_w = FT_REQUEST_WIDTH ( req );
2339      scaled_h = FT_REQUEST_HEIGHT( req );
2340
2341      /* determine scales */
2342      if ( req->width )
2343      {
2344        metrics->x_scale = FT_DivFix( scaled_w, w );
2345
2346        if ( req->height )
2347        {
2348          metrics->y_scale = FT_DivFix( scaled_h, h );
2349
2350          if ( req->type == FT_SIZE_REQUEST_TYPE_CELL )
2351          {
2352            if ( metrics->y_scale > metrics->x_scale )
2353              metrics->y_scale = metrics->x_scale;
2354            else
2355              metrics->x_scale = metrics->y_scale;
2356          }
2357        }
2358        else
2359        {
2360          metrics->y_scale = metrics->x_scale;
2361          scaled_h = FT_MulDiv( scaled_w, h, w );
2362        }
2363      }
2364      else
2365      {
2366        metrics->x_scale = metrics->y_scale = FT_DivFix( scaled_h, h );
2367        scaled_w = FT_MulDiv( scaled_h, w, h );
2368      }
2369
2370  Calculate_Ppem:
2371      /* calculate the ppems */
2372      if ( req->type != FT_SIZE_REQUEST_TYPE_NOMINAL )
2373      {
2374        scaled_w = FT_MulFix( face->units_per_EM, metrics->x_scale );
2375        scaled_h = FT_MulFix( face->units_per_EM, metrics->y_scale );
2376      }
2377
2378      metrics->x_ppem = (FT_UShort)( ( scaled_w + 32 ) >> 6 );
2379      metrics->y_ppem = (FT_UShort)( ( scaled_h + 32 ) >> 6 );
2380
2381      ft_recompute_scaled_metrics( face, metrics );
2382    }
2383    else
2384    {
2385      FT_ZERO( metrics );
2386      metrics->x_scale = 1L << 22;
2387      metrics->y_scale = 1L << 22;
2388    }
2389  }
2390
2391
2392  /* documentation is in freetype.h */
2393
2394  FT_EXPORT_DEF( FT_Error )
2395  FT_Select_Size( FT_Face  face,
2396                  FT_Int   strike_index )
2397  {
2398    FT_Driver_Class  clazz;
2399
2400
2401    if ( !face || !FT_HAS_FIXED_SIZES( face ) )
2402      return FT_Err_Invalid_Face_Handle;
2403
2404    if ( strike_index < 0 || strike_index >= face->num_fixed_sizes )
2405      return FT_Err_Invalid_Argument;
2406
2407    clazz = face->driver->clazz;
2408
2409    if ( clazz->select_size )
2410      return clazz->select_size( face->size, (FT_ULong)strike_index );
2411
2412    FT_Select_Metrics( face, (FT_ULong)strike_index );
2413
2414    return FT_Err_Ok;
2415  }
2416
2417
2418  /* documentation is in freetype.h */
2419
2420  FT_EXPORT_DEF( FT_Error )
2421  FT_Request_Size( FT_Face          face,
2422                   FT_Size_Request  req )
2423  {
2424    FT_Driver_Class  clazz;
2425    FT_ULong         strike_index;
2426
2427
2428    if ( !face )
2429      return FT_Err_Invalid_Face_Handle;
2430
2431    if ( !req || req->width < 0 || req->height < 0 ||
2432         req->type >= FT_SIZE_REQUEST_TYPE_MAX )
2433      return FT_Err_Invalid_Argument;
2434
2435    clazz = face->driver->clazz;
2436
2437    if ( clazz->request_size )
2438      return clazz->request_size( face->size, req );
2439
2440    /*
2441     * The reason that a driver doesn't have `request_size' defined is
2442     * either that the scaling here suffices or that the supported formats
2443     * are bitmap-only and size matching is not implemented.
2444     *
2445     * In the latter case, a simple size matching is done.
2446     */
2447    if ( !FT_IS_SCALABLE( face ) && FT_HAS_FIXED_SIZES( face ) )
2448    {
2449      FT_Error  error;
2450
2451
2452      error = FT_Match_Size( face, req, 0, &strike_index );
2453      if ( error )
2454        return error;
2455
2456      FT_TRACE3(( "FT_Request_Size: bitmap strike %lu matched\n",
2457                  strike_index ));
2458
2459      return FT_Select_Size( face, (FT_Int)strike_index );
2460    }
2461
2462    FT_Request_Metrics( face, req );
2463
2464    return FT_Err_Ok;
2465  }
2466
2467
2468  /* documentation is in freetype.h */
2469
2470  FT_EXPORT_DEF( FT_Error )
2471  FT_Set_Char_Size( FT_Face     face,
2472                    FT_F26Dot6  char_width,
2473                    FT_F26Dot6  char_height,
2474                    FT_UInt     horz_resolution,
2475                    FT_UInt     vert_resolution )
2476  {
2477    FT_Size_RequestRec  req;
2478
2479
2480    if ( !char_width )
2481      char_width = char_height;
2482    else if ( !char_height )
2483      char_height = char_width;
2484
2485    if ( !horz_resolution )
2486      horz_resolution = vert_resolution;
2487    else if ( !vert_resolution )
2488      vert_resolution = horz_resolution;
2489
2490    if ( char_width  < 1 * 64 )
2491      char_width  = 1 * 64;
2492    if ( char_height < 1 * 64 )
2493      char_height = 1 * 64;
2494
2495    if ( !horz_resolution )
2496      horz_resolution = vert_resolution = 72;
2497
2498    req.type           = FT_SIZE_REQUEST_TYPE_NOMINAL;
2499    req.width          = char_width;
2500    req.height         = char_height;
2501    req.horiResolution = horz_resolution;
2502    req.vertResolution = vert_resolution;
2503
2504    return FT_Request_Size( face, &req );
2505  }
2506
2507
2508  /* documentation is in freetype.h */
2509
2510  FT_EXPORT_DEF( FT_Error )
2511  FT_Set_Pixel_Sizes( FT_Face  face,
2512                      FT_UInt  pixel_width,
2513                      FT_UInt  pixel_height )
2514  {
2515    FT_Size_RequestRec  req;
2516
2517
2518    if ( pixel_width == 0 )
2519      pixel_width = pixel_height;
2520    else if ( pixel_height == 0 )
2521      pixel_height = pixel_width;
2522
2523    if ( pixel_width  < 1 )
2524      pixel_width  = 1;
2525    if ( pixel_height < 1 )
2526      pixel_height = 1;
2527
2528    /* use `>=' to avoid potential compiler warning on 16bit platforms */
2529    if ( pixel_width  >= 0xFFFFU )
2530      pixel_width  = 0xFFFFU;
2531    if ( pixel_height >= 0xFFFFU )
2532      pixel_height = 0xFFFFU;
2533
2534    req.type           = FT_SIZE_REQUEST_TYPE_NOMINAL;
2535    req.width          = pixel_width << 6;
2536    req.height         = pixel_height << 6;
2537    req.horiResolution = 0;
2538    req.vertResolution = 0;
2539
2540    return FT_Request_Size( face, &req );
2541  }
2542
2543
2544  /* documentation is in freetype.h */
2545
2546  FT_EXPORT_DEF( FT_Error )
2547  FT_Get_Kerning( FT_Face     face,
2548                  FT_UInt     left_glyph,
2549                  FT_UInt     right_glyph,
2550                  FT_UInt     kern_mode,
2551                  FT_Vector  *akerning )
2552  {
2553    FT_Error   error = FT_Err_Ok;
2554    FT_Driver  driver;
2555
2556
2557    if ( !face )
2558      return FT_Err_Invalid_Face_Handle;
2559
2560    if ( !akerning )
2561      return FT_Err_Invalid_Argument;
2562
2563    driver = face->driver;
2564
2565    akerning->x = 0;
2566    akerning->y = 0;
2567
2568    if ( driver->clazz->get_kerning )
2569    {
2570      error = driver->clazz->get_kerning( face,
2571                                          left_glyph,
2572                                          right_glyph,
2573                                          akerning );
2574      if ( !error )
2575      {
2576        if ( kern_mode != FT_KERNING_UNSCALED )
2577        {
2578          akerning->x = FT_MulFix( akerning->x, face->size->metrics.x_scale );
2579          akerning->y = FT_MulFix( akerning->y, face->size->metrics.y_scale );
2580
2581          if ( kern_mode != FT_KERNING_UNFITTED )
2582          {
2583            /* we scale down kerning values for small ppem values */
2584            /* to avoid that rounding makes them too big.         */
2585            /* `25' has been determined heuristically.            */
2586            if ( face->size->metrics.x_ppem < 25 )
2587              akerning->x = FT_MulDiv( akerning->x,
2588                                       face->size->metrics.x_ppem, 25 );
2589            if ( face->size->metrics.y_ppem < 25 )
2590              akerning->y = FT_MulDiv( akerning->y,
2591                                       face->size->metrics.y_ppem, 25 );
2592
2593            akerning->x = FT_PIX_ROUND( akerning->x );
2594            akerning->y = FT_PIX_ROUND( akerning->y );
2595          }
2596        }
2597      }
2598    }
2599
2600    return error;
2601  }
2602
2603
2604  /* documentation is in freetype.h */
2605
2606  FT_EXPORT_DEF( FT_Error )
2607  FT_Get_Track_Kerning( FT_Face    face,
2608                        FT_Fixed   point_size,
2609                        FT_Int     degree,
2610                        FT_Fixed*  akerning )
2611  {
2612    FT_Service_Kerning  service;
2613    FT_Error            error = FT_Err_Ok;
2614
2615
2616    if ( !face )
2617      return FT_Err_Invalid_Face_Handle;
2618
2619    if ( !akerning )
2620      return FT_Err_Invalid_Argument;
2621
2622    FT_FACE_FIND_SERVICE( face, service, KERNING );
2623    if ( !service )
2624      return FT_Err_Unimplemented_Feature;
2625
2626    error = service->get_track( face,
2627                                point_size,
2628                                degree,
2629                                akerning );
2630
2631    return error;
2632  }
2633
2634
2635  /* documentation is in freetype.h */
2636
2637  FT_EXPORT_DEF( FT_Error )
2638  FT_Select_Charmap( FT_Face      face,
2639                     FT_Encoding  encoding )
2640  {
2641    FT_CharMap*  cur;
2642    FT_CharMap*  limit;
2643
2644
2645    if ( !face )
2646      return FT_Err_Invalid_Face_Handle;
2647
2648    if ( encoding == FT_ENCODING_NONE )
2649      return FT_Err_Invalid_Argument;
2650
2651    /* FT_ENCODING_UNICODE is special.  We try to find the `best' Unicode */
2652    /* charmap available, i.e., one with UCS-4 characters, if possible.   */
2653    /*                                                                    */
2654    /* This is done by find_unicode_charmap() above, to share code.       */
2655    if ( encoding == FT_ENCODING_UNICODE )
2656      return find_unicode_charmap( face );
2657
2658    cur = face->charmaps;
2659    if ( !cur )
2660      return FT_Err_Invalid_CharMap_Handle;
2661
2662    limit = cur + face->num_charmaps;
2663
2664    for ( ; cur < limit; cur++ )
2665    {
2666      if ( cur[0]->encoding == encoding )
2667      {
2668        face->charmap = cur[0];
2669        return 0;
2670      }
2671    }
2672
2673    return FT_Err_Invalid_Argument;
2674  }
2675
2676
2677  /* documentation is in freetype.h */
2678
2679  FT_EXPORT_DEF( FT_Error )
2680  FT_Set_Charmap( FT_Face     face,
2681                  FT_CharMap  charmap )
2682  {
2683    FT_CharMap*  cur;
2684    FT_CharMap*  limit;
2685
2686
2687    if ( !face )
2688      return FT_Err_Invalid_Face_Handle;
2689
2690    cur = face->charmaps;
2691    if ( !cur )
2692      return FT_Err_Invalid_CharMap_Handle;
2693    if ( FT_Get_CMap_Format( charmap ) == 14 )
2694      return FT_Err_Invalid_Argument;
2695
2696    limit = cur + face->num_charmaps;
2697
2698    for ( ; cur < limit; cur++ )
2699    {
2700      if ( cur[0] == charmap )
2701      {
2702        face->charmap = cur[0];
2703        return 0;
2704      }
2705    }
2706    return FT_Err_Invalid_Argument;
2707  }
2708
2709
2710  /* documentation is in freetype.h */
2711
2712  FT_EXPORT_DEF( FT_Int )
2713  FT_Get_Charmap_Index( FT_CharMap  charmap )
2714  {
2715    FT_Int  i;
2716
2717
2718    for ( i = 0; i < charmap->face->num_charmaps; i++ )
2719      if ( charmap->face->charmaps[i] == charmap )
2720        break;
2721
2722    FT_ASSERT( i < charmap->face->num_charmaps );
2723
2724    return i;
2725  }
2726
2727
2728  static void
2729  ft_cmap_done_internal( FT_CMap  cmap )
2730  {
2731    FT_CMap_Class  clazz  = cmap->clazz;
2732    FT_Face        face   = cmap->charmap.face;
2733    FT_Memory      memory = FT_FACE_MEMORY(face);
2734
2735
2736    if ( clazz->done )
2737      clazz->done( cmap );
2738
2739    FT_FREE( cmap );
2740  }
2741
2742
2743  FT_BASE_DEF( void )
2744  FT_CMap_Done( FT_CMap  cmap )
2745  {
2746    if ( cmap )
2747    {
2748      FT_Face    face   = cmap->charmap.face;
2749      FT_Memory  memory = FT_FACE_MEMORY( face );
2750      FT_Error   error;
2751      FT_Int     i, j;
2752
2753
2754      for ( i = 0; i < face->num_charmaps; i++ )
2755      {
2756        if ( (FT_CMap)face->charmaps[i] == cmap )
2757        {
2758          FT_CharMap  last_charmap = face->charmaps[face->num_charmaps - 1];
2759
2760
2761          if ( FT_RENEW_ARRAY( face->charmaps,
2762                               face->num_charmaps,
2763                               face->num_charmaps - 1 ) )
2764            return;
2765
2766          /* remove it from our list of charmaps */
2767          for ( j = i + 1; j < face->num_charmaps; j++ )
2768          {
2769            if ( j == face->num_charmaps - 1 )
2770              face->charmaps[j - 1] = last_charmap;
2771            else
2772              face->charmaps[j - 1] = face->charmaps[j];
2773          }
2774
2775          face->num_charmaps--;
2776
2777          if ( (FT_CMap)face->charmap == cmap )
2778            face->charmap = NULL;
2779
2780          ft_cmap_done_internal( cmap );
2781
2782          break;
2783        }
2784      }
2785    }
2786  }
2787
2788
2789  FT_BASE_DEF( FT_Error )
2790  FT_CMap_New( FT_CMap_Class  clazz,
2791               FT_Pointer     init_data,
2792               FT_CharMap     charmap,
2793               FT_CMap       *acmap )
2794  {
2795    FT_Error   error = FT_Err_Ok;
2796    FT_Face    face;
2797    FT_Memory  memory;
2798    FT_CMap    cmap;
2799
2800
2801    if ( clazz == NULL || charmap == NULL || charmap->face == NULL )
2802      return FT_Err_Invalid_Argument;
2803
2804    face   = charmap->face;
2805    memory = FT_FACE_MEMORY( face );
2806
2807    if ( !FT_ALLOC( cmap, clazz->size ) )
2808    {
2809      cmap->charmap = *charmap;
2810      cmap->clazz   = clazz;
2811
2812      if ( clazz->init )
2813      {
2814        error = clazz->init( cmap, init_data );
2815        if ( error )
2816          goto Fail;
2817      }
2818
2819      /* add it to our list of charmaps */
2820      if ( FT_RENEW_ARRAY( face->charmaps,
2821                           face->num_charmaps,
2822                           face->num_charmaps + 1 ) )
2823        goto Fail;
2824
2825      face->charmaps[face->num_charmaps++] = (FT_CharMap)cmap;
2826    }
2827
2828  Exit:
2829    if ( acmap )
2830      *acmap = cmap;
2831
2832    return error;
2833
2834  Fail:
2835    ft_cmap_done_internal( cmap );
2836    cmap = NULL;
2837    goto Exit;
2838  }
2839
2840
2841  /* documentation is in freetype.h */
2842
2843  FT_EXPORT_DEF( FT_UInt )
2844  FT_Get_Char_Index( FT_Face   face,
2845                     FT_ULong  charcode )
2846  {
2847    FT_UInt  result = 0;
2848
2849
2850    if ( face && face->charmap )
2851    {
2852      FT_CMap  cmap = FT_CMAP( face->charmap );
2853
2854
2855      result = cmap->clazz->char_index( cmap, charcode );
2856    }
2857    return  result;
2858  }
2859
2860
2861  /* documentation is in freetype.h */
2862
2863  FT_EXPORT_DEF( FT_ULong )
2864  FT_Get_First_Char( FT_Face   face,
2865                     FT_UInt  *agindex )
2866  {
2867    FT_ULong  result = 0;
2868    FT_UInt   gindex = 0;
2869
2870
2871    if ( face && face->charmap )
2872    {
2873      gindex = FT_Get_Char_Index( face, 0 );
2874      if ( gindex == 0 )
2875        result = FT_Get_Next_Char( face, 0, &gindex );
2876    }
2877
2878    if ( agindex  )
2879      *agindex = gindex;
2880
2881    return result;
2882  }
2883
2884
2885  /* documentation is in freetype.h */
2886
2887  FT_EXPORT_DEF( FT_ULong )
2888  FT_Get_Next_Char( FT_Face   face,
2889                    FT_ULong  charcode,
2890                    FT_UInt  *agindex )
2891  {
2892    FT_ULong  result = 0;
2893    FT_UInt   gindex = 0;
2894
2895
2896    if ( face && face->charmap )
2897    {
2898      FT_UInt32  code = (FT_UInt32)charcode;
2899      FT_CMap    cmap = FT_CMAP( face->charmap );
2900
2901
2902      gindex = cmap->clazz->char_next( cmap, &code );
2903      result = ( gindex == 0 ) ? 0 : code;
2904    }
2905
2906    if ( agindex )
2907      *agindex = gindex;
2908
2909    return result;
2910  }
2911
2912
2913  /* documentation is in freetype.h */
2914
2915  FT_EXPORT_DEF( FT_UInt )
2916  FT_Face_GetCharVariantIndex( FT_Face   face,
2917                               FT_ULong  charcode,
2918                               FT_ULong  variantSelector )
2919  {
2920    FT_UInt  result = 0;
2921
2922
2923    if ( face && face->charmap &&
2924        face->charmap->encoding == FT_ENCODING_UNICODE )
2925    {
2926      FT_CharMap  charmap = find_variant_selector_charmap( face );
2927      FT_CMap     ucmap = FT_CMAP( face->charmap );
2928
2929
2930      if ( charmap != NULL )
2931      {
2932        FT_CMap  vcmap = FT_CMAP( charmap );
2933
2934
2935        result = vcmap->clazz->char_var_index( vcmap, ucmap, charcode,
2936                                               variantSelector );
2937      }
2938    }
2939
2940    return result;
2941  }
2942
2943
2944  /* documentation is in freetype.h */
2945
2946  FT_EXPORT_DEF( FT_Int )
2947  FT_Face_GetCharVariantIsDefault( FT_Face   face,
2948                                   FT_ULong  charcode,
2949                                   FT_ULong  variantSelector )
2950  {
2951    FT_Int  result = -1;
2952
2953
2954    if ( face )
2955    {
2956      FT_CharMap  charmap = find_variant_selector_charmap( face );
2957
2958
2959      if ( charmap != NULL )
2960      {
2961        FT_CMap  vcmap = FT_CMAP( charmap );
2962
2963
2964        result = vcmap->clazz->char_var_default( vcmap, charcode,
2965                                                 variantSelector );
2966      }
2967    }
2968
2969    return result;
2970  }
2971
2972
2973  /* documentation is in freetype.h */
2974
2975  FT_EXPORT_DEF( FT_UInt32* )
2976  FT_Face_GetVariantSelectors( FT_Face  face )
2977  {
2978    FT_UInt32  *result = NULL;
2979
2980
2981    if ( face )
2982    {
2983      FT_CharMap  charmap = find_variant_selector_charmap( face );
2984
2985
2986      if ( charmap != NULL )
2987      {
2988        FT_CMap    vcmap  = FT_CMAP( charmap );
2989        FT_Memory  memory = FT_FACE_MEMORY( face );
2990
2991
2992        result = vcmap->clazz->variant_list( vcmap, memory );
2993      }
2994    }
2995
2996    return result;
2997  }
2998
2999
3000  /* documentation is in freetype.h */
3001
3002  FT_EXPORT_DEF( FT_UInt32* )
3003  FT_Face_GetVariantsOfChar( FT_Face   face,
3004                             FT_ULong  charcode )
3005  {
3006    FT_UInt32  *result = NULL;
3007
3008
3009    if ( face )
3010    {
3011      FT_CharMap  charmap = find_variant_selector_charmap( face );
3012
3013
3014      if ( charmap != NULL )
3015      {
3016        FT_CMap    vcmap  = FT_CMAP( charmap );
3017        FT_Memory  memory = FT_FACE_MEMORY( face );
3018
3019
3020        result = vcmap->clazz->charvariant_list( vcmap, memory, charcode );
3021      }
3022    }
3023    return result;
3024  }
3025
3026
3027  /* documentation is in freetype.h */
3028
3029  FT_EXPORT_DEF( FT_UInt32* )
3030  FT_Face_GetCharsOfVariant( FT_Face   face,
3031                             FT_ULong  variantSelector )
3032  {
3033    FT_UInt32  *result = NULL;
3034
3035
3036    if ( face )
3037    {
3038      FT_CharMap  charmap = find_variant_selector_charmap( face );
3039
3040
3041      if ( charmap != NULL )
3042      {
3043        FT_CMap    vcmap  = FT_CMAP( charmap );
3044        FT_Memory  memory = FT_FACE_MEMORY( face );
3045
3046
3047        result = vcmap->clazz->variantchar_list( vcmap, memory,
3048                                                 variantSelector );
3049      }
3050    }
3051
3052    return result;
3053  }
3054
3055
3056  /* documentation is in freetype.h */
3057
3058  FT_EXPORT_DEF( FT_UInt )
3059  FT_Get_Name_Index( FT_Face     face,
3060                     FT_String*  glyph_name )
3061  {
3062    FT_UInt  result = 0;
3063
3064
3065    if ( face && FT_HAS_GLYPH_NAMES( face ) )
3066    {
3067      FT_Service_GlyphDict  service;
3068
3069
3070      FT_FACE_LOOKUP_SERVICE( face,
3071                              service,
3072                              GLYPH_DICT );
3073
3074      if ( service && service->name_index )
3075        result = service->name_index( face, glyph_name );
3076    }
3077
3078    return result;
3079  }
3080
3081
3082  /* documentation is in freetype.h */
3083
3084  FT_EXPORT_DEF( FT_Error )
3085  FT_Get_Glyph_Name( FT_Face     face,
3086                     FT_UInt     glyph_index,
3087                     FT_Pointer  buffer,
3088                     FT_UInt     buffer_max )
3089  {
3090    FT_Error  error = FT_Err_Invalid_Argument;
3091
3092
3093    /* clean up buffer */
3094    if ( buffer && buffer_max > 0 )
3095      ((FT_Byte*)buffer)[0] = 0;
3096
3097    if ( face                                     &&
3098         glyph_index <= (FT_UInt)face->num_glyphs &&
3099         FT_HAS_GLYPH_NAMES( face )               )
3100    {
3101      FT_Service_GlyphDict  service;
3102
3103
3104      FT_FACE_LOOKUP_SERVICE( face,
3105                              service,
3106                              GLYPH_DICT );
3107
3108      if ( service && service->get_name )
3109        error = service->get_name( face, glyph_index, buffer, buffer_max );
3110    }
3111
3112    return error;
3113  }
3114
3115
3116  /* documentation is in freetype.h */
3117
3118  FT_EXPORT_DEF( const char* )
3119  FT_Get_Postscript_Name( FT_Face  face )
3120  {
3121    const char*  result = NULL;
3122
3123
3124    if ( !face )
3125      goto Exit;
3126
3127    if ( !result )
3128    {
3129      FT_Service_PsFontName  service;
3130
3131
3132      FT_FACE_LOOKUP_SERVICE( face,
3133                              service,
3134                              POSTSCRIPT_FONT_NAME );
3135
3136      if ( service && service->get_ps_font_name )
3137        result = service->get_ps_font_name( face );
3138    }
3139
3140  Exit:
3141    return result;
3142  }
3143
3144
3145  /* documentation is in tttables.h */
3146
3147  FT_EXPORT_DEF( void* )
3148  FT_Get_Sfnt_Table( FT_Face      face,
3149                     FT_Sfnt_Tag  tag )
3150  {
3151    void*                  table = 0;
3152    FT_Service_SFNT_Table  service;
3153
3154
3155    if ( face && FT_IS_SFNT( face ) )
3156    {
3157      FT_FACE_FIND_SERVICE( face, service, SFNT_TABLE );
3158      if ( service != NULL )
3159        table = service->get_table( face, tag );
3160    }
3161
3162    return table;
3163  }
3164
3165
3166  /* documentation is in tttables.h */
3167
3168  FT_EXPORT_DEF( FT_Error )
3169  FT_Load_Sfnt_Table( FT_Face    face,
3170                      FT_ULong   tag,
3171                      FT_Long    offset,
3172                      FT_Byte*   buffer,
3173                      FT_ULong*  length )
3174  {
3175    FT_Service_SFNT_Table  service;
3176
3177
3178    if ( !face || !FT_IS_SFNT( face ) )
3179      return FT_Err_Invalid_Face_Handle;
3180
3181    FT_FACE_FIND_SERVICE( face, service, SFNT_TABLE );
3182    if ( service == NULL )
3183      return FT_Err_Unimplemented_Feature;
3184
3185    return service->load_table( face, tag, offset, buffer, length );
3186  }
3187
3188
3189  /* documentation is in tttables.h */
3190
3191  FT_EXPORT_DEF( FT_Error )
3192  FT_Sfnt_Table_Info( FT_Face    face,
3193                      FT_UInt    table_index,
3194                      FT_ULong  *tag,
3195                      FT_ULong  *length )
3196  {
3197    FT_Service_SFNT_Table  service;
3198
3199
3200    if ( !face || !FT_IS_SFNT( face ) )
3201      return FT_Err_Invalid_Face_Handle;
3202
3203    FT_FACE_FIND_SERVICE( face, service, SFNT_TABLE );
3204    if ( service == NULL )
3205      return FT_Err_Unimplemented_Feature;
3206
3207    return service->table_info( face, table_index, tag, length );
3208  }
3209
3210
3211  /* documentation is in tttables.h */
3212
3213  FT_EXPORT_DEF( FT_ULong )
3214  FT_Get_CMap_Language_ID( FT_CharMap  charmap )
3215  {
3216    FT_Service_TTCMaps  service;
3217    FT_Face             face;
3218    TT_CMapInfo         cmap_info;
3219
3220
3221    if ( !charmap || !charmap->face )
3222      return 0;
3223
3224    face = charmap->face;
3225    FT_FACE_FIND_SERVICE( face, service, TT_CMAP );
3226    if ( service == NULL )
3227      return 0;
3228    if ( service->get_cmap_info( charmap, &cmap_info ))
3229      return 0;
3230
3231    return cmap_info.language;
3232  }
3233
3234
3235  /* documentation is in tttables.h */
3236
3237  FT_EXPORT_DEF( FT_Long )
3238  FT_Get_CMap_Format( FT_CharMap  charmap )
3239  {
3240    FT_Service_TTCMaps  service;
3241    FT_Face             face;
3242    TT_CMapInfo         cmap_info;
3243
3244
3245    if ( !charmap || !charmap->face )
3246      return -1;
3247
3248    face = charmap->face;
3249    FT_FACE_FIND_SERVICE( face, service, TT_CMAP );
3250    if ( service == NULL )
3251      return -1;
3252    if ( service->get_cmap_info( charmap, &cmap_info ))
3253      return -1;
3254
3255    return cmap_info.format;
3256  }
3257
3258
3259  /* documentation is in ftsizes.h */
3260
3261  FT_EXPORT_DEF( FT_Error )
3262  FT_Activate_Size( FT_Size  size )
3263  {
3264    FT_Face  face;
3265
3266
3267    if ( size == NULL )
3268      return FT_Err_Bad_Argument;
3269
3270    face = size->face;
3271    if ( face == NULL || face->driver == NULL )
3272      return FT_Err_Bad_Argument;
3273
3274    /* we don't need anything more complex than that; all size objects */
3275    /* are already listed by the face                                  */
3276    face->size = size;
3277
3278    return FT_Err_Ok;
3279  }
3280
3281
3282  /*************************************************************************/
3283  /*************************************************************************/
3284  /*************************************************************************/
3285  /****                                                                 ****/
3286  /****                                                                 ****/
3287  /****                        R E N D E R E R S                        ****/
3288  /****                                                                 ****/
3289  /****                                                                 ****/
3290  /*************************************************************************/
3291  /*************************************************************************/
3292  /*************************************************************************/
3293
3294  /* lookup a renderer by glyph format in the library's list */
3295  FT_BASE_DEF( FT_Renderer )
3296  FT_Lookup_Renderer( FT_Library       library,
3297                      FT_Glyph_Format  format,
3298                      FT_ListNode*     node )
3299  {
3300    FT_ListNode  cur;
3301    FT_Renderer  result = 0;
3302
3303
3304    if ( !library )
3305      goto Exit;
3306
3307    cur = library->renderers.head;
3308
3309    if ( node )
3310    {
3311      if ( *node )
3312        cur = (*node)->next;
3313      *node = 0;
3314    }
3315
3316    while ( cur )
3317    {
3318      FT_Renderer  renderer = FT_RENDERER( cur->data );
3319
3320
3321      if ( renderer->glyph_format == format )
3322      {
3323        if ( node )
3324          *node = cur;
3325
3326        result = renderer;
3327        break;
3328      }
3329      cur = cur->next;
3330    }
3331
3332  Exit:
3333    return result;
3334  }
3335
3336
3337  static FT_Renderer
3338  ft_lookup_glyph_renderer( FT_GlyphSlot  slot )
3339  {
3340    FT_Face      face    = slot->face;
3341    FT_Library   library = FT_FACE_LIBRARY( face );
3342    FT_Renderer  result  = library->cur_renderer;
3343
3344
3345    if ( !result || result->glyph_format != slot->format )
3346      result = FT_Lookup_Renderer( library, slot->format, 0 );
3347
3348    return result;
3349  }
3350
3351
3352  static void
3353  ft_set_current_renderer( FT_Library  library )
3354  {
3355    FT_Renderer  renderer;
3356
3357
3358    renderer = FT_Lookup_Renderer( library, FT_GLYPH_FORMAT_OUTLINE, 0 );
3359    library->cur_renderer = renderer;
3360  }
3361
3362
3363  static FT_Error
3364  ft_add_renderer( FT_Module  module )
3365  {
3366    FT_Library   library = module->library;
3367    FT_Memory    memory  = library->memory;
3368    FT_Error     error;
3369    FT_ListNode  node;
3370
3371
3372    if ( FT_NEW( node ) )
3373      goto Exit;
3374
3375    {
3376      FT_Renderer         render = FT_RENDERER( module );
3377      FT_Renderer_Class*  clazz  = (FT_Renderer_Class*)module->clazz;
3378
3379
3380      render->clazz        = clazz;
3381      render->glyph_format = clazz->glyph_format;
3382
3383      /* allocate raster object if needed */
3384      if ( clazz->glyph_format == FT_GLYPH_FORMAT_OUTLINE &&
3385           clazz->raster_class->raster_new )
3386      {
3387        error = clazz->raster_class->raster_new( memory, &render->raster );
3388        if ( error )
3389          goto Fail;
3390
3391        render->raster_render = clazz->raster_class->raster_render;
3392        render->render        = clazz->render_glyph;
3393      }
3394
3395      /* add to list */
3396      node->data = module;
3397      FT_List_Add( &library->renderers, node );
3398
3399      ft_set_current_renderer( library );
3400    }
3401
3402  Fail:
3403    if ( error )
3404      FT_FREE( node );
3405
3406  Exit:
3407    return error;
3408  }
3409
3410
3411  static void
3412  ft_remove_renderer( FT_Module  module )
3413  {
3414    FT_Library   library = module->library;
3415    FT_Memory    memory  = library->memory;
3416    FT_ListNode  node;
3417
3418
3419    node = FT_List_Find( &library->renderers, module );
3420    if ( node )
3421    {
3422      FT_Renderer  render = FT_RENDERER( module );
3423
3424
3425      /* release raster object, if any */
3426      if ( render->raster )
3427        render->clazz->raster_class->raster_done( render->raster );
3428
3429      /* remove from list */
3430      FT_List_Remove( &library->renderers, node );
3431      FT_FREE( node );
3432
3433      ft_set_current_renderer( library );
3434    }
3435  }
3436
3437
3438  /* documentation is in ftrender.h */
3439
3440  FT_EXPORT_DEF( FT_Renderer )
3441  FT_Get_Renderer( FT_Library       library,
3442                   FT_Glyph_Format  format )
3443  {
3444    /* test for valid `library' delayed to FT_Lookup_Renderer() */
3445
3446    return FT_Lookup_Renderer( library, format, 0 );
3447  }
3448
3449
3450  /* documentation is in ftrender.h */
3451
3452  FT_EXPORT_DEF( FT_Error )
3453  FT_Set_Renderer( FT_Library     library,
3454                   FT_Renderer    renderer,
3455                   FT_UInt        num_params,
3456                   FT_Parameter*  parameters )
3457  {
3458    FT_ListNode  node;
3459    FT_Error     error = FT_Err_Ok;
3460
3461
3462    if ( !library )
3463      return FT_Err_Invalid_Library_Handle;
3464
3465    if ( !renderer )
3466      return FT_Err_Invalid_Argument;
3467
3468    node = FT_List_Find( &library->renderers, renderer );
3469    if ( !node )
3470    {
3471      error = FT_Err_Invalid_Argument;
3472      goto Exit;
3473    }
3474
3475    FT_List_Up( &library->renderers, node );
3476
3477    if ( renderer->glyph_format == FT_GLYPH_FORMAT_OUTLINE )
3478      library->cur_renderer = renderer;
3479
3480    if ( num_params > 0 )
3481    {
3482      FT_Renderer_SetModeFunc  set_mode = renderer->clazz->set_mode;
3483
3484
3485      for ( ; num_params > 0; num_params-- )
3486      {
3487        error = set_mode( renderer, parameters->tag, parameters->data );
3488        if ( error )
3489          break;
3490      }
3491    }
3492
3493  Exit:
3494    return error;
3495  }
3496
3497
3498  FT_BASE_DEF( FT_Error )
3499  FT_Render_Glyph_Internal( FT_Library      library,
3500                            FT_GlyphSlot    slot,
3501                            FT_Render_Mode  render_mode )
3502  {
3503    FT_Error     error = FT_Err_Ok;
3504    FT_Renderer  renderer;
3505
3506
3507    /* if it is already a bitmap, no need to do anything */
3508    switch ( slot->format )
3509    {
3510    case FT_GLYPH_FORMAT_BITMAP:   /* already a bitmap, don't do anything */
3511      break;
3512
3513    default:
3514      {
3515        FT_ListNode  node   = 0;
3516        FT_Bool      update = 0;
3517
3518
3519        /* small shortcut for the very common case */
3520        if ( slot->format == FT_GLYPH_FORMAT_OUTLINE )
3521        {
3522          renderer = library->cur_renderer;
3523          node     = library->renderers.head;
3524        }
3525        else
3526          renderer = FT_Lookup_Renderer( library, slot->format, &node );
3527
3528        error = FT_Err_Unimplemented_Feature;
3529        while ( renderer )
3530        {
3531          error = renderer->render( renderer, slot, render_mode, NULL );
3532          if ( !error ||
3533               FT_ERROR_BASE( error ) != FT_Err_Cannot_Render_Glyph )
3534            break;
3535
3536          /* FT_Err_Cannot_Render_Glyph is returned if the render mode   */
3537          /* is unsupported by the current renderer for this glyph image */
3538          /* format.                                                     */
3539
3540          /* now, look for another renderer that supports the same */
3541          /* format.                                               */
3542          renderer = FT_Lookup_Renderer( library, slot->format, &node );
3543          update   = 1;
3544        }
3545
3546        /* if we changed the current renderer for the glyph image format */
3547        /* we need to select it as the next current one                  */
3548        if ( !error && update && renderer )
3549          FT_Set_Renderer( library, renderer, 0, 0 );
3550      }
3551    }
3552
3553    return error;
3554  }
3555
3556
3557  /* documentation is in freetype.h */
3558
3559  FT_EXPORT_DEF( FT_Error )
3560  FT_Render_Glyph( FT_GlyphSlot    slot,
3561                   FT_Render_Mode  render_mode )
3562  {
3563    FT_Library  library;
3564
3565
3566    if ( !slot )
3567      return FT_Err_Invalid_Argument;
3568
3569    library = FT_FACE_LIBRARY( slot->face );
3570
3571    return FT_Render_Glyph_Internal( library, slot, render_mode );
3572  }
3573
3574
3575  /*************************************************************************/
3576  /*************************************************************************/
3577  /*************************************************************************/
3578  /****                                                                 ****/
3579  /****                                                                 ****/
3580  /****                         M O D U L E S                           ****/
3581  /****                                                                 ****/
3582  /****                                                                 ****/
3583  /*************************************************************************/
3584  /*************************************************************************/
3585  /*************************************************************************/
3586
3587
3588  /*************************************************************************/
3589  /*                                                                       */
3590  /* <Function>                                                            */
3591  /*    Destroy_Module                                                     */
3592  /*                                                                       */
3593  /* <Description>                                                         */
3594  /*    Destroys a given module object.  For drivers, this also destroys   */
3595  /*    all child faces.                                                   */
3596  /*                                                                       */
3597  /* <InOut>                                                               */
3598  /*     module :: A handle to the target driver object.                   */
3599  /*                                                                       */
3600  /* <Note>                                                                */
3601  /*     The driver _must_ be LOCKED!                                      */
3602  /*                                                                       */
3603  static void
3604  Destroy_Module( FT_Module  module )
3605  {
3606    FT_Memory         memory  = module->memory;
3607    FT_Module_Class*  clazz   = module->clazz;
3608    FT_Library        library = module->library;
3609
3610
3611    /* finalize client-data - before anything else */
3612    if ( module->generic.finalizer )
3613      module->generic.finalizer( module );
3614
3615    if ( library && library->auto_hinter == module )
3616      library->auto_hinter = 0;
3617
3618    /* if the module is a renderer */
3619    if ( FT_MODULE_IS_RENDERER( module ) )
3620      ft_remove_renderer( module );
3621
3622    /* if the module is a font driver, add some steps */
3623    if ( FT_MODULE_IS_DRIVER( module ) )
3624      Destroy_Driver( FT_DRIVER( module ) );
3625
3626    /* finalize the module object */
3627    if ( clazz->module_done )
3628      clazz->module_done( module );
3629
3630    /* discard it */
3631    FT_FREE( module );
3632  }
3633
3634
3635  /* documentation is in ftmodapi.h */
3636
3637  FT_EXPORT_DEF( FT_Error )
3638  FT_Add_Module( FT_Library              library,
3639                 const FT_Module_Class*  clazz )
3640  {
3641    FT_Error   error;
3642    FT_Memory  memory;
3643    FT_Module  module;
3644    FT_UInt    nn;
3645
3646
3647#define FREETYPE_VER_FIXED  ( ( (FT_Long)FREETYPE_MAJOR << 16 ) | \
3648                                FREETYPE_MINOR                  )
3649
3650    if ( !library )
3651      return FT_Err_Invalid_Library_Handle;
3652
3653    if ( !clazz )
3654      return FT_Err_Invalid_Argument;
3655
3656    /* check freetype version */
3657    if ( clazz->module_requires > FREETYPE_VER_FIXED )
3658      return FT_Err_Invalid_Version;
3659
3660    /* look for a module with the same name in the library's table */
3661    for ( nn = 0; nn < library->num_modules; nn++ )
3662    {
3663      module = library->modules[nn];
3664      if ( ft_strcmp( module->clazz->module_name, clazz->module_name ) == 0 )
3665      {
3666        /* this installed module has the same name, compare their versions */
3667        if ( clazz->module_version <= module->clazz->module_version )
3668          return FT_Err_Lower_Module_Version;
3669
3670        /* remove the module from our list, then exit the loop to replace */
3671        /* it by our new version..                                        */
3672        FT_Remove_Module( library, module );
3673        break;
3674      }
3675    }
3676
3677    memory = library->memory;
3678    error  = FT_Err_Ok;
3679
3680    if ( library->num_modules >= FT_MAX_MODULES )
3681    {
3682      error = FT_Err_Too_Many_Drivers;
3683      goto Exit;
3684    }
3685
3686    /* allocate module object */
3687    if ( FT_ALLOC( module, clazz->module_size ) )
3688      goto Exit;
3689
3690    /* base initialization */
3691    module->library = library;
3692    module->memory  = memory;
3693    module->clazz   = (FT_Module_Class*)clazz;
3694
3695    /* check whether the module is a renderer - this must be performed */
3696    /* before the normal module initialization                         */
3697    if ( FT_MODULE_IS_RENDERER( module ) )
3698    {
3699      /* add to the renderers list */
3700      error = ft_add_renderer( module );
3701      if ( error )
3702        goto Fail;
3703    }
3704
3705    /* is the module a auto-hinter? */
3706    if ( FT_MODULE_IS_HINTER( module ) )
3707      library->auto_hinter = module;
3708
3709    /* if the module is a font driver */
3710    if ( FT_MODULE_IS_DRIVER( module ) )
3711    {
3712      /* allocate glyph loader if needed */
3713      FT_Driver  driver = FT_DRIVER( module );
3714
3715
3716      driver->clazz = (FT_Driver_Class)module->clazz;
3717      if ( FT_DRIVER_USES_OUTLINES( driver ) )
3718      {
3719        error = FT_GlyphLoader_New( memory, &driver->glyph_loader );
3720        if ( error )
3721          goto Fail;
3722      }
3723    }
3724
3725    if ( clazz->module_init )
3726    {
3727      error = clazz->module_init( module );
3728      if ( error )
3729        goto Fail;
3730    }
3731
3732    /* add module to the library's table */
3733    library->modules[library->num_modules++] = module;
3734
3735  Exit:
3736    return error;
3737
3738  Fail:
3739    if ( FT_MODULE_IS_DRIVER( module ) )
3740    {
3741      FT_Driver  driver = FT_DRIVER( module );
3742
3743
3744      if ( FT_DRIVER_USES_OUTLINES( driver ) )
3745        FT_GlyphLoader_Done( driver->glyph_loader );
3746    }
3747
3748    if ( FT_MODULE_IS_RENDERER( module ) )
3749    {
3750      FT_Renderer  renderer = FT_RENDERER( module );
3751
3752
3753      if ( renderer->raster )
3754        renderer->clazz->raster_class->raster_done( renderer->raster );
3755    }
3756
3757    FT_FREE( module );
3758    goto Exit;
3759  }
3760
3761
3762  /* documentation is in ftmodapi.h */
3763
3764  FT_EXPORT_DEF( FT_Module )
3765  FT_Get_Module( FT_Library   library,
3766                 const char*  module_name )
3767  {
3768    FT_Module   result = 0;
3769    FT_Module*  cur;
3770    FT_Module*  limit;
3771
3772
3773    if ( !library || !module_name )
3774      return result;
3775
3776    cur   = library->modules;
3777    limit = cur + library->num_modules;
3778
3779    for ( ; cur < limit; cur++ )
3780      if ( ft_strcmp( cur[0]->clazz->module_name, module_name ) == 0 )
3781      {
3782        result = cur[0];
3783        break;
3784      }
3785
3786    return result;
3787  }
3788
3789
3790  /* documentation is in ftobjs.h */
3791
3792  FT_BASE_DEF( const void* )
3793  FT_Get_Module_Interface( FT_Library   library,
3794                           const char*  mod_name )
3795  {
3796    FT_Module  module;
3797
3798
3799    /* test for valid `library' delayed to FT_Get_Module() */
3800
3801    module = FT_Get_Module( library, mod_name );
3802
3803    return module ? module->clazz->module_interface : 0;
3804  }
3805
3806
3807  FT_BASE_DEF( FT_Pointer )
3808  ft_module_get_service( FT_Module    module,
3809                         const char*  service_id )
3810  {
3811    FT_Pointer  result = NULL;
3812
3813    if ( module )
3814    {
3815      FT_ASSERT( module->clazz && module->clazz->get_interface );
3816
3817     /* first, look for the service in the module
3818      */
3819      if ( module->clazz->get_interface )
3820        result = module->clazz->get_interface( module, service_id );
3821
3822      if ( result == NULL )
3823      {
3824       /* we didn't find it, look in all other modules then
3825        */
3826        FT_Library  library = module->library;
3827        FT_Module*  cur     = library->modules;
3828        FT_Module*  limit   = cur + library->num_modules;
3829
3830        for ( ; cur < limit; cur++ )
3831        {
3832          if ( cur[0] != module )
3833          {
3834            FT_ASSERT( cur[0]->clazz );
3835
3836            if ( cur[0]->clazz->get_interface )
3837            {
3838              result = cur[0]->clazz->get_interface( cur[0], service_id );
3839              if ( result != NULL )
3840                break;
3841            }
3842          }
3843        }
3844      }
3845    }
3846
3847    return result;
3848  }
3849
3850
3851  /* documentation is in ftmodapi.h */
3852
3853  FT_EXPORT_DEF( FT_Error )
3854  FT_Remove_Module( FT_Library  library,
3855                    FT_Module   module )
3856  {
3857    /* try to find the module from the table, then remove it from there */
3858
3859    if ( !library )
3860      return FT_Err_Invalid_Library_Handle;
3861
3862    if ( module )
3863    {
3864      FT_Module*  cur   = library->modules;
3865      FT_Module*  limit = cur + library->num_modules;
3866
3867
3868      for ( ; cur < limit; cur++ )
3869      {
3870        if ( cur[0] == module )
3871        {
3872          /* remove it from the table */
3873          library->num_modules--;
3874          limit--;
3875          while ( cur < limit )
3876          {
3877            cur[0] = cur[1];
3878            cur++;
3879          }
3880          limit[0] = 0;
3881
3882          /* destroy the module */
3883          Destroy_Module( module );
3884
3885          return FT_Err_Ok;
3886        }
3887      }
3888    }
3889    return FT_Err_Invalid_Driver_Handle;
3890  }
3891
3892
3893  /*************************************************************************/
3894  /*************************************************************************/
3895  /*************************************************************************/
3896  /****                                                                 ****/
3897  /****                                                                 ****/
3898  /****                         L I B R A R Y                           ****/
3899  /****                                                                 ****/
3900  /****                                                                 ****/
3901  /*************************************************************************/
3902  /*************************************************************************/
3903  /*************************************************************************/
3904
3905
3906  /* documentation is in ftmodapi.h */
3907
3908  FT_EXPORT_DEF( FT_Error )
3909  FT_New_Library( FT_Memory    memory,
3910                  FT_Library  *alibrary )
3911  {
3912    FT_Library  library = 0;
3913    FT_Error    error;
3914
3915
3916    if ( !memory )
3917      return FT_Err_Invalid_Argument;
3918
3919#ifdef FT_DEBUG_LEVEL_ERROR
3920    /* init debugging support */
3921    ft_debug_init();
3922#endif
3923
3924    /* first of all, allocate the library object */
3925    if ( FT_NEW( library ) )
3926      return error;
3927
3928    library->memory = memory;
3929
3930    /* allocate the render pool */
3931    library->raster_pool_size = FT_RENDER_POOL_SIZE;
3932#if FT_RENDER_POOL_SIZE > 0
3933    if ( FT_ALLOC( library->raster_pool, FT_RENDER_POOL_SIZE ) )
3934      goto Fail;
3935#endif
3936
3937    /* That's ok now */
3938    *alibrary = library;
3939
3940    return FT_Err_Ok;
3941
3942  Fail:
3943    FT_FREE( library );
3944    return error;
3945  }
3946
3947
3948  /* documentation is in freetype.h */
3949
3950  FT_EXPORT_DEF( void )
3951  FT_Library_Version( FT_Library   library,
3952                      FT_Int      *amajor,
3953                      FT_Int      *aminor,
3954                      FT_Int      *apatch )
3955  {
3956    FT_Int  major = 0;
3957    FT_Int  minor = 0;
3958    FT_Int  patch = 0;
3959
3960
3961    if ( library )
3962    {
3963      major = library->version_major;
3964      minor = library->version_minor;
3965      patch = library->version_patch;
3966    }
3967
3968    if ( amajor )
3969      *amajor = major;
3970
3971    if ( aminor )
3972      *aminor = minor;
3973
3974    if ( apatch )
3975      *apatch = patch;
3976  }
3977
3978
3979  /* documentation is in ftmodapi.h */
3980
3981  FT_EXPORT_DEF( FT_Error )
3982  FT_Done_Library( FT_Library  library )
3983  {
3984    FT_Memory  memory;
3985
3986
3987    if ( !library )
3988      return FT_Err_Invalid_Library_Handle;
3989
3990    memory = library->memory;
3991
3992    /* Discard client-data */
3993    if ( library->generic.finalizer )
3994      library->generic.finalizer( library );
3995
3996    /* Close all faces in the library.  If we don't do
3997     * this, we can have some subtle memory leaks.
3998     * Example:
3999     *
4000     *  - the cff font driver uses the pshinter module in cff_size_done
4001     *  - if the pshinter module is destroyed before the cff font driver,
4002     *    opened FT_Face objects managed by the driver are not properly
4003     *    destroyed, resulting in a memory leak
4004     */
4005    {
4006      FT_UInt  n;
4007
4008
4009      for ( n = 0; n < library->num_modules; n++ )
4010      {
4011        FT_Module  module = library->modules[n];
4012        FT_List    faces;
4013
4014
4015        if ( ( module->clazz->module_flags & FT_MODULE_FONT_DRIVER ) == 0 )
4016          continue;
4017
4018        faces = &FT_DRIVER(module)->faces_list;
4019        while ( faces->head )
4020          FT_Done_Face( FT_FACE( faces->head->data ) );
4021      }
4022    }
4023
4024    /* Close all other modules in the library */
4025#if 1
4026    /* XXX Modules are removed in the reversed order so that  */
4027    /* type42 module is removed before truetype module.  This */
4028    /* avoids double free in some occasions.  It is a hack.   */
4029    while ( library->num_modules > 0 )
4030      FT_Remove_Module( library,
4031                        library->modules[library->num_modules - 1] );
4032#else
4033    {
4034      FT_UInt  n;
4035
4036
4037      for ( n = 0; n < library->num_modules; n++ )
4038      {
4039        FT_Module  module = library->modules[n];
4040
4041
4042        if ( module )
4043        {
4044          Destroy_Module( module );
4045          library->modules[n] = 0;
4046        }
4047      }
4048    }
4049#endif
4050
4051    /* Destroy raster objects */
4052    FT_FREE( library->raster_pool );
4053    library->raster_pool_size = 0;
4054
4055    FT_FREE( library );
4056    return FT_Err_Ok;
4057  }
4058
4059
4060  /* documentation is in ftmodapi.h */
4061
4062  FT_EXPORT_DEF( void )
4063  FT_Set_Debug_Hook( FT_Library         library,
4064                     FT_UInt            hook_index,
4065                     FT_DebugHook_Func  debug_hook )
4066  {
4067    if ( library && debug_hook &&
4068         hook_index <
4069           ( sizeof ( library->debug_hooks ) / sizeof ( void* ) ) )
4070      library->debug_hooks[hook_index] = debug_hook;
4071  }
4072
4073
4074  /* documentation is in ftmodapi.h */
4075
4076  FT_EXPORT_DEF( FT_TrueTypeEngineType )
4077  FT_Get_TrueType_Engine_Type( FT_Library  library )
4078  {
4079    FT_TrueTypeEngineType  result = FT_TRUETYPE_ENGINE_TYPE_NONE;
4080
4081
4082    if ( library )
4083    {
4084      FT_Module  module = FT_Get_Module( library, "truetype" );
4085
4086
4087      if ( module )
4088      {
4089        FT_Service_TrueTypeEngine  service;
4090
4091
4092        service = (FT_Service_TrueTypeEngine)
4093                    ft_module_get_service( module,
4094                                           FT_SERVICE_ID_TRUETYPE_ENGINE );
4095        if ( service )
4096          result = service->engine_type;
4097      }
4098    }
4099
4100    return result;
4101  }
4102
4103
4104#ifdef FT_CONFIG_OPTION_OLD_INTERNALS
4105
4106  FT_BASE_DEF( FT_Error )
4107  ft_stub_set_char_sizes( FT_Size     size,
4108                          FT_F26Dot6  width,
4109                          FT_F26Dot6  height,
4110                          FT_UInt     horz_res,
4111                          FT_UInt     vert_res )
4112  {
4113    FT_Size_RequestRec  req;
4114    FT_Driver           driver = size->face->driver;
4115
4116
4117    if ( driver->clazz->request_size )
4118    {
4119      req.type   = FT_SIZE_REQUEST_TYPE_NOMINAL;
4120      req.width  = width;
4121      req.height = height;
4122
4123      if ( horz_res == 0 )
4124        horz_res = vert_res;
4125
4126      if ( vert_res == 0 )
4127        vert_res = horz_res;
4128
4129      if ( horz_res == 0 )
4130        horz_res = vert_res = 72;
4131
4132      req.horiResolution = horz_res;
4133      req.vertResolution = vert_res;
4134
4135      return driver->clazz->request_size( size, &req );
4136    }
4137
4138    return 0;
4139  }
4140
4141
4142  FT_BASE_DEF( FT_Error )
4143  ft_stub_set_pixel_sizes( FT_Size  size,
4144                           FT_UInt  width,
4145                           FT_UInt  height )
4146  {
4147    FT_Size_RequestRec  req;
4148    FT_Driver           driver = size->face->driver;
4149
4150
4151    if ( driver->clazz->request_size )
4152    {
4153      req.type           = FT_SIZE_REQUEST_TYPE_NOMINAL;
4154      req.width          = width  << 6;
4155      req.height         = height << 6;
4156      req.horiResolution = 0;
4157      req.vertResolution = 0;
4158
4159      return driver->clazz->request_size( size, &req );
4160    }
4161
4162    return 0;
4163  }
4164
4165#endif /* FT_CONFIG_OPTION_OLD_INTERNALS */
4166
4167
4168  FT_EXPORT_DEF( FT_Error )
4169  FT_Get_SubGlyph_Info( FT_GlyphSlot  glyph,
4170                        FT_UInt       sub_index,
4171                        FT_Int       *p_index,
4172                        FT_UInt      *p_flags,
4173                        FT_Int       *p_arg1,
4174                        FT_Int       *p_arg2,
4175                        FT_Matrix    *p_transform )
4176  {
4177    FT_Error  error = FT_Err_Invalid_Argument;
4178
4179
4180    if ( glyph != NULL                              &&
4181         glyph->format == FT_GLYPH_FORMAT_COMPOSITE &&
4182         sub_index < glyph->num_subglyphs           )
4183    {
4184      FT_SubGlyph  subg = glyph->subglyphs + sub_index;
4185
4186
4187      *p_index     = subg->index;
4188      *p_flags     = subg->flags;
4189      *p_arg1      = subg->arg1;
4190      *p_arg2      = subg->arg2;
4191      *p_transform = subg->transform;
4192    }
4193
4194    return error;
4195  }
4196
4197
4198/* END */
Note: See TracBrowser for help on using the repository browser.