blob: 8f91096eac2e9cf48f86c71c456cdda875368cf4 (
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
|
(load "../common")
(typedef fs0 (struct fs0
(a uint8)
(b (array char))))
(mtest
(sizeof fs0) 1
(ffi-put #S(fs0 a 3 b "ABC") (ffi fs0)) #b'03414243'
(ffi-get #b'03414243' (ffi fs0)) #S(fs0 a 3 b ""))
(defmeth fs0 length (s)
s.a)
(mtest
(ffi-get #b'03414243' (ffi fs0)) #S(fs0 a 3 b "ABC")
(ffi-get #b'02e6bca2e5ad97' (ffi fs0)) #S(fs0 a 2 b "\xDCE6\xDCBC")
(ffi-get #b'06e6bca2e5ad97' (ffi fs0)) #S(fs0 a 6 b "漢字"))
(typedef fs1 (struct fs1
(a uint8)
(b (zarray char))))
(mtest
(sizeof fs1) 1
(ffi-put #S(fs1 a 3 b "ABCDEF") (ffi fs1)) #b'0341424344454600'
(ffi-get #b'FF41424300' (ffi fs1)) #S(fs1 a 255 b "ABC"))
(mtest
(ffi-get #b'0341424300' (ffi fs1)) #S(fs1 a 3 b "ABC")
(ffi-get #b'02e6bc00' (ffi fs1)) #S(fs1 a 2 b "\xDCE6\xDCBC")
(ffi-get #b'06e6bca2e5ad9700' (ffi fs1)) #S(fs1 a 6 b "漢字"))
(typedef fs2 (struct fs2
(a int8)
(b (array int8))))
(mtest
(sizeof fs2) 1
(ffi-put #S(fs2 a 3 b "ABCD") (ffi fs2)) #b'0341424344'
(ffi-put #S(fs2 a 3 b #(65 66 67 68)) (ffi fs2)) #b'0341424344'
(ffi-get #b'FF414243' (ffi fs2)) #S(fs2 a 255 b #()))
(defmeth fs2 length (s)
s.a)
(mtest
(ffi-get #b'03010203' (ffi fs2)) #S(fs2 a 3 b #(1 2 3)))
(typedef fs3 (struct fs3
(a int8)
(b (array le-int16))))
(mtest
(sizeof fs3) 2
(ffi-put #S(fs3 a 3 b "ABCD") (ffi fs3)) #b'03004100420043004400'
(ffi-put #S(fs3 a 3 b #(65 66 67 68)) (ffi fs3)) #b'03004100420043004400'
(ffi-get #b'FF414243' (ffi fs3)) #S(fs3 a 255 b #()))
(defmeth fs3 length (s)
s.a)
(mtest
(ffi-get #b'0300010002000300' (ffi fs3)) #S(fs3 a 3 b #(1 2 3)))
(typedef fs4 (struct fs4
(c int8)
(s fs0)))
(mtest
(sizeof fs4) 2
(ffi-put #S(fs4 c 93 s #S(fs0 a 4 b "ABCD")) (ffi fs4)) #b'5d0441424344'
(ffi-get #b'5d0441424344' (ffi fs4)) #S(fs4 c 93 s #S(fs0 a 4 b "ABCD")))
|
