demos/seznamy.c

   1 #include "cll1.h"
   2
   3 def_mem(Zaznam)
   4 {
   5  int i;
   6  str s;
   7  list(Zaznam);
   8 };
   9
  10 program
  11 {
  12  Zaznam zaznam,zaznamy=NULL;
  13
  14  print("5x insert(zaznam,zaznamy,order_by_int,i);");
  15  zaznam=get_mem(Zaznam);
  16  zaznam->i=1;
  17  zaznam->s="¾lu»ouèký kùò";
  18  insert(zaznam,zaznamy,order_by_int,i);
  19  zaznam=get_mem(Zaznam);
  20  zaznam->i=3;
  21  zaznam->s="Úpìl Ïábelské";
  22  insert(zaznam,zaznamy,order_by_int,i);
  23  zaznam=get_mem(Zaznam);
  24  zaznam->i=4;
  25  zaznam->s="ódy";
  26  insert(zaznam,zaznamy,order_by_int,i);
  27  zaznam=get_mem(Zaznam);
  28  zaznam->i=2;
  29  zaznam->s="Hlavono¾ec - H je pøed Ch";
  30  insert(zaznam,zaznamy,order_by_int,i);
  31  zaznam=get_mem(Zaznam);
  32  zaznam->i=5;
  33  zaznam->s="hurá - malé h";
  34  insert(zaznam,zaznamy,order_by_int,i);
  35  for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
  36
  37  print("1x append(zaznam,zaznamy);");
  38  zaznam=get_mem(Zaznam);
  39  zaznam->i=0;
  40  zaznam->s="Chleba - písmeno Ch";
  41  append(zaznam,zaznamy);
  42  for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
  43
  44  print("sort(zaznam,zaznamy,order_by_int_desc,i);");
  45  sort(zaznam,zaznamy,order_by_int_desc,i);
  46  for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
  47
  48  print("sort(zaznam,zaznamy,order_by_str,s);");
  49  sort(zaznam,zaznamy,order_by_str,s);
  50  for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
  51
  52  print("sort(zaznam,zaznamy,order_by_ascii,s);");
  53  sort(zaznam,zaznamy,order_by_ascii,s);
  54  for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
  55
  56  print("remove(zaznam,zaznamy,zaznam->i==0);");
  57  remove(zaznam,zaznamy,zaznam->i==0);
  58  for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
  59
  60  print("drop(zaznam,zaznamy);");
  61  drop(zaznam,zaznamy);
  62  for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
  63 }