mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Make scm_charprint and scm_i_string_wide_chars SCM_INTERNAL.

Browse source 
Also, scm_charprint is renamed to scm_i_charprint.

        * libguile/strings.h: make scm_i_string_wide_chars internal.

        * libguile/print.h: rename scm_charprint to scm_i_charprint.  Make
        internal.

        * libguile/print.c (scm_i_charprint): renamed from scm_charprint
        (scm_charprint): renamed to scm_i_charprint. All callers changed.
This commit is contained in:
Michael Gran 2009-08-10 05:51:05 -07:00
parent 6ce6923b68
commit 32be5735cd
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/print.c
View file

@ -582,7 +582,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
else if (ch == '"' || ch == '\\')
{
scm_putc ('\\', port);
scm_charprint (ch, port);
scm_i_charprint (ch, port);
printed = 1;
}
else
@ -824,7 +824,7 @@ scm_prin1 (SCM exp, SCM port, int writingp)
/* Print a character.
*/
void
scm_charprint (scm_t_uint32 ch, SCM port)
scm_i_charprint (scm_t_uint32 ch, SCM port)
{
scm_t_wchar *wbuf;
SCM wstr = scm_i_make_wide_string (1, &wbuf);

2
libguile/print.h
View file

@ -77,7 +77,7 @@ SCM_API SCM scm_print_options (SCM setting);
SCM_API SCM scm_make_print_state (void);
SCM_API void scm_free_print_state (SCM print_state);
SCM_INTERNAL SCM scm_i_port_with_print_state (SCM port, SCM print_state);
SCM_API void scm_charprint (scm_t_uint32 c, SCM port);
SCM_INTERNAL void scm_i_charprint (scm_t_uint32 c, SCM port);
SCM_API void scm_intprint (scm_t_intmax n, int radix, SCM port);
SCM_API void scm_uintprint (scm_t_uintmax n, int radix, SCM port);
SCM_API void scm_ipruk (char *hdr, SCM ptr, SCM port);

2
libguile/strings.h
View file

@ -137,8 +137,8 @@ SCM_INTERNAL SCM scm_i_substring_shared (SCM str, size_t start, size_t end);
SCM_INTERNAL SCM scm_i_substring_copy (SCM str, size_t start, size_t end);
SCM_INTERNAL size_t scm_i_string_length (SCM str);
SCM_API /* FIXME: not internal */ const char *scm_i_string_chars (SCM str);
SCM_API const scm_t_wchar *scm_i_string_wide_chars (SCM str);
SCM_API /* FIXME: not internal */ char *scm_i_string_writable_chars (SCM str);
SCM_INTERNAL const scm_t_wchar *scm_i_string_wide_chars (SCM str);
SCM_INTERNAL SCM scm_i_string_start_writing (SCM str);
SCM_INTERNAL void scm_i_string_stop_writing (void);
SCM_INTERNAL int scm_i_is_narrow_string (SCM str);