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

add printer for dynamic-states

Browse source 
* libguile/fluids.c:
* libguile/fluids.h:
* libguile/print.c: Add dynamic-state printing infrastructure.
This commit is contained in:
Andy Wingo 2009-12-05 10:55:37 +01:00
parent 9ea31741da
commit 45cf242872
3 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/fluids.c
View file

@ -112,6 +112,14 @@ scm_i_fluid_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
scm_putc ('>', port); scm_putc ('>', port);
} }
void
scm_i_dynamic_state_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts ("#<dynamic-state ", port);
scm_intprint (SCM_UNPACK (exp), 16, port);
scm_putc ('>', port);
}
static size_t static size_t
next_fluid_num () next_fluid_num ()
{ {

1
libguile/fluids.h
View file

@ -78,6 +78,7 @@ SCM_API SCM scm_with_dynamic_state (SCM state, SCM proc);
SCM_INTERNAL SCM scm_i_make_initial_dynamic_state (void); SCM_INTERNAL SCM scm_i_make_initial_dynamic_state (void);
SCM_INTERNAL void scm_i_fluid_print (SCM exp, SCM port, scm_print_state *pstate); SCM_INTERNAL void scm_i_fluid_print (SCM exp, SCM port, scm_print_state *pstate);
SCM_INTERNAL void scm_i_dynamic_state_print (SCM exp, SCM port, scm_print_state *pstate);
SCM_INTERNAL void scm_init_fluids (void); SCM_INTERNAL void scm_init_fluids (void);
#endif /* SCM_FLUIDS_H */ #endif /* SCM_FLUIDS_H */

3
libguile/print.c
View file

@ -715,6 +715,9 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
case scm_tc7_fluid: case scm_tc7_fluid:
scm_i_fluid_print (exp, port, pstate); scm_i_fluid_print (exp, port, pstate);
break; break;
case scm_tc7_dynamic_state:
scm_i_dynamic_state_print (exp, port, pstate);
break;
case scm_tc7_wvect: case scm_tc7_wvect:
ENTER_NESTED_DATA (pstate, exp, circref); ENTER_NESTED_DATA (pstate, exp, circref);
if (SCM_IS_WHVEC (exp)) if (SCM_IS_WHVEC (exp))