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

* ports.c, ports.h, fports.c, strports.c, vports.c: Renamed

Browse source 
scm_set_ptob_XXX --> scm_set_port_XXX.
This commit is contained in:
Mikael Djurfeldt 1999-07-25 12:21:03 +00:00
parent 544e90932f
commit 6c747373c5
5 changed files with 31 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/fports.c
View file

@ -568,13 +568,13 @@ void
scm_make_fptob () scm_make_fptob ()
{ {
long tc = scm_make_port_type ("file", fport_fill_buffer, local_fflush); long tc = scm_make_port_type ("file", fport_fill_buffer, local_fflush);
scm_set_ptob_free (tc, local_free); scm_set_port_free (tc, local_free);
scm_set_ptob_print (tc, prinfport); scm_set_port_print (tc, prinfport);
scm_set_ptob_flush_input (tc, local_read_flush); scm_set_port_flush_input (tc, local_read_flush);
scm_set_ptob_close (tc, local_fclose); scm_set_port_close (tc, local_fclose);
scm_set_ptob_seek (tc, local_seek); scm_set_port_seek (tc, local_seek);
scm_set_ptob_truncate (tc, local_ftruncate); scm_set_port_truncate (tc, local_ftruncate);
scm_set_ptob_input_waiting_p (tc, fport_input_waiting_p); scm_set_port_input_waiting_p (tc, fport_input_waiting_p);
} }
void void

18
libguile/ports.c
View file

@ -152,44 +152,44 @@ scm_make_port_type (char *name,
} }
void void
scm_set_ptob_mark (long tc, SCM (*mark) (SCM)) scm_set_port_mark (long tc, SCM (*mark) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].mark = mark; scm_ptobs[SCM_TC2PTOBNUM (tc)].mark = mark;
} }
void void
scm_set_ptob_free (long tc, scm_sizet (*free) (SCM)) scm_set_port_free (long tc, scm_sizet (*free) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].free = free; scm_ptobs[SCM_TC2PTOBNUM (tc)].free = free;
} }
void void
scm_set_ptob_print (long tc, int (*print) (SCM exp, SCM port, scm_set_port_print (long 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_ptob_equalp (long tc, SCM (*equalp) (SCM, SCM)) scm_set_port_equalp (long tc, SCM (*equalp) (SCM, SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].equalp = equalp; scm_ptobs[SCM_TC2PTOBNUM (tc)].equalp = equalp;
} }
void void
scm_set_ptob_flush_input (long tc, void (*flush_input) (SCM port, int offset)) scm_set_port_flush_input (long tc, void (*flush_input) (SCM port, int offset))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].read_flush = flush_input; scm_ptobs[SCM_TC2PTOBNUM (tc)].read_flush = flush_input;
} }
void void
scm_set_ptob_close (long tc, int (*close) (SCM)) scm_set_port_close (long tc, int (*close) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].fclose = close; scm_ptobs[SCM_TC2PTOBNUM (tc)].fclose = close;
} }
void void
scm_set_ptob_seek (long tc, off_t (*seek) (SCM port, scm_set_port_seek (long tc, off_t (*seek) (SCM port,
off_t OFFSET, off_t OFFSET,
int WHENCE)) int WHENCE))
{ {
@ -197,13 +197,13 @@ scm_set_ptob_seek (long tc, off_t (*seek) (SCM port,
} }
void void
scm_set_ptob_truncate (long tc, void (*truncate) (SCM port, off_t length)) scm_set_port_truncate (long tc, void (*truncate) (SCM port, off_t length))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].ftruncate = truncate; scm_ptobs[SCM_TC2PTOBNUM (tc)].ftruncate = truncate;
} }
void void
scm_set_ptob_input_waiting_p (long tc, int (*waitingp) (SCM)) scm_set_port_input_waiting_p (long tc, int (*waitingp) (SCM))
{ {
scm_ptobs[SCM_TC2PTOBNUM (tc)].input_waiting_p = waitingp; scm_ptobs[SCM_TC2PTOBNUM (tc)].input_waiting_p = waitingp;
} }

18
libguile/ports.h
View file

@ -202,25 +202,25 @@ extern SCM scm_markstream SCM_P ((SCM ptr));
extern long scm_make_port_type (char *name, extern long scm_make_port_type (char *name,
int (*fill_buffer) (SCM port), int (*fill_buffer) (SCM port),
void (*write_flush) (SCM port)); void (*write_flush) (SCM port));
extern void scm_set_ptob_mark (long tc, SCM (*mark) (SCM)); extern void scm_set_port_mark (long tc, SCM (*mark) (SCM));
extern void scm_set_ptob_free (long tc, scm_sizet (*free) (SCM)); extern void scm_set_port_free (long tc, scm_sizet (*free) (SCM));
extern void scm_set_ptob_print (long tc, extern void scm_set_port_print (long tc,
int (*print) (SCM exp, int (*print) (SCM exp,
SCM port, SCM port,
scm_print_state *pstate)); scm_print_state *pstate));
extern void scm_set_ptob_equalp (long tc, SCM (*equalp) (SCM, SCM)); extern void scm_set_port_equalp (long tc, SCM (*equalp) (SCM, SCM));
extern void scm_set_ptob_flush_input (long tc, extern void scm_set_port_flush_input (long tc,
void (*flush_input) (SCM port, void (*flush_input) (SCM port,
int offset)); int offset));
extern void scm_set_ptob_close (long tc, int (*close) (SCM)); extern void scm_set_port_close (long tc, int (*close) (SCM));
extern void scm_set_ptob_seek (long tc, extern void scm_set_port_seek (long tc,
off_t (*seek) (SCM port, off_t (*seek) (SCM port,
off_t OFFSET, off_t OFFSET,
int WHENCE)); int WHENCE));
extern void scm_set_ptob_truncate (long tc, extern void scm_set_port_truncate (long tc,
void (*truncate) (SCM port, void (*truncate) (SCM port,
off_t length)); off_t length));
extern void scm_set_ptob_input_waiting_p (long tc, int (*waitingp) (SCM)); extern void scm_set_port_input_waiting_p (long tc, int (*waitingp) (SCM));
extern SCM scm_char_ready_p SCM_P ((SCM port)); extern SCM scm_char_ready_p SCM_P ((SCM port));
extern SCM scm_drain_input (SCM port); extern SCM scm_drain_input (SCM port);
extern SCM scm_current_input_port SCM_P ((void)); extern SCM scm_current_input_port SCM_P ((void));

8
libguile/strports.c
View file

@ -357,10 +357,10 @@ void
scm_make_stptob () scm_make_stptob ()
{ {
long tc = scm_make_port_type ("string", stfill_buffer, st_flush); long tc = scm_make_port_type ("string", stfill_buffer, st_flush);
scm_set_ptob_mark (tc, scm_markstream); scm_set_port_mark (tc, scm_markstream);
scm_set_ptob_flush_input (tc, st_read_flush); scm_set_port_flush_input (tc, st_read_flush);
scm_set_ptob_seek (tc, st_seek); scm_set_port_seek (tc, st_seek);
scm_set_ptob_truncate (tc, st_ftruncate); scm_set_port_truncate (tc, st_ftruncate);
} }
void void

4
libguile/vports.c
View file

@ -158,8 +158,8 @@ void
scm_make_sfptob () scm_make_sfptob ()
{ {
long tc = scm_make_port_type ("soft", sf_fill_buffer, sfflush); long tc = scm_make_port_type ("soft", sf_fill_buffer, sfflush);
scm_set_ptob_mark (tc, scm_markstream); scm_set_port_mark (tc, scm_markstream);
scm_set_ptob_close (tc, sfclose); scm_set_port_close (tc, sfclose);
} }
void void