X-Git-Url: http://git.harvie.cz/?p=svn%2FCll1h%2F.git;a=blobdiff_plain;f=demos%2Flists%2Flists.c;fp=demos%2Flists%2Flists.c;h=0000000000000000000000000000000000000000;hp=9af730ec5eb785da61ee2a9bfe3c9afcee1f5b29;hb=e63f1bc2438012b5f2f6592a474892501149af18;hpb=6a60bc82e8b8e6cccd0d4c2214a1f291662215f0

diff --git a/demos/lists/lists.c b/demos/lists/lists.c
deleted file mode 100644
index 9af730e..0000000
--- a/demos/lists/lists.c
+++ /dev/null
@@ -1,95 +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_num,i);");
-
- record = get_mem(Record);
- record->i = 1; 
- record->s = "ddd";
- insert(record, records, order_by_num, i);
-
- record = get_mem(Record);
- record->i = 3; 
- record->s = "BBBB";
- insert(record, records, order_by_num, i);
-
- record = get_mem(Record);
- record->i = 4; 
- record->s = "e";
- insert(record, records, order_by_num, i);
-
- record = get_mem(Record);
- record->i = 2; 
- record->s = "aaaa";
- insert(record, records, order_by_num, 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_num_desc,i);");
-
- sort(record, records, order_by_num_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);
- }
-}