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

* print.h: Defines for print options.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-08-20 17:11:17 +00:00
parent e6e4c9af39
commit 444b1d4d4a
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/print.h
View file

@ -47,7 +47,13 @@
#include "__scm.h" #include "__scm.h"
extern scm_option scm_print_opts[];
#define PRINT_PROCNAMES scm_print_opts[0].val
#define N_PRINT_OPTIONS 1
#ifdef __STDC__ #ifdef __STDC__
extern SCM scm_print_options (SCM new_values);
extern void scm_intprint (long n, int radix, SCM port); extern void scm_intprint (long n, int radix, SCM port);
extern void scm_ipruk (char *hdr, SCM ptr, SCM port); extern void scm_ipruk (char *hdr, SCM ptr, SCM port);
extern void scm_iprlist (char *hdr, SCM exp, char tlr, SCM port, int writing); extern void scm_iprlist (char *hdr, SCM exp, char tlr, SCM port, int writing);
@ -59,6 +65,7 @@ extern SCM scm_write_char (SCM chr, SCM port);
extern void scm_init_print (void); extern void scm_init_print (void);
#else /* STDC */ #else /* STDC */
extern SCM scm_print_options ();
extern void scm_intprint (); extern void scm_intprint ();
extern void scm_ipruk (); extern void scm_ipruk ();
extern void scm_iprlist (); extern void scm_iprlist ();