mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* vports.c (scm_sfport, prinsfpt, sf_read_flush, noop0): Removed.

Browse source 
(scm_make_sfport): Added.
This commit is contained in:
Mikael Djurfeldt 1999-07-24 23:11:11 +00:00
parent f15913d08f
commit 10efca5bce
2 changed files with 7 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

47
libguile/vports.c
View file

@ -59,19 +59,6 @@
*/ */
static int prinsfpt SCM_P ((SCM exp, SCM port, scm_print_state *pstate));
static int
prinsfpt (exp, port, pstate)
SCM exp;
SCM port;
scm_print_state *pstate;
{
scm_prinport (exp, port, "soft");
return !0;
}
static void static void
sfflush (SCM port) sfflush (SCM port)
{ {
@ -95,11 +82,6 @@ sfflush (SCM port)
} }
} }
static void
sf_read_flush (SCM port, int offset)
{
}
/* string output proc (element 1) is no longer called. */ /* string output proc (element 1) is no longer called. */
/* calling the flush proc (element 2) is in case old code needs it, /* calling the flush proc (element 2) is in case old code needs it,
@ -170,33 +152,18 @@ scm_make_soft_port (pv, modes)
} }
static int void scm_make_sfptob (void); /* Called from ports.c */
noop0 (SCM port)
void
scm_make_sfptob ()
{ {
return 0; long tc = scm_make_port_type ("soft", sf_fill_buffer, sfflush);
scm_set_ptob_mark (tc, scm_markstream);
scm_set_ptob_close (tc, sfclose);
} }
scm_ptobfuns scm_sfptob =
{
scm_markstream,
noop0,
prinsfpt,
0,
sfflush,
sf_read_flush,
sfclose,
sf_fill_buffer,
0,
0,
0,
};
void void
scm_init_vports () scm_init_vports ()
{ {
#include "vports.x" #include "vports.x"
} }

5
libguile/vports.h
View file

@ -46,11 +46,6 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
extern scm_ptobfuns scm_sfptob;
extern SCM scm_make_soft_port SCM_P ((SCM pv, SCM modes)); extern SCM scm_make_soft_port SCM_P ((SCM pv, SCM modes));