mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

put-char in Scheme

Browse source 
* libguile/ports.c (scm_port_encode_char): New function.
* module/ice-9/ports.scm (port-encode-char): Export port-encode-char to
  the internals module.
* module/ice-9/sports.scm (put-char): New function.
  (port-bindings): Add put-char and put-string.
This commit is contained in:
Andy Wingo 2016-06-01 23:48:08 +02:00
parent c7c11f3af9
commit d8067213dc
3 changed files with 35 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/ports.c
View file

@ -3238,6 +3238,25 @@ SCM_DEFINE (scm_port_encode_chars, "port-encode-chars", 5, 0, 0,
}
#undef FUNC_NAME
SCM scm_port_encode_char (SCM, SCM, SCM);
SCM_DEFINE (scm_port_encode_char, "port-encode-char", 3, 0, 0,
(SCM port, SCM buf, SCM ch),
"")
#define FUNC_NAME s_scm_port_encode_char
{
scm_t_uint32 codepoint;
SCM_VALIDATE_OPOUTPORT (1, port);
SCM_VALIDATE_VECTOR (2, buf);
SCM_VALIDATE_CHAR (3, ch);
codepoint = SCM_CHAR (ch);
encode_utf32_chars (port, buf, &codepoint, 1);
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
void
scm_c_put_latin1_chars (SCM port, const scm_t_uint8 *chars, size_t len)
{