/[guile]/guile/guile-core/libguile/ports.c
ViewVC logotype

Diff of /guile/guile-core/libguile/ports.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.153.2.5 by ttn, Thu Mar 14 05:26:15 2002 UTC revision 1.153.2.6 by ossau, Fri Mar 15 09:23:19 2002 UTC
# Line 391  SCM_DEFINE (scm_current_load_port, "curr Line 391  SCM_DEFINE (scm_current_load_port, "curr
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.")
# Line 762  SCM_DEFINE (scm_close_all_ports_except, Line 762  SCM_DEFINE (scm_close_all_ports_except,
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  {  {
# Line 1438  SCM_DEFINE (scm_set_port_line_x, "set-po Line 1438  SCM_DEFINE (scm_set_port_line_x, "set-po
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"
# Line 1457  SCM_DEFINE (scm_port_column, "port-colum Line 1457  SCM_DEFINE (scm_port_column, "port-colum
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
# Line 1580  scm_void_port (char *mode_str) Line 1580  scm_void_port (char *mode_str)
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

Legend:
Removed from v.1.153.2.5  
changed lines
  Added in v.1.153.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26