X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=demos%2Flists.c;h=99c9e683656c33ffb3ef4f95f8c45fdd192140ba;hb=8db501a078e67a152fc186cbee4ab168170b844e;hp=2c4218d76d2b09e72167414e8875f0359f32e262;hpb=30628092e1e87a9273d018bb5547f7dba0afd430;p=svn%2FCll1h%2F.git

diff --git a/demos/lists.c b/demos/lists.c
index 2c4218d..99c9e68 100644
--- a/demos/lists.c
+++ b/demos/lists.c
@@ -1,54 +1,55 @@
-
 #include "cll1.h"
 
-struct Zaznam
+mem Zaznam
 {
  int i;
  char *j; 
  list(Zaznam);
-} *zaznam,*zaznamy=NULL;
+};
 
 program
 { 
- puts("4x insert(zaznam,zaznamy,order_by,i);");
- create(zaznam, Zaznam);
+ Define_mems(zaznam,zaznamy,Zaznam);
+
+ print("4x insert(zaznam,zaznamy,order_by,i);");
+ zaznam=get_mem(Zaznam);
  zaznam->i=1; 
  zaznam->j="ddd";
  insert(zaznam,zaznamy,order_by,i);
- create(zaznam, Zaznam);
+ zaznam=get_mem(Zaznam);
  zaznam->i=3; 
  zaznam->j="bbbbb";
  insert(zaznam,zaznamy,order_by,i);
- create(zaznam, Zaznam);
- zaznam->i=0; 
+ zaznam=get_mem(Zaznam);
+ zaznam->i=4; 
  zaznam->j="e";
  insert(zaznam,zaznamy,order_by,i);
- create(zaznam, Zaznam);
+ zaznam=get_mem(Zaznam);
  zaznam->i=2; 
- zaznam->j="cc";
+ zaznam->j="aaaa";
  insert(zaznam,zaznamy,order_by,i);
- every(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
 
- puts("1x append(zaznam,zaznamy);");
- create(zaznam, Zaznam);
- zaznam->i=4; 
- zaznam->j="aaa";
+ print("1x append(zaznam,zaznamy);");
+ zaznam=get_mem(Zaznam);
+ zaznam->i=0; 
+ zaznam->j="ccc";
  append(zaznam,zaznamy);
- every(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
 
- puts("sort(zaznam,zaznamy,desc_order_by,i);");
+ print("sort(zaznam,zaznamy,desc_order_by,i);");
  sort(zaznam,zaznamy,desc_order_by,i);
- every(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
 
- puts("sort(zaznam,zaznamy,desc_sort_by,j);");
- sort(zaznam,zaznamy,desc_sort_by,j);
- every(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ print("sort(zaznam,zaznamy,sort_by,j);");
+ sort(zaznam,zaznamy,sort_by,j);
+ for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
 
- puts("remove(zaznam,zaznamy,zaznam->i==1);");
+ print("remove(zaznam,zaznamy,zaznam->i==1);");
  remove(zaznam,zaznamy,zaznam->i==1);
- every(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
 
- puts("drop(zaznam,zaznamy);");
+ print("drop(zaznam,zaznamy);");
  drop(zaznam,zaznamy);
- every(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
 }