mem Zaznam
{
int i;
- char *j;
+ str s;
list(Zaznam);
};
program
{
- Define_mems(zaznam,zaznamy,Zaznam);
-//Define_mem(zaznam,Zaznam); Define_mem(zaznamy,Zaznam);
+ def_mems(zaznam,zaznamy,Zaznam);
print("4x insert(zaznam,zaznamy,order_by,i);");
zaznam=get_mem(Zaznam);
zaznam->i=1;
- zaznam->j="ddd";
+ zaznam->s="ddd";
insert(zaznam,zaznamy,order_by,i);
zaznam=get_mem(Zaznam);
zaznam->i=3;
- zaznam->j="bbbbb";
+ zaznam->s="bbbbb";
insert(zaznam,zaznamy,order_by,i);
zaznam=get_mem(Zaznam);
- zaznam->i=0;
- zaznam->j="e";
+ zaznam->i=4;
+ zaznam->s="e";
insert(zaznam,zaznamy,order_by,i);
zaznam=get_mem(Zaznam);
zaznam->i=2;
- zaznam->j="cc";
+ zaznam->s="aaaa";
insert(zaznam,zaznamy,order_by,i);
- for_each(zaznam,zaznamy) print("i=",zaznam->i,"j=",zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
- puts("1x append(zaznam,zaznamy);");
+ print("1x append(zaznam,zaznamy);");
zaznam=get_mem(Zaznam);
- zaznam->i=4;
- zaznam->j="aaa";
+ zaznam->i=0;
+ zaznam->s="ccc";
append(zaznam,zaznamy);
- for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
- puts("sort(zaznam,zaznamy,desc_order_by,i);");
+ print("sort(zaznam,zaznamy,desc_order_by,i);");
sort(zaznam,zaznamy,desc_order_by,i);
- for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
- puts("sort(zaznam,zaznamy,desc_sort_by,j);");
- sort(zaznam,zaznamy,desc_sort_by,j);
- for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ print("sort(zaznam,zaznamy,sort_by,s);");
+ sort(zaznam,zaznamy,sort_by,s);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
- puts("remove(zaznam,zaznamy,zaznam->i==1);");
+ print("remove(zaznam,zaznamy,zaznam->i==1);");
remove(zaznam,zaznamy,zaznam->i==1);
- for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
- puts("drop(zaznam,zaznamy);");
+ print("drop(zaznam,zaznamy);");
drop(zaznam,zaznamy);
- for_each(zaznam,zaznamy)printf("i=%d, j=%s\n",zaznam->i,zaznam->j);
+ for_each(zaznam,zaznamy) printf("i=%d, s=%s\n",zaznam->i,zaznam->s);
}