ea514b9e |
1 | #include "cll1.h" |
2 | |
3 | def_mem(Record) |
4 | { |
5 | int i; |
6 | str s; |
7 | list(Record); |
8 | }; |
9 | |
10 | program |
11 | { |
12 | Record record, records = NULL; |
13 | |
14 | print("4x insert(record,records,order_by_num,i);"); |
15 | |
16 | record = get_mem(Record); |
17 | record->i = 1; |
18 | record->s = "ddd"; |
19 | insert(record, records, order_by_num, i); |
20 | |
21 | record = get_mem(Record); |
22 | record->i = 3; |
23 | record->s = "BBBB"; |
24 | insert(record, records, order_by_num, i); |
25 | |
26 | record = get_mem(Record); |
27 | record->i = 4; |
28 | record->s = "e"; |
29 | insert(record, records, order_by_num, i); |
30 | |
31 | record = get_mem(Record); |
32 | record->i = 2; |
33 | record->s = "aaaa"; |
34 | insert(record, records, order_by_num, i); |
35 | |
36 | for_each(record, records) |
37 | { |
38 | printf("i=%d, s=%s\n", record->i, record->s); |
39 | } |
40 | |
41 | print("1x append(record,records);"); |
42 | |
43 | record = get_mem(Record); |
44 | record->i = 0; |
45 | record->s = "ccc"; |
46 | append(record, records); |
47 | |
48 | for_each(record, records) |
49 | { |
50 | printf("i=%d, s=%s\n", record->i, record->s); |
51 | } |
52 | |
53 | print("sort(record,records,order_by_num_desc,i);"); |
54 | |
55 | sort(record, records, order_by_num_desc, i); |
56 | |
57 | for_each(record, records) |
58 | { |
59 | printf("i=%d, s=%s\n", record->i, record->s); |
60 | } |
61 | |
62 | print("sort(record,records,order_by_str,s);"); |
63 | |
64 | sort(record, records, order_by_str, s); |
65 | |
66 | for_each(record, records) |
67 | { |
68 | printf("i=%d, s=%s\n",record->i,record->s); |
69 | } |
70 | |
71 | print("sort(record, records, order_by_ascii_desc, s);"); |
72 | |
73 | sort(record, records, order_by_ascii_desc, s); |
74 | |
75 | for_each(record,records) |
76 | { |
77 | printf("i=%d, s=%s\n", record->i, record->s); |
78 | } |
79 | |
80 | print("remove(record,records,record->i==1);"); |
81 | remove(record, records, record->i == 1); |
82 | |
83 | for_each(record,records) |
84 | { |
85 | printf("i=%d, s=%s\n", record->i, record->s); |
86 | } |
87 | |
88 | print("drop(record,records);"); |
89 | drop(record, records); |
90 | |
91 | for_each(record, records) |
92 | { |
93 | printf("i=%d, s=%s\n", record->i, record->s); |
94 | } |
95 | } |