summaryrefslogtreecommitdiff
path: root/libguile/print.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 03:26:21 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 03:26:21 +0000
commit6cb66921f65e0470d5a08ef1a0c2c4062791d366 (patch)
treee1e6303f7d09fe41e385d117e8a125aa9f8b406a /libguile/print.h
parent698c029502820c4158a63fd389996f13683fa78e (diff)
downloadguile-6cb66921f65e0470d5a08ef1a0c2c4062791d366.tar.gz
* print.h: Added selector SCM_PRINT_STATE.
* print.h: Added declarations for scm_make_print_state, scm_free_print_state.
Diffstat (limited to 'libguile/print.h')
-rw-r--r--libguile/print.h5
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/print.h b/libguile/print.h
index 26fd5ff55..495e37d50 100644
--- a/libguile/print.h
+++ b/libguile/print.h
@@ -56,6 +56,8 @@ extern scm_option scm_print_opts[];
/* State information passed around during printing.
*/
+#define SCM_PRINT_STATE(obj) ((scm_print_state *) SCM_STRUCT_DATA (obj))
+
#define RESET_PRINT_STATE(pstate) \
{ \
pstate->list_offset = 0; \
@@ -81,8 +83,9 @@ typedef struct scm_print_state {
circular reference detection */
} scm_print_state;
-
extern SCM scm_print_options SCM_P ((SCM setting));
+SCM scm_make_print_state SCM_P ((void));
+void scm_free_print_state SCM_P ((SCM print_state));
extern void scm_intprint SCM_P ((long n, int radix, SCM port));
extern void scm_ipruk SCM_P ((char *hdr, SCM ptr, SCM port));
extern void scm_iprlist SCM_P ((char *hdr, SCM exp, char tlr, SCM port, scm_print_state *pstate));