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


#include "cll1.h"

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

program
{ 
 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);
}
Commit	Line	Data
30628092	1
	2	#include "cll1.h"
	3
	4	struct Zaznam
	5	{
	6	int i;
	7	char *j;
	8	list(Zaznam);
	9	} zaznam,zaznamy=NULL;
	10
04a13a6f	11	program
30628092	12	{
	13	puts("4x insert(zaznam,zaznamy,order_by,i);");
	14	create(zaznam, Zaznam);
	15	zaznam->i=1;
	16	zaznam->j="ddd";
	17	insert(zaznam,zaznamy,order_by,i);
	18	create(zaznam, Zaznam);
	19	zaznam->i=3;
	20	zaznam->j="bbbbb";
	21	insert(zaznam,zaznamy,order_by,i);
	22	create(zaznam, Zaznam);
	23	zaznam->i=0;
	24	zaznam->j="e";
	25	insert(zaznam,zaznamy,order_by,i);
	26	create(zaznam, Zaznam);
	27	zaznam->i=2;
	28	zaznam->j="cc";
	29	insert(zaznam,zaznamy,order_by,i);
04a13a6f	30	for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
30628092	31
	32	puts("1x append(zaznam,zaznamy);");
	33	create(zaznam, Zaznam);
	34	zaznam->i=4;
	35	zaznam->j="aaa";
	36	append(zaznam,zaznamy);
04a13a6f	37	for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
30628092	38
	39	puts("sort(zaznam,zaznamy,desc_order_by,i);");
	40	sort(zaznam,zaznamy,desc_order_by,i);
04a13a6f	41	for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
30628092	42
	43	puts("sort(zaznam,zaznamy,desc_sort_by,j);");
	44	sort(zaznam,zaznamy,desc_sort_by,j);
04a13a6f	45	for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
30628092	46
	47	puts("remove(zaznam,zaznamy,zaznam->i==1);");
	48	remove(zaznam,zaznamy,zaznam->i==1);
04a13a6f	49	for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
30628092	50
	51	puts("drop(zaznam,zaznamy);");
	52	drop(zaznam,zaznamy);
04a13a6f	53	for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
30628092	54	}