391 |
|
|
392 |
SCM_DEFINE (scm_set_current_input_port, "set-current-input-port", 1, 0, 0, |
SCM_DEFINE (scm_set_current_input_port, "set-current-input-port", 1, 0, 0, |
393 |
(SCM port), |
(SCM port), |
394 |
"@deffnx primitive set-current-output-port port\n" |
"@deffnx {Scheme Procedure} set-current-output-port port\n" |
395 |
"@deffnx primitive set-current-error-port port\n" |
"@deffnx {Scheme Procedure} set-current-error-port port\n" |
396 |
"Change the ports returned by @code{current-input-port},\n" |
"Change the ports returned by @code{current-input-port},\n" |
397 |
"@code{current-output-port} and @code{current-error-port}, respectively,\n" |
"@code{current-output-port} and @code{current-error-port}, respectively,\n" |
398 |
"so that they use the supplied @var{port} for input or output.") |
"so that they use the supplied @var{port} for input or output.") |
762 |
"except for those supplied as arguments. This procedure\n" |
"except for those supplied as arguments. This procedure\n" |
763 |
"was intended to be used before an exec call to close file descriptors\n" |
"was intended to be used before an exec call to close file descriptors\n" |
764 |
"which are not needed in the new process. However it has the\n" |
"which are not needed in the new process. However it has the\n" |
765 |
"undesirable side-effect of flushing buffes, so it's deprecated.\n" |
"undesirable side effect of flushing buffers, so it's deprecated.\n" |
766 |
"Use port-for-each instead.") |
"Use port-for-each instead.") |
767 |
#define FUNC_NAME s_scm_close_all_ports_except |
#define FUNC_NAME s_scm_close_all_ports_except |
768 |
{ |
{ |
1438 |
|
|
1439 |
SCM_DEFINE (scm_port_column, "port-column", 1, 0, 0, |
SCM_DEFINE (scm_port_column, "port-column", 1, 0, 0, |
1440 |
(SCM port), |
(SCM port), |
1441 |
"@deffnx primitive port-line port\n" |
"@deffnx {Scheme Procedure} port-line port\n" |
1442 |
"Return the current column number or line number of @var{port},\n" |
"Return the current column number or line number of @var{port},\n" |
1443 |
"using the current input port if none is specified. If the number is\n" |
"using the current input port if none is specified. If the number is\n" |
1444 |
"unknown, the result is #f. Otherwise, the result is a 0-origin integer\n" |
"unknown, the result is #f. Otherwise, the result is a 0-origin integer\n" |
1457 |
|
|
1458 |
SCM_DEFINE (scm_set_port_column_x, "set-port-column!", 2, 0, 0, |
SCM_DEFINE (scm_set_port_column_x, "set-port-column!", 2, 0, 0, |
1459 |
(SCM port, SCM column), |
(SCM port, SCM column), |
1460 |
"@deffnx primitive set-port-line! port line\n" |
"@deffnx {Scheme Procedure} set-port-line! port line\n" |
1461 |
"Set the current column or line number of @var{port}, using the\n" |
"Set the current column or line number of @var{port}, using the\n" |
1462 |
"current input port if none is specified.") |
"current input port if none is specified.") |
1463 |
#define FUNC_NAME s_scm_set_port_column_x |
#define FUNC_NAME s_scm_set_port_column_x |
1580 |
SCM_DEFINE (scm_sys_make_void_port, "%make-void-port", 1, 0, 0, |
SCM_DEFINE (scm_sys_make_void_port, "%make-void-port", 1, 0, 0, |
1581 |
(SCM mode), |
(SCM mode), |
1582 |
"Create and return a new void port. A void port acts like\n" |
"Create and return a new void port. A void port acts like\n" |
1583 |
"/dev/null. The @var{mode} argument\n" |
"@file{/dev/null}. The @var{mode} argument\n" |
1584 |
"specifies the input/output modes for this port: see the\n" |
"specifies the input/output modes for this port: see the\n" |
1585 |
"documentation for @code{open-file} in @ref{File Ports}.") |
"documentation for @code{open-file} in @ref{File Ports}.") |
1586 |
#define FUNC_NAME s_scm_sys_make_void_port |
#define FUNC_NAME s_scm_sys_make_void_port |