diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-10-09 12:46:31 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-10-09 12:46:31 +0000 |
commit | bc45012d8fb7bb6f572c5b7a2919e3ff2fe5bfd5 (patch) | |
tree | eb10cda4446c1a138d917ea7a0c597f24fddfd70 /libguile/ioext.h | |
parent | 571031dca0b8474ec576dbb949ea82d9265a9897 (diff) | |
download | guile-bc45012d8fb7bb6f572c5b7a2919e3ff2fe5bfd5.tar.gz |
Centralize the creation of port objects based on stdio FILE * in
fports.c; don't just throw them together anywhere.
* fports.c (scm_stdio_to_port): Make NAME a SCM value, which is
what the rest of Guile wants. Don't set the revealed count;
that's only appropriate for stdin, stdout, stderr.
(scm_standard_stream_to_port): This function does set the revealed
count.
* init.c (scm_init_standard_ports): Use scm_standard_stream_to_port,
not scm_stdio_to_port.
* filesys.c (scm_open): Call scm_stdio_to_port; don't write it out.
* fports.c (scm_open_file): Same.
* posix.c (scm_pipe): Same.
* socket.c (scm_sock_fd_to_port): Same.
* ioext.c (scm_fdopen): Same.
(scm_freopen): Moved from here to...
* fports.c (scm_freopen): ... here. This is really something that
munges the internals of an fport, so it should go here.
* fports.h (scm_stdio_to_port): Adjust prototype.
(scm_standard_stream_to_port, scm_freopen): New protoypes.
* ioext.h (scm_freopen): Prototype removed.
Diffstat (limited to 'libguile/ioext.h')
-rw-r--r-- | libguile/ioext.h | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libguile/ioext.h b/libguile/ioext.h index 1bd9dbddd..ab95db912 100644 --- a/libguile/ioext.h +++ b/libguile/ioext.h @@ -53,7 +53,6 @@ extern SCM scm_read_line (SCM port); extern SCM scm_write_line SCM_P ((SCM obj, SCM port)); extern SCM scm_ftell SCM_P ((SCM object)); extern SCM scm_fseek SCM_P ((SCM object, SCM offset, SCM whence)); -extern SCM scm_freopen SCM_P ((SCM filename, SCM modes, SCM port)); extern SCM scm_redirect_port SCM_P ((SCM into_pt, SCM from_pt)); extern SCM scm_dup_to_fdes (SCM fd_or_port, SCM newfd); extern SCM scm_fileno SCM_P ((SCM port)); |