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 static 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
)
167 if (FcPatternGetString (p
, FC_STYLE
, 0, &fcstr
) != FcResultMatch
)
169 str
= (char *) fcstr
;
170 for (end
= str
; *end
&& *end
!= ' '; end
++);
173 char *newstr
= alloca (end
- str
+ 1);
174 memcpy (newstr
, str
, end
- str
);
175 newstr
[end
- str
] = '\0';
176 end
= newstr
+ (end
- str
);
179 if (xstrcasecmp (str
, "Regular") == 0
180 || xstrcasecmp (str
, "Bold") == 0
181 || xstrcasecmp (str
, "Oblique") == 0
182 || xstrcasecmp (str
, "Italic") == 0)
184 adstyle
= font_intern_prop (str
, end
- str
, 1);
185 if (font_style_to_value (FONT_WIDTH_INDEX
, adstyle
, 0) >= 0)
191 ftfont_pattern_entity (FcPattern
*p
, Lisp_Object extra
)
193 Lisp_Object key
, cache
, entity
;
201 if (FcPatternGetString (p
, FC_FILE
, 0, &str
) != FcResultMatch
)
203 if (FcPatternGetInteger (p
, FC_INDEX
, 0, &idx
) != FcResultMatch
)
207 key
= Fcons (make_unibyte_string (file
, strlen (file
)), make_number (idx
));
208 cache
= ftfont_lookup_cache (key
, FTFONT_CACHE_FOR_ENTITY
);
209 entity
= XCAR (cache
);
212 Lisp_Object val
= font_make_entity ();
215 for (i
= 0; i
< FONT_OBJLIST_INDEX
; i
++)
216 ASET (val
, i
, AREF (entity
, i
));
219 entity
= font_make_entity ();
220 XSETCAR (cache
, entity
);
222 ASET (entity
, FONT_TYPE_INDEX
, Qfreetype
);
223 ASET (entity
, FONT_REGISTRY_INDEX
, Qiso10646_1
);
225 if (FcPatternGetString (p
, FC_FOUNDRY
, 0, &str
) == FcResultMatch
)
227 char *s
= (char *) str
;
228 ASET (entity
, FONT_FOUNDRY_INDEX
, font_intern_prop (s
, strlen (s
), 1));
230 if (FcPatternGetString (p
, FC_FAMILY
, 0, &str
) == FcResultMatch
)
232 char *s
= (char *) str
;
233 ASET (entity
, FONT_FAMILY_INDEX
, font_intern_prop (s
, strlen (s
), 1));
235 if (FcPatternGetInteger (p
, FC_WEIGHT
, 0, &numeric
) == FcResultMatch
)
237 if (numeric
>= FC_WEIGHT_REGULAR
&& numeric
< FC_WEIGHT_MEDIUM
)
238 numeric
= FC_WEIGHT_MEDIUM
;
239 FONT_SET_STYLE (entity
, FONT_WEIGHT_INDEX
, make_number (numeric
));
241 if (FcPatternGetInteger (p
, FC_SLANT
, 0, &numeric
) == FcResultMatch
)
244 FONT_SET_STYLE (entity
, FONT_SLANT_INDEX
, make_number (numeric
));
246 if (FcPatternGetInteger (p
, FC_WIDTH
, 0, &numeric
) == FcResultMatch
)
248 FONT_SET_STYLE (entity
, FONT_WIDTH_INDEX
, make_number (numeric
));
250 if (FcPatternGetDouble (p
, FC_PIXEL_SIZE
, 0, &dbl
) == FcResultMatch
)
252 ASET (entity
, FONT_SIZE_INDEX
, make_number (dbl
));
255 ASET (entity
, FONT_SIZE_INDEX
, make_number (0));
256 if (FcPatternGetInteger (p
, FC_SPACING
, 0, &numeric
) == FcResultMatch
)
257 ASET (entity
, FONT_SPACING_INDEX
, make_number (numeric
));
258 if (FcPatternGetDouble (p
, FC_DPI
, 0, &dbl
) == FcResultMatch
)
261 ASET (entity
, FONT_DPI_INDEX
, make_number (dpi
));
263 if (FcPatternGetBool (p
, FC_SCALABLE
, 0, &b
) == FcResultMatch
266 ASET (entity
, FONT_SIZE_INDEX
, make_number (0));
267 ASET (entity
, FONT_AVGWIDTH_INDEX
, make_number (0));
271 /* As this font is not scalable, parhaps this is a BDF or PCF
275 ASET (entity
, FONT_ADSTYLE_INDEX
, get_adstyle_property (p
));
276 if ((ft_library
|| FT_Init_FreeType (&ft_library
) == 0)
277 && FT_New_Face (ft_library
, file
, idx
, &ft_face
) == 0)
281 if (FT_Get_BDF_Property (ft_face
, "AVERAGE_WIDTH", &rec
) == 0
282 && rec
.type
== BDF_PROPERTY_TYPE_INTEGER
)
283 ASET (entity
, FONT_AVGWIDTH_INDEX
, make_number (rec
.u
.integer
));
284 FT_Done_Face (ft_face
);
288 ASET (entity
, FONT_EXTRA_INDEX
, Fcopy_sequence (extra
));
289 font_put_extra (entity
, QCfont_entity
, key
);
294 static Lisp_Object ftfont_generic_family_list
;
297 ftfont_resolve_generic_family (Lisp_Object family
, FcPattern
*pattern
)
304 family
= Fintern (Fdowncase (SYMBOL_NAME (family
)), Qnil
);
305 if (EQ (family
, Qmono
))
307 else if (EQ (family
, Qsans
) || EQ (family
, Qsans__serif
))
308 family
= Qsans_serif
;
309 slot
= assq_no_quit (family
, ftfont_generic_family_list
);
312 if (! EQ (XCDR (slot
), Qt
))
314 pattern
= FcPatternDuplicate (pattern
);
317 FcPatternDel (pattern
, FC_FOUNDRY
);
318 FcPatternDel (pattern
, FC_FAMILY
);
319 FcPatternAddString (pattern
, FC_FAMILY
, SYMBOL_FcChar8 (family
));
320 if (FcPatternGetLangSet (pattern
, FC_LANG
, 0, &langset
) != FcResultMatch
)
322 /* This is to avoid the effect of locale. */
323 static const FcChar8 lang
[] = "en";
324 langset
= FcLangSetCreate ();
325 FcLangSetAdd (langset
, lang
);
326 FcPatternAddLangSet (pattern
, FC_LANG
, langset
);
327 FcLangSetDestroy (langset
);
329 FcConfigSubstitute (NULL
, pattern
, FcMatchPattern
);
330 FcDefaultSubstitute (pattern
);
331 match
= FcFontMatch (NULL
, pattern
, &result
);
336 if (FcPatternGetString (match
, FC_FAMILY
, 0, &fam
) == FcResultMatch
)
337 family
= intern ((char *) fam
);
341 XSETCDR (slot
, family
);
342 if (match
) FcPatternDestroy (match
);
344 if (pattern
) FcPatternDestroy (pattern
);
348 struct ftfont_cache_data
351 FcCharSet
*fc_charset
;
355 ftfont_lookup_cache (Lisp_Object key
, enum ftfont_cache_for cache_for
)
357 Lisp_Object cache
, val
, entity
;
358 struct ftfont_cache_data
*cache_data
;
360 if (FONT_ENTITY_P (key
))
363 val
= assq_no_quit (QCfont_entity
, AREF (entity
, FONT_EXTRA_INDEX
));
364 xassert (CONSP (val
));
370 if (NILP (ft_face_cache
))
373 cache
= Fgethash (key
, ft_face_cache
, Qnil
);
376 if (NILP (ft_face_cache
))
382 ft_face_cache
= Fmake_hash_table (2, args
);
384 cache_data
= xmalloc (sizeof (struct ftfont_cache_data
));
385 cache_data
->ft_face
= NULL
;
386 cache_data
->fc_charset
= NULL
;
387 val
= make_save_value (NULL
, 0);
388 XSAVE_VALUE (val
)->integer
= 0;
389 XSAVE_VALUE (val
)->pointer
= cache_data
;
390 cache
= Fcons (Qnil
, val
);
391 Fputhash (key
, cache
, ft_face_cache
);
396 cache_data
= XSAVE_VALUE (val
)->pointer
;
399 if (cache_for
== FTFONT_CACHE_FOR_ENTITY
)
402 if (cache_for
== FTFONT_CACHE_FOR_FACE
403 ? ! cache_data
->ft_face
: ! cache_data
->fc_charset
)
405 char *filename
= SSDATA (XCAR (key
));
406 int idx
= XINT (XCDR (key
));
408 if (cache_for
== FTFONT_CACHE_FOR_FACE
)
411 && FT_Init_FreeType (&ft_library
) != 0)
413 if (FT_New_Face (ft_library
, filename
, idx
, &cache_data
->ft_face
)
419 FcPattern
*pat
= NULL
;
420 FcFontSet
*fontset
= NULL
;
421 FcObjectSet
*objset
= NULL
;
422 FcCharSet
*charset
= NULL
;
424 pat
= FcPatternBuild (0, FC_FILE
, FcTypeString
, (FcChar8
*) filename
,
425 FC_INDEX
, FcTypeInteger
, idx
, NULL
);
428 objset
= FcObjectSetBuild (FC_CHARSET
, FC_STYLE
, NULL
);
431 fontset
= FcFontList (NULL
, pat
, objset
);
434 if (fontset
&& fontset
->nfont
> 0
435 && (FcPatternGetCharSet (fontset
->fonts
[0], FC_CHARSET
, 0,
438 cache_data
->fc_charset
= FcCharSetCopy (charset
);
440 cache_data
->fc_charset
= FcCharSetCreate ();
444 FcFontSetDestroy (fontset
);
446 FcObjectSetDestroy (objset
);
448 FcPatternDestroy (pat
);
455 ftfont_get_fc_charset (Lisp_Object entity
)
457 Lisp_Object val
, cache
;
458 struct ftfont_cache_data
*cache_data
;
460 cache
= ftfont_lookup_cache (entity
, FTFONT_CACHE_FOR_CHARSET
);
462 cache_data
= XSAVE_VALUE (val
)->pointer
;
463 return cache_data
->fc_charset
;
468 ftfont_get_otf (struct ftfont_info
*ftfont_info
)
472 if (ftfont_info
->otf
)
473 return ftfont_info
->otf
;
474 if (! ftfont_info
->maybe_otf
)
476 otf
= OTF_open_ft_face (ftfont_info
->ft_size
->face
);
477 if (! otf
|| OTF_get_table (otf
, "head") < 0)
481 ftfont_info
->maybe_otf
= 0;
484 ftfont_info
->otf
= otf
;
487 #endif /* HAVE_LIBOTF */
489 static Lisp_Object
ftfont_get_cache (FRAME_PTR
);
490 static Lisp_Object
ftfont_list (Lisp_Object
, Lisp_Object
);
491 static Lisp_Object
ftfont_match (Lisp_Object
, Lisp_Object
);
492 static Lisp_Object
ftfont_list_family (Lisp_Object
);
493 static Lisp_Object
ftfont_open (FRAME_PTR
, Lisp_Object
, int);
494 static void ftfont_close (FRAME_PTR
, struct font
*);
495 static int ftfont_has_char (Lisp_Object
, int);
496 static unsigned ftfont_encode_char (struct font
*, int);
497 static int ftfont_text_extents (struct font
*, unsigned *, int,
498 struct font_metrics
*);
499 static int ftfont_get_bitmap (struct font
*, unsigned,
500 struct font_bitmap
*, int);
501 static int ftfont_anchor_point (struct font
*, unsigned, int,
504 static Lisp_Object
ftfont_otf_capability (struct font
*);
505 # ifdef HAVE_M17N_FLT
506 static Lisp_Object
ftfont_shape (Lisp_Object
);
510 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS
511 static int ftfont_variation_glyphs (struct font
*, int c
,
512 unsigned variations
[256]);
513 #endif /* HAVE_OTF_GET_VARIATION_GLYPHS */
515 struct font_driver ftfont_driver
=
518 0, /* case insensitive */
523 NULL
, /* free_entity */
526 /* We can't draw a text without device dependent functions. */
527 NULL
, /* prepare_face */
528 NULL
, /* done_face */
532 /* We can't draw a text without device dependent functions. */
535 NULL
, /* get_bitmap */
536 NULL
, /* free_bitmap */
537 NULL
, /* get_outline */
540 ftfont_otf_capability
,
541 #else /* not HAVE_LIBOTF */
543 #endif /* not HAVE_LIBOTF */
544 NULL
, /* otf_drive */
545 NULL
, /* start_for_frame */
546 NULL
, /* end_for_frame */
547 #if defined (HAVE_M17N_FLT) && defined (HAVE_LIBOTF)
549 #else /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */
551 #endif /* not (HAVE_M17N_FLT && HAVE_LIBOTF) */
554 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS
555 ftfont_variation_glyphs
,
560 ftfont_filter_properties
, /* filter_properties */
564 ftfont_get_cache (FRAME_PTR f
)
566 return freetype_font_cache
;
570 ftfont_get_charset (Lisp_Object registry
)
572 char *str
= SSDATA (SYMBOL_NAME (registry
));
573 char *re
= alloca (SBYTES (SYMBOL_NAME (registry
)) * 2 + 1);
577 for (i
= j
= 0; i
< SBYTES (SYMBOL_NAME (registry
)); i
++, j
++)
581 else if (str
[i
] == '*')
588 regexp
= make_unibyte_string (re
, j
);
589 for (i
= 0; fc_charset_table
[i
].name
; i
++)
590 if (fast_c_string_match_ignore_case (regexp
, fc_charset_table
[i
].name
) >= 0)
592 if (! fc_charset_table
[i
].name
)
594 if (! fc_charset_table
[i
].fc_charset
)
596 FcCharSet
*charset
= FcCharSetCreate ();
597 int *uniquifier
= fc_charset_table
[i
].uniquifier
;
601 for (j
= 0; uniquifier
[j
]; j
++)
602 if (! FcCharSetAddChar (charset
, uniquifier
[j
]))
604 FcCharSetDestroy (charset
);
607 fc_charset_table
[i
].fc_charset
= charset
;
615 unsigned int script_tag
, langsys_tag
;
617 unsigned int *features
[2];
620 #define OTF_SYM_TAG(SYM, TAG) \
622 unsigned char *p = SDATA (SYMBOL_NAME (SYM)); \
623 TAG = (p[0] << 24) | (p[1] << 16) | (p[2] << 8) | p[3]; \
626 #define OTF_TAG_STR(TAG, P) \
628 (P)[0] = (char) (TAG >> 24); \
629 (P)[1] = (char) ((TAG >> 16) & 0xFF); \
630 (P)[2] = (char) ((TAG >> 8) & 0xFF); \
631 (P)[3] = (char) (TAG & 0xFF); \
636 #define OTF_TAG_SYM(SYM, TAG) \
640 OTF_TAG_STR (TAG, str); \
641 (SYM) = font_intern_prop (str, 4, 1); \
646 static struct OpenTypeSpec
*
647 ftfont_get_open_type_spec (Lisp_Object otf_spec
)
649 struct OpenTypeSpec
*spec
= malloc (sizeof (struct OpenTypeSpec
));
655 spec
->script
= XCAR (otf_spec
);
656 if (! NILP (spec
->script
))
658 OTF_SYM_TAG (spec
->script
, spec
->script_tag
);
659 val
= assq_no_quit (spec
->script
, Votf_script_alist
);
660 if (CONSP (val
) && SYMBOLP (XCDR (val
)))
661 spec
->script
= XCDR (val
);
666 spec
->script_tag
= 0x44464C54; /* "DFLT" */
667 otf_spec
= XCDR (otf_spec
);
668 spec
->langsys_tag
= 0;
669 if (! NILP (otf_spec
))
671 val
= XCAR (otf_spec
);
673 OTF_SYM_TAG (val
, spec
->langsys_tag
);
674 otf_spec
= XCDR (otf_spec
);
676 spec
->nfeatures
[0] = spec
->nfeatures
[1] = 0;
677 for (i
= 0; i
< 2 && ! NILP (otf_spec
); i
++, otf_spec
= XCDR (otf_spec
))
681 val
= XCAR (otf_spec
);
686 (min (PTRDIFF_MAX
, SIZE_MAX
) / sizeof (int) < XINT (len
)
688 : malloc (sizeof (int) * XINT (len
)));
689 if (! spec
->features
[i
])
691 if (i
> 0 && spec
->features
[0])
692 free (spec
->features
[0]);
696 for (j
= 0, negative
= 0; CONSP (val
); val
= XCDR (val
))
698 if (NILP (XCAR (val
)))
704 OTF_SYM_TAG (XCAR (val
), tag
);
705 spec
->features
[i
][j
++] = negative
? tag
& 0x80000000 : tag
;
708 spec
->nfeatures
[i
] = j
;
714 ftfont_spec_pattern (Lisp_Object spec
, char *otlayout
, struct OpenTypeSpec
**otspec
, const char **langname
)
716 Lisp_Object tmp
, extra
;
717 FcPattern
*pattern
= NULL
;
718 FcCharSet
*charset
= NULL
;
719 FcLangSet
*langset
= NULL
;
723 Lisp_Object script
= Qnil
;
724 Lisp_Object registry
;
727 if ((n
= FONT_SLANT_NUMERIC (spec
)) >= 0
729 /* Fontconfig doesn't support reverse-italic/obligue. */
732 if (INTEGERP (AREF (spec
, FONT_DPI_INDEX
)))
733 dpi
= XINT (AREF (spec
, FONT_DPI_INDEX
));
734 if (INTEGERP (AREF (spec
, FONT_AVGWIDTH_INDEX
))
735 && XINT (AREF (spec
, FONT_AVGWIDTH_INDEX
)) == 0)
738 registry
= AREF (spec
, FONT_REGISTRY_INDEX
);
740 || EQ (registry
, Qascii_0
)
741 || EQ (registry
, Qiso10646_1
)
742 || EQ (registry
, Qunicode_bmp
))
748 fc_charset_idx
= ftfont_get_charset (registry
);
749 if (fc_charset_idx
< 0)
751 charset
= fc_charset_table
[fc_charset_idx
].fc_charset
;
752 *langname
= fc_charset_table
[fc_charset_idx
].lang
;
753 lang
= (FcChar8
*) *langname
;
756 langset
= FcLangSetCreate ();
759 FcLangSetAdd (langset
, lang
);
764 for (extra
= AREF (spec
, FONT_EXTRA_INDEX
);
765 CONSP (extra
); extra
= XCDR (extra
))
767 Lisp_Object key
, val
;
769 key
= XCAR (XCAR (extra
)), val
= XCDR (XCAR (extra
));
775 else if (EQ (key
, QClang
))
778 langset
= FcLangSetCreate ();
783 if (! FcLangSetAdd (langset
, SYMBOL_FcChar8 (val
)))
787 for (; CONSP (val
); val
= XCDR (val
))
788 if (SYMBOLP (XCAR (val
))
789 && ! FcLangSetAdd (langset
, SYMBOL_FcChar8 (XCAR (val
))))
792 else if (EQ (key
, QCotf
))
796 *otspec
= ftfont_get_open_type_spec (val
);
799 strcat (otlayout
, "otlayout:");
800 OTF_TAG_STR ((*otspec
)->script_tag
, otlayout
+ 9);
801 script
= (*otspec
)->script
;
804 else if (EQ (key
, QCscript
))
806 else if (EQ (key
, QCscalable
))
807 scalable
= ! NILP (val
);
810 if (! NILP (script
) && ! charset
)
812 Lisp_Object chars
= assq_no_quit (script
, Vscript_representative_chars
);
814 if (CONSP (chars
) && CONSP (CDR (chars
)))
816 charset
= FcCharSetCreate ();
819 for (chars
= XCDR (chars
); CONSP (chars
); chars
= XCDR (chars
))
820 if (CHARACTERP (XCAR (chars
))
821 && ! FcCharSetAddChar (charset
, XFASTINT (XCAR (chars
))))
826 pattern
= FcPatternCreate ();
829 tmp
= AREF (spec
, FONT_FOUNDRY_INDEX
);
831 && ! FcPatternAddString (pattern
, FC_FOUNDRY
, SYMBOL_FcChar8 (tmp
)))
833 tmp
= AREF (spec
, FONT_FAMILY_INDEX
);
835 && ! FcPatternAddString (pattern
, FC_FAMILY
, SYMBOL_FcChar8 (tmp
)))
838 && ! FcPatternAddCharSet (pattern
, FC_CHARSET
, charset
))
841 && ! FcPatternAddLangSet (pattern
, FC_LANG
, langset
))
844 && ! FcPatternAddDouble (pattern
, FC_DPI
, dpi
))
847 && ! FcPatternAddBool (pattern
, FC_SCALABLE
, scalable
? FcTrue
: FcFalse
))
853 /* We come here because of unexpected error in fontconfig API call
854 (usually insufficient memory). */
857 FcPatternDestroy (pattern
);
862 if ((*otspec
)->nfeatures
[0] > 0)
863 free ((*otspec
)->features
[0]);
864 if ((*otspec
)->nfeatures
[1] > 0)
865 free ((*otspec
)->features
[1]);
871 if (langset
) FcLangSetDestroy (langset
);
872 if (charset
&& fc_charset_idx
< 0) FcCharSetDestroy (charset
);
877 ftfont_list (Lisp_Object frame
, Lisp_Object spec
)
879 Lisp_Object val
= Qnil
, family
, adstyle
;
882 FcFontSet
*fontset
= NULL
;
883 FcObjectSet
*objset
= NULL
;
885 Lisp_Object chars
= Qnil
;
886 char otlayout
[15]; /* For "otlayout:XXXX" */
887 struct OpenTypeSpec
*otspec
= NULL
;
889 const char *langname
= NULL
;
891 if (! fc_initialized
)
897 pattern
= ftfont_spec_pattern (spec
, otlayout
, &otspec
, &langname
);
900 if (FcPatternGetCharSet (pattern
, FC_CHARSET
, 0, &charset
) != FcResultMatch
)
902 val
= assq_no_quit (QCscript
, AREF (spec
, FONT_EXTRA_INDEX
));
905 val
= assq_no_quit (XCDR (val
), Vscript_representative_chars
);
906 if (CONSP (val
) && VECTORP (XCDR (val
)))
911 if (INTEGERP (AREF (spec
, FONT_SPACING_INDEX
)))
912 spacing
= XINT (AREF (spec
, FONT_SPACING_INDEX
));
913 family
= AREF (spec
, FONT_FAMILY_INDEX
);
916 Lisp_Object resolved
;
918 resolved
= ftfont_resolve_generic_family (family
, pattern
);
919 if (! NILP (resolved
))
921 FcPatternDel (pattern
, FC_FAMILY
);
922 if (! FcPatternAddString (pattern
, FC_FAMILY
,
923 SYMBOL_FcChar8 (resolved
)))
927 adstyle
= AREF (spec
, FONT_ADSTYLE_INDEX
);
928 if (! NILP (adstyle
) && SBYTES (SYMBOL_NAME (adstyle
)) == 0)
930 objset
= FcObjectSetBuild (FC_FOUNDRY
, FC_FAMILY
, FC_WEIGHT
, FC_SLANT
,
931 FC_WIDTH
, FC_PIXEL_SIZE
, FC_SPACING
, FC_SCALABLE
,
932 FC_STYLE
, FC_FILE
, FC_INDEX
,
935 #endif /* FC_CAPABILITY */
943 FcObjectSetAdd (objset
, FC_CHARSET
);
945 fontset
= FcFontList (NULL
, pattern
, objset
);
946 if (! fontset
|| fontset
->nfont
== 0)
949 /* Need fix because this finds any fonts. */
950 if (fontset
->nfont
== 0 && ! NILP (family
))
952 /* Try maching with configuration. For instance, the
953 configuration may specify "Nimbus Mono L" as an alias of
955 FcPattern
*pat
= FcPatternBuild (0, FC_FAMILY
, FcTypeString
,
956 SYMBOL_FcChar8 (family
), NULL
);
959 if (FcConfigSubstitute (NULL
, pat
, FcMatchPattern
) == FcTrue
)
962 FcPatternGetString (pat
, FC_FAMILY
, i
, &fam
) == FcResultMatch
;
965 FcPatternDel (pattern
, FC_FAMILY
);
966 FcPatternAddString (pattern
, FC_FAMILY
, fam
);
967 FcFontSetDestroy (fontset
);
968 fontset
= FcFontList (NULL
, pattern
, objset
);
969 if (fontset
&& fontset
->nfont
> 0)
975 for (i
= 0; i
< fontset
->nfont
; i
++)
983 if ((FcPatternGetInteger (fontset
->fonts
[i
], FC_SPACING
, 0, &this)
994 if (FcPatternGetString (fontset
->fonts
[i
], FC_CAPABILITY
, 0, &this)
996 || ! strstr ((char *) this, otlayout
))
999 #endif /* FC_CAPABILITY */
1006 if (FcPatternGetString (fontset
->fonts
[i
], FC_FILE
, 0, &file
)
1009 otf
= OTF_open ((char *) file
);
1012 if (OTF_check_features (otf
, 1,
1013 otspec
->script_tag
, otspec
->langsys_tag
,
1014 otspec
->features
[0],
1015 otspec
->nfeatures
[0]) != 1
1016 || OTF_check_features (otf
, 0,
1017 otspec
->script_tag
, otspec
->langsys_tag
,
1018 otspec
->features
[1],
1019 otspec
->nfeatures
[1]) != 1)
1022 #endif /* HAVE_LIBOTF */
1023 if (VECTORP (chars
))
1027 if (FcPatternGetCharSet (fontset
->fonts
[i
], FC_CHARSET
, 0, &charset
)
1030 for (j
= 0; j
< ASIZE (chars
); j
++)
1031 if (NATNUMP (AREF (chars
, j
))
1032 && FcCharSetHasChar (charset
, XFASTINT (AREF (chars
, j
))))
1034 if (j
== ASIZE (chars
))
1037 if (! NILP (adstyle
) || langname
)
1039 Lisp_Object this_adstyle
= get_adstyle_property (fontset
->fonts
[i
]);
1041 if (! NILP (adstyle
)
1042 && (NILP (this_adstyle
)
1043 || xstrcasecmp (SSDATA (SYMBOL_NAME (adstyle
)),
1044 SSDATA (SYMBOL_NAME (this_adstyle
))) != 0))
1047 && ! NILP (this_adstyle
)
1048 && xstrcasecmp (langname
, SSDATA (SYMBOL_NAME (this_adstyle
))))
1051 entity
= ftfont_pattern_entity (fontset
->fonts
[i
],
1052 AREF (spec
, FONT_EXTRA_INDEX
));
1053 if (! NILP (entity
))
1054 val
= Fcons (entity
, val
);
1056 val
= Fnreverse (val
);
1060 /* We come here because of unexpected error in fontconfig API call
1061 (usually insufficient memory). */
1065 FONT_ADD_LOG ("ftfont-list", spec
, val
);
1066 if (objset
) FcObjectSetDestroy (objset
);
1067 if (fontset
) FcFontSetDestroy (fontset
);
1068 if (pattern
) FcPatternDestroy (pattern
);
1073 ftfont_match (Lisp_Object frame
, Lisp_Object spec
)
1075 Lisp_Object entity
= Qnil
;
1076 FcPattern
*pattern
, *match
= NULL
;
1078 char otlayout
[15]; /* For "otlayout:XXXX" */
1079 struct OpenTypeSpec
*otspec
= NULL
;
1080 const char *langname
= NULL
;
1082 if (! fc_initialized
)
1088 pattern
= ftfont_spec_pattern (spec
, otlayout
, &otspec
, &langname
);
1092 if (INTEGERP (AREF (spec
, FONT_SIZE_INDEX
)))
1096 value
.type
= FcTypeDouble
;
1097 value
.u
.d
= XINT (AREF (spec
, FONT_SIZE_INDEX
));
1098 FcPatternAdd (pattern
, FC_PIXEL_SIZE
, value
, FcFalse
);
1100 if (FcConfigSubstitute (NULL
, pattern
, FcMatchPattern
) == FcTrue
)
1102 FcDefaultSubstitute (pattern
);
1103 match
= FcFontMatch (NULL
, pattern
, &result
);
1106 entity
= ftfont_pattern_entity (match
, AREF (spec
, FONT_EXTRA_INDEX
));
1107 FcPatternDestroy (match
);
1108 if (! NILP (AREF (spec
, FONT_FAMILY_INDEX
))
1109 && NILP (assq_no_quit (AREF (spec
, FONT_FAMILY_INDEX
),
1110 ftfont_generic_family_list
))
1111 && NILP (Fstring_equal (AREF (spec
, FONT_FAMILY_INDEX
),
1112 AREF (entity
, FONT_FAMILY_INDEX
))))
1116 FcPatternDestroy (pattern
);
1118 FONT_ADD_LOG ("ftfont-match", spec
, entity
);
1123 ftfont_list_family (Lisp_Object frame
)
1125 Lisp_Object list
= Qnil
;
1126 FcPattern
*pattern
= NULL
;
1127 FcFontSet
*fontset
= NULL
;
1128 FcObjectSet
*objset
= NULL
;
1131 if (! fc_initialized
)
1137 pattern
= FcPatternCreate ();
1140 objset
= FcObjectSetBuild (FC_FAMILY
, NULL
);
1143 fontset
= FcFontList (NULL
, pattern
, objset
);
1147 for (i
= 0; i
< fontset
->nfont
; i
++)
1149 FcPattern
*pat
= fontset
->fonts
[i
];
1152 if (FcPatternGetString (pat
, FC_FAMILY
, 0, &str
) == FcResultMatch
)
1153 list
= Fcons (intern ((char *) str
), list
);
1157 if (objset
) FcObjectSetDestroy (objset
);
1158 if (fontset
) FcFontSetDestroy (fontset
);
1159 if (pattern
) FcPatternDestroy (pattern
);
1166 ftfont_open (FRAME_PTR f
, Lisp_Object entity
, int pixel_size
)
1168 struct ftfont_info
*ftfont_info
;
1170 struct ftfont_cache_data
*cache_data
;
1174 Lisp_Object val
, filename
, idx
, cache
, font_object
;
1181 val
= assq_no_quit (QCfont_entity
, AREF (entity
, FONT_EXTRA_INDEX
));
1185 cache
= ftfont_lookup_cache (entity
, FTFONT_CACHE_FOR_FACE
);
1188 filename
= XCAR (val
);
1191 cache_data
= XSAVE_VALUE (XCDR (cache
))->pointer
;
1192 ft_face
= cache_data
->ft_face
;
1193 if (XSAVE_VALUE (val
)->integer
> 0)
1195 /* FT_Face in this cache is already used by the different size. */
1196 if (FT_New_Size (ft_face
, &ft_size
) != 0)
1198 if (FT_Activate_Size (ft_size
) != 0)
1200 FT_Done_Size (ft_size
);
1204 XSAVE_VALUE (val
)->integer
++;
1205 size
= XINT (AREF (entity
, FONT_SIZE_INDEX
));
1208 if (FT_Set_Pixel_Sizes (ft_face
, size
, size
) != 0)
1210 if (XSAVE_VALUE (val
)->integer
== 0)
1211 FT_Done_Face (ft_face
);
1215 font_object
= font_make_object (VECSIZE (struct ftfont_info
), entity
, size
);
1216 ASET (font_object
, FONT_TYPE_INDEX
, Qfreetype
);
1217 len
= font_unparse_xlfd (entity
, size
, name
, 256);
1219 ASET (font_object
, FONT_NAME_INDEX
, make_string (name
, len
));
1220 len
= font_unparse_fcname (entity
, size
, name
, 256);
1222 ASET (font_object
, FONT_FULLNAME_INDEX
, make_string (name
, len
));
1224 ASET (font_object
, FONT_FULLNAME_INDEX
,
1225 AREF (font_object
, FONT_NAME_INDEX
));
1226 ASET (font_object
, FONT_FILE_INDEX
, filename
);
1227 ASET (font_object
, FONT_FORMAT_INDEX
, ftfont_font_format (NULL
, filename
));
1228 font
= XFONT_OBJECT (font_object
);
1229 ftfont_info
= (struct ftfont_info
*) font
;
1230 ftfont_info
->ft_size
= ft_face
->size
;
1231 ftfont_info
->index
= XINT (idx
);
1233 ftfont_info
->maybe_otf
= ft_face
->face_flags
& FT_FACE_FLAG_SFNT
;
1234 ftfont_info
->otf
= NULL
;
1235 #endif /* HAVE_LIBOTF */
1236 /* This means that there's no need of transformation. */
1237 ftfont_info
->matrix
.xx
= 0;
1238 font
->pixel_size
= size
;
1239 font
->driver
= &ftfont_driver
;
1240 font
->encoding_charset
= font
->repertory_charset
= -1;
1242 upEM
= ft_face
->units_per_EM
;
1243 scalable
= (INTEGERP (AREF (entity
, FONT_AVGWIDTH_INDEX
))
1244 && XINT (AREF (entity
, FONT_AVGWIDTH_INDEX
)) == 0);
1247 font
->ascent
= ft_face
->ascender
* size
/ upEM
;
1248 font
->descent
= - ft_face
->descender
* size
/ upEM
;
1249 font
->height
= ft_face
->height
* size
/ upEM
;
1253 font
->ascent
= ft_face
->size
->metrics
.ascender
>> 6;
1254 font
->descent
= - ft_face
->size
->metrics
.descender
>> 6;
1255 font
->height
= ft_face
->size
->metrics
.height
>> 6;
1257 if (INTEGERP (AREF (entity
, FONT_SPACING_INDEX
)))
1258 spacing
= XINT (AREF (entity
, FONT_SPACING_INDEX
));
1260 spacing
= FC_PROPORTIONAL
;
1261 if (spacing
!= FC_PROPORTIONAL
1263 && spacing
!= FC_DUAL
1264 #endif /* FC_DUAL */
1266 font
->min_width
= font
->average_width
= font
->space_width
1267 = (scalable
? ft_face
->max_advance_width
* size
/ upEM
1268 : ft_face
->size
->metrics
.max_advance
>> 6);
1273 font
->min_width
= font
->average_width
= font
->space_width
= 0;
1274 for (i
= 32, n
= 0; i
< 127; i
++)
1275 if (FT_Load_Char (ft_face
, i
, FT_LOAD_DEFAULT
) == 0)
1277 int this_width
= ft_face
->glyph
->metrics
.horiAdvance
>> 6;
1280 && (! font
->min_width
|| font
->min_width
> this_width
))
1281 font
->min_width
= this_width
;
1283 font
->space_width
= this_width
;
1284 font
->average_width
+= this_width
;
1288 font
->average_width
/= n
;
1291 font
->baseline_offset
= 0;
1292 font
->relative_compose
= 0;
1293 font
->default_ascent
= 0;
1294 font
->vertical_centering
= 0;
1297 font
->underline_position
= -ft_face
->underline_position
* size
/ upEM
;
1298 font
->underline_thickness
= ft_face
->underline_thickness
* size
/ upEM
;
1302 font
->underline_position
= -1;
1303 font
->underline_thickness
= 0;
1310 ftfont_close (FRAME_PTR f
, struct font
*font
)
1312 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1313 Lisp_Object val
, cache
;
1315 val
= Fcons (font
->props
[FONT_FILE_INDEX
], make_number (ftfont_info
->index
));
1316 cache
= ftfont_lookup_cache (val
, FTFONT_CACHE_FOR_FACE
);
1317 xassert (CONSP (cache
));
1319 (XSAVE_VALUE (val
)->integer
)--;
1320 if (XSAVE_VALUE (val
)->integer
== 0)
1322 struct ftfont_cache_data
*cache_data
= XSAVE_VALUE (val
)->pointer
;
1324 FT_Done_Face (cache_data
->ft_face
);
1326 if (ftfont_info
->otf
)
1327 OTF_close (ftfont_info
->otf
);
1329 cache_data
->ft_face
= NULL
;
1332 FT_Done_Size (ftfont_info
->ft_size
);
1336 ftfont_has_char (Lisp_Object font
, int c
)
1338 struct charset
*cs
= NULL
;
1340 if (EQ (AREF (font
, FONT_ADSTYLE_INDEX
), Qja
)
1341 && charset_jisx0208
>= 0)
1342 cs
= CHARSET_FROM_ID (charset_jisx0208
);
1343 else if (EQ (AREF (font
, FONT_ADSTYLE_INDEX
), Qko
)
1344 && charset_ksc5601
>= 0)
1345 cs
= CHARSET_FROM_ID (charset_ksc5601
);
1347 return (ENCODE_CHAR (cs
, c
) != CHARSET_INVALID_CODE (cs
));
1349 if (FONT_ENTITY_P (font
))
1351 FcCharSet
*charset
= ftfont_get_fc_charset (font
);
1353 return (FcCharSetHasChar (charset
, c
) == FcTrue
);
1357 struct ftfont_info
*ftfont_info
;
1359 ftfont_info
= (struct ftfont_info
*) XFONT_OBJECT (font
);
1360 return (FT_Get_Char_Index (ftfont_info
->ft_size
->face
, (FT_ULong
) c
)
1366 ftfont_encode_char (struct font
*font
, int c
)
1368 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1369 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1370 FT_ULong charcode
= c
;
1371 FT_UInt code
= FT_Get_Char_Index (ft_face
, charcode
);
1373 return (code
> 0 ? code
: FONT_INVALID_CODE
);
1377 ftfont_text_extents (struct font
*font
, unsigned int *code
, int nglyphs
, struct font_metrics
*metrics
)
1379 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1380 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1384 if (ftfont_info
->ft_size
!= ft_face
->size
)
1385 FT_Activate_Size (ftfont_info
->ft_size
);
1387 memset (metrics
, 0, sizeof (struct font_metrics
));
1388 for (i
= 0, first
= 1; i
< nglyphs
; i
++)
1390 if (FT_Load_Glyph (ft_face
, code
[i
], FT_LOAD_DEFAULT
) == 0)
1392 FT_Glyph_Metrics
*m
= &ft_face
->glyph
->metrics
;
1398 metrics
->lbearing
= m
->horiBearingX
>> 6;
1399 metrics
->rbearing
= (m
->horiBearingX
+ m
->width
) >> 6;
1400 metrics
->ascent
= m
->horiBearingY
>> 6;
1401 metrics
->descent
= (m
->height
- m
->horiBearingY
) >> 6;
1407 if (metrics
->lbearing
> width
+ (m
->horiBearingX
>> 6))
1408 metrics
->lbearing
= width
+ (m
->horiBearingX
>> 6);
1409 if (metrics
->rbearing
1410 < width
+ ((m
->horiBearingX
+ m
->width
) >> 6))
1412 = width
+ ((m
->horiBearingX
+ m
->width
) >> 6);
1413 if (metrics
->ascent
< (m
->horiBearingY
>> 6))
1414 metrics
->ascent
= m
->horiBearingY
>> 6;
1415 if (metrics
->descent
> ((m
->height
- m
->horiBearingY
) >> 6))
1416 metrics
->descent
= (m
->height
- m
->horiBearingY
) >> 6;
1418 width
+= m
->horiAdvance
>> 6;
1422 width
+= font
->space_width
;
1426 metrics
->width
= width
;
1432 ftfont_get_bitmap (struct font
*font
, unsigned int code
, struct font_bitmap
*bitmap
, int bits_per_pixel
)
1434 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1435 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1436 FT_Int32 load_flags
= FT_LOAD_RENDER
;
1438 if (ftfont_info
->ft_size
!= ft_face
->size
)
1439 FT_Activate_Size (ftfont_info
->ft_size
);
1440 if (bits_per_pixel
== 1)
1442 #ifdef FT_LOAD_TARGET_MONO
1443 load_flags
|= FT_LOAD_TARGET_MONO
;
1445 load_flags
|= FT_LOAD_MONOCHROME
;
1448 else if (bits_per_pixel
!= 8)
1449 /* We don't support such a rendering. */
1452 if (FT_Load_Glyph (ft_face
, code
, load_flags
) != 0)
1454 bitmap
->bits_per_pixel
1455 = (ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_MONO
? 1
1456 : ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_GRAY
? 8
1457 : ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_LCD
? 8
1458 : ft_face
->glyph
->bitmap
.pixel_mode
== FT_PIXEL_MODE_LCD_V
? 8
1460 if (bitmap
->bits_per_pixel
< 0)
1461 /* We don't suport that kind of pixel mode. */
1463 bitmap
->rows
= ft_face
->glyph
->bitmap
.rows
;
1464 bitmap
->width
= ft_face
->glyph
->bitmap
.width
;
1465 bitmap
->pitch
= ft_face
->glyph
->bitmap
.pitch
;
1466 bitmap
->buffer
= ft_face
->glyph
->bitmap
.buffer
;
1467 bitmap
->left
= ft_face
->glyph
->bitmap_left
;
1468 bitmap
->top
= ft_face
->glyph
->bitmap_top
;
1469 bitmap
->advance
= ft_face
->glyph
->metrics
.horiAdvance
>> 6;
1470 bitmap
->extra
= NULL
;
1476 ftfont_anchor_point (struct font
*font
, unsigned int code
, int idx
,
1479 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1480 FT_Face ft_face
= ftfont_info
->ft_size
->face
;
1482 if (ftfont_info
->ft_size
!= ft_face
->size
)
1483 FT_Activate_Size (ftfont_info
->ft_size
);
1484 if (FT_Load_Glyph (ft_face
, code
, FT_LOAD_DEFAULT
) != 0)
1486 if (ft_face
->glyph
->format
!= FT_GLYPH_FORMAT_OUTLINE
)
1488 if (idx
>= ft_face
->glyph
->outline
.n_points
)
1490 *x
= ft_face
->glyph
->outline
.points
[idx
].x
;
1491 *y
= ft_face
->glyph
->outline
.points
[idx
].y
;
1498 ftfont_otf_features (OTF_GSUB_GPOS
*gsub_gpos
)
1500 Lisp_Object scripts
, langsyses
, features
, sym
;
1503 for (scripts
= Qnil
, i
= gsub_gpos
->ScriptList
.ScriptCount
- 1; i
>= 0; i
--)
1505 OTF_Script
*otf_script
= gsub_gpos
->ScriptList
.Script
+ i
;
1507 for (langsyses
= Qnil
, j
= otf_script
->LangSysCount
- 1; j
>= -1; j
--)
1509 OTF_LangSys
*otf_langsys
;
1512 otf_langsys
= otf_script
->LangSys
+ j
;
1513 else if (otf_script
->DefaultLangSysOffset
)
1514 otf_langsys
= &otf_script
->DefaultLangSys
;
1518 for (features
= Qnil
, k
= otf_langsys
->FeatureCount
- 1; k
>= 0; k
--)
1520 l
= otf_langsys
->FeatureIndex
[k
];
1521 if (l
>= gsub_gpos
->FeatureList
.FeatureCount
)
1523 OTF_TAG_SYM (sym
, gsub_gpos
->FeatureList
.Feature
[l
].FeatureTag
);
1524 features
= Fcons (sym
, features
);
1527 OTF_TAG_SYM (sym
, otf_script
->LangSysRecord
[j
].LangSysTag
);
1530 langsyses
= Fcons (Fcons (sym
, features
), langsyses
);
1533 OTF_TAG_SYM (sym
, gsub_gpos
->ScriptList
.Script
[i
].ScriptTag
);
1534 scripts
= Fcons (Fcons (sym
, langsyses
), scripts
);
1542 ftfont_otf_capability (struct font
*font
)
1544 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
1545 OTF
*otf
= ftfont_get_otf (ftfont_info
);
1546 Lisp_Object gsub_gpos
;
1550 gsub_gpos
= Fcons (Qnil
, Qnil
);
1551 if (OTF_get_table (otf
, "GSUB") == 0
1552 && otf
->gsub
->FeatureList
.FeatureCount
> 0)
1553 XSETCAR (gsub_gpos
, ftfont_otf_features (otf
->gsub
));
1554 if (OTF_get_table (otf
, "GPOS") == 0
1555 && otf
->gpos
->FeatureList
.FeatureCount
> 0)
1556 XSETCDR (gsub_gpos
, ftfont_otf_features (otf
->gpos
));
1560 #ifdef HAVE_M17N_FLT
1562 #if (((LIBOTF_MAJOR_VERSION > 1) || (LIBOTF_RELEASE_NUMBER >= 10)) \
1563 && ((M17NLIB_MAJOR_VERSION > 1) || (M17NLIB_MINOR_VERSION >= 6)))
1564 /* We can use the new feature of libotf and m17n-flt to handle the
1565 character encoding scheme introduced in Unicode 5.1 and 5.2 for
1566 some Agian scripts. */
1567 #define M17N_FLT_USE_NEW_FEATURE
1580 ftfont_get_glyph_id (MFLTFont
*font
, MFLTGlyphString
*gstring
,
1583 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1584 FT_Face ft_face
= flt_font_ft
->ft_face
;
1587 for (g
= gstring
->glyphs
+ from
; from
< to
; g
++, from
++)
1590 FT_UInt code
= FT_Get_Char_Index (ft_face
, g
->code
);
1592 g
->code
= code
> 0 ? code
: FONT_INVALID_CODE
;
1598 /* Operators for 26.6 fixed fractional pixel format */
1600 #define FLOOR(x) ((x) & -64)
1601 #define CEIL(x) (((x)+63) & -64)
1602 #define ROUND(x) (((x)+32) & -64)
1605 ftfont_get_metrics (MFLTFont
*font
, MFLTGlyphString
*gstring
,
1608 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1609 FT_Face ft_face
= flt_font_ft
->ft_face
;
1612 for (g
= gstring
->glyphs
+ from
; from
< to
; g
++, from
++)
1615 if (g
->code
!= FONT_INVALID_CODE
)
1617 FT_Glyph_Metrics
*m
;
1619 if (FT_Load_Glyph (ft_face
, g
->code
, FT_LOAD_DEFAULT
) != 0)
1621 m
= &ft_face
->glyph
->metrics
;
1622 if (flt_font_ft
->matrix
)
1627 v
[0].x
= v
[1].x
= m
->horiBearingX
;
1628 v
[2].x
= v
[3].x
= m
->horiBearingX
+ m
->width
;
1629 v
[0].y
= v
[2].y
= m
->horiBearingY
;
1630 v
[1].y
= v
[3].y
= m
->horiBearingY
- m
->height
;
1631 for (i
= 0; i
< 4; i
++)
1632 FT_Vector_Transform (v
+ i
, flt_font_ft
->matrix
);
1633 g
->lbearing
= v
[0].x
< v
[1].x
? FLOOR (v
[0].x
) : FLOOR (v
[1].x
);
1634 g
->rbearing
= v
[2].x
> v
[3].x
? CEIL (v
[2].x
) : CEIL (v
[3].x
);
1635 g
->ascent
= v
[0].y
> v
[2].y
? CEIL (v
[0].y
) : CEIL (v
[2].y
);
1636 g
->descent
= v
[1].y
< v
[3].y
? - FLOOR (v
[1].y
) : - FLOOR (v
[3].y
);
1640 g
->lbearing
= FLOOR (m
->horiBearingX
);
1641 g
->rbearing
= CEIL (m
->horiBearingX
+ m
->width
);
1642 g
->ascent
= CEIL (m
->horiBearingY
);
1643 g
->descent
= - FLOOR (m
->horiBearingY
- m
->height
);
1645 g
->xadv
= ROUND (ft_face
->glyph
->advance
.x
);
1650 g
->rbearing
= g
->xadv
= flt_font_ft
->font
->space_width
<< 6;
1651 g
->ascent
= flt_font_ft
->font
->ascent
<< 6;
1652 g
->descent
= flt_font_ft
->font
->descent
<< 6;
1661 ftfont_check_otf (MFLTFont
*font
, MFLTOtfSpec
*spec
)
1663 #define FEATURE_NONE(IDX) (! spec->features[IDX])
1665 #define FEATURE_ANY(IDX) \
1666 (spec->features[IDX] \
1667 && spec->features[IDX][0] == 0xFFFFFFFF && spec->features[IDX][1] == 0)
1669 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1670 OTF
*otf
= flt_font_ft
->otf
;
1674 if (FEATURE_ANY (0) && FEATURE_ANY (1))
1675 /* Return 1 iff any of GSUB or GPOS support the script (and language). */
1677 && (OTF_check_features (otf
, 0, spec
->script
, spec
->langsys
,
1679 || OTF_check_features (otf
, 1, spec
->script
, spec
->langsys
,
1682 for (i
= 0; i
< 2; i
++)
1683 if (! FEATURE_ANY (i
))
1685 if (FEATURE_NONE (i
))
1688 && OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1693 if (spec
->features
[i
][0] == 0xFFFFFFFF)
1696 || OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1702 for (n
= 1; spec
->features
[i
][n
]; n
++);
1703 tags
= alloca (sizeof (OTF_Tag
) * n
);
1704 for (n
= 0, negative
= 0; spec
->features
[i
][n
]; n
++)
1706 if (spec
->features
[i
][n
] == 0xFFFFFFFF)
1709 tags
[n
- 1] = spec
->features
[i
][n
] | 0x80000000;
1711 tags
[n
] = spec
->features
[i
][n
];
1713 #ifdef M17N_FLT_USE_NEW_FEATURE
1714 if (OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1715 tags
, n
- negative
) != 1)
1717 #else /* not M17N_FLT_USE_NEW_FEATURE */
1718 if (n
- negative
> 0
1719 && OTF_check_features (otf
, i
== 0, spec
->script
, spec
->langsys
,
1720 tags
, n
- negative
) != 1)
1722 #endif /* not M17N_FLT_USE_NEW_FEATURE */
1729 #define DEVICE_DELTA(table, size) \
1730 (((size) >= (table).StartSize && (size) <= (table).EndSize) \
1731 ? (table).DeltaValue[(size) - (table).StartSize] << 6 \
1735 adjust_anchor (FT_Face ft_face
, OTF_Anchor
*anchor
,
1736 unsigned code
, int x_ppem
, int y_ppem
, int *x
, int *y
)
1738 if (anchor
->AnchorFormat
== 2)
1740 FT_Outline
*outline
;
1741 int ap
= anchor
->f
.f1
.AnchorPoint
;
1743 FT_Load_Glyph (ft_face
, (FT_UInt
) code
, FT_LOAD_MONOCHROME
);
1744 outline
= &ft_face
->glyph
->outline
;
1745 if (ap
< outline
->n_points
)
1747 *x
= outline
->points
[ap
].x
<< 6;
1748 *y
= outline
->points
[ap
].y
<< 6;
1751 else if (anchor
->AnchorFormat
== 3)
1753 if (anchor
->f
.f2
.XDeviceTable
.offset
1754 && anchor
->f
.f2
.XDeviceTable
.DeltaValue
)
1755 *x
+= DEVICE_DELTA (anchor
->f
.f2
.XDeviceTable
, x_ppem
);
1756 if (anchor
->f
.f2
.YDeviceTable
.offset
1757 && anchor
->f
.f2
.YDeviceTable
.DeltaValue
)
1758 *y
+= DEVICE_DELTA (anchor
->f
.f2
.YDeviceTable
, y_ppem
);
1762 static OTF_GlyphString otf_gstring
;
1765 setup_otf_gstring (int size
)
1767 if (otf_gstring
.size
< size
)
1769 otf_gstring
.glyphs
= xnrealloc (otf_gstring
.glyphs
,
1770 size
, sizeof (OTF_Glyph
));
1771 otf_gstring
.size
= size
;
1773 otf_gstring
.used
= size
;
1774 memset (otf_gstring
.glyphs
, 0, sizeof (OTF_Glyph
) * size
);
1777 #ifdef M17N_FLT_USE_NEW_FEATURE
1779 /* Pack 32-bit OTF tag (0x7F7F7F7F) into 28-bit (0x0FFFFFFF). */
1780 #define PACK_OTF_TAG(TAG) \
1781 ((((TAG) & 0x7F000000) >> 3) \
1782 | (((TAG) & 0x7F0000) >> 2) \
1783 | (((TAG) & 0x7F00) >> 1) \
1786 /* Assuming that FONT is an OpenType font, apply OpenType features
1787 specified in SPEC on glyphs between FROM and TO of IN, and record
1788 the lastly applied feature in each glyph of IN. If OUT is not
1789 NULL, append the resulting glyphs to OUT while storing glyph
1790 position adjustment information in ADJUSTMENT. */
1793 ftfont_drive_otf (MFLTFont
*font
,
1795 MFLTGlyphString
*in
,
1798 MFLTGlyphString
*out
,
1799 MFLTGlyphAdjustment
*adjustment
)
1801 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
1802 FT_Face ft_face
= flt_font_ft
->ft_face
;
1803 OTF
*otf
= flt_font_ft
->otf
;
1804 int len
= to
- from
;
1807 char script
[5], *langsys
= NULL
;
1808 char *gsub_features
= NULL
, *gpos_features
= NULL
;
1809 OTF_Feature
*features
;
1813 OTF_tag_name (spec
->script
, script
);
1816 langsys
= alloca (5);
1817 OTF_tag_name (spec
->langsys
, langsys
);
1819 for (i
= 0; i
< 2; i
++)
1823 if (spec
->features
[i
] && spec
->features
[i
][1] != 0xFFFFFFFF)
1825 for (j
= 0; spec
->features
[i
][j
]; j
++);
1827 p
= gsub_features
= alloca (6 * j
);
1829 p
= gpos_features
= alloca (6 * j
);
1830 for (j
= 0; spec
->features
[i
][j
]; j
++)
1832 if (spec
->features
[i
][j
] == 0xFFFFFFFF)
1833 *p
++ = '*', *p
++ = ',';
1836 OTF_tag_name (spec
->features
[i
][j
], p
);
1845 setup_otf_gstring (len
);
1846 for (i
= 0; i
< len
; i
++)
1848 otf_gstring
.glyphs
[i
].c
= in
->glyphs
[from
+ i
].c
;
1849 otf_gstring
.glyphs
[i
].glyph_id
= in
->glyphs
[from
+ i
].code
;
1852 OTF_drive_gdef (otf
, &otf_gstring
);
1853 gidx
= out
? out
->used
: from
;
1855 if (gsub_features
&& out
)
1857 if (OTF_drive_gsub_with_log (otf
, &otf_gstring
, script
, langsys
,
1860 if (out
->allocated
< out
->used
+ otf_gstring
.used
)
1862 features
= otf
->gsub
->FeatureList
.Feature
;
1863 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
; )
1866 int min_from
, max_to
;
1867 int feature_idx
= otfg
->positioning_type
>> 4;
1869 g
= out
->glyphs
+ out
->used
;
1870 *g
= in
->glyphs
[from
+ otfg
->f
.index
.from
];
1871 if (g
->code
!= otfg
->glyph_id
)
1874 g
->code
= otfg
->glyph_id
;
1880 if (otfg
->f
.index
.from
< otfg
->f
.index
.to
)
1882 /* OTFG substitutes multiple glyphs in IN. */
1883 for (j
= from
+ otfg
->f
.index
.from
+ 1;
1884 j
<= from
+ otfg
->f
.index
.to
; j
++)
1886 if (min_from
> in
->glyphs
[j
].from
)
1887 min_from
= in
->glyphs
[j
].from
;
1888 if (max_to
< in
->glyphs
[j
].to
)
1889 max_to
= in
->glyphs
[j
].to
;
1896 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1897 tag
= PACK_OTF_TAG (tag
);
1898 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1900 for (i
++, otfg
++; (i
< otf_gstring
.used
1901 && otfg
->f
.index
.from
== otfg
[-1].f
.index
.from
);
1904 g
= out
->glyphs
+ out
->used
;
1905 *g
= in
->glyphs
[from
+ otfg
->f
.index
.to
];
1906 if (g
->code
!= otfg
->glyph_id
)
1909 g
->code
= otfg
->glyph_id
;
1912 feature_idx
= otfg
->positioning_type
>> 4;
1915 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1916 tag
= PACK_OTF_TAG (tag
);
1917 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1923 else if (gsub_features
)
1925 /* Just for checking which features will be applied. */
1926 if (OTF_drive_gsub_with_log (otf
, &otf_gstring
, script
, langsys
,
1929 features
= otf
->gsub
->FeatureList
.Feature
;
1930 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
; i
++,
1933 int feature_idx
= otfg
->positioning_type
>> 4;
1937 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1938 tag
= PACK_OTF_TAG (tag
);
1939 for (j
= otfg
->f
.index
.from
; j
<= otfg
->f
.index
.to
; j
++)
1941 MFLTGlyph
*g
= in
->glyphs
+ (from
+ j
);
1942 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1949 if (out
->allocated
< out
->used
+ len
)
1951 for (i
= 0; i
< len
; i
++)
1952 out
->glyphs
[out
->used
++] = in
->glyphs
[from
+ i
];
1955 if (gpos_features
&& out
)
1957 MFLTGlyph
*base
= NULL
, *mark
= NULL
, *g
;
1958 int x_ppem
, y_ppem
, x_scale
, y_scale
;
1960 if (OTF_drive_gpos_with_log (otf
, &otf_gstring
, script
, langsys
,
1963 features
= otf
->gpos
->FeatureList
.Feature
;
1964 x_ppem
= ft_face
->size
->metrics
.x_ppem
;
1965 y_ppem
= ft_face
->size
->metrics
.y_ppem
;
1966 x_scale
= ft_face
->size
->metrics
.x_scale
;
1967 y_scale
= ft_face
->size
->metrics
.y_scale
;
1969 for (i
= 0, otfg
= otf_gstring
.glyphs
, g
= out
->glyphs
+ gidx
;
1970 i
< otf_gstring
.used
; i
++, otfg
++, g
++)
1973 int feature_idx
= otfg
->positioning_type
>> 4;
1977 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
1978 tag
= PACK_OTF_TAG (tag
);
1979 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
1982 if (! otfg
->glyph_id
)
1984 switch (otfg
->positioning_type
& 0xF)
1988 case 1: /* Single */
1991 int format
= otfg
->f
.f1
.format
;
1993 if (format
& OTF_XPlacement
)
1995 = otfg
->f
.f1
.value
->XPlacement
* x_scale
/ 0x10000;
1996 if (format
& OTF_XPlaDevice
)
1998 += DEVICE_DELTA (otfg
->f
.f1
.value
->XPlaDevice
, x_ppem
);
1999 if (format
& OTF_YPlacement
)
2001 = - (otfg
->f
.f1
.value
->YPlacement
* y_scale
/ 0x10000);
2002 if (format
& OTF_YPlaDevice
)
2004 -= DEVICE_DELTA (otfg
->f
.f1
.value
->YPlaDevice
, y_ppem
);
2005 if (format
& OTF_XAdvance
)
2007 += otfg
->f
.f1
.value
->XAdvance
* x_scale
/ 0x10000;
2008 if (format
& OTF_XAdvDevice
)
2010 += DEVICE_DELTA (otfg
->f
.f1
.value
->XAdvDevice
, x_ppem
);
2011 if (format
& OTF_YAdvance
)
2013 += otfg
->f
.f1
.value
->YAdvance
* y_scale
/ 0x10000;
2014 if (format
& OTF_YAdvDevice
)
2016 += DEVICE_DELTA (otfg
->f
.f1
.value
->YAdvDevice
, y_ppem
);
2017 adjustment
[i
].set
= 1;
2020 case 3: /* Cursive */
2021 /* Not yet supported. */
2023 case 4: /* Mark-to-Base */
2024 case 5: /* Mark-to-Ligature */
2028 goto label_adjust_anchor
;
2029 default: /* i.e. case 6 Mark-to-Mark */
2034 label_adjust_anchor
:
2036 int base_x
, base_y
, mark_x
, mark_y
;
2037 int this_from
, this_to
;
2039 base_x
= otfg
->f
.f4
.base_anchor
->XCoordinate
* x_scale
/ 0x10000;
2040 base_y
= otfg
->f
.f4
.base_anchor
->YCoordinate
* y_scale
/ 0x10000;
2041 mark_x
= otfg
->f
.f4
.mark_anchor
->XCoordinate
* x_scale
/ 0x10000;
2042 mark_y
= otfg
->f
.f4
.mark_anchor
->YCoordinate
* y_scale
/ 0x10000;
2044 if (otfg
->f
.f4
.base_anchor
->AnchorFormat
!= 1)
2045 adjust_anchor (ft_face
, otfg
->f
.f4
.base_anchor
,
2046 prev
->code
, x_ppem
, y_ppem
, &base_x
, &base_y
);
2047 if (otfg
->f
.f4
.mark_anchor
->AnchorFormat
!= 1)
2048 adjust_anchor (ft_face
, otfg
->f
.f4
.mark_anchor
, g
->code
,
2049 x_ppem
, y_ppem
, &mark_x
, &mark_y
);
2050 adjustment
[i
].xoff
= (base_x
- mark_x
);
2051 adjustment
[i
].yoff
= - (base_y
- mark_y
);
2052 adjustment
[i
].back
= (g
- prev
);
2053 adjustment
[i
].xadv
= 0;
2054 adjustment
[i
].advance_is_absolute
= 1;
2055 adjustment
[i
].set
= 1;
2056 this_from
= g
->from
;
2058 for (j
= 0; prev
+ j
< g
; j
++)
2060 if (this_from
> prev
[j
].from
)
2061 this_from
= prev
[j
].from
;
2062 if (this_to
< prev
[j
].to
)
2063 this_to
= prev
[j
].to
;
2065 for (; prev
<= g
; prev
++)
2067 prev
->from
= this_from
;
2072 if (otfg
->GlyphClass
== OTF_GlyphClass0
)
2074 else if (otfg
->GlyphClass
== OTF_GlyphClassMark
)
2080 else if (gpos_features
)
2082 if (OTF_drive_gpos_with_log (otf
, &otf_gstring
, script
, langsys
,
2085 features
= otf
->gpos
->FeatureList
.Feature
;
2086 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
;
2088 if (otfg
->positioning_type
& 0xF)
2090 int feature_idx
= otfg
->positioning_type
>> 4;
2094 unsigned int tag
= features
[feature_idx
- 1].FeatureTag
;
2095 tag
= PACK_OTF_TAG (tag
);
2096 for (j
= otfg
->f
.index
.from
; j
<= otfg
->f
.index
.to
; j
++)
2098 MFLTGlyph
*g
= in
->glyphs
+ (from
+ j
);
2099 g
->internal
= (g
->internal
& ~0x1FFFFFFF) | tag
;
2109 if (out
->allocated
< out
->used
+ len
)
2111 font
->get_metrics (font
, in
, from
, to
);
2112 memcpy (out
->glyphs
+ out
->used
, in
->glyphs
+ from
,
2113 sizeof (MFLTGlyph
) * len
);
2119 ftfont_try_otf (MFLTFont
*font
, MFLTOtfSpec
*spec
,
2120 MFLTGlyphString
*in
, int from
, int to
)
2122 return ftfont_drive_otf (font
, spec
, in
, from
, to
, NULL
, NULL
);
2125 #else /* not M17N_FLT_USE_NEW_FEATURE */
2128 ftfont_drive_otf (MFLTFont
*font
, MFLTOtfSpec
*spec
, MFLTGlyphString
*in
,
2130 MFLTGlyphString
*out
, MFLTGlyphAdjustment
*adjustment
)
2132 struct MFLTFontFT
*flt_font_ft
= (struct MFLTFontFT
*) font
;
2133 FT_Face ft_face
= flt_font_ft
->ft_face
;
2134 OTF
*otf
= flt_font_ft
->otf
;
2135 int len
= to
- from
;
2138 char script
[5], *langsys
= NULL
;
2139 char *gsub_features
= NULL
, *gpos_features
= NULL
;
2143 OTF_tag_name (spec
->script
, script
);
2146 langsys
= alloca (5);
2147 OTF_tag_name (spec
->langsys
, langsys
);
2149 for (i
= 0; i
< 2; i
++)
2153 if (spec
->features
[i
] && spec
->features
[i
][1] != 0xFFFFFFFF)
2155 for (j
= 0; spec
->features
[i
][j
]; j
++);
2157 p
= gsub_features
= alloca (6 * j
);
2159 p
= gpos_features
= alloca (6 * j
);
2160 for (j
= 0; spec
->features
[i
][j
]; j
++)
2162 if (spec
->features
[i
][j
] == 0xFFFFFFFF)
2163 *p
++ = '*', *p
++ = ',';
2166 OTF_tag_name (spec
->features
[i
][j
], p
);
2175 setup_otf_gstring (len
);
2176 for (i
= 0; i
< len
; i
++)
2178 otf_gstring
.glyphs
[i
].c
= in
->glyphs
[from
+ i
].c
;
2179 otf_gstring
.glyphs
[i
].glyph_id
= in
->glyphs
[from
+ i
].code
;
2182 OTF_drive_gdef (otf
, &otf_gstring
);
2187 if (OTF_drive_gsub (otf
, &otf_gstring
, script
, langsys
, gsub_features
)
2190 if (out
->allocated
< out
->used
+ otf_gstring
.used
)
2192 for (i
= 0, otfg
= otf_gstring
.glyphs
; i
< otf_gstring
.used
; )
2195 int min_from
, max_to
;
2198 g
= out
->glyphs
+ out
->used
;
2199 *g
= in
->glyphs
[from
+ otfg
->f
.index
.from
];
2200 if (g
->code
!= otfg
->glyph_id
)
2203 g
->code
= otfg
->glyph_id
;
2209 if (otfg
->f
.index
.from
< otfg
->f
.index
.to
)
2211 /* OTFG substitutes multiple glyphs in IN. */
2212 for (j
= from
+ otfg
->f
.index
.from
+ 1;
2213 j
<= from
+ otfg
->f
.index
.to
; j
++)
2215 if (min_from
> in
->glyphs
[j
].from
)
2216 min_from
= in
->glyphs
[j
].from
;
2217 if (max_to
< in
->glyphs
[j
].to
)
2218 max_to
= in
->glyphs
[j
].to
;
2223 for (i
++, otfg
++; (i
< otf_gstring
.used
2224 && otfg
->f
.index
.from
== otfg
[-1].f
.index
.from
);
2227 g
= out
->glyphs
+ out
->used
;
2228 *g
= in
->glyphs
[from
+ otfg
->f
.index
.to
];
2229 if (g
->code
!= otfg
->glyph_id
)
2232 g
->code
= otfg
->glyph_id
;
2241 if (out
->allocated
< out
->used
+ len
)
2243 for (i
= 0; i
< len
; i
++)
2244 out
->glyphs
[out
->used
++] = in
->glyphs
[from
+ i
];
2249 MFLTGlyph
*base
= NULL
, *mark
= NULL
, *g
;
2250 int x_ppem
, y_ppem
, x_scale
, y_scale
;
2252 if (OTF_drive_gpos (otf
, &otf_gstring
, script
, langsys
, gpos_features
)
2256 x_ppem
= ft_face
->size
->metrics
.x_ppem
;
2257 y_ppem
= ft_face
->size
->metrics
.y_ppem
;
2258 x_scale
= ft_face
->size
->metrics
.x_scale
;
2259 y_scale
= ft_face
->size
->metrics
.y_scale
;
2261 for (i
= 0, otfg
= otf_gstring
.glyphs
, g
= out
->glyphs
+ gidx
;
2262 i
< otf_gstring
.used
; i
++, otfg
++, g
++)
2266 if (! otfg
->glyph_id
)
2268 switch (otfg
->positioning_type
)
2272 case 1: /* Single */
2275 int format
= otfg
->f
.f1
.format
;
2277 if (format
& OTF_XPlacement
)
2279 = otfg
->f
.f1
.value
->XPlacement
* x_scale
/ 0x10000;
2280 if (format
& OTF_XPlaDevice
)
2282 += DEVICE_DELTA (otfg
->f
.f1
.value
->XPlaDevice
, x_ppem
);
2283 if (format
& OTF_YPlacement
)
2285 = - (otfg
->f
.f1
.value
->YPlacement
* y_scale
/ 0x10000);
2286 if (format
& OTF_YPlaDevice
)
2288 -= DEVICE_DELTA (otfg
->f
.f1
.value
->YPlaDevice
, y_ppem
);
2289 if (format
& OTF_XAdvance
)
2291 += otfg
->f
.f1
.value
->XAdvance
* x_scale
/ 0x10000;
2292 if (format
& OTF_XAdvDevice
)
2294 += DEVICE_DELTA (otfg
->f
.f1
.value
->XAdvDevice
, x_ppem
);
2295 if (format
& OTF_YAdvance
)
2297 += otfg
->f
.f1
.value
->YAdvance
* y_scale
/ 0x10000;
2298 if (format
& OTF_YAdvDevice
)
2300 += DEVICE_DELTA (otfg
->f
.f1
.value
->YAdvDevice
, y_ppem
);
2301 adjustment
[i
].set
= 1;
2304 case 3: /* Cursive */
2305 /* Not yet supported. */
2307 case 4: /* Mark-to-Base */
2308 case 5: /* Mark-to-Ligature */
2312 goto label_adjust_anchor
;
2313 default: /* i.e. case 6 Mark-to-Mark */
2318 label_adjust_anchor
:
2320 int base_x
, base_y
, mark_x
, mark_y
;
2321 int this_from
, this_to
;
2323 base_x
= otfg
->f
.f4
.base_anchor
->XCoordinate
* x_scale
/ 0x10000;
2324 base_y
= otfg
->f
.f4
.base_anchor
->YCoordinate
* y_scale
/ 0x10000;
2325 mark_x
= otfg
->f
.f4
.mark_anchor
->XCoordinate
* x_scale
/ 0x10000;
2326 mark_y
= otfg
->f
.f4
.mark_anchor
->YCoordinate
* y_scale
/ 0x10000;
2328 if (otfg
->f
.f4
.base_anchor
->AnchorFormat
!= 1)
2329 adjust_anchor (ft_face
, otfg
->f
.f4
.base_anchor
,
2330 prev
->code
, x_ppem
, y_ppem
, &base_x
, &base_y
);
2331 if (otfg
->f
.f4
.mark_anchor
->AnchorFormat
!= 1)
2332 adjust_anchor (ft_face
, otfg
->f
.f4
.mark_anchor
, g
->code
,
2333 x_ppem
, y_ppem
, &mark_x
, &mark_y
);
2334 adjustment
[i
].xoff
= (base_x
- mark_x
);
2335 adjustment
[i
].yoff
= - (base_y
- mark_y
);
2336 adjustment
[i
].back
= (g
- prev
);
2337 adjustment
[i
].xadv
= 0;
2338 adjustment
[i
].advance_is_absolute
= 1;
2339 adjustment
[i
].set
= 1;
2340 this_from
= g
->from
;
2342 for (j
= 0; prev
+ j
< g
; j
++)
2344 if (this_from
> prev
[j
].from
)
2345 this_from
= prev
[j
].from
;
2346 if (this_to
< prev
[j
].to
)
2347 this_to
= prev
[j
].to
;
2349 for (; prev
<= g
; prev
++)
2351 prev
->from
= this_from
;
2356 if (otfg
->GlyphClass
== OTF_GlyphClass0
)
2358 else if (otfg
->GlyphClass
== OTF_GlyphClassMark
)
2367 if (out
->allocated
< out
->used
+ len
)
2369 font
->get_metrics (font
, in
, from
, to
);
2370 memcpy (out
->glyphs
+ out
->used
, in
->glyphs
+ from
,
2371 sizeof (MFLTGlyph
) * len
);
2376 #endif /* not M17N_FLT_USE_NEW_FEATURE */
2378 static MFLTGlyphString gstring
;
2380 static int m17n_flt_initialized
;
2383 ftfont_shape_by_flt (Lisp_Object lgstring
, struct font
*font
,
2384 FT_Face ft_face
, OTF
*otf
, FT_Matrix
*matrix
)
2386 EMACS_INT len
= LGSTRING_GLYPH_LEN (lgstring
);
2388 struct MFLTFontFT flt_font_ft
;
2390 int with_variation_selector
= 0;
2392 if (! m17n_flt_initialized
)
2395 #ifdef M17N_FLT_USE_NEW_FEATURE
2396 mflt_enable_new_feature
= 1;
2397 mflt_try_otf
= ftfont_try_otf
;
2398 #endif /* M17N_FLT_USE_NEW_FEATURE */
2399 m17n_flt_initialized
= 1;
2402 for (i
= 0; i
< len
; i
++)
2404 Lisp_Object g
= LGSTRING_GLYPH (lgstring
, i
);
2409 c
= LGLYPH_CHAR (g
);
2410 if (CHAR_VARIATION_SELECTOR_P (c
))
2411 with_variation_selector
++;
2415 lint_assume (len
<= TYPE_MAXIMUM (EMACS_INT
) - 2);
2417 if (with_variation_selector
)
2419 setup_otf_gstring (len
);
2420 for (i
= 0; i
< len
; i
++)
2422 Lisp_Object g
= LGSTRING_GLYPH (lgstring
, i
);
2424 otf_gstring
.glyphs
[i
].c
= LGLYPH_CHAR (g
);
2425 otf_gstring
.glyphs
[i
].f
.index
.from
= LGLYPH_FROM (g
);
2426 otf_gstring
.glyphs
[i
].f
.index
.to
= LGLYPH_TO (g
);
2428 OTF_drive_cmap (otf
, &otf_gstring
);
2429 for (i
= 0; i
< otf_gstring
.used
; i
++)
2431 OTF_Glyph
*otfg
= otf_gstring
.glyphs
+ i
;
2432 Lisp_Object g0
= LGSTRING_GLYPH (lgstring
, otfg
->f
.index
.from
);
2433 Lisp_Object g1
= LGSTRING_GLYPH (lgstring
, otfg
->f
.index
.to
);
2435 LGLYPH_SET_CODE (g0
, otfg
->glyph_id
);
2436 LGLYPH_SET_TO (g0
, LGLYPH_TO (g1
));
2437 LGSTRING_SET_GLYPH (lgstring
, i
, g0
);
2439 if (len
> otf_gstring
.used
)
2441 len
= otf_gstring
.used
;
2442 LGSTRING_SET_GLYPH (lgstring
, len
, Qnil
);
2446 if (INT_MAX
/ 2 < len
)
2447 memory_full (SIZE_MAX
);
2449 if (gstring
.allocated
== 0)
2451 gstring
.glyph_size
= sizeof (MFLTGlyph
);
2452 gstring
.glyphs
= xnmalloc (len
* 2, sizeof (MFLTGlyph
));
2453 gstring
.allocated
= len
* 2;
2455 else if (gstring
.allocated
< len
* 2)
2457 gstring
.glyphs
= xnrealloc (gstring
.glyphs
, len
* 2, sizeof (MFLTGlyph
));
2458 gstring
.allocated
= len
* 2;
2460 memset (gstring
.glyphs
, 0, sizeof (MFLTGlyph
) * len
);
2461 for (i
= 0; i
< len
; i
++)
2463 Lisp_Object g
= LGSTRING_GLYPH (lgstring
, i
);
2465 gstring
.glyphs
[i
].c
= LGLYPH_CHAR (g
);
2466 if (with_variation_selector
)
2468 gstring
.glyphs
[i
].code
= LGLYPH_CODE (g
);
2469 gstring
.glyphs
[i
].encoded
= 1;
2477 Lisp_Object family
= Ffont_get (LGSTRING_FONT (lgstring
), QCfamily
);
2480 flt_font_ft
.flt_font
.family
= Mnil
;
2482 flt_font_ft
.flt_font
.family
2483 = msymbol (SSDATA (Fdowncase (SYMBOL_NAME (family
))));
2485 flt_font_ft
.flt_font
.x_ppem
= ft_face
->size
->metrics
.x_ppem
;
2486 flt_font_ft
.flt_font
.y_ppem
= ft_face
->size
->metrics
.y_ppem
;
2487 flt_font_ft
.flt_font
.get_glyph_id
= ftfont_get_glyph_id
;
2488 flt_font_ft
.flt_font
.get_metrics
= ftfont_get_metrics
;
2489 flt_font_ft
.flt_font
.check_otf
= ftfont_check_otf
;
2490 flt_font_ft
.flt_font
.drive_otf
= ftfont_drive_otf
;
2491 flt_font_ft
.flt_font
.internal
= NULL
;
2492 flt_font_ft
.font
= font
;
2493 flt_font_ft
.ft_face
= ft_face
;
2494 flt_font_ft
.otf
= otf
;
2495 flt_font_ft
.matrix
= matrix
->xx
!= 0 ? matrix
: 0;
2497 && gstring
.glyphs
[1].c
>= 0x300 && gstring
.glyphs
[1].c
<= 0x36F)
2498 /* A little bit ad hoc. Perhaps, shaper must get script and
2499 language information, and select a proper flt for them
2501 flt
= mflt_get (msymbol ("combining"));
2502 for (i
= 0; i
< 3; i
++)
2504 int result
= mflt_run (&gstring
, 0, len
, &flt_font_ft
.flt_font
, flt
);
2507 if (INT_MAX
/ 2 < gstring
.allocated
)
2508 memory_full (SIZE_MAX
);
2509 gstring
.glyphs
= xnrealloc (gstring
.glyphs
,
2510 gstring
.allocated
, 2 * sizeof (MFLTGlyph
));
2511 gstring
.allocated
*= 2;
2513 if (gstring
.used
> LGSTRING_GLYPH_LEN (lgstring
))
2515 for (i
= 0; i
< gstring
.used
; i
++)
2517 MFLTGlyph
*g
= gstring
.glyphs
+ i
;
2519 g
->from
= LGLYPH_FROM (LGSTRING_GLYPH (lgstring
, g
->from
));
2520 g
->to
= LGLYPH_TO (LGSTRING_GLYPH (lgstring
, g
->to
));
2523 for (i
= 0; i
< gstring
.used
; i
++)
2525 Lisp_Object lglyph
= LGSTRING_GLYPH (lgstring
, i
);
2526 MFLTGlyph
*g
= gstring
.glyphs
+ i
;
2530 lglyph
= Fmake_vector (make_number (LGLYPH_SIZE
), Qnil
);
2531 LGSTRING_SET_GLYPH (lgstring
, i
, lglyph
);
2533 LGLYPH_SET_FROM (lglyph
, g
->from
);
2534 LGLYPH_SET_TO (lglyph
, g
->to
);
2535 LGLYPH_SET_CHAR (lglyph
, g
->c
);
2536 LGLYPH_SET_CODE (lglyph
, g
->code
);
2537 LGLYPH_SET_WIDTH (lglyph
, g
->xadv
>> 6);
2538 LGLYPH_SET_LBEARING (lglyph
, g
->lbearing
>> 6);
2539 LGLYPH_SET_RBEARING (lglyph
, g
->rbearing
>> 6);
2540 LGLYPH_SET_ASCENT (lglyph
, g
->ascent
>> 6);
2541 LGLYPH_SET_DESCENT (lglyph
, g
->descent
>> 6);
2546 vec
= Fmake_vector (make_number (3), Qnil
);
2547 ASET (vec
, 0, make_number (g
->xoff
>> 6));
2548 ASET (vec
, 1, make_number (g
->yoff
>> 6));
2549 ASET (vec
, 2, make_number (g
->xadv
>> 6));
2550 LGLYPH_SET_ADJUSTMENT (lglyph
, vec
);
2553 return make_number (i
);
2557 ftfont_shape (Lisp_Object lgstring
)
2560 struct ftfont_info
*ftfont_info
;
2563 CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring
), font
);
2564 ftfont_info
= (struct ftfont_info
*) font
;
2565 otf
= ftfont_get_otf (ftfont_info
);
2567 return make_number (0);
2568 return ftfont_shape_by_flt (lgstring
, font
, ftfont_info
->ft_size
->face
, otf
,
2569 &ftfont_info
->matrix
);
2572 #endif /* HAVE_M17N_FLT */
2574 #ifdef HAVE_OTF_GET_VARIATION_GLYPHS
2577 ftfont_variation_glyphs (struct font
*font
, int c
, unsigned variations
[256])
2579 struct ftfont_info
*ftfont_info
= (struct ftfont_info
*) font
;
2580 OTF
*otf
= ftfont_get_otf (ftfont_info
);
2584 return OTF_get_variation_glyphs (otf
, c
, variations
);
2587 #endif /* HAVE_OTF_GET_VARIATION_GLYPHS */
2588 #endif /* HAVE_LIBOTF */
2591 ftfont_font_format (FcPattern
*pattern
, Lisp_Object filename
)
2595 #ifdef FC_FONTFORMAT
2598 if (FcPatternGetString (pattern
, FC_FONTFORMAT
, 0, &str
) != FcResultMatch
)
2600 if (strcmp ((char *) str
, "TrueType") == 0)
2601 return intern ("truetype");
2602 if (strcmp ((char *) str
, "Type 1") == 0)
2603 return intern ("type1");
2604 if (strcmp ((char *) str
, "PCF") == 0)
2605 return intern ("pcf");
2606 if (strcmp ((char *) str
, "BDF") == 0)
2607 return intern ("bdf");
2609 #endif /* FC_FONTFORMAT */
2610 if (STRINGP (filename
))
2612 int len
= SBYTES (filename
);
2616 str
= (FcChar8
*) (SDATA (filename
) + len
- 4);
2617 if (xstrcasecmp ((char *) str
, ".ttf") == 0)
2618 return intern ("truetype");
2619 if (xstrcasecmp ((char *) str
, ".pfb") == 0)
2620 return intern ("type1");
2621 if (xstrcasecmp ((char *) str
, ".pcf") == 0)
2622 return intern ("pcf");
2623 if (xstrcasecmp ((char *) str
, ".bdf") == 0)
2624 return intern ("bdf");
2627 return intern ("unknown");
2630 static const char *const ftfont_booleans
[] = {
2643 static const char *const ftfont_non_booleans
[] = {
2675 ftfont_filter_properties (Lisp_Object font
, Lisp_Object alist
)
2677 font_filter_properties (font
, alist
, ftfont_booleans
, ftfont_non_booleans
);
2682 syms_of_ftfont (void)
2684 DEFSYM (Qfreetype
, "freetype");
2685 DEFSYM (Qmonospace
, "monospace");
2686 DEFSYM (Qsans_serif
, "sans-serif");
2687 DEFSYM (Qserif
, "serif");
2688 DEFSYM (Qmono
, "mono");
2689 DEFSYM (Qsans
, "sans");
2690 DEFSYM (Qsans__serif
, "sans serif");
2692 staticpro (&freetype_font_cache
);
2693 freetype_font_cache
= Fcons (Qt
, Qnil
);
2695 staticpro (&ftfont_generic_family_list
);
2696 ftfont_generic_family_list
2697 = Fcons (Fcons (Qmonospace
, Qt
),
2698 Fcons (Fcons (Qsans_serif
, Qt
),
2699 Fcons (Fcons (Qsans
, Qt
), Qnil
)));
2701 staticpro (&ft_face_cache
);
2702 ft_face_cache
= Qnil
;
2704 ftfont_driver
.type
= Qfreetype
;
2705 register_font_driver (&ftfont_driver
, NULL
);