mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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
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. */
/* 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
noop0 (SCM port)
void scm_make_sfptob (void); /* Called from ports.c */
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
scm_init_vports ()
{
#include "vports.x"
}

5
libguile/vports.h
View file

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