mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +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:29:03 +00:00
parent 2f84db4c66
commit b118d6df5a
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/ports.c
View file

@ -165,50 +165,50 @@ scm_make_port_type (char *name,
} }
void void
scm_set_port_mark (long tc, SCM (*mark) (SCM)) scm_set_port_mark (scm_t_bits tc, SCM (*mark) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].mark = mark; scm_ptobs[SCM_TC2PTOBNUM (tc)].mark = mark;
} }
void void
scm_set_port_free (long tc, size_t (*free) (SCM)) scm_set_port_free (scm_t_bits tc, size_t (*free) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].free = free; scm_ptobs[SCM_TC2PTOBNUM (tc)].free = free;
} }
void void
scm_set_port_print (long tc, int (*print) (SCM exp, SCM port, scm_set_port_print (scm_t_bits tc, int (*print) (SCM exp, SCM port,
scm_print_state *pstate)) scm_print_state *pstate))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].print = print; scm_ptobs[SCM_TC2PTOBNUM (tc)].print = print;
} }
void void
scm_set_port_equalp (long tc, SCM (*equalp) (SCM, SCM)) scm_set_port_equalp (scm_t_bits tc, SCM (*equalp) (SCM, SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].equalp = equalp; scm_ptobs[SCM_TC2PTOBNUM (tc)].equalp = equalp;
} }
void void
scm_set_port_flush (long tc, void (*flush) (SCM port)) scm_set_port_flush (scm_t_bits tc, void (*flush) (SCM port))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].flush = flush; scm_ptobs[SCM_TC2PTOBNUM (tc)].flush = flush;
} }
void void
scm_set_port_end_input (long tc, void (*end_input) (SCM port, int offset)) scm_set_port_end_input (scm_t_bits tc, void (*end_input) (SCM port, int offset))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].end_input = end_input; scm_ptobs[SCM_TC2PTOBNUM (tc)].end_input = end_input;
} }
void void
scm_set_port_close (long tc, int (*close) (SCM)) scm_set_port_close (scm_t_bits tc, int (*close) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].close = close; scm_ptobs[SCM_TC2PTOBNUM (tc)].close = close;
} }
void void
scm_set_port_seek (long tc, off_t (*seek) (SCM port, scm_set_port_seek (scm_t_bits tc, off_t (*seek) (SCM port,
off_t OFFSET, off_t OFFSET,
int WHENCE)) int WHENCE))
{ {
@ -216,13 +216,13 @@ scm_set_port_seek (long tc, off_t (*seek) (SCM port,
} }
void void
scm_set_port_truncate (long tc, void (*truncate) (SCM port, off_t length)) scm_set_port_truncate (scm_t_bits tc, void (*truncate) (SCM port, off_t length))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].truncate = truncate; scm_ptobs[SCM_TC2PTOBNUM (tc)].truncate = truncate;
} }
void void
scm_set_port_input_waiting (long tc, int (*input_waiting) (SCM)) scm_set_port_input_waiting (scm_t_bits tc, int (*input_waiting) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].input_waiting = input_waiting; scm_ptobs[SCM_TC2PTOBNUM (tc)].input_waiting = input_waiting;
} }