mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 05:50:26 +02:00
Set rw_random correctly for all custom binary port types
* libguile/r6rs-ports.c (custom_binary_port_random_access_p): Rename from custom_binary_input_output_port_type, and use for all custom binary port types.
This commit is contained in:
parent
eeb23e776a
commit
f46cb25a17
1 changed files with 13 additions and 10 deletions
|
@ -193,6 +193,14 @@ struct custom_binary_port {
|
|||
SCM close;
|
||||
};
|
||||
|
||||
static int
|
||||
custom_binary_port_random_access_p (SCM port)
|
||||
{
|
||||
struct custom_binary_port *stream = (void *) SCM_STREAM (port);
|
||||
|
||||
return scm_is_true (stream->set_position_x);
|
||||
}
|
||||
|
||||
static scm_t_off
|
||||
custom_binary_port_seek (SCM port, scm_t_off offset, int whence)
|
||||
#define FUNC_NAME "custom_binary_port_seek"
|
||||
|
@ -336,6 +344,8 @@ initialize_custom_binary_input_ports (void)
|
|||
custom_binary_input_port_read, NULL);
|
||||
|
||||
scm_set_port_seek (custom_binary_input_port_type, custom_binary_port_seek);
|
||||
scm_set_port_random_access_p (custom_binary_input_port_type,
|
||||
custom_binary_port_random_access_p);
|
||||
scm_set_port_close (custom_binary_input_port_type, custom_binary_port_close);
|
||||
}
|
||||
|
||||
|
@ -942,6 +952,8 @@ initialize_custom_binary_output_ports (void)
|
|||
NULL, custom_binary_output_port_write);
|
||||
|
||||
scm_set_port_seek (custom_binary_output_port_type, custom_binary_port_seek);
|
||||
scm_set_port_random_access_p (custom_binary_output_port_type,
|
||||
custom_binary_port_random_access_p);
|
||||
scm_set_port_close (custom_binary_output_port_type, custom_binary_port_close);
|
||||
}
|
||||
|
||||
|
@ -1004,15 +1016,6 @@ SCM_DEFINE (scm_make_custom_binary_input_output_port,
|
|||
#undef FUNC_NAME
|
||||
|
||||
|
||||
static int
|
||||
custom_binary_input_output_port_random_access_p (SCM port)
|
||||
{
|
||||
struct custom_binary_port *stream = (void *) SCM_STREAM (port);
|
||||
|
||||
return scm_is_true (stream->set_position_x);
|
||||
}
|
||||
|
||||
|
||||
/* Instantiate the custom binary input_output port type. */
|
||||
static inline void
|
||||
initialize_custom_binary_input_output_ports (void)
|
||||
|
@ -1025,7 +1028,7 @@ initialize_custom_binary_input_output_ports (void)
|
|||
scm_set_port_seek (custom_binary_input_output_port_type,
|
||||
custom_binary_port_seek);
|
||||
scm_set_port_random_access_p (custom_binary_input_output_port_type,
|
||||
custom_binary_input_output_port_random_access_p);
|
||||
custom_binary_port_random_access_p);
|
||||
scm_set_port_close (custom_binary_input_output_port_type,
|
||||
custom_binary_port_close);
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue