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

(scm_set_port_mark, scm_set_port_free,

Browse source 
scm_set_port_print, scm_set_port_equalp, scm_set_port_flush,
scm_set_port_end_input, scm_set_port_close, scm_set_port_seek,
scm_set_port_truncate, scm_set_port_input_waiting): Use scm_t_bits for
port type descriptor, same as scm_make_port_type return value.
This commit is contained in:
Kevin Ryde 2006-05-30 01:36:35 +00:00
parent b118d6df5a
commit e2f5ceb48d
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/ports.h
View file

@ -205,28 +205,28 @@ SCM_API scm_t_bits scm_make_port_type (char *name,
void (*write) (SCM port, void (*write) (SCM port,
const void *data, const void *data,
size_t size)); size_t size));
SCM_API void scm_set_port_mark (long tc, SCM (*mark) (SCM)); SCM_API void scm_set_port_mark (scm_t_bits tc, SCM (*mark) (SCM));
SCM_API void scm_set_port_free (long tc, size_t (*free) (SCM)); SCM_API void scm_set_port_free (scm_t_bits tc, size_t (*free) (SCM));
SCM_API void scm_set_port_print (long tc, SCM_API void scm_set_port_print (scm_t_bits tc,
int (*print) (SCM exp, int (*print) (SCM exp,
SCM port, SCM port,
scm_print_state *pstate)); scm_print_state *pstate));
SCM_API void scm_set_port_equalp (long tc, SCM (*equalp) (SCM, SCM)); SCM_API void scm_set_port_equalp (scm_t_bits tc, SCM (*equalp) (SCM, SCM));
SCM_API void scm_set_port_close (long tc, int (*close) (SCM)); SCM_API void scm_set_port_close (scm_t_bits tc, int (*close) (SCM));
SCM_API void scm_set_port_flush (long tc, SCM_API void scm_set_port_flush (scm_t_bits tc,
void (*flush) (SCM port)); void (*flush) (SCM port));
SCM_API void scm_set_port_end_input (long tc, SCM_API void scm_set_port_end_input (scm_t_bits tc,
void (*end_input) (SCM port, void (*end_input) (SCM port,
int offset)); int offset));
SCM_API void scm_set_port_seek (long tc, SCM_API void scm_set_port_seek (scm_t_bits tc,
off_t (*seek) (SCM port, off_t (*seek) (SCM port,
off_t OFFSET, off_t OFFSET,
int WHENCE)); int WHENCE));
SCM_API void scm_set_port_truncate (long tc, SCM_API void scm_set_port_truncate (scm_t_bits tc,
void (*truncate) (SCM port, void (*truncate) (SCM port,
off_t length)); off_t length));
SCM_API void scm_set_port_input_waiting (long tc, int (*input_waiting) (SCM)); SCM_API void scm_set_port_input_waiting (scm_t_bits tc, int (*input_waiting) (SCM));
SCM_API SCM scm_char_ready_p (SCM port); SCM_API SCM scm_char_ready_p (SCM port);
size_t scm_take_from_input_buffers (SCM port, char *dest, size_t read_len); size_t scm_take_from_input_buffers (SCM port, char *dest, size_t read_len);
SCM_API SCM scm_drain_input (SCM port); SCM_API SCM scm_drain_input (SCM port);