30628092 |
1 | #include "cll1.h" |
2 | |
4643aeaf |
3 | def_mem(Record) |
30628092 |
4 | { |
5 | int i; |
61ad8a2b |
6 | str s; |
4643aeaf |
7 | list(Record); |
f5725936 |
8 | }; |
30628092 |
9 | |
04a13a6f |
10 | program |
30628092 |
11 | { |
4643aeaf |
12 | Record record,records=NULL; |
13 | |
14 | print("4x insert(record,records ,order_by,i);"); |
15 | |
16 | record=get_mem(Record); |
17 | record->i=1; |
18 | record->s="ddd"; |
19 | insert(record,records ,order_by,i); |
20 | |
21 | record=get_mem(Record); |
22 | record->i=3; |
23 | record->s="bbbbb"; |
24 | insert(record,records ,order_by,i); |
25 | |
26 | record=get_mem(Record); |
27 | record->i=4; |
28 | record->s="e"; |
29 | insert(record,records ,order_by,i); |
30 | |
31 | record=get_mem(Record); |
32 | record->i=2; |
33 | record->s="aaaa"; |
34 | insert(record,records ,order_by,i); |
35 | |
36 | for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s); |
37 | |
38 | print("1x append(record,records );"); |
39 | record=get_mem(Record); |
40 | record->i=0; |
41 | record->s="ccc"; |
42 | append(record,records ); |
43 | for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s); |
44 | |
45 | print("sort(record,records ,desc_order_by,i);"); |
46 | sort(record,records ,desc_order_by,i); |
47 | for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s); |
48 | |
49 | print("sort(record,records ,sort_by,s);"); |
50 | sort(record,records ,sort_by,s); |
51 | for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s); |
52 | |
53 | print("remove(record,records ,record->i==1);"); |
54 | remove(record,records ,record->i==1); |
55 | for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s); |
56 | |
57 | print("drop(record,records );"); |
58 | drop(record,records ); |
59 | for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s); |
30628092 |
60 | } |