1 /* ftfont.c -- FreeType font driver.
2 Copyright (C) 2006-2011 Free Software Foundation, Inc.
3 Copyright (C) 2006, 2007, 2008, 2009, 2010, 2011
4 National Institute of Advanced Industrial Science and Technology (AIST)
5 Registration Number H13PRO009
7 This file is part of GNU Emacs.
9 GNU Emacs is free software: you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation, either version 3 of the License, or
12 (at your option) any later version.
14 GNU Emacs is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
26 #include <fontconfig/fontconfig.h>
27 #include <fontconfig/fcfreetype.h>
30 #include "dispextern.h"
32 #include "blockinput.h"
33 #include "character.h"
36 #include "composite.h"
41 /* Symbolic type of this font-driver. */
42 Lisp_Object Qfreetype
;
44 /* Fontconfig's generic families and their aliases. */
45 static Lisp_Object Qmonospace
, Qsans_serif
, Qserif
, Qmono
, Qsans
, Qsans__serif
;
47 /* Flag to tell if FcInit is already called or not. */
48 static int fc_initialized
;
50 /* Handle to a FreeType library instance. */
51 static FT_Library ft_library
;
53 /* Cache for FreeType fonts. */
54 static Lisp_Object freetype_font_cache
;
56 /* Cache for FT_Face and FcCharSet. */
57 static Lisp_Object ft_face_cache
;
59 /* The actual structure for FreeType font that can be casted to struct
66 /* The following four members must be here in this order to be
67 compatible with struct xftfont_info (in xftfont.c). */
68 int maybe_otf
; /* Flag to tell if this may be OTF or not. */
70 #endif /* HAVE_LIBOTF */
78 FTFONT_CACHE_FOR_FACE
,
79 FTFONT_CACHE_FOR_CHARSET
,
80 FTFONT_CACHE_FOR_ENTITY
83 static Lisp_Object
ftfont_pattern_entity (FcPattern
*, Lisp_Object
);
85 static Lisp_Object
ftfont_resolve_generic_family (Lisp_Object
,
87 static Lisp_Object
ftfont_lookup_cache (Lisp_Object
,
88 enum ftfont_cache_for
);
90 static void ftfont_filter_properties (Lisp_Object font
, Lisp_Object alist
);
92 Lisp_Object
ftfont_font_format (FcPattern
*, Lisp_Object
);
94 #define SYMBOL_FcChar8(SYM) (FcChar8 *) SDATA (SYMBOL_NAME (SYM))
100 /* characters to distinguish the charset from the others */
102 /* additional constraint by language */
105 FcCharSet
*fc_charset
;
106 } fc_charset_table
[] =
107 { { "iso8859-1", { 0x00A0, 0x00A1, 0x00B4, 0x00BC, 0x00D0 } },
108 { "iso8859-2", { 0x00A0, 0x010E }},
109 { "iso8859-3", { 0x00A0, 0x0108 }},
110 { "iso8859-4", { 0x00A0, 0x00AF, 0x0128, 0x0156, 0x02C7 }},
111 { "iso8859-5", { 0x00A0, 0x0401 }},
112 { "iso8859-6", { 0x00A0, 0x060C }},
113 { "iso8859-7", { 0x00A0, 0x0384 }},
114 { "iso8859-8", { 0x00A0, 0x05D0 }},
115 { "iso8859-9", { 0x00A0, 0x00A1, 0x00BC, 0x011E }},
116 { "iso8859-10", { 0x00A0, 0x00D0, 0x0128, 0x2015 }},
117 { "iso8859-11", { 0x00A0, 0x0E01 }},
118 { "iso8859-13", { 0x00A0, 0x201C }},
119 { "iso8859-14", { 0x00A0, 0x0174 }},
120 { "iso8859-15", { 0x00A0, 0x00A1, 0x00D0, 0x0152 }},
121 { "iso8859-16", { 0x00A0, 0x0218}},
122 { "gb2312.1980-0", { 0x4E13 }, "zh-cn"},
123 { "big5-0", { 0xF6B1 }, "zh-tw" },
124 { "jisx0208.1983-0", { 0x4E55 }, "ja"},
125 { "ksc5601.1985-0", { 0xAC00 }, "ko"},
126 { "cns11643.1992-1", { 0xFE32 }, "zh-tw"},
127 { "cns11643.1992-2", { 0x4E33, 0x7934 }},
128 { "cns11643.1992-3", { 0x201A9 }},
129 { "cns11643.1992-4", { 0x20057 }},
130 { "cns11643.1992-5", { 0x20000 }},
131 { "cns11643.1992-6", { 0x20003 }},
132 { "cns11643.1992-7", { 0x20055 }},
133 { "gbk-0", { 0x4E06 }, "zh-cn"},
134 { "jisx0212.1990-0", { 0x4E44 }},
135 { "jisx0213.2000-1", { 0xFA10 }, "ja"},
136 { "jisx0213.2000-2", { 0xFA49 }},
137 { "jisx0213.2004-1", { 0x20B9F }},
138 { "viscii1.1-1", { 0x1EA0, 0x1EAE, 0x1ED2 }, "vi"},
139 { "tis620.2529-1", { 0x0E01 }, "th"},
140 { "windows-1251", { 0x0401, 0x0490 }, "ru"},
141 { "koi8-r", { 0x0401, 0x2219 }, "ru"},
142 { "mulelao-1", { 0x0E81 }, "lo"},
143 { "unicode-sip", { 0x20000 }},
147 /* Dirty hack for handing ADSTYLE property.
149 Fontconfig (actually the underlying FreeType) gives such ADSTYLE
150 font property of PCF/BDF fonts in FC_STYLE. And, "Bold",
151 "Oblique", "Italic", or any non-normal SWIDTH property names
152 (e.g. SemiCondensed) are appended. In addition, if there's no
153 ADSTYLE property nor non-normal WEIGHT/SLANT/SWIDTH properties,
154 "Regular" is used for FC_STYLE (see the function
155 pcf_interpret_style in src/pcf/pcfread.c of FreeType).
157 Unfortunately this behavior is not documented, so the following
158 code may fail if FreeType changes the behavior in the future. */
161 get_adstyle_property (FcPattern
*p
)
166 if (FcPatternGetString (p
, FC_STYLE
, 0, (FcChar8
**) &str
) != FcResultMatch
)
168 for (end
= str
; *end
&& *end
!= ' '; end
++);
171 char *p
= alloca (end
- str
+ 1);
172 memcpy (p
, str
, end
- str
);
174 end
= p
+ (end
- str
);
177 if (xstrcasecmp (str
, "Regular") == 0
178 || xstrcasecmp (str
, "Bold") == 0
179 || xstrcasecmp (str
, "Oblique") == 0
180 || xstrcasecmp (str
, "Italic") == 0)
182 adstyle
= font_intern_prop (str
, end
- str
, 1);
183 if (font_style_to_value (FONT_WIDTH_INDEX
, adstyle
, 0) >= 0)
189 ftfont_pattern_entity (FcPattern
*p
, Lisp_Object extra
)
191 Lisp_Object key
, cache
, entity
;
198 if (FcPatternGetString (p
, FC_FILE
, 0, (FcChar8
**) &file
) != FcResultMatch
)
200 if (FcPatternGetInteger (p
, FC_INDEX
, 0, &index
) != FcResultMatch
)
203 key
= Fcons (make_unibyte_string ((char *) file
, strlen ((char *) file
)),
204 make_number (index
));
205 cache
= ftfont_lookup_cache (key
, FTFONT_CACHE_FOR_ENTITY
);
206 entity
= XCAR (cache
);
209 Lisp_Object val
= font_make_entity ();
212 for (i
= 0; i
< FONT_OBJLIST_INDEX
; i
++)
213 ASET (val
, i
, AREF (entity
, i
));
216 entity
= font_make_entity ();
217 XSETCAR (cache
, entity
);
219 ASET (entity
, FONT_TYPE_INDEX
, Qfreetype
);
220 ASET (entity
, FONT_REGISTRY_INDEX
, Qiso10646_1
);
222 if (FcPatternGetString (p
, FC_FOUNDRY
, 0, (FcChar8
**) &str
) == FcResultMatch
)
223 ASET (entity
, FONT_FOUNDRY_INDEX
, font_intern_prop (str
, strlen (str
), 1));
224 if (FcPatternGetString (p
, FC_FAMILY
, 0, (FcChar8
**) &str
) == FcResultMatch
)
225 ASET (entity
, FONT_FAMILY_INDEX
, font_intern_prop (str
, strlen (str
), 1));
226 if (FcPatternGetInteger (p
, FC_WEIGHT
, 0, &numeric
) == FcResultMatch
)
228 if (numeric
>= FC_WEIGHT_REGULAR
&& numeric
< FC_WEIGHT_MEDIUM
)
229 numeric
= FC_WEIGHT_MEDIUM
;
230 FONT_SET_STYLE (entity
, FONT_WEIGHT_INDEX
, make_number (numeric
));
232 if (FcPatternGetInteger (p
, FC_SLANT
, 0, &numeric
) == FcResultMatch
)
235 FONT_SET_STYLE (entity
, FONT_SLANT_INDEX
, make_number (numeric
));
237 if (FcPatternGetInteger (p
, FC_WIDTH
, 0, &numeric
) == FcResultMatch
)
239 FONT_SET_STYLE (entity
, FONT_WIDTH_INDEX
, make_number (numeric
));
241 if (FcPatternGetDouble (p
, FC_PIXEL_SIZE
, 0, &dbl
) == FcResultMatch
)
243 ASET (entity
, FONT_SIZE_INDEX
, make_number (dbl
));
246 ASET (entity
, FONT_SIZE_INDEX
, make_number (0));
247 if (FcPatternGetInteger (p
, FC_SPACING
, 0, &numeric
) == FcResultMatch
)
248 ASET (entity
, FONT_SPACING_INDEX
, make_number (numeric
));
249 if (FcPatternGetDouble (p
, FC_DPI
, 0, &dbl
) == FcResultMatch
)
252 ASET (entity
, FONT_DPI_INDEX
, make_number (dpi
));
254 if (FcPatternGetBool (p
, FC_SCALABLE
, 0, &b
) == FcResultMatch
257 ASET (entity
, FONT_SIZE_INDEX
, make_number (0));
258 ASET (entity
, FONT_AVGWIDTH_INDEX
, make_number (0));
262 /* As this font is not scalable, parhaps this is a BDF or PCF
266 ASET (entity
, FONT_ADSTYLE_INDEX
, get_adstyle_property (p
));
267 if ((ft_library
|| FT_Init_FreeType (&ft_library
) == 0)
268 && FT_New_Face (ft_library
, file
, index
, &ft_face
) == 0)
272 if (FT_Get_BDF_Property (ft_face
, "AVERAGE_WIDTH", &rec
) == 0
273 && rec
.type
== BDF_PROPERTY_TYPE_INTEGER
)
274 ASET (entity
, FONT_AVGWIDTH_INDEX
, make_number (rec
.u
.integer
));
275 FT_Done_Face (ft_face
);
279 ASET (entity
, FONT_EXTRA_INDEX
, Fcopy_sequence (extra
));
280 font_put_extra (entity
, QCfont_entity
, key
);
285 static Lisp_Object ftfont_generic_family_list
;
288 ftfont_resolve_generic_family (Lisp_Object family
, FcPattern
*pattern
)
295 family
= Fintern (Fdowncase (SYMBOL_NAME (family
)), Qnil
);
296 if (EQ (family
, Qmono
))
298 else if (EQ (family
, Qsans
) || EQ (family
, Qsans__serif
))
299 family
= Qsans_serif
;
300 slot
= assq_no_quit (family
, ftfont_generic_family_list
);
303 if (! EQ (XCDR (slot
), Qt
))
305 pattern
= FcPatternDuplicate (pattern
);
308 FcPatternDel (pattern
, FC_FOUNDRY
);
309 FcPatternDel (pattern
, FC_FAMILY
);
310 FcPatternAddString (pattern
, FC_FAMILY
, SYMBOL_FcChar8 (family
));
311 if (FcPatternGetLangSet (pattern
, FC_LANG
, 0, &langset
) != FcResultMatch
)
313 /* This is to avoid the effect of locale. */
314 static const FcChar8 lang
[] = "en";
315 langset
= FcLangSetCreate ();
316 FcLangSetAdd (langset
, lang
);
317 FcPatternAddLangSet (pattern
, FC_LANG
, langset
);
318 FcLangSetDestroy (langset
);
320 FcConfigSubstitute (NULL
, pattern
, FcMatchPattern
);
321 FcDefaultSubstitute (pattern
);
322 match
= FcFontMatch (NULL
, pattern
, &result
);
327 if (FcPatternGetString (match
, FC_FAMILY
, 0, &fam
) == FcResultMatch
)
328 family
= intern ((char *) fam
);
332 XSETCDR (slot
, family
);
333 if (match
) FcPatternDestroy (match
);
335 if (pattern
) FcPatternDestroy (pattern
);
339 struct ftfont_cache_data
342 FcCharSet
*fc_charset
;
346 ftfont_lookup_cache (Lisp_Object key
, enum ftfont_cache_for cache_for
)
348 Lisp_Object cache
, val
, entity
;
349 struct ftfont_cache_data
*cache_data
;
351 if (FONT_ENTITY_P (key
))
354 val
= assq_no_quit (QCfont_entity
, AREF (entity
, FONT_EXTRA_INDEX
));
355 xassert (CONSP (val
));
361 if (NILP (ft_face_cache
))
364 cache
= Fgethash (key
, ft_face_cache
, Qnil
);
367 if (NILP (ft_face_cache
))
373 ft_face_cache
= Fmake_hash_table (2, args
);
375 cache_data
= xmalloc (sizeof (struct ftfont_cache_data
));
376 cache_data
->ft_face
= NULL
;
377 cache_data
->fc_charset
= NULL
;
378 val
= make_save_value (NULL
, 0);
379 XSAVE_VALUE (val
)->integer
= 0;
380 XSAVE_VALUE (val
)->pointer
= cache_data
;
381 cache
= Fcons (Qnil
, val
);
382 Fputhash (key
, cache
, ft_face_cache
);
387 cache_data
= XSAVE_VALUE (val
)->pointer
;
390 if (cache_for
== FTFONT_CACHE_FOR_ENTITY
)
393 if (cache_for
== FTFONT_CACHE_FOR_FACE
394 ? ! cache_data
->ft_face
: ! cache_data
->fc_charset
)
396 char *filename
= SSDATA (XCAR (key
));
397 int index
= XINT (XCDR (key
));
399 if (cache_for
== FTFONT_CACHE_FOR_FACE
)
402 && FT_Init_FreeType (&ft_library
) != 0)
404 if (FT_New_Face (ft_library
, filename
, index
, &cache_data
->ft_face
)
410 FcPattern
*pat
= NULL
;
411 FcFontSet
*fontset
= NULL
;
412 FcObjectSet
*objset
= NULL
;
413 FcCharSet
*charset
= NULL
;
415 pat
= FcPatternBuild (0, FC_FILE
, FcTypeString
, (FcChar8
*) filename
,
416 FC_INDEX
, FcTypeInteger
, index
, NULL
);
419 objset
= FcObjectSetBuild (FC_CHARSET
, FC_STYLE
, NULL
);
422 fontset
= FcFontList (NULL
, pat
, objset
);
425 if (fontset
&& fontset
->nfont
> 0
426 && (FcPatternGetCharSet (fontset
->fonts
[0], FC_CHARSET
, 0,
429 cache_data
->fc_charset
= FcCharSetCopy (charset
);
431 cache_data
->fc_charset
= FcCharSetCreate ();
435 FcFontSetDestroy (fontset
);
437 FcObjectSetDestroy (objset
);
439 FcPatternDestroy (pat
);
446 ftfont_get_fc_charset (Lisp_Object entity
)
448 Lisp_Object val
, cache
;
449 struct ftfont_cache_data
*cache_data
;
451 cache
= ftfont_lookup_cache (entity
, FTFONT_CACHE_FOR_CHARSET
);
453 cache_data
= XSAVE_VALUE (val
)->pointer
;
454 return cache_data
->fc_charset
;
459 ftfont_get_otf (struct ftfont_info
*ftfont_info
)
463 if (ftfont_info
->otf
)
464 return ftfont_info
->otf
;
465 if (! ftfont_info
->maybe_otf
)
467 otf
= OTF_open_ft_face (ftfont_info
->ft_size
->face
);
468 if (! otf
|| OTF_get_table (otf
, "head") < 0)
472 ftfont_info
->maybe_otf
= 0;
475 ftfont_info
->otf
= otf
;
478 #endif /* HAVE_LIBOTF */
480 static Lisp_Object
ftfont_get_cache (FRAME_PTR
);
481 static Lisp_Object
ftfont_list (Lisp_Object
, Lisp_Object
);
482 static Lisp_Object
ftfont_match (Lisp_Object
, Lisp_Object
);
483 static Lisp_Object
ftfont_list_family (Lisp_Object
);
484 static Lisp_Object
ftfont_open (FRAME_PTR
, Lisp_Object
, int);
485 static void ftfont_close (FRAME_PTR
, struct font
*);
486 static int ftfont_has_char (Lisp_Object
, int);
487 static unsigned ftfont_encode_char (struct font
*, int);
488 static int ftfont_text_extents (struct font
*, unsigned *, int,
489 struct font_metrics
*);
490 static int ftfont_get_bitmap (struct font
*, unsigned,
491 struct font_bitmap
*, int);
492 static int ftfont_anchor_point (struct font
*, unsigned, int,
495 static Lisp_Object
ftfont_otf_capability (struct font
*);
496 # ifdef HAVE_M17N_FLT
497 static Lisp_Object
ftfont_shape (Lisp_Object
);
501 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS
502 static int ftfont_variation_glyphs (struct font
*, int c
,
503 unsigned variations
[256]);
504 #endif /* HAVE_OTF_GET_VARIATION_GLYPHS */
506 struct font_driver ftfont_driver
=
509 0, /* case insensitive */
514 NULL
, /* free_entity */
517 /* We can't draw a text without device dependent functions. */
518 NULL
, /* prepare_face */
519 NULL
, /* done_face */
523 /* We can't draw a text without device dependent functions. */
526 NULL
, /* get_bitmap */
527 NULL
, /* free_bitmap */
528 NULL
, /* get_outline */
531 ftfont_otf_capability
,
532 #else /* not HAVE_LIBOTF */
534 #endif /* not HAVE_LIBOTF */
535 NULL
, /* otf_drive */
536 NULL
, /* start_for_frame */
537 NULL
, /* end_for_frame */
538 #if defined (HAVE_M17N_FLT) && defined (HAVE_LIBOTF)
540 #else /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */
542 #endif /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */
545 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS
546 ftfont_variation_glyphs
,
551 ftfont_filter_properties
, /* filter_properties */
555 ftfont_get_cache (FRAME_PTR f
)
557 return freetype_font_cache
;
561 ftfont_get_charset (Lisp_Object registry
)
563 char *str
= SSDATA (SYMBOL_NAME (registry
));
564 char *re
= alloca (SBYTES (SYMBOL_NAME (registry
)) * 2 + 1);
568 for (i
= j
= 0; i
< SBYTES (SYMBOL_NAME (registry
)); i
++, j
++)
572 else if (str
[i
] == '*')
579 regexp
= make_unibyte_string (re
, j
);
580 for (i
= 0; fc_charset_table
[i
].name
; i
++)
581 if (fast_c_string_match_ignore_case (regexp
, fc_charset_table
[i
].name
) >= 0)
583 if (! fc_charset_table
[i
].name
)
585 if (! fc_charset_table
[i
].fc_charset
)
587 FcCharSet
*charset
= FcCharSetCreate ();
588 int *uniquifier
= fc_charset_table
[i
].uniquifier
;
592 for (j
= 0; uniquifier
[j
]; j
++)
593 if (! FcCharSetAddChar (charset
, uniquifier
[j
]))
595 FcCharSetDestroy (charset
);
598 fc_charset_table
[i
].fc_charset
= charset
;
606 unsigned int script_tag
, langsys_tag
;
608 unsigned int *features
[2];
611 #define OTF_SYM_TAG(SYM, TAG) \
613 unsigned char *p = SDATA (SYMBOL_NAME (SYM)); \
614 TAG = (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3]; \
617 #define OTF_TAG_STR(TAG, P) \
619 (P)[0] = (char) (TAG >> 24); \
620 (P)[1] = (char) ((TAG >> 16) & 0xFF); \
621 (P)[2] = (char) ((TAG >> 8) & 0xFF); \
622 (P)[3] = (char) (TAG & 0xFF); \
627 #define OTF_TAG_SYM(SYM, TAG) \
631 OTF_TAG_STR (TAG, str); \
632 (SYM) = font_intern_prop (str, 4, 1); \
637 static struct OpenTypeSpec
*
638 ftfont_get_open_type_spec (Lisp_Object otf_spec
)
640 struct OpenTypeSpec
*spec
= malloc (sizeof (struct OpenTypeSpec
));
646 spec
->script
= XCAR (otf_spec
);
647 if (! NILP (spec
->script
))
649 OTF_SYM_TAG (spec
->script
, spec
->script_tag
);
650 val
= assq_no_quit (spec
->script
, Votf_script_alist
);
651 if (CONSP (val
) && SYMBOLP (XCDR (val
)))
652 spec
->script
= XCDR (val
);
657 spec
->script_tag
= 0x44464C54; /* "DFLT" */
658 otf_spec
= XCDR (otf_spec
);
659 spec
->langsys_tag
= 0;
660 if (! NILP (otf_spec
))
662 val
= XCAR (otf_spec
);
664 OTF_SYM_TAG (val
, spec
->langsys_tag
);
665 otf_spec
= XCDR (otf_spec
);
667 spec
->nfeatures
[0] = spec
->nfeatures
[1] = 0;
668 for (i
= 0; i
< 2 && ! NILP (otf_spec
); i
++, otf_spec
= XCDR (otf_spec
))
672 val
= XCAR (otf_spec
);
676 spec
->features
[i
] = malloc (sizeof (int) * XINT (len
));
677 if (! spec
->features
[i
])
679 if (i
> 0 && spec
->features
[0])
680 free (spec
->features
[0]);
684 for (j
= 0, negative
= 0; CONSP (val
); val
= XCDR (val
))
686 if (NILP (XCAR (val
)))
692 OTF_SYM_TAG (XCAR (val
), tag
);
693 spec
->features
[i
][j
++] = negative
? tag
& 0x80000000 : tag
;
696 spec
->nfeatures
[i
] = j
;
702 ftfont_spec_pattern (Lisp_Object spec
, char *otlayout
, struct OpenTypeSpec
**otspec
, const char **langname
)
704 Lisp_Object tmp
, extra
;
705 FcPattern
*pattern
= NULL
;
706 FcCharSet
*charset
= NULL
;
707 FcLangSet
*langset
= NULL
;
711 Lisp_Object script
= Qnil
;
712 Lisp_Object registry
;
715 if ((n
= FONT_SLANT_NUMERIC (spec
)) >= 0
717 /* Fontconfig doesn't support reverse-italic/obligue. */
720 if (INTEGERP (AREF (spec
, FONT_DPI_INDEX
)))
721 dpi
= XINT (AREF (spec
, FONT_DPI_INDEX
));
722 if (INTEGERP (AREF (spec
, FONT_AVGWIDTH_INDEX
))
723 && XINT (AREF (spec
, FONT_AVGWIDTH_INDEX
)) == 0)
726 registry
= AREF (spec
, FONT_REGISTRY_INDEX
);
728 || EQ (registry
, Qascii_0
)
729 || EQ (registry
, Qiso10646_1
)
730 || EQ (registry
, Qunicode_bmp
))
736 fc_charset_idx
= ftfont_get_charset (registry
);
737 if (fc_charset_idx
< 0)
739 charset
= fc_charset_table
[fc_charset_idx
].fc_charset
;
740 *langname
= fc_charset_table
[fc_charset_idx
].lang
;
741 lang
= (FcChar8
*) *langname
;
744 langset
= FcLangSetCreate ();
747 FcLangSetAdd (langset
, lang
);
752 for (extra
= AREF (spec
, FONT_EXTRA_INDEX
);
753 CONSP (extra
); extra
= XCDR (extra
))
755 Lisp_Object key
, val
;
757 key
= XCAR (XCAR (extra
)), val
= XCDR (XCAR (extra
));
763 else if (EQ (key
, QClang
))
766 langset
= FcLangSetCreate ();
771 if (! FcLangSetAdd (langset
, SYMBOL_FcChar8 (val
)))
775 for (; CONSP (val
); val
= XCDR (val
))
776 if (SYMBOLP (XCAR (val
))
777 && ! FcLangSetAdd (langset
, SYMBOL_FcChar8 (XCAR (val
))))
780 else if (EQ (key
, QCotf
))
784 *otspec
= ftfont_get_open_type_spec (val
);
787 strcat (otlayout
, "otlayout:");
788 OTF_TAG_STR ((*otspec
)->script_tag
, otlayout
+ 9);
789 script
= (*otspec
)->script
;
792 else if (EQ (key
, QCscript
))
794 else if (EQ (key
, QCscalable
))
795 scalable
= ! NILP (val
);
798 if (! NILP (script
) && ! charset
)
800 Lisp_Object chars
= assq_no_quit (script
, Vscript_representative_chars
);
802 if (CONSP (chars
) && CONSP (CDR (chars
)))
804 charset
= FcCharSetCreate ();
807 for (chars
= XCDR (chars
); CONSP (chars
); chars
= XCDR (chars
))
808 if (CHARACTERP (XCAR (chars
))
809 && ! FcCharSetAddChar (charset
, XUINT (XCAR (chars
))))
814 pattern
= FcPatternCreate ();
817 tmp
= AREF (spec
, FONT_FOUNDRY_INDEX
);
819 && ! FcPatternAddString (pattern
, FC_FOUNDRY
, SYMBOL_FcChar8 (tmp
)))
821 tmp
= AREF (spec
, FONT_FAMILY_INDEX
);
823 && ! FcPatternAddString (pattern
, FC_FAMILY
, SYMBOL_FcChar8 (tmp
)))
826 && ! FcPatternAddCharSet (pattern
, FC_CHARSET
, charset
))
829 && ! FcPatternAddLangSet (pattern
, FC_LANG
, langset
))
832 && ! FcPatternAddDouble (pattern
, FC_DPI
, dpi
))
835 && ! FcPatternAddBool (pattern
, FC_SCALABLE
, scalable
? FcTrue
: FcFalse
))
841 /* We come here because of unexpected error in fontconfig API call
842 (usually insufficient memory). */
845 FcPatternDestroy (pattern
);
850 if ((*otspec
)->nfeatures
[0] > 0)
851 free ((*otspec
)->features
[0]);
852 if ((*otspec
)->nfeatures
[1] > 0)
853 free ((*otspec
)->features
[1]);
859 if (langset
) FcLangSetDestroy (langset
);
860 if (charset
&& fc_charset_idx
< 0) FcCharSetDestroy (charset
);
865 ftfont_list (Lisp_Object frame
, Lisp_Object spec
)
867 Lisp_Object val
= Qnil
, family
, adstyle
;
870 FcFontSet
*fontset
= NULL
;
871 FcObjectSet
*objset
= NULL
;
873 Lisp_Object chars
= Qnil
;
874 char otlayout
[15]; /* For "otlayout:XXXX" */
875 struct OpenTypeSpec
*otspec
= NULL
;
877 const char *langname
= NULL
;
879 if (! fc_initialized
)
885 pattern
= ftfont_spec_pattern (spec
, otlayout
, &otspec
, &langname
);
888 if (FcPatternGetCharSet (pattern
, FC_CHARSET
, 0, &charset
) != FcResultMatch
)
890 val
= assq_no_quit (QCscript
, AREF (spec
, FONT_EXTRA_INDEX
));
893 val
= assq_no_quit (XCDR (val
), Vscript_representative_chars
);
894 if (CONSP (val
) && VECTORP (XCDR (val
)))
899 if (INTEGERP (AREF (spec
, FONT_SPACING_INDEX
)))
900 spacing
= XINT (AREF (spec
, FONT_SPACING_INDEX
));
901 family
= AREF (spec
, FONT_FAMILY_INDEX
);
904 Lisp_Object resolved
;
906 resolved
= ftfont_resolve_generic_family (family
, pattern
);
907 if (! NILP (resolved
))
909 FcPatternDel (pattern
, FC_FAMILY
);
910 if (! FcPatternAddString (pattern
, FC_FAMILY
,
911 SYMBOL_FcChar8 (resolved
)))
915 adstyle
= AREF (spec
, FONT_ADSTYLE_INDEX
);
916 if (! NILP (adstyle
) && SBYTES (SYMBOL_NAME (adstyle
)) == 0)
918 objset
= FcObjectSetBuild (FC_FOUNDRY
, FC_FAMILY
, FC_WEIGHT
, FC_SLANT
,
919 FC_WIDTH
, FC_PIXEL_SIZE
, FC_SPACING
, FC_SCALABLE
,
920 FC_STYLE
, FC_FILE
, FC_INDEX
,
923 #endif /* FC_CAPABILITY */
931 FcObjectSetAdd (objset
, FC_CHARSET
);
933 fontset
= FcFontList (NULL
, pattern
, objset
);
934 if (! fontset
|| fontset
->nfont
== 0)
937 /* Need fix because this finds any fonts. */
938 if (fontset
->nfont
== 0 && ! NILP (family
))
940 /* Try maching with configuration. For instance, the
941 configuration may specify "Nimbus Mono L" as an alias of
943 FcPattern
*pat
= FcPatternBuild (0, FC_FAMILY
, FcTypeString
,
944 SYMBOL_FcChar8 (family
), NULL
);
947 if (FcConfigSubstitute (NULL
, pat
, FcMatchPattern
) == FcTrue
)
950 FcPatternGetString (pat
, FC_FAMILY
, i
, &fam
) == FcResultMatch
;
953 FcPatternDel (pattern
, FC_FAMILY
);
954 FcPatternAddString (pattern
, FC_FAMILY
, fam
);
955 FcFontSetDestroy (fontset
);
956 fontset
= FcFontList (NULL
, pattern
, objset
);
957 if (fontset
&& fontset
->nfont
> 0)
963 for (i
= 0; i
< fontset
->nfont
; i
++)
971 if ((FcPatternGetInteger (fontset
->fonts
[i
], FC_SPACING
, 0, &this)
982 if (FcPatternGetString (fontset
->fonts
[i
], FC_CAPABILITY
, 0, &this)
984 || ! strstr ((char *) this, otlayout
))
987 #endif /* FC_CAPABILITY */
994 if (FcPatternGetString (fontset
->fonts
[i
], FC_FILE
, 0, &file
)
997 otf
= OTF_open ((char *) file
);
1000 if (OTF_check_features (otf
, 1,
1001 otspec
->script_tag
, otspec
->langsys_tag
,
1002 otspec
->features
[0],
1003 otspec
->nfeatures
[0]) != 1
1004 || OTF_check_features (otf
, 0,
1005 otspec
->script_tag
, otspec
->langsys_tag
,
1006 otspec
->features
[1],
1007 otspec
->nfeatures
[1]) != 1)
1010 #endif /* HAVE_LIBOTF */
1011 if (VECTORP (chars
))
1015 if (FcPatternGetCharSet (fontset
->fonts
[i
], FC_CHARSET
, 0, &charset
)
1018 for (j
= 0; j
< ASIZE (chars
); j
++)
1019 if (NATNUMP (AREF (chars
, j
))
1020 && FcCharSetHasChar (charset
, XFASTINT (AREF (chars
, j
))))
1022 if (j
== ASIZE (chars
))
1025 if (! NILP (adstyle
) || langname
)
1027 Lisp_Object this_adstyle
= get_adstyle_property (fontset
->fonts
[i
]);
1029 if (! NILP (adstyle
)
1030 && (NILP (this_adstyle
)
1031 || xstrcasecmp (SSDATA (SYMBOL_NAME (adstyle
)),
1032 SSDATA (SYMBOL_NAME (this_adstyle
))) != 0))
1035 && ! NILP (this_adstyle
)
1036 && xstrcasecmp (langname
, SSDATA (SYMBOL_NAME (this_adstyle
))))
1039 entity
= ftfont_pattern_entity (fontset
->fonts
[i
],
1040 AREF (spec
, FONT_EXTRA_INDEX
));
1041 if (! NILP (entity
))
1042 val
= Fcons (entity
, val
);
1044 val
= Fnreverse (val
);
1048 /* We come here because of unexpected error in fontconfig API call
1049 (usually insufficient memory). */
1053 FONT_ADD_LOG ("ftfont-list", spec
, val
);
1054 if (objset
) FcObjectSetDestroy (objset
);
1055 if (fontset
) FcFontSetDestroy (fontset
);
1056 if (pattern
) FcPatternDestroy (pattern
);
1061 ftfont_match (Lisp_Object frame
, Lisp_Object spec
)
1063 Lisp_Object entity
= Qnil
;
1064 FcPattern
*pattern
, *match
= NULL
;
1066 char otlayout
[15]; /* For "otlayout:XXXX" */
1067 struct OpenTypeSpec
*otspec
= NULL
;
1068 const char *langname
= NULL
;
1070 if (! fc_initialized
)
1076 pattern
= ftfont_spec_pattern (spec
, otlayout
, &otspec
, &langname
);
1080 if (INTEGERP (AREF (spec
, FONT_SIZE_INDEX
)))
1084 value
.type
= FcTypeDouble
;
1085 value
.u
.d
= XINT (AREF (spec
, FONT_SIZE_INDEX
));
1086 FcPatternAdd (pattern
, FC_PIXEL_SIZE
, value
, FcFalse
);
1088 if (FcConfigSubstitute (NULL
, pattern
, FcMatchPattern
) == FcTrue
)
1090 FcDefaultSubstitute (pattern
);
1091 match
= FcFontMatch (NULL
, pattern
, &result
);
1094 entity
= ftfont_pattern_entity (match
, AREF (spec
, FONT_EXTRA_INDEX
));
1095 FcPatternDestroy (match
);
1096 if (! NILP (AREF (spec
, FONT_FAMILY_INDEX
))
1097 && NILP (assq_no_quit (AREF (spec
, FONT_FAMILY_INDEX
),
1098 ftfont_generic_family_list
))
1099 && NILP (Fstring_equal (AREF (spec
, FONT_FAMILY_INDEX
),
1100 AREF (entity
, FONT_FAMILY_INDEX
))))
1104 FcPatternDestroy (pattern
);
1106 FONT_ADD_LOG ("ftfont-match", spec
, entity
);
1111 ftfont_list_family (Lisp_Object frame
)
1113 Lisp_Object list
= Qnil
;
1114 FcPattern
*pattern
= NULL
;
1115 FcFontSet
*fontset
= NULL
;
1116 FcObjectSet
*objset
= NULL
;
1119 if (! fc_initialized
)
1125 pattern
= FcPatternCreate ();
1128 objset
= FcObjectSetBuild (FC_FAMILY
, NULL
);
1131 fontset
= FcFontList (NULL
, pattern
, objset
);
1135 for (i
= 0; i
< fontset
->nfont
; i
++)
1137 FcPattern
*pat
= fontset
->fonts
[i
];
1140 if (FcPatternGetString (pat
, FC_FAMILY
, 0, &str
) == FcResultMatch
)
1141 list
= Fcons (intern ((char *) str
), list
);
1145 if (objset
) FcObjectSetDestroy (objset
);
1146 if (fontset
) FcFontSetDestroy (fontset
);
1147 if (pattern
) FcPatternDestroy (pattern
);
1154 ftfont_open (FRAME_PTR f
, Lisp_Object entity
, int pixel_size
)
1156 struct ftfont_info
*ftfont_info
;
1158 struct ftfont_cache_data
*cache_data
;
1162 Lisp_Object val
, filename
, index
, cache
, font_object
;
1169 val
= assq_no_quit (QCfont_entity
, AREF (entity
, FONT_EXTRA_INDEX
));
1173 cache
= ftfont_lookup_cache (entity
, FTFONT_CACHE_FOR_FACE
);
1176 filename
= XCAR (val
);
1179 cache_data
= XSAVE_VALUE (XCDR (cache
))->pointer
;
1180 ft_face
= cache_data
->ft_face
;
1181 if (XSAVE_VALUE (val
)->integer
> 0)
1183 /* FT_Face in this cache is already used by the different size. */
1184 if (FT_New_Size (ft_face
, &ft_size
) != 0)
1186 if (FT_Activate_Size (ft_size
) != 0)
1188 FT_Done_Size (ft_size
);
1192 XSAVE_VALUE (val
)->integer
++;
1193 size
= XINT (AREF (entity
, FONT_SIZE_INDEX
));
1196 if (FT_Set_Pixel_Sizes (ft_face
, size
, size
) != 0)
1198 if (XSAVE_VALUE (val
)->integer
== 0)
1199 FT_Done_Face (ft_face
);
1203 font_object
= font_make_object (VECSIZE (struct ftfont_info
), entity
, size
);
1204 ASET (font_object
, FONT_TYPE_INDEX
, Qfreetype
);
1205 len
= font_unparse_xlfd (entity
, size
, name
, 256);
1207 ASET (font_object
, FONT_NAME_INDEX
, make_string (name
, len
));
1208 len
= font_unparse_fcname (entity
, size
, name
, 256);
1210 ASET (font_object
, FONT_FULLNAME_INDEX
, make_string (name
, len
));
1212 ASET (font_object
, FONT_FULLNAME_INDEX
,
1213 AREF (font_object
, FONT_NAME_INDEX
));
1214 ASET (font_object
, FONT_FILE_INDEX
, filename
);
1215 ASET (font_object
, FONT_FORMAT_INDEX
, ftfont_font_format (NULL
, filename
));
1216 font
= XFONT_OBJECT (font_object
);
1217 ftfont_info
= (struct ftfont_info
*) font
;
1218 ftfont_info
->ft_size
= ft_face
->size
;
1219 ftfont_info
->index
= XINT (index
);
1221 ftfont_info
->maybe_otf
= ft_face
->face_flags
& FT_FACE_FLAG_SFNT
;
1222 ftfont_info
->otf
= NULL
;
1223 #endif /* HAVE_LIBOTF */
1224 /* This means that there's no need of transformation. */
1225 ftfont_info
->matrix
.xx
= 0;
1226 font
->pixel_size
= size
;
1227 font
->driver
= &ftfont_driver
;
1228 font
->encoding_charset
= font
->repertory_charset
= -1;
1230 upEM
= ft_face
->units_per_EM
;
1231 scalable
= (INTEGERP (AREF (entity
, FONT_AVGWIDTH_INDEX
))
1232 && XINT (AREF (entity
, FONT_AVGWIDTH_INDEX
)) == 0);
1235 font
->ascent
= ft_face
->ascender
* size
/ upEM
;
1236 font
->descent
= - ft_face
->descender
* size
/ upEM
;
1237 font
->height
= ft_face
->height
* size
/ upEM
;
1241 font
->ascent
= ft_face
->size
->metrics
.ascender
>> 6;
1242 font
->descent
= - ft_face
->size
->metrics
.descender
>> 6;
1243 font
->height
= ft_face
->size
->metrics
.height
>> 6;
1245 if (INTEGERP (AREF (entity
, FONT_SPACING_INDEX
)))
1246 spacing
= XINT (AREF (entity
, FONT_SPACING_INDEX
));
1248 spacing
= FC_PROPORTIONAL
;
1249 if (spacing
!= FC_PROPORTIONAL
1251 && spacing
!= FC_DUAL
1252 #endif /* FC_DUAL */
1254 font
->min_width
= font
->average_width
= font
->space_width
1255 = (scalable
? ft_face
->max_advance_width
* size
/ upEM
1256 : ft_face
->size
->metrics
.max_advance
>> 6);
1261 font
->min_width
= font
->average_width
= font
->space_width
= 0;
1262 for (i
= 32, n
= 0; i
< 127; i
++)
1263 if (FT_Load_Char (ft_face
, i
, FT_LOAD_DEFAULT
) == 0)
1265 int this_width
= ft_face
->glyph
->metrics
.horiAdvance
>> 6;
1268 && (! font
->min_width
|| font
->min_width
> this_width
))
1269 font
->min_width
= this_width
;
1271 font
->space_width
= this_width
;
1272 font
->average_width
+= this_width
;
1276 font
->average_width
/= n
;
1279 font
->baseline_offset
= 0;
1280 font
->relative_compose
= 0;
1281 font
->default_ascent
= 0;
1282 font
->vertical_centering
= 0;
1285 font
->underline_position
= -ft_face
->underline_position
* size
/ upEM
;
1286 font
->underline_thickness
= ft_face
->underline_thickness
* size
/ upEM
;
1290 font
->underline_position
= -1;
1291 font
->underline_thickness
= 0;
1298 ftfont_close (FRAME_PTR f
, struct font
*font
)
1300 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1301 Lisp_Object val
, cache
;
1303 val
= Fcons (font
->props
[FONT_FILE_INDEX
], make_number (ftfont_info
->index
));
1304 cache
= ftfont_lookup_cache (val
, FTFONT_CACHE_FOR_FACE
);
1305 xassert (CONSP (cache
));
1307 (XSAVE_VALUE (val
)->integer
)--;
1308 if (XSAVE_VALUE (val
)->integer
== 0)
1310 struct ftfont_cache_data
*cache_data
= XSAVE_VALUE (val
)->pointer
;
1312 FT_Done_Face (cache_data
->ft_face
);
1314 if (ftfont_info
->otf
)
1315 OTF_close (ftfont_info
->otf
);
1317 cache_data
->ft_face
= NULL
;
1320 FT_Done_Size (ftfont_info
->ft_size
);
1324 ftfont_has_char (Lisp_Object font
, int c
)
1326 struct charset
*cs
= NULL
;
1328 if (EQ (AREF (font
, FONT_ADSTYLE_INDEX
), Qja
)
1329 && charset_jisx0208
>= 0)
1330 cs
= CHARSET_FROM_ID (charset_jisx0208
);
1331 else if (EQ (AREF (font
, FONT_ADSTYLE_INDEX
), Qko
)
1332 && charset_ksc5601
>= 0)
1333 cs
= CHARSET_FROM_ID (charset_ksc5601
);
1335 return (ENCODE_CHAR (cs
, c
) != CHARSET_INVALID_CODE (cs
));
1337 if (FONT_ENTITY_P (font
))
1339 FcCharSet
*charset
= ftfont_get_fc_charset (font
);
1341 return (FcCharSetHasChar (charset
, c
) == FcTrue
);
1345 struct ftfont_info
*ftfont_info
;
1347 ftfont_info
= (struct ftfont_info
*) XFONT_OBJECT (font
);
1348 return (FT_Get_Char_Index (ftfont_info
->ft_size
->face
, (FT_ULong
) c
)
1354 ftfont_encode_char (struct font
*font
, int c
)
1356 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1357 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1358 FT_ULong charcode
= c
;
1359 FT_UInt code
= FT_Get_Char_Index (ft_face
, charcode
);
1361 return (code
> 0 ? code
: FONT_INVALID_CODE
);
1365 ftfont_text_extents (struct font
*font
, unsigned int *code
, int nglyphs
, struct font_metrics
*metrics
)
1367 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1368 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1372 if (ftfont_info
->ft_size
!= ft_face
->size
)
1373 FT_Activate_Size (ftfont_info
->ft_size
);
1375 memset (metrics
, 0, sizeof (struct font_metrics
));
1376 for (i
= 0, first
= 1; i
< nglyphs
; i
++)
1378 if (FT_Load_Glyph (ft_face
, code
[i
], FT_LOAD_DEFAULT
) == 0)
1380 FT_Glyph_Metrics
*m
= &ft_face
->glyph
->metrics
;
1386 metrics
->lbearing
= m
->horiBearingX
>> 6;
1387 metrics
->rbearing
= (m
->horiBearingX
+ m
->width
) >> 6;
1388 metrics
->ascent
= m
->horiBearingY
>> 6;
1389 metrics
->descent
= (m
->height
- m
->horiBearingY
) >> 6;
1395 if (metrics
->lbearing
> width
+ (m
->horiBearingX
>> 6))
1396 metrics
->lbearing
= width
+ (m
->horiBearingX
>> 6);
1397 if (metrics
->rbearing
1398 < width
+ ((m
->horiBearingX
+ m
->width
) >> 6))
1400 = width
+ ((m
->horiBearingX
+ m
->width
) >> 6);
1401 if (metrics
->ascent
< (m
->horiBearingY
>> 6))
1402 metrics
->ascent
= m
->horiBearingY
>> 6;
1403 if (metrics
->descent
> ((m
->height
- m
->horiBearingY
) >> 6))
1404 metrics
->descent
= (m
->height
- m
->horiBearingY
) >> 6;
1406 width
+= m
->horiAdvance
>> 6;
1410 width
+= font
->space_width
;
1414 metrics
->width
= width
;
1420 ftfont_get_bitmap (struct font
*font
, unsigned int code
, struct font_bitmap
*bitmap
, int bits_per_pixel
)
1422 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1423 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1424 FT_Int32 load_flags
= FT_LOAD_RENDER
;
1426 if (ftfont_info
->ft_size
!= ft_face
->size
)
1427 FT_Activate_Size (ftfont_info
->ft_size
);
1428 if (bits_per_pixel
== 1)
1430 #ifdef FT_LOAD_TARGET_MONO
1431 load_flags
|= FT_LOAD_TARGET_MONO
;
1433 load_flags
|= FT_LOAD_MONOCHROME
;
1436 else if (bits_per_pixel
!= 8)
1437 /* We don't support such a rendering. */
1440 if (FT_Load_Glyph (ft_face
, code
, load_flags
) != 0)
1442 bitmap
->bits_per_pixel
1443 = (ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_MONO
? 1
1444 : ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_GRAY
? 8
1445 : ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_LCD
? 8
1446 : ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_LCD_V
? 8
1448 if (bitmap
->bits_per_pixel
< 0)
1449 /* We don't suport that kind of pixel mode. */
1451 bitmap
->rows
= ft_face
->glyph
->bitmap
.rows
;
1452 bitmap
->width
= ft_face
->glyph
->bitmap
.width
;
1453 bitmap
->pitch
= ft_face
->glyph
->bitmap
.pitch
;
1454 bitmap
->buffer
= ft_face
->glyph
->bitmap
.buffer
;
1455 bitmap
->left
= ft_face
->glyph
->bitmap_left
;
1456 bitmap
->top
= ft_face
->glyph
->bitmap_top
;
1457 bitmap
->advance
= ft_face
->glyph
->metrics
.horiAdvance
>> 6;
1458 bitmap
->extra
= NULL
;
1464 ftfont_anchor_point (struct font
*font
, unsigned int code
, int index
, int *x
, int *y
)
1466 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1467 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1469 if (ftfont_info
->ft_size
!= ft_face
->size
)
1470 FT_Activate_Size (ftfont_info
->ft_size
);
1471 if (FT_Load_Glyph (ft_face
, code
, FT_LOAD_DEFAULT
) != 0)
1473 if (ft_face
->glyph
->format
!= FT_GLYPH_FORMAT_OUTLINE
)
1475 if (index
>= ft_face
->glyph
->outline
.n_points
)
1477 *x
= ft_face
->glyph
->outline
.points
[index
].x
;
1478 *y
= ft_face
->glyph
->outline
.points
[index
].y
;
1485 ftfont_otf_features (OTF_GSUB_GPOS
*gsub_gpos
)
1487 Lisp_Object scripts
, langsyses
, features
, sym
;
1490 for (scripts
= Qnil
, i
= gsub_gpos
->ScriptList
.ScriptCount
- 1; i
>= 0; i
--)
1492 OTF_Script
*otf_script
= gsub_gpos
->ScriptList
.Script
+ i
;
1494 for (langsyses
= Qnil
, j
= otf_script
->LangSysCount
- 1; j
>= -1; j
--)
1496 OTF_LangSys
*otf_langsys
;
1499 otf_langsys
= otf_script
->LangSys
+ j
;
1500 else if (otf_script
->DefaultLangSysOffset
)
1501 otf_langsys
= &otf_script
->DefaultLangSys
;
1505 for (features
= Qnil
, k
= otf_langsys
->FeatureCount
- 1; k
>= 0; k
--)
1507 l
= otf_langsys
->FeatureIndex
[k
];
1508 if (l
>= gsub_gpos
->FeatureList
.FeatureCount
)
1510 OTF_TAG_SYM (sym
, gsub_gpos
->FeatureList
.Feature
[l
].FeatureTag
);
1511 features
= Fcons (sym
, features
);
1514 OTF_TAG_SYM (sym
, otf_script
->LangSysRecord
[j
].LangSysTag
);
1517 langsyses
= Fcons (Fcons (sym
, features
), langsyses
);
1520 OTF_TAG_SYM (sym
, gsub_gpos
->ScriptList
.Script
[i
].ScriptTag
);
1521 scripts
= Fcons (Fcons (sym
, langsyses
), scripts
);
1529 ftfont_otf_capability (struct font
*font
)
1531 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1532 OTF
*otf
= ftfont_get_otf (ftfont_info
);
1533 Lisp_Object gsub_gpos
;
1537 gsub_gpos
= Fcons (Qnil
, Qnil
);
1538 if (OTF_get_table (otf
, "GSUB") == 0
1539 && otf
->gsub
->FeatureList
.FeatureCount
> 0)
1540 XSETCAR (gsub_gpos
, ftfont_otf_features (otf
->gsub
));
1541 if (OTF_get_table (otf
, "GPOS") == 0
1542 && otf
->gpos
->FeatureList
.FeatureCount
> 0)
1543 XSETCDR (gsub_gpos
, ftfont_otf_features (otf
->gpos
));
1547 #ifdef HAVE_M17N_FLT
1549 #if (((LIBOTF_MAJOR_VERSION > 1) || (LIBOTF_RELEASE_NUMBER >= 10)) \
1550 && ((M17NLIB_MAJOR_VERSION > 1) || (M17NLIB_MINOR_VERSION >= 6)))
1551 /* We can use the new feature of libotf and m17n-flt to handle the
1552 character encoding scheme introduced in Unicode 5.1 and 5.2 for
1553 some Agian scripts. */
1554 #define M17N_FLT_USE_NEW_FEATURE
1567 ftfont_get_glyph_id (MFLTFont
*font
, MFLTGlyphString
*gstring
,
1570 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1571 FT_Face ft_face
= flt_font_ft
->ft_face
;
1574 for (g
= gstring
->glyphs
+ from
; from
< to
; g
++, from
++)
1577 FT_UInt code
= FT_Get_Char_Index (ft_face
, g
->code
);
1579 g
->code
= code
> 0 ? code
: FONT_INVALID_CODE
;
1585 /* Operators for 26.6 fixed fractional pixel format */
1587 #define FLOOR(x) ((x) & -64)
1588 #define CEIL(x) (((x)+63) & -64)
1589 #define ROUND(x) (((x)+32) & -64)
1592 ftfont_get_metrics (MFLTFont
*font
, MFLTGlyphString
*gstring
,
1595 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1596 FT_Face ft_face
= flt_font_ft
->ft_face
;
1599 for (g
= gstring
->glyphs
+ from
; from
< to
; g
++, from
++)
1602 if (g
->code
!= FONT_INVALID_CODE
)
1604 FT_Glyph_Metrics
*m
;
1605 int lbearing
, rbearing
, ascent
, descent
, xadv
;
1607 if (FT_Load_Glyph (ft_face
, g
->code
, FT_LOAD_DEFAULT
) != 0)
1609 m
= &ft_face
->glyph
->metrics
;
1610 if (flt_font_ft
->matrix
)
1615 v
[0].x
= v
[1].x
= m
->horiBearingX
;
1616 v
[2].x
= v
[3].x
= m
->horiBearingX
+ m
->width
;
1617 v
[0].y
= v
[2].y
= m
->horiBearingY
;
1618 v
[1].y
= v
[3].y
= m
->horiBearingY
- m
->height
;
1619 for (i
= 0; i
< 4; i
++)
1620 FT_Vector_Transform (v
+ i
, flt_font_ft
->matrix
);
1621 g
->lbearing
= v
[0].x
< v
[1].x
? FLOOR (v
[0].x
) : FLOOR (v
[1].x
);
1622 g
->rbearing
= v
[2].x
> v
[3].x
? CEIL (v
[2].x
) : CEIL (v
[3].x
);
1623 g
->ascent
= v
[0].y
> v
[2].y
? CEIL (v
[0].y
) : CEIL (v
[2].y
);
1624 g
->descent
= v
[1].y
< v
[3].y
? - FLOOR (v
[1].y
) : - FLOOR (v
[3].y
);
1628 g
->lbearing
= FLOOR (m
->horiBearingX
);
1629 g
->rbearing
= CEIL (m
->horiBearingX
+ m
->width
);
1630 g
->ascent
= CEIL (m
->horiBearingY
);
1631 g
->descent
= - FLOOR (m
->horiBearingY
- m
->height
);
1633 g
->xadv
= ROUND (ft_face
->glyph
->advance
.x
);
1638 g
->rbearing
= g
->xadv
= flt_font_ft
->font
->space_width
<< 6;
1639 g
->ascent
= flt_font_ft
->font
->ascent
<< 6;
1640 g
->descent
= flt_font_ft
->font
->descent
<< 6;
1649 ftfont_check_otf (MFLTFont
*font
, MFLTOtfSpec
*spec
)
1651 #define FEATURE_NONE(IDX) (! spec->features[IDX])
1653 #define FEATURE_ANY(IDX) \
1654 (spec->features[IDX] \
1655 && spec->features[IDX][0] == 0xFFFFFFFF && spec->features[IDX][1] == 0)
1657 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1658 OTF
*otf
= flt_font_ft
->otf
;
1662 if (FEATURE_ANY (0) && FEATURE_ANY (1))
1663 /* Return 1 iff any of GSUB or GPOS support the script (and language). */
1665 && (OTF_check_features (otf
, 0, spec
->script
, spec
->langsys
,
1667 || OTF_check_features (otf
, 1, spec
->script
, spec
->langsys
,
1670 for (i
= 0; i
< 2; i
++)
1671 if (! FEATURE_ANY (i
))
1673 if (FEATURE_NONE (i
))
1676 && OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1681 if (spec
->features
[i
][0] == 0xFFFFFFFF)
1684 || OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1690 for (n
= 1; spec
->features
[i
][n
]; n
++);
1691 tags
= alloca (sizeof (OTF_Tag
) * n
);
1692 for (n
= 0, negative
= 0; spec
->features
[i
][n
]; n
++)
1694 if (spec
->features
[i
][n
] == 0xFFFFFFFF)
1697 tags
[n
- 1] = spec
->features
[i
][n
] | 0x80000000;
1699 tags
[n
] = spec
->features
[i
][n
];
1701 #ifdef M17N_FLT_USE_NEW_FEATURE
1702 if (OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1703 tags
, n
- negative
) != 1)
1705 #else /* not M17N_FLT_USE_NEW_FEATURE */
1706 if (n
- negative
> 0
1707 && OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1708 tags
, n
- negative
) != 1)
1710 #endif /* not M17N_FLT_USE_NEW_FEATURE */
1717 #define DEVICE_DELTA(table, size) \
1718 (((size) >= (table).StartSize && (size) <= (table).EndSize) \
1719 ? (table).DeltaValue[(size) - (table).StartSize] << 6 \
1723 adjust_anchor (FT_Face ft_face
, OTF_Anchor
*anchor
,
1724 unsigned code
, int x_ppem
, int y_ppem
, int *x
, int *y
)
1726 if (anchor
->AnchorFormat
== 2)
1728 FT_Outline
*outline
;
1729 int ap
= anchor
->f
.f1
.AnchorPoint
;
1731 FT_Load_Glyph (ft_face
, (FT_UInt
) code
, FT_LOAD_MONOCHROME
);
1732 outline
= &ft_face
->glyph
->outline
;
1733 if (ap
< outline
->n_points
)
1735 *x
= outline
->points
[ap
].x
<< 6;
1736 *y
= outline
->points
[ap
].y
<< 6;
1739 else if (anchor
->AnchorFormat
== 3)
1741 if (anchor
->f
.f2
.XDeviceTable
.offset
1742 && anchor
->f
.f2
.XDeviceTable
.DeltaValue
)
1743 *x
+= DEVICE_DELTA (anchor
->f
.f2
.XDeviceTable
, x_ppem
);
1744 if (anchor
->f
.f2
.YDeviceTable
.offset
1745 && anchor
->f
.f2
.YDeviceTable
.DeltaValue
)
1746 *y
+= DEVICE_DELTA (anchor
->f
.f2
.YDeviceTable
, y_ppem
);
1750 static OTF_GlyphString otf_gstring
;
1753 setup_otf_gstring (int size
)
1755 if (otf_gstring
.size
== 0)
1757 otf_gstring
.glyphs
= (OTF_Glyph
*) xmalloc (sizeof (OTF_Glyph
) * size
);
1758 otf_gstring
.size
= size
;
1760 else if (otf_gstring
.size
< size
)
1762 otf_gstring
.glyphs
= xrealloc (otf_gstring
.glyphs
,
1763 sizeof (OTF_Glyph
) * size
);
1764 otf_gstring
.size
= size
;
1766 otf_gstring
.used
= size
;
1767 memset (otf_gstring
.glyphs
, 0, sizeof (OTF_Glyph
) * size
);
1770 #ifdef M17N_FLT_USE_NEW_FEATURE
1772 /* Pack 32-bit OTF tag (0x7F7F7F7F) into 28-bit (0x0FFFFFFF). */
1773 #define PACK_OTF_TAG(TAG) \
1774 ((((TAG) & 0x7F000000) >> 3) \
1775 | (((TAG) & 0x7F0000) >> 2) \
1776 | (((TAG) & 0x7F00) >> 1) \
1779 /* Assuming that FONT is an OpenType font, apply OpenType features
1780 specified in SPEC on glyphs between FROM and TO of IN, and record
1781 the lastly applied feature in each glyph of IN. If OUT is not
1782 NULL, append the resulting glyphs to OUT while storing glyph
1783 position adjustment information in ADJUSTMENT. */
1786 ftfont_drive_otf (MFLTFont
*font
,
1788 MFLTGlyphString
*in
,
1791 MFLTGlyphString
*out
,
1792 MFLTGlyphAdjustment
*adjustment
)
1794 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1795 FT_Face ft_face
= flt_font_ft
->ft_face
;
1796 OTF
*otf
= flt_font_ft
->otf
;
1797 int len
= to
- from
;
1800 char script
[5], *langsys
= NULL
;
1801 char *gsub_features
= NULL
, *gpos_features
= NULL
;
1802 OTF_Feature
*features
;
1806 OTF_tag_name (spec
->script
, script
);
1809 langsys
= alloca (5);
1810 OTF_tag_name (spec
->langsys
, langsys
);
1812 for (i
= 0; i
< 2; i
++)
1816 if (spec
->features
[i
] && spec
->features
[i
][1] != 0xFFFFFFFF)
1818 for (j
= 0; spec
->features
[i
][j
]; j
++);
1820 p
= gsub_features
= alloca (6 * j
);
1822 p
= gpos_features
= alloca (6 * j
);
1823 for (j
= 0; spec
->features
[i
][j
]; j
++)
1825 if (spec
->features
[i
][j
] == 0xFFFFFFFF)
1826 *p
++ = '*', *p
++ = ',';
1829 OTF_tag_name (spec
->features
[i
][j
], p
);
1838 setup_otf_gstring (len
);
1839 for (i
= 0; i
< len
; i
++)
1841 otf_gstring
.glyphs
[i
].c
= in
->glyphs
[from
+ i
].c
;
1842 otf_gstring
.glyphs
[i
].glyph_id
= in
->glyphs
[from
+ i
].code
;
1845 OTF_drive_gdef (otf
, &otf_gstring
);
1846 gidx
= out
? out
->used
: from
;
1848 if (gsub_features
&& out
)
1850 if (OTF_drive_gsub_with_log (otf
, &otf_gstring
, script
, langsys
,
1853 if (out
->allocated
< out
->used
+ otf_gstring
.used
)
1855 features
= otf
->gsub
->FeatureList
.Feature
;
1856 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
; )
1859 int min_from
, max_to
;
1861 int feature_idx
= otfg
->positioning_type
>> 4;
1863 g
= out
->glyphs
+ out
->used
;
1864 *g
= in
->glyphs
[from
+ otfg
->f
.index
.from
];
1865 if (g
->code
!= otfg
->glyph_id
)
1868 g
->code
= otfg
->glyph_id
;
1874 if (otfg
->f
.index
.from
< otfg
->f
.index
.to
)
1876 /* OTFG substitutes multiple glyphs in IN. */
1877 for (j
= from
+ otfg
->f
.index
.from
+ 1;
1878 j
<= from
+ otfg
->f
.index
.to
; j
++)
1880 if (min_from
> in
->glyphs
[j
].from
)
1881 min_from
= in
->glyphs
[j
].from
;
1882 if (max_to
< in
->glyphs
[j
].to
)
1883 max_to
= in
->glyphs
[j
].to
;
1890 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1891 tag
= PACK_OTF_TAG (tag
);
1892 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1894 for (i
++, otfg
++; (i
< otf_gstring
.used
1895 && otfg
->f
.index
.from
== otfg
[-1].f
.index
.from
);
1898 g
= out
->glyphs
+ out
->used
;
1899 *g
= in
->glyphs
[from
+ otfg
->f
.index
.to
];
1900 if (g
->code
!= otfg
->glyph_id
)
1903 g
->code
= otfg
->glyph_id
;
1906 feature_idx
= otfg
->positioning_type
>> 4;
1909 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1910 tag
= PACK_OTF_TAG (tag
);
1911 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1917 else if (gsub_features
)
1919 /* Just for checking which features will be applied. */
1920 if (OTF_drive_gsub_with_log (otf
, &otf_gstring
, script
, langsys
,
1923 features
= otf
->gsub
->FeatureList
.Feature
;
1924 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
; i
++,
1927 int feature_idx
= otfg
->positioning_type
>> 4;
1931 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1932 tag
= PACK_OTF_TAG (tag
);
1933 for (j
= otfg
->f
.index
.from
; j
<= otfg
->f
.index
.to
; j
++)
1935 MFLTGlyph
*g
= in
->glyphs
+ (from
+ j
);
1936 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1943 if (out
->allocated
< out
->used
+ len
)
1945 for (i
= 0; i
< len
; i
++)
1946 out
->glyphs
[out
->used
++] = in
->glyphs
[from
+ i
];
1949 if (gpos_features
&& out
)
1951 MFLTGlyph
*base
= NULL
, *mark
= NULL
, *g
;
1952 int x_ppem
, y_ppem
, x_scale
, y_scale
;
1954 if (OTF_drive_gpos_with_log (otf
, &otf_gstring
, script
, langsys
,
1957 features
= otf
->gpos
->FeatureList
.Feature
;
1958 x_ppem
= ft_face
->size
->metrics
.x_ppem
;
1959 y_ppem
= ft_face
->size
->metrics
.y_ppem
;
1960 x_scale
= ft_face
->size
->metrics
.x_scale
;
1961 y_scale
= ft_face
->size
->metrics
.y_scale
;
1963 for (i
= 0, otfg
= otf_gstring
.glyphs
, g
= out
->glyphs
+ gidx
;
1964 i
< otf_gstring
.used
; i
++, otfg
++, g
++)
1967 int feature_idx
= otfg
->positioning_type
>> 4;
1971 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1972 tag
= PACK_OTF_TAG (tag
);
1973 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1976 if (! otfg
->glyph_id
)
1978 switch (otfg
->positioning_type
& 0xF)
1982 case 1: /* Single */
1985 int format
= otfg
->f
.f1
.format
;
1987 if (format
& OTF_XPlacement
)
1989 = otfg
->f
.f1
.value
->XPlacement
* x_scale
/ 0x10000;
1990 if (format
& OTF_XPlaDevice
)
1992 += DEVICE_DELTA (otfg
->f
.f1
.value
->XPlaDevice
, x_ppem
);
1993 if (format
& OTF_YPlacement
)
1995 = - (otfg
->f
.f1
.value
->YPlacement
* y_scale
/ 0x10000);
1996 if (format
& OTF_YPlaDevice
)
1998 -= DEVICE_DELTA (otfg
->f
.f1
.value
->YPlaDevice
, y_ppem
);
1999 if (format
& OTF_XAdvance
)
2001 += otfg
->f
.f1
.value
->XAdvance
* x_scale
/ 0x10000;
2002 if (format
& OTF_XAdvDevice
)
2004 += DEVICE_DELTA (otfg
->f
.f1
.value
->XAdvDevice
, x_ppem
);
2005 if (format
& OTF_YAdvance
)
2007 += otfg
->f
.f1
.value
->YAdvance
* y_scale
/ 0x10000;
2008 if (format
& OTF_YAdvDevice
)
2010 += DEVICE_DELTA (otfg
->f
.f1
.value
->YAdvDevice
, y_ppem
);
2011 adjustment
[i
].set
= 1;
2014 case 3: /* Cursive */
2015 /* Not yet supported. */
2017 case 4: /* Mark-to-Base */
2018 case 5: /* Mark-to-Ligature */
2022 goto label_adjust_anchor
;
2023 default: /* i.e. case 6 Mark-to-Mark */
2028 label_adjust_anchor
:
2030 int base_x
, base_y
, mark_x
, mark_y
;
2031 int this_from
, this_to
;
2033 base_x
= otfg
->f
.f4
.base_anchor
->XCoordinate
* x_scale
/ 0x10000;
2034 base_y
= otfg
->f
.f4
.base_anchor
->YCoordinate
* y_scale
/ 0x10000;
2035 mark_x
= otfg
->f
.f4
.mark_anchor
->XCoordinate
* x_scale
/ 0x10000;
2036 mark_y
= otfg
->f
.f4
.mark_anchor
->YCoordinate
* y_scale
/ 0x10000;
2038 if (otfg
->f
.f4
.base_anchor
->AnchorFormat
!= 1)
2039 adjust_anchor (ft_face
, otfg
->f
.f4
.base_anchor
,
2040 prev
->code
, x_ppem
, y_ppem
, &base_x
, &base_y
);
2041 if (otfg
->f
.f4
.mark_anchor
->AnchorFormat
!= 1)
2042 adjust_anchor (ft_face
, otfg
->f
.f4
.mark_anchor
, g
->code
,
2043 x_ppem
, y_ppem
, &mark_x
, &mark_y
);
2044 adjustment
[i
].xoff
= (base_x
- mark_x
);
2045 adjustment
[i
].yoff
= - (base_y
- mark_y
);
2046 adjustment
[i
].back
= (g
- prev
);
2047 adjustment
[i
].xadv
= 0;
2048 adjustment
[i
].advance_is_absolute
= 1;
2049 adjustment
[i
].set
= 1;
2050 this_from
= g
->from
;
2052 for (j
= 0; prev
+ j
< g
; j
++)
2054 if (this_from
> prev
[j
].from
)
2055 this_from
= prev
[j
].from
;
2056 if (this_to
< prev
[j
].to
)
2057 this_to
= prev
[j
].to
;
2059 for (; prev
<= g
; prev
++)
2061 prev
->from
= this_from
;
2066 if (otfg
->GlyphClass
== OTF_GlyphClass0
)
2068 else if (otfg
->GlyphClass
== OTF_GlyphClassMark
)
2074 else if (gpos_features
)
2076 if (OTF_drive_gpos_with_log (otf
, &otf_gstring
, script
, langsys
,
2079 features
= otf
->gpos
->FeatureList
.Feature
;
2080 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
;
2082 if (otfg
->positioning_type
& 0xF)
2084 int feature_idx
= otfg
->positioning_type
>> 4;
2088 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
2089 tag
= PACK_OTF_TAG (tag
);
2090 for (j
= otfg
->f
.index
.from
; j
<= otfg
->f
.index
.to
; j
++)
2092 MFLTGlyph
*g
= in
->glyphs
+ (from
+ j
);
2093 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
2103 if (out
->allocated
< out
->used
+ len
)
2105 font
->get_metrics (font
, in
, from
, to
);
2106 memcpy (out
->glyphs
+ out
->used
, in
->glyphs
+ from
,
2107 sizeof (MFLTGlyph
) * len
);
2113 ftfont_try_otf (MFLTFont
*font
, MFLTOtfSpec
*spec
,
2114 MFLTGlyphString
*in
, int from
, int to
)
2116 return ftfont_drive_otf (font
, spec
, in
, from
, to
, NULL
, NULL
);
2119 #else /* not M17N_FLT_USE_NEW_FEATURE */
2122 ftfont_drive_otf (MFLTFont
*font
, MFLTOtfSpec
*spec
, MFLTGlyphString
*in
,
2124 MFLTGlyphString
*out
, MFLTGlyphAdjustment
*adjustment
)
2126 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
2127 FT_Face ft_face
= flt_font_ft
->ft_face
;
2128 OTF
*otf
= flt_font_ft
->otf
;
2129 int len
= to
- from
;
2132 char script
[5], *langsys
= NULL
;
2133 char *gsub_features
= NULL
, *gpos_features
= NULL
;
2137 OTF_tag_name (spec
->script
, script
);
2140 langsys
= alloca (5);
2141 OTF_tag_name (spec
->langsys
, langsys
);
2143 for (i
= 0; i
< 2; i
++)
2147 if (spec
->features
[i
] && spec
->features
[i
][1] != 0xFFFFFFFF)
2149 for (j
= 0; spec
->features
[i
][j
]; j
++);
2151 p
= gsub_features
= alloca (6 * j
);
2153 p
= gpos_features
= alloca (6 * j
);
2154 for (j
= 0; spec
->features
[i
][j
]; j
++)
2156 if (spec
->features
[i
][j
] == 0xFFFFFFFF)
2157 *p
++ = '*', *p
++ = ',';
2160 OTF_tag_name (spec
->features
[i
][j
], p
);
2169 setup_otf_gstring (len
);
2170 for (i
= 0; i
< len
; i
++)
2172 otf_gstring
.glyphs
[i
].c
= in
->glyphs
[from
+ i
].c
;
2173 otf_gstring
.glyphs
[i
].glyph_id
= in
->glyphs
[from
+ i
].code
;
2176 OTF_drive_gdef (otf
, &otf_gstring
);
2181 if (OTF_drive_gsub (otf
, &otf_gstring
, script
, langsys
, gsub_features
)
2184 if (out
->allocated
< out
->used
+ otf_gstring
.used
)
2186 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
; )
2189 int min_from
, max_to
;
2192 g
= out
->glyphs
+ out
->used
;
2193 *g
= in
->glyphs
[from
+ otfg
->f
.index
.from
];
2194 if (g
->code
!= otfg
->glyph_id
)
2197 g
->code
= otfg
->glyph_id
;
2203 if (otfg
->f
.index
.from
< otfg
->f
.index
.to
)
2205 /* OTFG substitutes multiple glyphs in IN. */
2206 for (j
= from
+ otfg
->f
.index
.from
+ 1;
2207 j
<= from
+ otfg
->f
.index
.to
; j
++)
2209 if (min_from
> in
->glyphs
[j
].from
)
2210 min_from
= in
->glyphs
[j
].from
;
2211 if (max_to
< in
->glyphs
[j
].to
)
2212 max_to
= in
->glyphs
[j
].to
;
2217 for (i
++, otfg
++; (i
< otf_gstring
.used
2218 && otfg
->f
.index
.from
== otfg
[-1].f
.index
.from
);
2221 g
= out
->glyphs
+ out
->used
;
2222 *g
= in
->glyphs
[from
+ otfg
->f
.index
.to
];
2223 if (g
->code
!= otfg
->glyph_id
)
2226 g
->code
= otfg
->glyph_id
;
2235 if (out
->allocated
< out
->used
+ len
)
2237 for (i
= 0; i
< len
; i
++)
2238 out
->glyphs
[out
->used
++] = in
->glyphs
[from
+ i
];
2243 MFLTGlyph
*base
= NULL
, *mark
= NULL
, *g
;
2244 int x_ppem
, y_ppem
, x_scale
, y_scale
;
2246 if (OTF_drive_gpos (otf
, &otf_gstring
, script
, langsys
, gpos_features
)
2250 x_ppem
= ft_face
->size
->metrics
.x_ppem
;
2251 y_ppem
= ft_face
->size
->metrics
.y_ppem
;
2252 x_scale
= ft_face
->size
->metrics
.x_scale
;
2253 y_scale
= ft_face
->size
->metrics
.y_scale
;
2255 for (i
= 0, otfg
= otf_gstring
.glyphs
, g
= out
->glyphs
+ gidx
;
2256 i
< otf_gstring
.used
; i
++, otfg
++, g
++)
2260 if (! otfg
->glyph_id
)
2262 switch (otfg
->positioning_type
)
2266 case 1: /* Single */
2269 int format
= otfg
->f
.f1
.format
;
2271 if (format
& OTF_XPlacement
)
2273 = otfg
->f
.f1
.value
->XPlacement
* x_scale
/ 0x10000;
2274 if (format
& OTF_XPlaDevice
)
2276 += DEVICE_DELTA (otfg
->f
.f1
.value
->XPlaDevice
, x_ppem
);
2277 if (format
& OTF_YPlacement
)
2279 = - (otfg
->f
.f1
.value
->YPlacement
* y_scale
/ 0x10000);
2280 if (format
& OTF_YPlaDevice
)
2282 -= DEVICE_DELTA (otfg
->f
.f1
.value
->YPlaDevice
, y_ppem
);
2283 if (format
& OTF_XAdvance
)
2285 += otfg
->f
.f1
.value
->XAdvance
* x_scale
/ 0x10000;
2286 if (format
& OTF_XAdvDevice
)
2288 += DEVICE_DELTA (otfg
->f
.f1
.value
->XAdvDevice
, x_ppem
);
2289 if (format
& OTF_YAdvance
)
2291 += otfg
->f
.f1
.value
->YAdvance
* y_scale
/ 0x10000;
2292 if (format
& OTF_YAdvDevice
)
2294 += DEVICE_DELTA (otfg
->f
.f1
.value
->YAdvDevice
, y_ppem
);
2295 adjustment
[i
].set
= 1;
2298 case 3: /* Cursive */
2299 /* Not yet supported. */
2301 case 4: /* Mark-to-Base */
2302 case 5: /* Mark-to-Ligature */
2306 goto label_adjust_anchor
;
2307 default: /* i.e. case 6 Mark-to-Mark */
2312 label_adjust_anchor
:
2314 int base_x
, base_y
, mark_x
, mark_y
;
2315 int this_from
, this_to
;
2317 base_x
= otfg
->f
.f4
.base_anchor
->XCoordinate
* x_scale
/ 0x10000;
2318 base_y
= otfg
->f
.f4
.base_anchor
->YCoordinate
* y_scale
/ 0x10000;
2319 mark_x
= otfg
->f
.f4
.mark_anchor
->XCoordinate
* x_scale
/ 0x10000;
2320 mark_y
= otfg
->f
.f4
.mark_anchor
->YCoordinate
* y_scale
/ 0x10000;
2322 if (otfg
->f
.f4
.base_anchor
->AnchorFormat
!= 1)
2323 adjust_anchor (ft_face
, otfg
->f
.f4
.base_anchor
,
2324 prev
->code
, x_ppem
, y_ppem
, &base_x
, &base_y
);
2325 if (otfg
->f
.f4
.mark_anchor
->AnchorFormat
!= 1)
2326 adjust_anchor (ft_face
, otfg
->f
.f4
.mark_anchor
, g
->code
,
2327 x_ppem
, y_ppem
, &mark_x
, &mark_y
);
2328 adjustment
[i
].xoff
= (base_x
- mark_x
);
2329 adjustment
[i
].yoff
= - (base_y
- mark_y
);
2330 adjustment
[i
].back
= (g
- prev
);
2331 adjustment
[i
].xadv
= 0;
2332 adjustment
[i
].advance_is_absolute
= 1;
2333 adjustment
[i
].set
= 1;
2334 this_from
= g
->from
;
2336 for (j
= 0; prev
+ j
< g
; j
++)
2338 if (this_from
> prev
[j
].from
)
2339 this_from
= prev
[j
].from
;
2340 if (this_to
< prev
[j
].to
)
2341 this_to
= prev
[j
].to
;
2343 for (; prev
<= g
; prev
++)
2345 prev
->from
= this_from
;
2350 if (otfg
->GlyphClass
== OTF_GlyphClass0
)
2352 else if (otfg
->GlyphClass
== OTF_GlyphClassMark
)
2361 if (out
->allocated
< out
->used
+ len
)
2363 font
->get_metrics (font
, in
, from
, to
);
2364 memcpy (out
->glyphs
+ out
->used
, in
->glyphs
+ from
,
2365 sizeof (MFLTGlyph
) * len
);
2370 #endif /* not M17N_FLT_USE_NEW_FEATURE */
2372 static MFLTGlyphString gstring
;
2374 static int m17n_flt_initialized
;
2377 ftfont_shape_by_flt (Lisp_Object lgstring
, struct font
*font
,
2378 FT_Face ft_face
, OTF
*otf
, FT_Matrix
*matrix
)
2380 EMACS_UINT len
= LGSTRING_GLYPH_LEN (lgstring
);
2382 struct MFLTFontFT flt_font_ft
;
2384 int with_variation_selector
= 0;
2386 if (! m17n_flt_initialized
)
2389 #ifdef M17N_FLT_USE_NEW_FEATURE
2390 mflt_enable_new_feature
= 1;
2391 mflt_try_otf
= ftfont_try_otf
;
2392 #endif /* M17N_FLT_USE_NEW_FEATURE */
2393 m17n_flt_initialized
= 1;
2396 for (i
= 0; i
< len
; i
++)
2398 Lisp_Object g
= LGSTRING_GLYPH (lgstring
, i
);
2403 c
= LGLYPH_CHAR (g
);
2404 if (CHAR_VARIATION_SELECTOR_P (c
))
2405 with_variation_selector
++;
2408 if (with_variation_selector
)
2410 setup_otf_gstring (len
);
2411 for (i
= 0; i
< len
; i
++)
2413 Lisp_Object g
= LGSTRING_GLYPH (lgstring
, i
);
2415 otf_gstring
.glyphs
[i
].c
= LGLYPH_CHAR (g
);
2416 otf_gstring
.glyphs
[i
].f
.index
.from
= LGLYPH_FROM (g
);
2417 otf_gstring
.glyphs
[i
].f
.index
.to
= LGLYPH_TO (g
);
2419 OTF_drive_cmap (otf
, &otf_gstring
);
2420 for (i
= 0; i
< otf_gstring
.used
; i
++)
2422 OTF_Glyph
*otfg
= otf_gstring
.glyphs
+ i
;
2423 Lisp_Object g0
= LGSTRING_GLYPH (lgstring
, otfg
->f
.index
.from
);
2424 Lisp_Object g1
= LGSTRING_GLYPH (lgstring
, otfg
->f
.index
.to
);
2426 LGLYPH_SET_CODE (g0
, otfg
->glyph_id
);
2427 LGLYPH_SET_TO (g0
, LGLYPH_TO (g1
));
2428 LGSTRING_SET_GLYPH (lgstring
, i
, g0
);
2430 if (len
> otf_gstring
.used
)
2432 len
= otf_gstring
.used
;
2433 LGSTRING_SET_GLYPH (lgstring
, len
, Qnil
);
2437 if (gstring
.allocated
== 0)
2439 gstring
.allocated
= len
* 2;
2440 gstring
.glyph_size
= sizeof (MFLTGlyph
);
2441 gstring
.glyphs
= xmalloc (sizeof (MFLTGlyph
) * gstring
.allocated
);
2443 else if (gstring
.allocated
< len
* 2)
2445 gstring
.allocated
= len
* 2;
2446 gstring
.glyphs
= xrealloc (gstring
.glyphs
,
2447 sizeof (MFLTGlyph
) * gstring
.allocated
);
2449 memset (gstring
.glyphs
, 0, sizeof (MFLTGlyph
) * len
);
2450 for (i
= 0; i
< len
; i
++)
2452 Lisp_Object g
= LGSTRING_GLYPH (lgstring
, i
);
2454 gstring
.glyphs
[i
].c
= LGLYPH_CHAR (g
);
2455 if (with_variation_selector
)
2457 gstring
.glyphs
[i
].code
= LGLYPH_CODE (g
);
2458 gstring
.glyphs
[i
].encoded
= 1;
2466 Lisp_Object family
= Ffont_get (LGSTRING_FONT (lgstring
), QCfamily
);
2469 flt_font_ft
.flt_font
.family
= Mnil
;
2471 flt_font_ft
.flt_font
.family
2472 = msymbol (SSDATA (Fdowncase (SYMBOL_NAME (family
))));
2474 flt_font_ft
.flt_font
.x_ppem
= ft_face
->size
->metrics
.x_ppem
;
2475 flt_font_ft
.flt_font
.y_ppem
= ft_face
->size
->metrics
.y_ppem
;
2476 flt_font_ft
.flt_font
.get_glyph_id
= ftfont_get_glyph_id
;
2477 flt_font_ft
.flt_font
.get_metrics
= ftfont_get_metrics
;
2478 flt_font_ft
.flt_font
.check_otf
= ftfont_check_otf
;
2479 flt_font_ft
.flt_font
.drive_otf
= ftfont_drive_otf
;
2480 flt_font_ft
.flt_font
.internal
= NULL
;
2481 flt_font_ft
.font
= font
;
2482 flt_font_ft
.ft_face
= ft_face
;
2483 flt_font_ft
.otf
= otf
;
2484 flt_font_ft
.matrix
= matrix
->xx
!= 0 ? matrix
: 0;
2486 && gstring
.glyphs
[1].c
>= 0x300 && gstring
.glyphs
[1].c
<= 0x36F)
2487 /* A little bit ad hoc. Perhaps, shaper must get script and
2488 language information, and select a proper flt for them
2490 flt
= mflt_get (msymbol ("combining"));
2491 for (i
= 0; i
< 3; i
++)
2493 int result
= mflt_run (&gstring
, 0, len
, &flt_font_ft
.flt_font
, flt
);
2496 gstring
.allocated
+= gstring
.allocated
;
2497 gstring
.glyphs
= xrealloc (gstring
.glyphs
,
2498 sizeof (MFLTGlyph
) * gstring
.allocated
);
2500 if (gstring
.used
> LGSTRING_GLYPH_LEN (lgstring
))
2502 for (i
= 0; i
< gstring
.used
; i
++)
2504 MFLTGlyph
*g
= gstring
.glyphs
+ i
;
2506 g
->from
= LGLYPH_FROM (LGSTRING_GLYPH (lgstring
, g
->from
));
2507 g
->to
= LGLYPH_TO (LGSTRING_GLYPH (lgstring
, g
->to
));
2510 for (i
= 0; i
< gstring
.used
; i
++)
2512 Lisp_Object lglyph
= LGSTRING_GLYPH (lgstring
, i
);
2513 MFLTGlyph
*g
= gstring
.glyphs
+ i
;
2517 lglyph
= Fmake_vector (make_number (LGLYPH_SIZE
), Qnil
);
2518 LGSTRING_SET_GLYPH (lgstring
, i
, lglyph
);
2520 LGLYPH_SET_FROM (lglyph
, g
->from
);
2521 LGLYPH_SET_TO (lglyph
, g
->to
);
2522 LGLYPH_SET_CHAR (lglyph
, g
->c
);
2523 LGLYPH_SET_CODE (lglyph
, g
->code
);
2524 LGLYPH_SET_WIDTH (lglyph
, g
->xadv
>> 6);
2525 LGLYPH_SET_LBEARING (lglyph
, g
->lbearing
>> 6);
2526 LGLYPH_SET_RBEARING (lglyph
, g
->rbearing
>> 6);
2527 LGLYPH_SET_ASCENT (lglyph
, g
->ascent
>> 6);
2528 LGLYPH_SET_DESCENT (lglyph
, g
->descent
>> 6);
2533 vec
= Fmake_vector (make_number (3), Qnil
);
2534 ASET (vec
, 0, make_number (g
->xoff
>> 6));
2535 ASET (vec
, 1, make_number (g
->yoff
>> 6));
2536 ASET (vec
, 2, make_number (g
->xadv
>> 6));
2537 LGLYPH_SET_ADJUSTMENT (lglyph
, vec
);
2540 return make_number (i
);
2544 ftfont_shape (Lisp_Object lgstring
)
2547 struct ftfont_info
*ftfont_info
;
2550 CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring
), font
);
2551 ftfont_info
= (struct ftfont_info
*) font
;
2552 otf
= ftfont_get_otf (ftfont_info
);
2554 return make_number (0);
2555 return ftfont_shape_by_flt (lgstring
, font
, ftfont_info
->ft_size
->face
, otf
,
2556 &ftfont_info
->matrix
);
2559 #endif /* HAVE_M17N_FLT */
2561 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS
2564 ftfont_variation_glyphs (struct font
*font
, int c
, unsigned variations
[256])
2566 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
2567 OTF
*otf
= ftfont_get_otf (ftfont_info
);
2571 return OTF_get_variation_glyphs (otf
, c
, variations
);
2574 #endif /* HAVE_OTF_GET_VARIATION_GLYPHS */
2575 #endif /* HAVE_LIBOTF */
2578 ftfont_font_format (FcPattern
*pattern
, Lisp_Object filename
)
2582 #ifdef FC_FONTFORMAT
2585 if (FcPatternGetString (pattern
, FC_FONTFORMAT
, 0, &str
) != FcResultMatch
)
2587 if (strcmp ((char *) str
, "TrueType") == 0)
2588 return intern ("truetype");
2589 if (strcmp ((char *) str
, "Type 1") == 0)
2590 return intern ("type1");
2591 if (strcmp ((char *) str
, "PCF") == 0)
2592 return intern ("pcf");
2593 if (strcmp ((char *) str
, "BDF") == 0)
2594 return intern ("bdf");
2596 #endif /* FC_FONTFORMAT */
2597 if (STRINGP (filename
))
2599 int len
= SBYTES (filename
);
2603 str
= (FcChar8
*) (SDATA (filename
) + len
- 4);
2604 if (xstrcasecmp ((char *) str
, ".ttf") == 0)
2605 return intern ("truetype");
2606 if (xstrcasecmp ((char *) str
, ".pfb") == 0)
2607 return intern ("type1");
2608 if (xstrcasecmp ((char *) str
, ".pcf") == 0)
2609 return intern ("pcf");
2610 if (xstrcasecmp ((char *) str
, ".bdf") == 0)
2611 return intern ("bdf");
2614 return intern ("unknown");
2617 static const char *const ftfont_booleans
[] = {
2630 static const char *const ftfont_non_booleans
[] = {
2662 ftfont_filter_properties (Lisp_Object font
, Lisp_Object alist
)
2664 font_filter_properties (font
, alist
, ftfont_booleans
, ftfont_non_booleans
);
2669 syms_of_ftfont (void)
2671 DEFSYM (Qfreetype
, "freetype");
2672 DEFSYM (Qmonospace
, "monospace");
2673 DEFSYM (Qsans_serif
, "sans-serif");
2674 DEFSYM (Qserif
, "serif");
2675 DEFSYM (Qmono
, "mono");
2676 DEFSYM (Qsans
, "sans");
2677 DEFSYM (Qsans__serif
, "sans serif");
2679 staticpro (&freetype_font_cache
);
2680 freetype_font_cache
= Fcons (Qt
, Qnil
);
2682 staticpro (&ftfont_generic_family_list
);
2683 ftfont_generic_family_list
2684 = Fcons (Fcons (Qmonospace
, Qt
),
2685 Fcons (Fcons (Qsans_serif
, Qt
),
2686 Fcons (Fcons (Qsans
, Qt
), Qnil
)));
2688 staticpro (&ft_face_cache
);
2689 ft_face_cache
= Qnil
;
2691 ftfont_driver
.type
= Qfreetype
;
2692 register_font_driver (&ftfont_driver
, NULL
);