demos/lists.c

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