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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <sexp.h>
#include <string.h>
#include <inttypes.h>
int main (void)
{
SEXP_t *cmp_l1, *cmp_l2, *cmp_l3, *cmp_l4;
setbuf (stdout, NULL);
#define LIST1(dst, a, b, c, d, e, f, g, h, i, j, k) do { \
SEXP_t *l2, *l3, *v1, *v2, *v3, *v4, *v5; \
SEXP_t *v6, *v7, *v8, *v9, *v10, *v11; \
\
dst = SEXP_list_new(NULL); \
\
v1 = SEXP_number_newu(a); \
v2 = SEXP_number_newu(b); \
v3 = SEXP_number_newu(c); \
v4 = SEXP_string_newf(d); \
v5 = SEXP_string_newf(e); \
v6 = SEXP_string_newf(f); \
v7 = SEXP_string_newf(g); \
v8 = SEXP_number_newu(h); \
v9 = SEXP_number_newu(i); \
v10 = SEXP_number_newu(j); \
v11 = SEXP_number_newu(k); \
\
SEXP_list_add(dst, v1); \
SEXP_list_add(dst, v2); \
SEXP_list_add(dst, v3); \
\
l2 = SEXP_list_new(v4, v5, v6, v7, NULL); \
\
SEXP_list_add(dst, l2); \
SEXP_free(l2); \
\
l2 = SEXP_list_new(v8, v9, v10, NULL); \
l3 = SEXP_list_new(v11, NULL); \
\
SEXP_list_add(l2, l3); \
SEXP_list_add(dst, l2); \
\
SEXP_free(l2); \
SEXP_free(l3); \
\
SEXP_free(v1); \
SEXP_free(v2); \
SEXP_free(v3); \
SEXP_free(v4); \
SEXP_free(v5); \
SEXP_free(v6); \
SEXP_free(v7); \
SEXP_free(v8); \
SEXP_free(v9); \
SEXP_free(v10); \
SEXP_free(v11); \
printf("%s = ", #dst); \
SEXP_fprintfa(stdout, dst); \
printf("\n"); \
} while(0)
#define LIST2(dst, a, b, c, d, e, f, g, h, i, j, k) do { \
SEXP_t *l2, *v1, *v2, *v3, *v4, *v5; \
SEXP_t *v6, *v7, *v8, *v9, *v10, *v11; \
\
dst = SEXP_list_new(NULL); \
\
v1 = SEXP_number_newu(a); \
v2 = SEXP_number_newu(b); \
v3 = SEXP_number_newu(c); \
v4 = SEXP_string_newf(d); \
v5 = SEXP_string_newf(e); \
v6 = SEXP_string_newf(f); \
v7 = SEXP_string_newf(g); \
v8 = SEXP_number_newu(h); \
v9 = SEXP_number_newu(i); \
v10 = SEXP_number_newu(j); \
v11 = SEXP_number_newu(k); \
\
SEXP_list_add(dst, v1); \
SEXP_list_add(dst, v2); \
SEXP_list_add(dst, v3); \
\
l2 = SEXP_list_new(v4, v5, v6, v7, NULL); \
\
SEXP_list_add(dst, l2); \
SEXP_free(l2); \
\
l2 = SEXP_list_new(v8, v9, v10, NULL); \
SEXP_list_add(dst, v11); \
SEXP_list_add(dst, l2); \
\
SEXP_free(l2); \
\
SEXP_free(v1); \
SEXP_free(v2); \
SEXP_free(v3); \
SEXP_free(v4); \
SEXP_free(v5); \
SEXP_free(v6); \
SEXP_free(v7); \
SEXP_free(v8); \
SEXP_free(v9); \
SEXP_free(v10); \
SEXP_free(v11); \
printf("%s = ", #dst); \
SEXP_fprintfa(stdout, dst); \
printf("\n"); \
} while(0)
#define BOOLEXP(e) ((e) == true ? "true" : "false")
#define TESTCMP(a1, a2, r) \
do { \
bool __res; \
printf("%s ?= %s (expecting: %s)\n", #a1, #a2, #r); \
printf("=> %s\n", BOOLEXP(__res = SEXP_deepcmp(a1, a2))); \
if (__res != r) \
return (1); \
} while(0)
LIST1(cmp_l1,
1, 2, 3, "a", "ab", "abc", "abcd", 4, 5, 6, 7);
LIST1(cmp_l2,
1, 2, 3, "a", "ab", "abc", "abcd", 4, 5, 6, 8);
LIST2(cmp_l3,
1, 2, 3, "a", "ab", "abc", "abcd", 4, 5, 6, 8);
LIST2(cmp_l4,
1, 2, 3, "a", "ab", "abc", "abcd", 4, 5, 6, 8);
TESTCMP(NULL, NULL, true);
TESTCMP(cmp_l1, NULL, false);
TESTCMP(NULL, cmp_l1, false);
TESTCMP(cmp_l1, cmp_l1, true);
TESTCMP(cmp_l2, cmp_l2, true);
TESTCMP(cmp_l1, cmp_l2, false);
TESTCMP(cmp_l2, cmp_l1, false);
TESTCMP(cmp_l2, cmp_l3, false);
TESTCMP(cmp_l3, cmp_l2, false);
TESTCMP(cmp_l1, cmp_l3, false);
TESTCMP(cmp_l3, cmp_l1, false);
TESTCMP(cmp_l3, cmp_l3, true);
TESTCMP(cmp_l4, cmp_l4, true);
TESTCMP(cmp_l4, cmp_l3, true);
TESTCMP(cmp_l3, cmp_l4, true);
SEXP_free(cmp_l1);
SEXP_free(cmp_l2);
SEXP_free(cmp_l3);
SEXP_free(cmp_l4);
return (0);
}
|
