lot of work - def_mem(), uses locale.h + strcoll(), etc.

[svn/Cll1h/.git] / demos / lists.c

diff --git a/demos/lists.c b/demos/lists.c
index 2cc0c52735104a611e8c964354fb9e6269bde997..0f36e64524338c1dc42995181ee6935dd585dd9a 100644 (file)
--- a/demos/lists.c
+++ b/demos/lists.c
@@ -1,55 +1,60 @@
 #include "cll1.h"
 
-mem Zaznam
+def_mem(Record)
 {
  int i;
  str s; 
- list(Zaznam);
+ list(Record);
 };
 
 program
 { 
- def_mems(zaznam,zaznamy,Zaznam);
-
- print("4x insert(zaznam,zaznamy,order_by,i);");
- zaznam=get_mem(Zaznam);
- zaznam->i=1; 
- zaznam->s="ddd";
- insert(zaznam,zaznamy,order_by,i);
- zaznam=get_mem(Zaznam);
- zaznam->i=3; 
- zaznam->s="bbbbb";
- insert(zaznam,zaznamy,order_by,i);
- zaznam=get_mem(Zaznam);
- zaznam->i=4; 
- zaznam->s="e";
- insert(zaznam,zaznamy,order_by,i);
- zaznam=get_mem(Zaznam);
- zaznam->i=2; 
- zaznam->s="aaaa";
- insert(zaznam,zaznamy,order_by,i);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("1x append(zaznam,zaznamy);");
- zaznam=get_mem(Zaznam);
- zaznam->i=0; 
- zaznam->s="ccc";
- append(zaznam,zaznamy);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("sort(zaznam,zaznamy,desc_order_by,i);");
- sort(zaznam,zaznamy,desc_order_by,i);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("sort(zaznam,zaznamy,sort_by,s);");
- sort(zaznam,zaznamy,sort_by,s);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("remove(zaznam,zaznamy,zaznam->i==1);");
- remove(zaznam,zaznamy,zaznam->i==1);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("drop(zaznam,zaznamy);");
- drop(zaznam,zaznamy);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
+ Record record,records=NULL;
+
+ print("4x insert(record,records ,order_by,i);");
+
+ record=get_mem(Record);
+ record->i=1; 
+ record->s="ddd";
+ insert(record,records ,order_by,i);
+
+ record=get_mem(Record);
+ record->i=3; 
+ record->s="bbbbb";
+ insert(record,records ,order_by,i);
+
+ record=get_mem(Record);
+ record->i=4; 
+ record->s="e";
+ insert(record,records ,order_by,i);
+
+ record=get_mem(Record);
+ record->i=2; 
+ record->s="aaaa";
+ insert(record,records ,order_by,i);
+
+ for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
+
+ print("1x append(record,records );");
+ record=get_mem(Record);
+ record->i=0; 
+ record->s="ccc";
+ append(record,records );
+ for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
+
+ print("sort(record,records ,desc_order_by,i);");
+ sort(record,records ,desc_order_by,i);
+ for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
+
+ print("sort(record,records ,sort_by,s);");
+ sort(record,records ,sort_by,s);
+ for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
+
+ print("remove(record,records ,record->i==1);");
+ remove(record,records ,record->i==1);
+ for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
+
+ print("drop(record,records );");
+ drop(record,records );
+ for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
 }