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

Last change on this file since 182 was 182, checked in by Eugene Romanenko, 15 years ago

freetype update to version 2.3.0

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