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

Document call-with-port

* doc/ref/api-io.texi (Ports): Add docs.
* doc/ref/r6rs.texi (rnrs io ports): Remove docs.
This commit is contained in:
Andy Wingo 2021-01-12 12:21:15 +01:00
parent 1820ed5121
commit b2b1666d4c
2 changed files with 8 additions and 7 deletions

View file

@ -1,7 +1,7 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
@c Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2007, 2009,
@c 2010, 2011, 2013, 2016, 2019 Free Software Foundation, Inc.
@c 2010, 2011, 2013, 2016, 2019, 2021 Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@node Input and Output
@ -125,6 +125,11 @@ Return @code{#t} if @var{port} is closed or @code{#f} if it is
open.
@end deffn
@deffn {Scheme Procedure} call-with-port port proc
Call @var{proc}, passing it @var{port} and closing @var{port} upon exit
of @var{proc}. Return the return values of @var{proc}.
@end deffn
@node Binary I/O
@subsection Binary I/O

View file

@ -1,7 +1,7 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
@c Copyright (C) 2010, 2011, 2012, 2013,
@c 2014, 2019 Free Software Foundation, Inc.
@c 2014, 2019, 2021 Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@node R6RS Support
@ -1683,6 +1683,7 @@ Return the end-of-file (EOF) object.
@deffn {Scheme Procedure} port? obj
@deffnx {Scheme Procedure} input-port? obj
@deffnx {Scheme Procedure} output-port? obj
@deffnx {Scheme Procedure} call-with-port port proc
@xref{Ports}, for documentation.
@end deffn
@ -1751,11 +1752,6 @@ Equivalent to @code{(seek @var{port} @var{offset} SEEK_SET)}.
Return @code{#t} is @var{port} supports @code{set-port-position!}.
@end deffn
@deffn {Scheme Procedure} call-with-port port proc
Call @var{proc}, passing it @var{port} and closing @var{port} upon exit
of @var{proc}. Return the return values of @var{proc}.
@end deffn
@deffn {Scheme Procedure} port-eof? input-port
Equivalent to @code{(eof-object? (lookahead-u8 @var{input-port}))}.
@end deffn