From 9437884ac32029c7166ab54cb4f727232b7cdc3c Mon Sep 17 00:00:00 2001 From: Masamichi Hosoda Date: Sun, 19 Jun 2016 21:48:01 +0900 Subject: [PATCH] Issue 4902/1: Add procedure `ly:has-glyph-names?` This commit adds procedure `ly:has-glyph-names?` to check whether or not a font has glyph names. --- lily/open-type-font-scheme.cc | 46 +++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) diff --git a/lily/open-type-font-scheme.cc b/lily/open-type-font-scheme.cc index 365ccb1a63..2797ac3e9e 100644 --- a/lily/open-type-font-scheme.cc +++ b/lily/open-type-font-scheme.cc @@ -172,3 +172,49 @@ LY_DEFINE (ly_get_font_format, "ly:get-font-format", return asscm; } + +LY_DEFINE (ly_has_glyph_names_p, "ly:has-glyph-names?", + 1, 1, 0, (SCM font_file_name, SCM idx), + "Does the font for @var{font_file_name} have glyph names?" + " The optional @var{idx} argument is useful for" + " TrueType Collections (TTC) and" + " OpenType/CFF collections (OTC) only;" + " it specifies the font index within the TTC/OTC." + " The default value of @var{idx} is@tie{}0.") +{ + LY_ASSERT_TYPE (scm_is_string, font_file_name, 1); + + int i = 0; + if (!SCM_UNBNDP (idx)) + { + LY_ASSERT_TYPE (scm_is_integer, idx, 2); + i = scm_to_int (idx); + if (i < 0) + { + warning (_ ("font index must be non-negative, using index 0")); + i = 0; + } + } + + string file_name = ly_scm2string (font_file_name); + + FT_Face face; + /* check whether font index is valid */ + if (i > 0) + { + face = open_ft_face (file_name, -1); + if (i >= face->num_faces) + { + warning (_f ("font index %d too large for font `%s', using index 0", + i, file_name.c_str ())); + i = 0; + } + FT_Done_Face (face); + } + + face = open_ft_face (file_name, i); + bool has_glyph_names = FT_HAS_GLYPH_NAMES(face); + FT_Done_Face (face); + + return has_glyph_names ? SCM_BOOL_T : SCM_BOOL_F; +} -- 2.39.2