X-Git-Url: http://git.harvie.cz/?p=svn%2FCll1h%2F.git;a=blobdiff_plain;f=demos%2Fseznamy.c;fp=demos%2Fseznamy.c;h=0000000000000000000000000000000000000000;hp=3fed54fb86362db7b3d3be8cd86ff96b09433140;hb=e63f1bc2438012b5f2f6592a474892501149af18;hpb=6a60bc82e8b8e6cccd0d4c2214a1f291662215f0

diff --git a/demos/seznamy.c b/demos/seznamy.c
deleted file mode 100644
index 3fed54f..0000000
--- a/demos/seznamy.c
+++ /dev/null
@@ -1,63 +0,0 @@
-#include "cll1.h"
-
-def_mem(Zaznam)
-{
- int i;
- str s; 
- list(Zaznam);
-};
-
-program
-{ 
- Zaznam zaznam,zaznamy=NULL;
-
- print("5x insert(zaznam,zaznamy,order_by_int,i);");
- zaznam=get_mem(Zaznam);
- zaznam->i=1; 
- zaznam->s="¾lu»ouèký kùò";
- insert(zaznam,zaznamy,order_by_int,i);
- zaznam=get_mem(Zaznam);
- zaznam->i=3; 
- zaznam->s="Úpìl Ïábelské";
- insert(zaznam,zaznamy,order_by_int,i);
- zaznam=get_mem(Zaznam);
- zaznam->i=4; 
- zaznam->s="ódy";
- insert(zaznam,zaznamy,order_by_int,i);
- zaznam=get_mem(Zaznam);
- zaznam->i=2; 
- zaznam->s="Hlavono¾ec - H je pøed Ch";
- insert(zaznam,zaznamy,order_by_int,i);
- zaznam=get_mem(Zaznam);
- zaznam->i=5; 
- zaznam->s="hurá - malé h";
- insert(zaznam,zaznamy,order_by_int,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="Chleba - písmeno Ch";
- append(zaznam,zaznamy);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("sort(zaznam,zaznamy,order_by_int_desc,i);");
- sort(zaznam,zaznamy,order_by_int_desc,i);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("sort(zaznam,zaznamy,order_by_str,s);");
- sort(zaznam,zaznamy,order_by_str,s);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("sort(zaznam,zaznamy,order_by_ascii,s);");
- sort(zaznam,zaznamy,order_by_ascii,s);
- for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
-
- print("remove(zaznam,zaznamy,zaznam->i==0);");
- remove(zaznam,zaznamy,zaznam->i==0);
- 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);
-}