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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
(define-module (bytestructures guile))
;;; Note: cstring-pointer import/export hack: Guile 2.0.x has a problem when a
;;; module has the same name as an identifier defined in it, and the identifier
;;; is imported and re-exported. To work around it, we import `cstring-pointer'
;;; with a rename to `_cstring-pointer', define `cstring-pointer' explicitly in
;;; this module, and export that.
(import
(bytestructures guile base)
(bytestructures guile vector)
(bytestructures guile struct)
(bytestructures guile union)
(bytestructures guile pointer)
(bytestructures guile numeric)
(bytestructures guile string)
(rename (bytestructures guile cstring-pointer)
(cstring-pointer _cstring-pointer)))
(re-export
make-bytestructure-descriptor
bytestructure-descriptor?
bytestructure-descriptor-size
bytestructure-descriptor-size/syntax
bytestructure-descriptor-alignment
bytestructure-descriptor-unwrapper
bytestructure-descriptor-getter
bytestructure-descriptor-setter
bytestructure-descriptor-metadata
make-bytestructure
bytestructure?
bytestructure-bytevector
bytestructure-offset
bytestructure-descriptor
bytestructure-size
bytestructure
bytestructure-unwrap
bytestructure-unwrap*
bytestructure-ref
bytestructure-ref*
bytestructure-set!
bytestructure-set!*
bytestructure-ref/dynamic
bytestructure-set!/dynamic
bytestructure-unwrap/syntax
bytestructure-ref/syntax
bytestructure-set!/syntax
define-bytestructure-accessors
bs:vector
vector-metadata? vector-metadata-length vector-metadata-element-descriptor
bs:struct
struct-metadata? struct-metadata-field-alist
bs:union
union-metadata? union-metadata-field-alist
bs:pointer
pointer-metadata? pointer-metadata-content-descriptor
int8 int16 int32 int64
int16le int32le int64le
int16be int32be int64be
uint8 uint16 uint32 uint64
uint16le uint32le uint64le
uint16be uint32be uint64be
float32 float64
float32le float64le
float32be float64be
short unsigned-short
int unsigned-int
long unsigned-long
long-long unsigned-long-long
intptr_t uintptr_t
size_t ssize_t ptrdiff_t
float double
complex64 complex128
complex64le complex128le
complex64be complex128be
bs:string
)
(define cstring-pointer _cstring-pointer)
(export cstring-pointer)
|
