1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;; -*-theme-d-*-
;; Copyright (C) 2020, 2021 Tommi Höynälänmaa
;; Distributed under GNU Lesser General Public License version 3,
;; see file doc/LGPL-3.
(define-interface (standard-library binary-file-io)
(import (standard-library core)
(standard-library bytevector))
(import-and-reexport (standard-library files))
(declare-simple-method get-u8 (<input-port>) (:union <integer> <eof>)
nonpure)
;; We declare this nonpure, too.
(declare-simple-method lookahead-u8 (<input-port>) (:union <integer> <eof>)
nonpure)
(declare-simple-method get-bytevector-n
(<input-port> <integer>) (:union <bytevector> <eof>)
nonpure)
(declare-simple-method get-bytevector-n!
(<input-port> <bytevector> <integer> <integer>)
(:union <integer> <eof>) nonpure)
(declare-simple-method get-bytevector-some
(<input-port>) (:union <bytevector> <eof>) nonpure)
(declare-simple-method get-bytevector-some!
(<input-port> <bytevector> <integer> <integer>)
(:union <integer> <eof>) nonpure)
(declare-simple-method get-bytevector-all
(<input-port>) (:union <bytevector> <eof>) nonpure)
(declare-simple-method unget-bytevector
(<input-port> <bytevector> <integer> <integer>)
<none> nonpure)
(declare-simple-method put-u8
(<output-port> <integer>) <none> nonpure)
(declare-simple-method put-bytevector
(<output-port> <bytevector> <integer> <integer>)
<none> nonpure)
(declare-simple-method put-whole-bytevector
(<output-port> <bytevector>) <none> nonpure))
|
