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

* strports.c (scm_stptob, prinstpt, noop0): Removed

Browse source 
(scm_make_stptob): Added.
This commit is contained in:
Mikael Djurfeldt 1999-07-24 23:10:43 +00:00
parent 2c16a78a11
commit 0b6881fa6c
2 changed files with 8 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

40
libguile/strports.c
View file

@ -66,13 +66,6 @@
when rw_active is 0. when rw_active is 0.
*/ */
static int
prinstpt (SCM exp, SCM port, scm_print_state *pstate)
{
scm_prinport (exp, port, "string");
return !0;
}
static int static int
stfill_buffer (SCM port) stfill_buffer (SCM port)
{ {
@ -358,35 +351,18 @@ scm_eval_string (string)
return ans; return ans;
} }
void scm_make_stptob (void); /* Called from ports.c */
void
static int noop0 SCM_P ((SCM stream)); scm_make_stptob ()
static int
noop0 (stream)
SCM stream;
{ {
return 0; long tc = scm_make_port_type ("string", stfill_buffer, st_flush);
scm_set_ptob_mark (tc, scm_markstream);
scm_set_ptob_flush_input (tc, st_read_flush);
scm_set_ptob_seek (tc, st_seek);
scm_set_ptob_truncate (tc, st_ftruncate);
} }
scm_ptobfuns scm_stptob =
{
scm_markstream,
noop0,
prinstpt,
0,
st_flush,
st_read_flush,
0,
stfill_buffer,
st_seek,
st_ftruncate,
0,
};
void void
scm_init_strports () scm_init_strports ()
{ {

2
libguile/strports.h
View file

@ -46,8 +46,6 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
extern scm_ptobfuns scm_stptob;
extern SCM scm_mkstrport SCM_P ((SCM pos, SCM str, long modes, const char * caller)); extern SCM scm_mkstrport SCM_P ((SCM pos, SCM str, long modes, const char * caller));