diff options
author | Andy Wingo <wingo@pobox.com> | 2016-08-04 22:29:51 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-08-04 22:29:51 +0200 |
commit | 1a1c3bbe597f3682066266ce44bf9bbed2481ad2 (patch) | |
tree | 511c9e1db62a5f90bd1cf1e955f57bdabf261e44 /module | |
parent | 8da33d972a795e0bb1c0e3ed5735d9bf42756950 (diff) | |
download | guile-1a1c3bbe597f3682066266ce44bf9bbed2481ad2.tar.gz |
Implement R6RS custom binary input/output ports
* NEWS: Add new feature.
* doc/ref/r6rs.texi (rnrs io ports):
* doc/ref/api-io.texi (Custom Ports): Document new procedure.
* libguile/r6rs-ports.h:
* libguile/r6rs-ports.c (make_custom_binary_input_output_port)
(scm_make_custom_binary_input_output_port)
(custom_binary_input_output_port_random_access_p)
(initialize_custom_binary_input_output_ports)
(scm_init_r6rs_ports): Implement custom binary input/output ports.
* module/rnrs/io/ports.scm (rnrs):
* module/ice-9/binary-ports.scm (ice-9): Export
make-custom-binary-input/output-port.
Diffstat (limited to 'module')
-rw-r--r-- | module/ice-9/binary-ports.scm | 3 | ||||
-rw-r--r-- | module/rnrs/io/ports.scm | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/module/ice-9/binary-ports.scm b/module/ice-9/binary-ports.scm index 9d6c94526..e0da3df1a 100644 --- a/module/ice-9/binary-ports.scm +++ b/module/ice-9/binary-ports.scm @@ -42,7 +42,8 @@ put-bytevector unget-bytevector open-bytevector-output-port - make-custom-binary-output-port)) + make-custom-binary-output-port + make-custom-binary-input/output-port)) ;; Note that this extension also defines %make-transcoded-port, which is ;; not exported but is used by (rnrs io ports). diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm index 5ddc3d58d..e924ad8fc 100644 --- a/module/rnrs/io/ports.scm +++ b/module/rnrs/io/ports.scm @@ -71,6 +71,7 @@ ;; input/output ports open-file-input/output-port + make-custom-binary-input/output-port ;; binary output put-u8 put-bytevector |