#include "config.hh"
-#include <libintl.h> /* gettext on MacOS X */
#include <math.h> /* isinf */
#include <stdio.h>
#include <string.h> /* memset */
-#if HAVE_UTF8_WCHAR_H
-#include <utf8/wchar.h> /* wcrtomb */
-#else
-#include <wchar.h> /* wcrtomb */
-#endif
+#include "international.hh"
#include "libc-extension.hh"
#include "lily-guile.hh"
#include "string.hh"
1, 0, 0, (SCM wc),
"Encode the Unicode codepoint @var{wc} as UTF-8")
{
- char buf[100];
+ char buf[5];
SCM_ASSERT_TYPE (scm_is_integer (wc), wc, SCM_ARG1, __FUNCTION__, "integer");
- wchar_t wide_char = (wchar_t) scm_to_int (wc);
-
- mbstate_t state;
- memset (&state, '\0', sizeof (state));
- memset (buf, '\0', sizeof (buf));
+ unsigned wide_char = (unsigned) scm_to_int (wc);
+ char * p = buf;
+
+ if (wide_char < 0x0080) {
+ *p++ = (char)wide_char;
+ } else if (wide_char < 0x0800) {
+ *p++ = (char)(((wide_char >> 6) ) | 0xC0);
+ *p++ = (char)(((wide_char ) & 0x3F) | 0x80);
+ } else if (wide_char < 0x10000) {
+ *p++ = (char)(((wide_char >> 12) ) | 0xE0);
+ *p++ = (char)(((wide_char >> 6) & 0x3F) | 0x80);
+ *p++ = (char)(((wide_char ) & 0x3F) | 0x80);
+ } else {
+ *p++ = (char)(((wide_char >> 18) ) | 0xF0);
+ *p++ = (char)(((wide_char >> 12) & 0x3F) | 0x80);
+ *p++ = (char)(((wide_char >> 6) & 0x3F) | 0x80);
+ *p++ = (char)(((wide_char ) & 0x3F) | 0x80);
+ }
+ *p = 0;
- wcrtomb (buf, wide_char, &state);
-
return scm_makfrom0str (buf);
}
return scm_makfrom0str (prefix_directory.to_str0 ());
}
+LY_DEFINE (ly_chain_assoc_get, "ly:chain-assoc-get",
+ 2, 1, 0, (SCM key, SCM achain, SCM dfault),
+ "Return value for @var{key} from a list of alists @var{achain}. Return @var{dfault} "
+ "if no entry is found, or #f if not specified. ")
+{
+ if (scm_is_pair (achain))
+ {
+ SCM handle = scm_assoc (key, scm_car (achain));
+ if (scm_is_pair (handle))
+ return scm_cdr (handle);
+ else
+ return ly_chain_assoc_get (key, scm_cdr (achain), dfault);
+ }
+ else
+ return dfault == SCM_UNDEFINED ? SCM_BOOL_F : dfault;
+}
+LY_DEFINE (ly_port_move, "ly:port-move",
+ 2, 0, 0, (SCM fd, SCM port),
+ "Move file descriptor FD to PORT.")
+{
+ SCM_ASSERT_TYPE (scm_port_p (port), port, SCM_ARG1, __FUNCTION__, "port");
+ SCM_ASSERT_TYPE (scm_integer_p (fd), fd, SCM_ARG1, __FUNCTION__, "fd");
+ freopen (ly_scm2newstr (scm_port_filename (port), 0), "a",
+ fdopen (scm_to_int (fd), "a"));
+ return SCM_UNSPECIFIED;
+}