X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=demos%2Flists.c;h=2cc0c52735104a611e8c964354fb9e6269bde997;hb=19c9d3652f0876a1f0fed0eb18c3bf9458ab3908;hp=5daf1faf472d2180d725e2c2921fce2b3144d274;hpb=b3674906486c6b6fd944b4c7ffd280589cf8a165;p=svn%2FCll1h%2F.git

diff --git a/demos/lists.c b/demos/lists.c
index 5daf1fa..2cc0c52 100644
--- a/demos/lists.c
+++ b/demos/lists.c
@@ -3,53 +3,53 @@
 mem Zaznam
 {
  int i;
- char *j; 
+ str s; 
  list(Zaznam);
 };
 
 program
 { 
- define_mems(zaznam,zaznamy,Zaznam);
+ def_mems(zaznam,zaznamy,Zaznam);
 
  print("4x insert(zaznam,zaznamy,order_by,i);");
  zaznam=get_mem(Zaznam);
  zaznam->i=1; 
- zaznam->j="ddd";
+ zaznam->s="ddd";
  insert(zaznam,zaznamy,order_by,i);
  zaznam=get_mem(Zaznam);
  zaznam->i=3; 
- zaznam->j="bbbbb";
+ zaznam->s="bbbbb";
  insert(zaznam,zaznamy,order_by,i);
  zaznam=get_mem(Zaznam);
  zaznam->i=4; 
- zaznam->j="e";
+ zaznam->s="e";
  insert(zaznam,zaznamy,order_by,i);
  zaznam=get_mem(Zaznam);
  zaznam->i=2; 
- zaznam->j="aaaa";
+ zaznam->s="aaaa";
  insert(zaznam,zaznamy,order_by,i);
- for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ 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->j="ccc";
+ zaznam->s="ccc";
  append(zaznam,zaznamy);
- for_each(zaznam,zaznamy) printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ 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, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
 
- 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);
+ 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, j=%s\n",zaznam->i,zaznam->j);
+ 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, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
 }