ok, let's start making sense now: typdef char * str;

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

#include "cll1.h"

mem Zaznam
{
 int i;
 str s; 
 list(Zaznam);
};

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);
}