1 ;;;; binary-ports.scm --- Binary IO on ports
3 ;;;; Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc.
5 ;;;; This library is free software; you can redistribute it and/or
6 ;;;; modify it under the terms of the GNU Lesser General Public
7 ;;;; License as published by the Free Software Foundation; either
8 ;;;; version 3 of the License, or (at your option) any later version.
10 ;;;; This library is distributed in the hope that it will be useful,
11 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ;;;; Lesser General Public License for more details.
15 ;;;; You should have received a copy of the GNU Lesser General Public
16 ;;;; License along with this library; if not, write to the Free Software
17 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
19 ;;; Author: Ludovic Courtès <ludo@gnu.org>
23 ;;; The I/O port API of the R6RS is provided by this module. In many areas
24 ;;; it complements or refines Guile's own historical port API. For instance,
25 ;;; it allows for binary I/O with bytevectors.
29 (define-module (ice-9 binary-ports)
30 #:use-module (rnrs bytevectors)
32 open-bytevector-input-port
33 make-custom-binary-input-port
44 open-bytevector-output-port
45 make-custom-binary-output-port))
47 ;; Note that this extension also defines %make-transcoded-port, which is
48 ;; not exported but is used by (rnrs io ports).
50 (load-extension (string-append "libguile-" (effective-version))
51 "scm_init_r6rs_ports")