demos/lists.c

   1
   2 #include "cll1.h"
   3
   4 struct Zaznam
   5 {
   6  int i;
   7  char *j;
   8  list(Zaznam);
   9 } *zaznam,*zaznamy=NULL;
  10
  11 program
  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);
  30  for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
  31
  32  puts("1x append(zaznam,zaznamy);");
  33  create(zaznam, Zaznam);
  34  zaznam->i=4;
  35  zaznam->j="aaa";
  36  append(zaznam,zaznamy);
  37  for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
  38
  39  puts("sort(zaznam,zaznamy,desc_order_by,i);");
  40  sort(zaznam,zaznamy,desc_order_by,i);
  41  for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
  42
  43  puts("sort(zaznam,zaznamy,desc_sort_by,j);");
  44  sort(zaznam,zaznamy,desc_sort_by,j);
  45  for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
  46
  47  puts("remove(zaznam,zaznamy,zaznam->i==1);");
  48  remove(zaznam,zaznamy,zaznam->i==1);
  49  for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
  50
  51  puts("drop(zaznam,zaznamy);");
  52  drop(zaznam,zaznamy);
  53  for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
  54 }