blob: 4d7bffab891f738ec9aa9a8092810ec927b0b2aa (
plain)
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
(load "../common")
(defvarl ar (ffi (array char)))
(defvarl zar (ffi (zarray char)))
(test (ffi-put "\x1234@@@" ar) #b'e188b4404040')
(test (ffi-put "\x1234@@@" zar) #b'e188b440404000')
(test (ffi-get (ffi-put "\x1234@@@" zar) zar) "\x1234@@@")
(unless (meq (os-symbol) :cygwin :cygnal)
(test (ffi-get #b'EDB08100' (ffi (zarray char)))
"\xDCED\xDCB0\xDC81")
(test (ffi-get #b'ED7F7FEDFF00' (ffi (zarray char)))
"\xDCED\x7F\x7F\xDCED\xDCFF"))
(mtest
(typeof (ffi (enum a))) ffi-type
(typeof (ffi (enum b b0 b1 b2 (b3 -15)))) ffi-type
(typeof (ffi (enum c (c0 (expt 2 512))))) :error
(typeof (ffi (enum d d0 d0))) :error
(typeof (ffi (enum e (e0 0) (e0 1)))) :error)
(mtest
(typeof (ffi (enumed uint16 m))) ffi-type
(typeof (ffi (enumed uint16 n n0 n1 n2 (n3 15)))) ffi-type
(typeof (ffi (enumed uint16 o (o0 (expt 2 512))))) :error
(typeof (ffi (enumed uint16 p p0 p0))) :error
(typeof (ffi (enumed uint16 q (q0 0) (q0 1)))) :error)
(mtest
(typeof (ffi (enumed uint8 e (x 0) (y #xff)))) ffi-type
(typeof (ffi (enumed uint8 e (x -1)))) :error
(typeof (ffi (enumed uint8 e (x #x100)))) :error)
(mtest
(typeof (ffi (enumed uint16 e (x 0) (y #xffff)))) ffi-type
(typeof (ffi (enumed uint16 e (x -1)))) :error
(typeof (ffi (enumed uint16 e (x #x10000)))) :error)
(mtest
(typeof (ffi (enumed uint32 e (x 0) (y #xffffffff)))) ffi-type
(typeof (ffi (enumed uint32 e (x -1)))) :error
(typeof (ffi (enumed uint32 e (x #x100000000)))) :error)
(mtest
(typeof (ffi (enumed uint64 e (x 0) (y #xffffffffffffffff)))) ffi-type
(typeof (ffi (enumed uint64 e (x #x10000000000000000)))) :error)
(mtest
(typeof (ffi (enumed int8 e (x 0) (y #x7f)))) ffi-type
(typeof (ffi (enumed int8 e (x #x-81)))) :error
(typeof (ffi (enumed int8 e (x #x800)))) :error)
(mtest
(typeof (ffi (enumed int16 e (x 0) (y #x7fff)))) ffi-type
(typeof (ffi (enumed int16 e (x #x-8001)))) :error
(typeof (ffi (enumed int16 e (x #x8000)))) :error)
(mtest
(typeof (ffi (enumed int32 e (x 0) (y #x7fffffff)))) ffi-type
(typeof (ffi (enumed int32 e (x #x-80000001)))) :error
(typeof (ffi (enumed int32 e (x #x80000000)))) :error)
(mtest
(typeof (ffi (enumed int64 e (x 0) (y #x7fffffffffffffff)))) ffi-type
(typeof (ffi (enumed int64 e (x #x-8000000000000001)))) :error
(typeof (ffi (enumed int64 e (x #x8000000000000000)))) :error)
(typedef abc (struct abc
(a (enumed (bit 1 uint8) bit fals true))
(b (enumed (bit 1 uint8) bit fals true))
(c (enumed (bit 1 uint8) bit fals true))))
(mtest
(sizeof abc) 1
(znew abc) #S(abc a fals b fals c fals))
(each-match ((@a @b @c) (rperm '(fals true) 3))
(let ((s (new abc a a b b c c)))
(vtest (ffi-get (ffi-put s (ffi abc)) (ffi abc)) s)))
(mstest
(copy-cptr (cptr-int 3)) "#<cptr: 3>"
(copy (cptr-int 3)) "#<cptr: 3>"
(copy-cptr 3) :error)
(ffi (struct flex (x char) (y (zarray char))))
(mtest
(ffi-put (new flex x #\a y "bcd") (ffi (struct flex))) #b'6162636400'
(ffi-get #b'6162636400' (ffi (struct flex))) #S(flex x #\a y "bcd"))
(defvarl %big-endian% (zerop [(ffi-put #x1 (ffi uint32)) 0]))
(typedef foo
(struct foo
(x (bit 48 uint64))
(y (bit 16 uint64))))
(if %big-endian%
(mtest
(ffi-put (new foo x 1 y 1) (ffi foo)) #b'0000000000010001'
(ffi-put (new foo x #xABCDFFFFB00B y #x1234) (ffi foo)) #b'ABCDFFFFB00B1234')
(mtest
(ffi-put (new foo x 1 y 1) (ffi foo)) #b'0100000000000100'
(ffi-put (new foo x #xABCDFFFFB00B y #x1234) (ffi foo)) #b'0BB0FFFFCDAB3412'))
(mtest
(alignof (struct empty)) 1
(alignof (union empty)) 1)
|
