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 | { |
f5725936 |
12 | Define_mems(zaznam,zaznamy,Zaznam); |
13 | //Define_mem(zaznam,Zaznam); Define_mem(zaznamy,Zaznam); |
14 | |
15 | print("4x insert(zaznam,zaznamy,order_by,i);"); |
16 | zaznam=get_mem(Zaznam); |
30628092 |
17 | zaznam->i=1; |
18 | zaznam->j="ddd"; |
19 | insert(zaznam,zaznamy,order_by,i); |
f5725936 |
20 | zaznam=get_mem(Zaznam); |
30628092 |
21 | zaznam->i=3; |
22 | zaznam->j="bbbbb"; |
23 | insert(zaznam,zaznamy,order_by,i); |
f5725936 |
24 | zaznam=get_mem(Zaznam); |
30628092 |
25 | zaznam->i=0; |
26 | zaznam->j="e"; |
27 | insert(zaznam,zaznamy,order_by,i); |
f5725936 |
28 | zaznam=get_mem(Zaznam); |
30628092 |
29 | zaznam->i=2; |
30 | zaznam->j="cc"; |
31 | insert(zaznam,zaznamy,order_by,i); |
f5725936 |
32 | for_each(zaznam,zaznamy) print("i=",zaznam->i,"j=",zaznam->j); |
30628092 |
33 | |
34 | puts("1x append(zaznam,zaznamy);"); |
f5725936 |
35 | zaznam=get_mem(Zaznam); |
30628092 |
36 | zaznam->i=4; |
37 | zaznam->j="aaa"; |
38 | append(zaznam,zaznamy); |
04a13a6f |
39 | for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
40 | |
41 | puts("sort(zaznam,zaznamy,desc_order_by,i);"); |
42 | sort(zaznam,zaznamy,desc_order_by,i); |
04a13a6f |
43 | for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
44 | |
45 | puts("sort(zaznam,zaznamy,desc_sort_by,j);"); |
46 | sort(zaznam,zaznamy,desc_sort_by,j); |
04a13a6f |
47 | for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
48 | |
49 | puts("remove(zaznam,zaznamy,zaznam->i==1);"); |
50 | remove(zaznam,zaznamy,zaznam->i==1); |
04a13a6f |
51 | for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
52 | |
53 | puts("drop(zaznam,zaznamy);"); |
54 | drop(zaznam,zaznamy); |
04a13a6f |
55 | for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j); |
30628092 |
56 | } |