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

* posix.c (scm_pipe): rewrote the docstring.

Browse source 
(and fixed a bug in the scm_select change)
This commit is contained in:
Gary Houston 2000-01-29 19:50:36 +00:00
parent 28d77376bc
commit ae1b098b07
3 changed files with 24 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ChangeLog
View file

@ -1,5 +1,7 @@
2000-01-29 Gary Houston <ghouston@arglist.com> 2000-01-29 Gary Houston <ghouston@arglist.com>
* posix.c (scm_pipe): rewrote the docstring.
* filesys.c (scm_select, retrieve_select_type, get_element, * filesys.c (scm_select, retrieve_select_type, get_element,
fill_select_type, set_element): modified so that Scheme fill_select_type, set_element): modified so that Scheme
"select" tests port buffers for the ability to provide input "select" tests port buffers for the ability to provide input

19
libguile/filesys.c
View file

@ -1050,18 +1050,19 @@ SCM_DEFINE (scm_select, "select", 3, 2, 0,
max_fd = except_max; max_fd = except_max;
} }
if (SCM_UNBNDP (secs) || SCM_FALSEP (secs)) /* if there's a port with a ready buffer, don't block, just
check for ready file descriptors. */
if (read_ports_ready != SCM_EOL || write_ports_ready != SCM_EOL)
{
timeout.tv_sec = 0;
timeout.tv_usec = 0;
time_ptr = &timeout;
}
else if (SCM_UNBNDP (secs) || SCM_FALSEP (secs))
time_ptr = 0; time_ptr = 0;
else else
{ {
/* if there's a port with a ready buffer, don't block, just if (SCM_INUMP (secs))
check for ready file descriptors. */
if (read_ports_ready != SCM_EOL || write_ports_ready != SCM_EOL)
{
timeout.tv_sec = 0;
timeout.tv_usec = 0;
}
else if (SCM_INUMP (secs))
{ {
timeout.tv_sec = SCM_INUM (secs); timeout.tv_sec = SCM_INUM (secs);
if (SCM_UNBNDP (usecs)) if (SCM_UNBNDP (usecs))

19
libguile/posix.c
View file

@ -168,13 +168,18 @@ SCM_SYMBOL (sym_write_pipe, "write pipe");
SCM_DEFINE (scm_pipe, "pipe", 0, 0, 0, SCM_DEFINE (scm_pipe, "pipe", 0, 0, 0,
(), (),
"Creates a pipe which can be used for communication. The return value\n" "Returns a newly created pipe: a pair of ports which are linked\n"
"is a pair in which the CAR contains an input port and the CDR an\n" "together on the local machine. The CAR is the input port and\n"
"output port. Data written to the output port can be read from the\n" "the CDR is the output port. Data written (and flushed) to the\n"
"input port. Note that both ports are buffered so it may be necessary\n" "output port can be read from the input port.\n"
"to flush the output port before data will actually be sent across the pipe.\n" "Pipes are commonly used for communication with a newly\n"
"Alternatively a buffer can be added to the port using @code{setvbuf}\n" "forked child process. @code{setvbuf} can be used to remove the\n"
"(see below).") "buffer from the output port: then data written will be\n"
"available at the input port even if the output port is not\n"
"flushed. Note that the output port is likely\n"
"to block if too much data is written without reading from\n"
"the input port."
)
#define FUNC_NAME s_scm_pipe #define FUNC_NAME s_scm_pipe
{ {
int fd[2], rv; int fd[2], rv;