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