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_int,i);");
  15
  16  record=get_mem(Record);
  17  record->i=1;
  18  record->s="ddd";
  19  insert(record,records,order_by_int,i);
  20
  21  record=get_mem(Record);
  22  record->i=3;
  23  record->s="BBBB";
  24  insert(record,records,order_by_int,i);
  25
  26  record=get_mem(Record);
  27  record->i=4;
  28  record->s="e";
  29  insert(record,records,order_by_int,i);
  30
  31  record=get_mem(Record);
  32  record->i=2;
  33  record->s="aaaa";
  34  insert(record,records,order_by_int,i);
  35
  36  for_each(record,records)
  37  {
  38   printf("i=%d, s=%s\n",record->i,record->s);
  39  }
  40
  41  print("1x append(record,records);");
  42  record=get_mem(Record);
  43  record->i=0;
  44  record->s="ccc";
  45  append(record,records);
  46
  47  for_each(record,records)
  48  {
  49   printf("i=%d, s=%s\n",record->i,record->s);
  50  }
  51
  52  print("sort(record,records,order_by_int_desc,i);");
  53  sort(record,records,order_by_int_desc,i);
  54
  55  for_each(record,records)
  56  {
  57   printf("i=%d, s=%s\n",record->i,record->s);
  58  }
  59
  60  print("sort(record,records,order_by_str,s);");
  61  sort(record,records,order_by_str,s);
  62
  63  for_each(record,records)
  64  {
  65   printf("i=%d, s=%s\n",record->i,record->s);
  66  }
  67
  68  print("sort(record,records,order_by_ascii_desc,s);");
  69  sort(record,records,order_by_ascii_desc,s);
  70
  71  for_each(record,records)
  72  {
  73   printf("i=%d, s=%s\n",record->i,record->s);
  74  }
  75
  76  print("remove(record,records,record->i==1);");
  77  remove(record,records,record->i==1);
  78
  79  for_each(record,records)
  80  {
  81   printf("i=%d, s=%s\n",record->i,record->s);
  82  }
  83
  84  print("drop(record,records);");
  85  drop(record,records);
  86
  87  for_each(record,records)
  88  {
  89   printf("i=%d, s=%s\n",record->i,record->s);
  90  }
  91 }