2 text-metrics.cc -- implement text metric lookup functions
4 source file of the GNU LilyPond music typesetter
6 (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "dimensions.hh"
10 #include "font-metric.hh"
12 #include "file-path.hh"
14 static SCM text_dimension_hash_tab;
17 lookup_tex_text_dimension (Font_metric *font, SCM text)
22 Actually, it's defined in framework-texstr, but let's see how long
23 it takes before we get a bugreport. HWN 13/2/2006.
25 SCM limit = ly_lily_module_constant ("TEX_STRING_HASHLIMIT");
26 string key_str = ly_scm2string (font->font_file_name ());
27 int hash_code = scm_to_int (scm_hash (text, limit));
28 key_str = to_string (hash_code) + key_str;
31 if (text_dimension_hash_tab)
33 scm_hash_ref (text_dimension_hash_tab,
34 scm_makfrom0str (key_str.c_str ()),
37 if (scm_is_pair (val))
39 b[X_AXIS][LEFT] = 0.0;
40 b[X_AXIS][RIGHT] = scm_to_double (scm_car (val)) * point_constant;
42 b[Y_AXIS][UP] = scm_to_double (scm_car (val)) * point_constant;
44 b[Y_AXIS][DOWN] = scm_to_double (scm_car (val)) * point_constant;
50 LY_DEFINE (ly_load_text_dimensions, "ly:load-text-dimensions",
52 (SCM dimension_alist),
53 "Load dimensions from TeX in a (KEY . (W H D)) format alist")
55 if (!text_dimension_hash_tab)
57 text_dimension_hash_tab
58 = scm_gc_protect_object (scm_c_make_hash_table (113));
61 for (SCM s = dimension_alist;
65 SCM key = scm_caar (s);
66 SCM val = scm_cdar (s);
68 if (scm_hash_ref (text_dimension_hash_tab, key, SCM_BOOL_F)
70 scm_hash_set_x (text_dimension_hash_tab, key, val);
73 return SCM_UNSPECIFIED;
77 try_load_text_metrics (string basename)
79 string path = global_path.find (basename + ".textmetrics");
82 string contents (gulp_file_to_string (path, true, -1));
83 contents = "(quote (" + contents + "))";
85 SCM lst = scm_c_eval_string (contents.c_str ());
86 ly_load_text_dimensions (lst);