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

Did the follwing renamings:

Browse source 
scm_with_current_input_port -> scm_frame_current_input_port,
scm_with_current_output_port -> scm_frame_current_output_port,
scm_with_current_error_port -> scm_frame_current_error_port.
Changed all uses.
This commit is contained in:
Marius Vollmer 2004-01-07 18:03:46 +00:00
parent 0888de4fd1
commit 07add3457b
2 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

30
libguile/ports.c
View file

@ -444,7 +444,7 @@ swap_port (SCM scm_data)
} }
static void static void
scm_with_current_foo_port (SCM port, scm_frame_current_foo_port (SCM port,
SCM (*getter) (void), SCM (*setter) (SCM)) SCM (*getter) (void), SCM (*setter) (SCM))
{ {
SCM scm_data = scm_malloc_obj (sizeof (swap_data)); SCM scm_data = scm_malloc_obj (sizeof (swap_data));
@ -453,32 +453,32 @@ scm_with_current_foo_port (SCM port,
data->getter = getter; data->getter = getter;
data->setter = setter; data->setter = setter;
scm_on_rewind_with_scm (swap_port, scm_data, SCM_F_WIND_EXPLICITLY); scm_frame_rewind_with_scm (swap_port, scm_data, SCM_F_WIND_EXPLICITLY);
scm_on_unwind_with_scm (swap_port, scm_data, SCM_F_WIND_EXPLICITLY); scm_frame_unwind_with_scm (swap_port, scm_data, SCM_F_WIND_EXPLICITLY);
} }
void void
scm_with_current_input_port (SCM port) scm_frame_current_input_port (SCM port)
{ {
scm_with_current_foo_port (port, scm_frame_current_foo_port (port,
scm_current_input_port, scm_current_input_port,
scm_set_current_input_port); scm_set_current_input_port);
} }
void void
scm_with_current_output_port (SCM port) scm_frame_current_output_port (SCM port)
{ {
scm_with_current_foo_port (port, scm_frame_current_foo_port (port,
scm_current_output_port, scm_current_output_port,
scm_set_current_output_port); scm_set_current_output_port);
} }
void void
scm_with_current_error_port (SCM port) scm_frame_current_error_port (SCM port)
{ {
scm_with_current_foo_port (port, scm_frame_current_foo_port (port,
scm_current_error_port, scm_current_error_port,
scm_set_current_error_port); scm_set_current_error_port);
} }

6
libguile/ports.h
View file

@ -235,9 +235,9 @@ SCM_API SCM scm_current_load_port (void);
SCM_API SCM scm_set_current_input_port (SCM port); SCM_API SCM scm_set_current_input_port (SCM port);
SCM_API SCM scm_set_current_output_port (SCM port); SCM_API SCM scm_set_current_output_port (SCM port);
SCM_API SCM scm_set_current_error_port (SCM port); SCM_API SCM scm_set_current_error_port (SCM port);
SCM_API void scm_with_current_input_port (SCM port); SCM_API void scm_frame_current_input_port (SCM port);
SCM_API void scm_with_current_output_port (SCM port); SCM_API void scm_frame_current_output_port (SCM port);
SCM_API void scm_with_current_error_port (SCM port); SCM_API void scm_frame_current_error_port (SCM port);
SCM_API SCM scm_new_port_table_entry (scm_t_bits tag); SCM_API SCM scm_new_port_table_entry (scm_t_bits tag);
SCM_API void scm_remove_from_port_table (SCM port); SCM_API void scm_remove_from_port_table (SCM port);
SCM_API void scm_grow_port_cbuf (SCM port, size_t requested); SCM_API void scm_grow_port_cbuf (SCM port, size_t requested);