X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=demos%2Flists.c;h=613c40abd7660fb3578e6bd47f08d2e224b88e70;hb=f57259369784a5df46b75488d50e431ed1741235;hp=008e13b7023b3f5b8e0b2fcf369b9b4a9f9b8b78;hpb=6e567bcce620b5312125f920e88c68a1404e71bf;p=svn%2FCll1h%2F.git

diff --git a/demos/lists.c b/demos/lists.c
index 008e13b..613c40a 100644
--- a/demos/lists.c
+++ b/demos/lists.c
@@ -1,36 +1,38 @@
-
 #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);
+//Define_mem(zaznam,Zaznam); Define_mem(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=get_mem(Zaznam);
  zaznam->i=0; 
  zaznam->j="e";
  insert(zaznam,zaznamy,order_by,i);
- create(zaznam, Zaznam);
+ zaznam=get_mem(Zaznam);
  zaznam->i=2; 
  zaznam->j="cc";
  insert(zaznam,zaznamy,order_by,i);
- for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) print("i=",zaznam->i,"j=",zaznam->j);
 
  puts("1x append(zaznam,zaznamy);");
- create(zaznam, Zaznam);
+ zaznam=get_mem(Zaznam);
  zaznam->i=4; 
  zaznam->j="aaa";
  append(zaznam,zaznamy);