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
|
#include <stc/cstr.h>
struct Person { cstr name, last; } typedef Person;
Person Person_from(const char* name, const char* last) {
return (Person){.name = cstr_from(name), .last = cstr_from(last)};
}
Person Person_clone(Person p) {
p.name = cstr_clone(p.name), p.last = cstr_clone(p.last);
return p;
}
void Person_drop(Person* p) {
printf("drop: %s %s\n", cstr_str(&p->name), cstr_str(&p->last));
c_drop(cstr, &p->name, &p->last);
}
#define i_val_bind Person
#define i_tag person
#include <stc/carc.h>
// ...
#define i_type SPtr
#define i_val int
#define i_valdrop(x) printf("drop: %d\n", *x)
#include <stc/carc.h>
#define i_val_arcbox SPtr
#define i_tag iptr
#include <stc/cstack.h>
int main(void) {
c_auto (carc_person, p, q, r, s)
{
puts("Ex1");
p = carc_person_from(Person_from("John", "Smiths"));
q = carc_person_clone(p);
r = carc_person_clone(p);
s = carc_person_from(Person_clone(*p.get)); // deep copy
printf("%s %s. uses: %lu\n", cstr_str(&r.get->name), cstr_str(&s.get->last), *p.use_count);
}
c_auto (cstack_iptr, stk) {
puts("Ex2");
cstack_iptr_push(&stk, SPtr_from(10));
cstack_iptr_push(&stk, SPtr_from(20));
cstack_iptr_push(&stk, SPtr_from(30));
cstack_iptr_push(&stk, SPtr_clone(*cstack_iptr_top(&stk)));
cstack_iptr_push(&stk, SPtr_clone(*cstack_iptr_begin(&stk).ref));
c_foreach (i, cstack_iptr, stk)
printf(" (%d, uses %ld)", *i.ref->get, *i.ref->use_count);
puts("");
}
}
|
