#6 feature fuly implemented

[svn/Cll1h/.git] / demos / lists.c

#include "cll1.h"

def_mem(Record)
{
 int i;
 str s; 
 list(Record);
};

program
{ 
 Record record, records=NULL;

 print("4x insert(record,records,order_by_int,i);");

 record=get_mem(Record);
 record->i=1; 
 record->s="ddd";
 insert(record,records,order_by_int,i);

 record=get_mem(Record);
 record->i=3; 
 record->s="BBBB";
 insert(record,records,order_by_int,i);

 record=get_mem(Record);
 record->i=4; 
 record->s="e";
 insert(record,records,order_by_int,i);

 record=get_mem(Record);
 record->i=2; 
 record->s="aaaa";
 insert(record,records,order_by_int,i);

 for_each(record,records)
 {
  printf("i=%d, s=%s\n",record->i,record->s);
 }

 print("1x append(record,records);");
 record=get_mem(Record);
 record->i=0; 
 record->s="ccc";
 append(record,records);
 
 for_each(record,records)
 {
  printf("i=%d, s=%s\n",record->i,record->s);
 }

 print("sort(record,records,order_by_int_desc,i);");
 sort(record,records,order_by_int_desc,i);

 for_each(record,records)
 {
  printf("i=%d, s=%s\n",record->i,record->s);
 }

 print("sort(record,records,order_by_str,s);");
 sort(record,records,order_by_str,s);

 for_each(record,records)
 {
  printf("i=%d, s=%s\n",record->i,record->s);
 }

 print("sort(record,records,order_by_ascii_desc,s);");
 sort(record,records,order_by_ascii_desc,s);
 
 for_each(record,records)
 {
  printf("i=%d, s=%s\n",record->i,record->s);
 }

 print("remove(record,records,record->i==1);");
 remove(record,records,record->i==1); 
 
 for_each(record,records)
 {
  printf("i=%d, s=%s\n",record->i,record->s);
 }

 print("drop(record,records);");
 drop(record,records);

 for_each(record,records)
 {
  printf("i=%d, s=%s\n",record->i,record->s);
 }
}