1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
/*
text-metrics.cc -- implement text metric lookup functions
source file of the GNU LilyPond music typesetter
(c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "dimensions.hh"
#include "font-metric.hh"
#include "main.hh"
#include "file-path.hh"
static SCM text_dimension_hash_tab;
Box
lookup_tex_text_dimension (Font_metric *font, SCM text)
{
Box b;
/*
Actually, it's defined in framework-texstr, but let's see how long
it takes before we get a bugreport. HWN 13/2/2006.
*/
SCM limit = ly_lily_module_constant ("TEX_STRING_HASHLIMIT");
string key_str = ly_scm2string (font->font_file_name ());
int hash_code = scm_to_int (scm_hash (text, limit));
key_str = to_string (hash_code) + key_str;
SCM val = SCM_BOOL_F;
if (text_dimension_hash_tab)
{
scm_hash_ref (text_dimension_hash_tab,
ly_string2scm (key_str),
SCM_BOOL_F);
}
if (scm_is_pair (val))
{
b[X_AXIS][LEFT] = 0.0;
b[X_AXIS][RIGHT] = scm_to_double (scm_car (val)) * point_constant;
val = scm_cdr (val);
b[Y_AXIS][UP] = scm_to_double (scm_car (val)) * point_constant;
val = scm_cdr (val);
b[Y_AXIS][DOWN] = scm_to_double (scm_car (val)) * point_constant;
}
return b;
}
LY_DEFINE (ly_load_text_dimensions, "ly:load-text-dimensions",
1, 0, 0,
(SCM dimension_alist),
"Load dimensions from @TeX{} in a @code{(KEY . (W H D))} format"
" alist.")
{
if (!text_dimension_hash_tab)
{
text_dimension_hash_tab
= scm_gc_protect_object (scm_c_make_hash_table (113));
}
for (SCM s = dimension_alist;
scm_is_pair (s);
s = scm_cdr (s))
{
SCM key = scm_caar (s);
SCM val = scm_cdar (s);
if (scm_hash_ref (text_dimension_hash_tab, key, SCM_BOOL_F)
== SCM_BOOL_F)
scm_hash_set_x (text_dimension_hash_tab, key, val);
}
return SCM_UNSPECIFIED;
}
void
try_load_text_metrics (string basename)
{
string path = global_path.find (basename + ".textmetrics");
if (path != "")
{
string contents (gulp_file_to_string (path, true, -1));
contents = "(quote (" + contents + "))";
SCM lst = scm_c_eval_string (contents.c_str ());
ly_load_text_dimensions (lst);
}
}
|
