demo "lists" prepsano na for each(...) a prelozi se

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

#include "cll1.h"

struct Zaznam
{
 int i;
 char *j; 
 list(Zaznam);
} *zaznam,*zaznamy=NULL;

program2
{ 
 puts("4x insert(zaznam,zaznamy,order_by,i);");
 create(zaznam, Zaznam);
 zaznam->i=1; 
 zaznam->j="ddd";
 insert(zaznam,zaznamy,order_by,i);

 create(zaznam, Zaznam);
 zaznam->i=3; 
 zaznam->j="bbbbb";
 insert(zaznam,zaznamy,order_by,i);

 create(zaznam, Zaznam);
 zaznam->i=0; 
 zaznam->j="e";
 insert(zaznam,zaznamy,order_by,i);

 create(zaznam, 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);

 puts("1x append(zaznam,zaznamy);");
 create(zaznam, Zaznam);
 zaznam->i=4; 
 zaznam->j="aaa";
 append(zaznam,zaznamy);

 for each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);

 puts("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);

 puts("sort(zaznam,zaznamy,desc_sort_by,j);");
 sort(zaznam,zaznamy,desc_sort_by,j);

 for each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);

 puts("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);

 puts("drop(zaznam,zaznamy);");
 drop(zaznam,zaznamy);

 for each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
}