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

(scm_uintprint): New, for printing scm_t_uintmax values.

Browse source 
(scm_intprint): Argument type changed to scm_t_intmax.
This commit is contained in:
Marius Vollmer 2004-10-22 13:52:09 +00:00
parent 2881e77b5a
commit a406c9e946
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/print.c
View file

@ -741,12 +741,19 @@ scm_prin1 (SCM exp, SCM port, int writingp)
*/ */
void void
scm_intprint (long n, int radix, SCM port) scm_intprint (scm_t_intmax n, int radix, SCM port)
{ {
char num_buf[SCM_INTBUFLEN]; char num_buf[SCM_INTBUFLEN];
scm_lfwrite (num_buf, scm_iint2str (n, radix, num_buf), port); scm_lfwrite (num_buf, scm_iint2str (n, radix, num_buf), port);
} }
void
scm_uintprint (scm_t_uintmax n, int radix, SCM port)
{
char num_buf[SCM_INTBUFLEN];
scm_lfwrite (num_buf, scm_iuint2str (n, radix, num_buf), port);
}
/* Print an object of unrecognized type. /* Print an object of unrecognized type.
*/ */

3
libguile/print.h
View file

@ -83,7 +83,8 @@ SCM_API SCM scm_print_options (SCM setting);
SCM_API SCM scm_make_print_state (void); SCM_API SCM scm_make_print_state (void);
SCM_API void scm_free_print_state (SCM print_state); SCM_API void scm_free_print_state (SCM print_state);
SCM scm_i_port_with_print_state (SCM port, SCM print_state); SCM scm_i_port_with_print_state (SCM port, SCM print_state);
SCM_API void scm_intprint (long n, int radix, 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); SCM_API void scm_ipruk (char *hdr, SCM ptr, SCM port);
SCM_API void scm_iprlist (char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate); SCM_API void scm_iprlist (char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate);
SCM_API void scm_print_symbol_name (const char *str, size_t len, SCM port); SCM_API void scm_print_symbol_name (const char *str, size_t len, SCM port);