X-Git-Url: http://git.harvie.cz/?p=svn%2FCll1h%2F.git;a=blobdiff_plain;f=demos%2Flists.c;fp=demos%2Flists.c;h=0000000000000000000000000000000000000000;hp=81eddae23c3750e2ebb40e54f55610d15f5b96be;hb=ea514b9e6351878fef9638813f50ce7013e8a832;hpb=eac5d6c70c3babc9056f059edd88a2c1a82bc7e9

diff --git a/demos/lists.c b/demos/lists.c
deleted file mode 100644
index 81eddae..0000000
--- a/demos/lists.c
+++ /dev/null
@@ -1,91 +0,0 @@
-#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);
- }
-}