diff options
| author | Mark H Weaver <mhw@netris.org> | 2019-04-16 23:13:06 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2019-06-18 02:05:20 -0400 |
| commit | cc73c2ab5deda6257564c675613122da3ee85a7c (patch) | |
| tree | 3a5f7dc8e14bcf3c232210e3913bc40560e64a01 /libguile/r6rs-ports.h | |
| parent | a23ee74fab7f192a8b3da76554d27944821754f8 (diff) | |
Add get-bytevector-some!.
* libguile/r6rs-ports.c (scm_get_bytevector_some_x): New procedure.
* libguile/r6rs-ports.h (scm_get_bytevector_some_x): Add prototype.
(scm_unget_bytevector): Move prototype next to 'scm_get_bytevector_some_x'.
* module/ice-9/binary-ports.scm: Export 'get-bytevector-some!'.
* doc/ref/api-io.texi (Binary I/O): Document it.
Diffstat (limited to 'libguile/r6rs-ports.h')
| -rw-r--r-- | libguile/r6rs-ports.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/libguile/r6rs-ports.h b/libguile/r6rs-ports.h index a2c63c7f4..51dec4185 100644 --- a/libguile/r6rs-ports.h +++ b/libguile/r6rs-ports.h @@ -1,7 +1,7 @@ #ifndef SCM_R6RS_PORTS_H #define SCM_R6RS_PORTS_H -/* Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc. +/* Copyright (C) 2009-2011, 2013, 2019 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -34,7 +34,6 @@ SCM_API SCM scm_get_bytevector_n (SCM, SCM); SCM_API SCM scm_get_bytevector_n_x (SCM, SCM, SCM, SCM); SCM_API SCM scm_get_bytevector_some (SCM); SCM_API SCM scm_get_bytevector_all (SCM); -SCM_API SCM scm_unget_bytevector (SCM, SCM, SCM, SCM); SCM_API SCM scm_put_u8 (SCM, SCM); SCM_API SCM scm_put_bytevector (SCM, SCM, SCM, SCM); SCM_API SCM scm_open_bytevector_output_port (SCM); @@ -46,4 +45,8 @@ SCM_API SCM scm_get_string_n_x (SCM, SCM, SCM, SCM); SCM_API void scm_init_r6rs_ports (void); SCM_INTERNAL void scm_register_r6rs_ports (void); +/* Guile extensions, not in R6RS. */ +SCM_API SCM scm_unget_bytevector (SCM, SCM, SCM, SCM); +SCM_API SCM scm_get_bytevector_some_x (SCM, SCM, SCM, SCM); + #endif /* SCM_R6RS_PORTS_H */ |