order_by_int, order_by_str, order_by_ascii + some examples

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

diff --git a/demos/seznamy.c b/demos/seznamy.c
new file mode 100644 (file)
index 0000000..3fed54f
--- /dev/null
+++ b/demos/seznamy.c
@@ -0,0 +1,63 @@
+#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);
+}