30628092 |
1 | #include "cll1.h" |
2 | |
f5725936 |
3 | mem Zaznam |
30628092 |
4 | { |
5 | int i; |
6 | char *j; |
7 | list(Zaznam); |
f5725936 |
8 | }; |
30628092 |
9 | |
04a13a6f |
10 | program |
30628092 |
11 | { |
b3674906 |
12 | define_mems(zaznam,zaznamy,Zaznam); |
f5725936 |
13 | |
14 | print("4x insert(zaznam,zaznamy,order_by,i);"); |
15 | zaznam=get_mem(Zaznam); |
30628092 |
16 | zaznam->i=1; |
17 | zaznam->j="ddd"; |
18 | insert(zaznam,zaznamy,order_by,i); |
f5725936 |
19 | zaznam=get_mem(Zaznam); |
30628092 |
20 | zaznam->i=3; |
21 | zaznam->j="bbbbb"; |
22 | insert(zaznam,zaznamy,order_by,i); |
f5725936 |
23 | zaznam=get_mem(Zaznam); |
005431b8 |
24 | zaznam->i=4; |
30628092 |
25 | zaznam->j="e"; |
26 | insert(zaznam,zaznamy,order_by,i); |
f5725936 |
27 | zaznam=get_mem(Zaznam); |
30628092 |
28 | zaznam->i=2; |
005431b8 |
29 | zaznam->j="aaaa"; |
30628092 |
30 | insert(zaznam,zaznamy,order_by,i); |
005431b8 |
31 | for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
32 | |
005431b8 |
33 | print("1x append(zaznam,zaznamy);"); |
f5725936 |
34 | zaznam=get_mem(Zaznam); |
005431b8 |
35 | zaznam->i=0; |
36 | zaznam->j="ccc"; |
30628092 |
37 | append(zaznam,zaznamy); |
005431b8 |
38 | for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
39 | |
005431b8 |
40 | print("sort(zaznam,zaznamy,desc_order_by,i);"); |
30628092 |
41 | sort(zaznam,zaznamy,desc_order_by,i); |
005431b8 |
42 | for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
43 | |
005431b8 |
44 | print("sort(zaznam,zaznamy,sort_by,j);"); |
45 | sort(zaznam,zaznamy,sort_by,j); |
46 | for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
47 | |
005431b8 |
48 | print("remove(zaznam,zaznamy,zaznam->i==1);"); |
30628092 |
49 | remove(zaznam,zaznamy,zaznam->i==1); |
005431b8 |
50 | for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
51 | |
005431b8 |
52 | print("drop(zaznam,zaznamy);"); |
30628092 |
53 | drop(zaznam,zaznamy); |
005431b8 |
54 | for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
55 | } |