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
|
#include <stdio.h>
#include <stc/forward.h>
forward_clist(clist_i32, int);
forward_clist(clist_pnt, struct Point);
typedef struct {
clist_i32 intlst;
clist_pnt pntlst;
} MyStruct;
#define i_val int
#define i_tag i32
#define i_is_forward
#include <stc/clist.h>
typedef struct Point { int x, y; } Point;
int point_cmp(const Point* a, const Point* b) {
int c = a->x - b->x;
return c ? c : a->y - b->y;
}
#define i_val Point
#define i_cmp point_cmp
#define i_is_forward
#define i_tag pnt
#include <stc/clist.h>
#define i_val float
#include <stc/clist.h>
void MyStruct_drop(MyStruct* s);
#define i_type MyList
#define i_valclass MyStruct // i_valclass uses MyStruct_drop
#define i_opt c_no_clone|c_no_cmp
#include <stc/clist.h>
void MyStruct_drop(MyStruct* s) {
clist_i32_drop(&s->intlst);
clist_pnt_drop(&s->pntlst);
}
int main()
{
MyStruct my = {0};
clist_i32_push_back(&my.intlst, 123);
clist_pnt_push_back(&my.pntlst, (Point){123, 456});
MyStruct_drop(&my);
clist_pnt plst = c_make(clist_pnt, {{42, 14}, {32, 94}, {62, 81}});
clist_pnt_sort(&plst);
c_foreach (i, clist_pnt, plst)
printf(" (%d %d)", i.ref->x, i.ref->y);
puts("");
clist_pnt_drop(&plst);
clist_float flst = c_make(clist_float, {123.3f, 321.2f, -32.2f, 78.2f});
clist_float_sort(&flst);
c_foreach (i, clist_float, flst)
printf(" %g", *i.ref);
puts("");
clist_float_drop(&flst);
}
|
