source file of the GNU LilyPond music typesetter
- (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "dimensions.hh"
{
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 ());
+ 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;
if (text_dimension_hash_tab)
{
scm_hash_ref (text_dimension_hash_tab,
- scm_makfrom0str (key_str.to_str0 ()),
+ ly_string2scm (key_str),
SCM_BOOL_F);
}
if (scm_is_pair (val))
LY_DEFINE (ly_load_text_dimensions, "ly:load-text-dimensions",
1, 0, 0,
(SCM dimension_alist),
- "Load dimensions from TeX in a (KEY . (W H D)) format alist")
+ "Load dimensions from @TeX{} in a @code{(KEY . (W H D))} format"
+ " alist.")
{
if (!text_dimension_hash_tab)
{
}
void
-try_load_text_metrics (String basename)
+try_load_text_metrics (string basename)
{
- String path = global_path.find (basename + ".textmetrics");
+ string path = global_path.find (basename + ".textmetrics");
if (path != "")
{
- String contents (gulp_file_to_string (path, true, -1));
+ string contents (gulp_file_to_string (path, true, -1));
contents = "(quote (" + contents + "))";
- SCM lst = scm_c_eval_string (contents.to_str0 ());
+ SCM lst = scm_c_eval_string (contents.c_str ());
ly_load_text_dimensions (lst);
}
}