snprintf (str, sizeof (str), "%08.4f", r);
}
else
- snprintf (str, sizeof (str), "%d", scm_to_int (s));
+ snprintf (str, sizeof (str), "%d", int (scm_to_int (s)));
return scm_makfrom0str (str);
}
LY_DEFINE (ly_wchar_to_utf_8, "ly:wide-char->utf-8",
1, 0, 0, (SCM wc),
- "Encode the Unicode codepoint @var{wc} as UTF-8")
+ "Encode the Unicode codepoint @var{wc}, an integer, as UTF-8")
{
char buf[5];
return scm_internal_hash_fold ((Hash_closure_function) & accumulate_symbol,
NULL, SCM_EOL, tab);
}
+
+LY_DEFINE (ly_camel_case_to_lisp_identifier, "ly:camel-case->lisp-identifier",
+ 1, 0, 0, (SCM name_sym),
+ "Convert FooBar to foo-bar style symbol.")
+{
+ SCM_ASSERT_TYPE(scm_is_symbol (name_sym), name_sym,
+ SCM_ARG1, __FUNCTION__, "symbol");
+
+ /*
+ TODO: should use strings instead?
+ */
+
+ const string in = ly_symbol2string (name_sym);
+
+ vector<char> out;
+
+ /* don't add '-' before first character */
+ out.push_back (tolower (in[0]));
+
+ for (size_t inpos = 1; inpos < in.size (); inpos++)
+ {
+ if (isupper (in[inpos]))
+ out.push_back ('-');
+ out.push_back (tolower (in[inpos]));
+ }
+
+ string result (&out[0], out.size ());
+ return ly_symbol2scm (result.c_str ());
+}