diff options
author | Andy Wingo <wingo@pobox.com> | 2016-05-30 18:48:09 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-30 18:48:09 +0200 |
commit | 2affb9accf4efae67de915c11300a742cede2d58 (patch) | |
tree | b1df7246dd34994839e159856b5290a5b560e73b /libguile/ports.h | |
parent | 934b6dc398ad1875768e503c9e779d5c1f1db774 (diff) | |
download | guile-2affb9accf4efae67de915c11300a742cede2d58.tar.gz |
Add scm_c_put_escaped_char, scm_c_can_put_char
* libguile/ports.h:
* libguile/ports.c (scm_c_put_escaped_char, scm_c_can_put_char): New
helpers.
Diffstat (limited to 'libguile/ports.h')
-rw-r--r-- | libguile/ports.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/ports.h b/libguile/ports.h index 7e0a4f325..f8d62c119 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -220,6 +220,8 @@ SCM_API void scm_c_put_utf32_chars (SCM port, const scm_t_uint32 *buf, SCM_API void scm_c_put_string (SCM port, SCM str, size_t start, size_t count); SCM_API SCM scm_put_string (SCM port, SCM str, SCM start, SCM count); SCM_API void scm_c_put_char (SCM port, scm_t_wchar ch); +SCM_INTERNAL void scm_c_put_escaped_char (SCM port, scm_t_wchar ch); +SCM_INTERNAL int scm_c_can_put_char (SCM port, scm_t_wchar ch); SCM_API void scm_putc (char c, SCM port); SCM_API void scm_puts (const char *str_data, SCM port); SCM_API void scm_lfwrite (const char *ptr, size_t size, SCM port); |