lily/font-config-scheme.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2005--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "lily-guile.hh"
  21 #include "international.hh"
  22 #include "main.hh"
  23 #include "string-convert.hh"
  24 #include "warn.hh"
  25
  26 #include <fontconfig/fontconfig.h>
  27
  28 string
  29 display_fontset (FcFontSet *fs)
  30 {
  31   string retval;
  32
  33   int j;
  34   for (j = 0; j < fs->nfont; j++)
  35     {
  36       FcChar8 *font;
  37       FcChar8 *str;
  38
  39       font = FcNameUnparse (fs->fonts[j]);
  40       if (FcPatternGetString (fs->fonts[j], FC_FILE, 0, &str) == FcResultMatch)
  41         retval += String_convert::form_string ("FILE %s\n", str);
  42       if (FcPatternGetString (fs->fonts[j], FC_INDEX, 0, &str) == FcResultMatch)
  43         retval += String_convert::form_string ("INDEX %s\n", str);
  44       if (FcPatternGetString (fs->fonts[j], FC_FAMILY, 0, &str) == FcResultMatch)
  45         retval += String_convert::form_string ("family %s\n ", str);
  46       if (FcPatternGetString (fs->fonts[j],
  47                               "designsize", 0, &str) == FcResultMatch)
  48         retval += String_convert::form_string ("designsize %s\n ", str);
  49
  50       retval += String_convert::form_string ("%s\n", (const char *)font);
  51       free (font);
  52     }
  53
  54   return retval;
  55 }
  56
  57 string
  58 display_strlist (char const *what, FcStrList *slist)
  59 {
  60   string retval;
  61   while (FcChar8 *dir = FcStrListNext (slist))
  62     {
  63       retval += String_convert::form_string ("%s: %s\n", what, dir);
  64     }
  65   return retval;
  66 }
  67
  68 string
  69 display_config (FcConfig *fcc)
  70 {
  71   string retval;
  72   retval += display_strlist ("Config files", FcConfigGetConfigFiles (fcc));
  73   retval += display_strlist ("Config dir", FcConfigGetConfigDirs (fcc));
  74   retval += display_strlist ("Font dir", FcConfigGetFontDirs (fcc));
  75   return retval;
  76 }
  77
  78 string
  79 display_list (FcConfig *fcc)
  80 {
  81   FcPattern *pat = FcPatternCreate ();
  82
  83   FcObjectSet *os = 0;
  84   if (!os)
  85     os = FcObjectSetBuild (FC_FAMILY, FC_STYLE, (char *)0);
  86
  87   FcFontSet *fs = FcFontList (fcc, pat, os);
  88   FcObjectSetDestroy (os);
  89   if (pat)
  90     FcPatternDestroy (pat);
  91
  92   string retval;
  93   if (fs)
  94     {
  95       retval = display_fontset (fs);
  96       FcFontSetDestroy (fs);
  97     }
  98   return retval;
  99 }
 100
 101 LY_DEFINE (ly_font_config_get_font_file, "ly:font-config-get-font-file", 1, 0, 0,
 102            (SCM name),
 103            "Get the file for font @var{name}.")
 104 {
 105   LY_ASSERT_TYPE (scm_is_string, name, 1);
 106
 107   FcPattern *pat = FcPatternCreate ();
 108   FcValue val;
 109
 110   val.type = FcTypeString;
 111   val.u.s = (const FcChar8 *)ly_scm2string (name).c_str (); // FC_SLANT_ITALIC;
 112   FcPatternAdd (pat, FC_FAMILY, val, FcFalse);
 113
 114   FcResult result;
 115   SCM scm_result = SCM_BOOL_F;
 116
 117   FcConfigSubstitute (NULL, pat, FcMatchFont);
 118   FcDefaultSubstitute (pat);
 119
 120   pat = FcFontMatch (NULL, pat, &result);
 121   FcChar8 *str = 0;
 122   if (FcPatternGetString (pat, FC_FILE, 0, &str) == FcResultMatch)
 123     scm_result = scm_from_locale_string ((char const *)str);
 124
 125   FcPatternDestroy (pat);
 126
 127   return scm_result;
 128 }
 129
 130 LY_DEFINE (ly_font_config_display_fonts, "ly:font-config-display-fonts", 0, 0, 0,
 131            (),
 132            "Dump a list of all fonts visible to FontConfig.")
 133 {
 134   string str = display_list (NULL);
 135   str += display_config (NULL);
 136
 137   progress_indication (str);
 138
 139   return SCM_UNSPECIFIED;
 140 }
 141
 142 LY_DEFINE (ly_font_config_add_directory, "ly:font-config-add-directory", 1, 0, 0,
 143            (SCM dir),
 144            "Add directory @var{dir} to FontConfig.")
 145 {
 146   LY_ASSERT_TYPE (scm_is_string, dir, 1);
 147
 148   string d = ly_scm2string (dir);
 149
 150   if (!FcConfigAppFontAddDir (0, (const FcChar8 *)d.c_str ()))
 151     error (_f ("failed adding font directory: %s", d.c_str ()));
 152   else
 153     debug_output (_f ("Adding font directory: %s", d.c_str ()));
 154
 155   return SCM_UNSPECIFIED;
 156 }
 157
 158 LY_DEFINE (ly_font_config_add_font, "ly:font-config-add-font", 1, 0, 0,
 159            (SCM font),
 160            "Add font @var{font} to FontConfig.")
 161 {
 162   LY_ASSERT_TYPE (scm_is_string, font, 1);
 163
 164   string f = ly_scm2string (font);
 165
 166   if (!FcConfigAppFontAddFile (0, (const FcChar8 *)f.c_str ()))
 167     error (_f ("failed adding font file: %s", f.c_str ()));
 168   else
 169     debug_output (_f ("Adding font file: %s", f.c_str ()));
 170
 171   return SCM_UNSPECIFIED;
 172 }