]> git.donarmstrong.com Git - lilypond.git/blob - lily/all-font-metrics.cc
restore regression tests for time-signature styles; issue 4176
[lilypond.git] / lily / all-font-metrics.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 1999--2015 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 "all-font-metrics.hh"
21
22 #include "string-convert.hh"
23 #include "international.hh"
24 #include "main.hh"
25 #include "open-type-font.hh"
26 #include "pango-font.hh"
27 #include "scm-hash.hh"
28 #include "warn.hh"
29
30 Index_to_charcode_map const *
31 All_font_metrics::get_index_to_charcode_map (const string &filename,
32                                              int face_index,
33                                              FT_Face face)
34 {
35   string key = filename + String_convert::int_string (face_index);
36   if (filename_charcode_maps_map_.find (key)
37       == filename_charcode_maps_map_.end ())
38     filename_charcode_maps_map_[key] = make_index_to_charcode_map (face);
39
40   return &filename_charcode_maps_map_[key];
41 }
42
43 All_font_metrics::All_font_metrics (const string &path)
44 {
45   otf_dict_ = new Scheme_hash_table;
46
47 #if HAVE_PANGO_FT2
48   PangoFontMap *pfm = pango_ft2_font_map_new ();
49
50   pango_ft2_fontmap_ = PANGO_FT2_FONT_MAP (pfm);
51
52   pango_dpi_ = PANGO_RESOLUTION;
53   pango_ft2_font_map_set_resolution (pango_ft2_fontmap_,
54                                      pango_dpi_, pango_dpi_);
55
56   pango_dict_ = new Scheme_hash_table;
57 #endif
58
59   search_path_.parse_path (path);
60 }
61
62 All_font_metrics::~All_font_metrics ()
63 {
64   otf_dict_->unprotect ();
65
66 #if HAVE_PANGO_FT2
67   pango_dict_->unprotect ();
68   g_object_unref (pango_ft2_fontmap_);
69 #endif
70 }
71
72 All_font_metrics::All_font_metrics (All_font_metrics const &)
73 {
74 }
75
76 #if HAVE_PANGO_FT2
77
78 Pango_font *
79 All_font_metrics::find_pango_font (PangoFontDescription const *description,
80                                    Real output_scale
81                                   )
82 {
83   gchar *pango_fn = pango_font_description_to_filename (description);
84   SCM key = ly_symbol2scm (pango_fn);
85
86   SCM val;
87   if (!pango_dict_->try_retrieve (key, &val))
88     {
89       debug_output ("[" + string (pango_fn), true); // start on a new line
90
91       Pango_font *pf = new Pango_font (pango_ft2_fontmap_,
92                                        description,
93                                        output_scale
94                                       );
95
96       val = pf->self_scm ();
97       pango_dict_->set (key, val);
98       pf->unprotect ();
99
100       debug_output ("]", false);
101
102       pf->description_ = scm_cons (SCM_BOOL_F,
103                                    scm_from_double (1.0));
104     }
105   g_free (pango_fn);
106   return dynamic_cast<Pango_font *> (Font_metric::unsmob (val));
107 }
108
109 #endif
110
111 Open_type_font *
112 All_font_metrics::find_otf (const string &name)
113 {
114   SCM sname = ly_symbol2scm (name.c_str ());
115   SCM val;
116   if (!otf_dict_->try_retrieve (sname, &val))
117     {
118       string file_name;
119
120       if (file_name.empty ())
121         file_name = search_path_.find (name + ".otf");
122       if (file_name.empty ())
123         return 0;
124
125       debug_output ("[" + file_name, true); // start on a new line
126
127       val = Open_type_font::make_otf (file_name);
128
129       debug_output ("]", false);
130
131       Font_metric::unsmob (val)->file_name_ = file_name;
132       SCM name_string = ly_string2scm (name);
133       Font_metric::unsmob (val)->description_ = scm_cons (name_string,
134                                                      scm_from_double (1.0));
135       otf_dict_->set (sname, val);
136       Font_metric::unsmob (val)->unprotect ();
137     }
138
139   return dynamic_cast<Open_type_font *> (Font_metric::unsmob (val));
140 }
141
142 Font_metric *
143 All_font_metrics::find_font (const string &name)
144 {
145   Font_metric *f = find_otf (name);
146
147   if (!f)
148     {
149       error (_f ("cannot find font: `%s'", name.c_str ()));
150     }
151
152   return f;
153 }
154
155 All_font_metrics *all_fonts_global;