demos/lists.c

   1 #include "cll1.h"
   2
   3 def_mem(Record)
   4 {
   5  int i;
   6  str s;
   7  list(Record);
   8 };
   9
  10 program
  11 {
  12  Record record,records=NULL;
  13
  14  print("4x insert(record,records ,order_by,i);");
  15
  16  record=get_mem(Record);
  17  record->i=1;
  18  record->s="ddd";
  19  insert(record,records ,order_by,i);
  20
  21  record=get_mem(Record);
  22  record->i=3;
  23  record->s="bbbbb";
  24  insert(record,records ,order_by,i);
  25
  26  record=get_mem(Record);
  27  record->i=4;
  28  record->s="e";
  29  insert(record,records ,order_by,i);
  30
  31  record=get_mem(Record);
  32  record->i=2;
  33  record->s="aaaa";
  34  insert(record,records ,order_by,i);
  35
  36  for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
  37
  38  print("1x append(record,records );");
  39  record=get_mem(Record);
  40  record->i=0;
  41  record->s="ccc";
  42  append(record,records );
  43  for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
  44
  45  print("sort(record,records ,desc_order_by,i);");
  46  sort(record,records ,desc_order_by,i);
  47  for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
  48
  49  print("sort(record,records ,sort_by,s);");
  50  sort(record,records ,sort_by,s);
  51  for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
  52
  53  print("remove(record,records ,record->i==1);");
  54  remove(record,records ,record->i==1);
  55  for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
  56
  57  print("drop(record,records );");
  58  drop(record,records );
  59  for_each(record,records ) printf("i=%d, s=%s\n",record->i,record->s);
  60 }