/*
-- ANSI C code generated by :
-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
-- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
-- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
--                 http://www.loria.fr/SmallEiffel              --
*/
#include "pretty.h"


T246 r246realloc(T246 C,T2 a1,T2 a2){
T246 R=NULL;
R=calloc(a2,sizeof(T0*));
r246copy_from(R,C,(a1)-(1));
return R;
}


void r246set_all_with(T246 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}


void r246copy_from(T246 C,T246 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T187 r187realloc(T187 C,T2 a1,T2 a2){
T187 R=NULL;
R=calloc(a2,sizeof(T0*));
r187copy_from(R,C,(a1)-(1));
return R;
}


void r187clear_all(T187 C,T2 a1){
T2 _i=0;
T0* _v=NULL;
_i=a1;
while (!((_i)<(0))) {
(C)[_i]=(_v);
_i=(_i)-(1);
}
}


void r187set_all_with(T187 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}


void r187copy_from(T187 C,T187 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T266 r266realloc(T266 C,T2 a1,T2 a2){
T266 R=NULL;
R=calloc(a2,sizeof(T0*));
r266copy_from(R,C,(a1)-(1));
return R;
}


void r266copy_from(T266 C,T266 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T72 r72realloc(T72 C,T2 a1,T2 a2){
T72 R=NULL;
R=calloc(a2,sizeof(T0*));
r72copy_from(R,C,(a1)-(1));
return R;
}


void r72copy_from(T72 C,T72 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T170 r170realloc(T170 C,T2 a1,T2 a2){
T170 R=NULL;
R=calloc(a2,sizeof(T0*));
r170copy_from(R,C,(a1)-(1));
return R;
}


void r170set_all_with(T170 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}


void r170copy_from(T170 C,T170 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T317 r317realloc(T317 C,T2 a1,T2 a2){
T317 R=NULL;
R=calloc(a2,sizeof(T0*));
r317copy_from(R,C,(a1)-(1));
return R;
}


void r317set_all_with(T317 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}


T2 r317fast_index_of(T317 C,T0* a1,T2 a2){
T2 R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}


void r317move(T317 C,T2 a1,T2 a2,T2 a3){
T2 _i=0;
/*[IF*/
if((a3)==(0)){
}
 else if((a3)<(0)){
_i=a1;
while (!((_i)>(a2))) {
(C)[(_i)+(a3)]=((C)[_i]);
_i=(_i)+(1);
}
}
else{
_i=a2;
while (!((_i)<(a1))) {
(C)[(_i)+(a3)]=((C)[_i]);
_i=(_i)-(1);
}
}
/*FI]*/
}


void r317clear(T317 C,T2 a1,T2 a2){
T2 _i=0;
T0* _v=NULL;
_i=a1;
while (!((_i)>(a2))) {
(C)[_i]=(_v);
_i=(_i)+(1);
}
}


void r317copy_from(T317 C,T317 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T304 r304realloc(T304 C,T2 a1,T2 a2){
T304 R=NULL;
R=calloc(a2,sizeof(T0*));
r304copy_from(R,C,(a1)-(1));
return R;
}


void r304copy_from(T304 C,T304 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T294 r294realloc(T294 C,T2 a1,T2 a2){
T294 R=NULL;
R=calloc(a2,sizeof(T0*));
r294copy_from(R,C,(a1)-(1));
return R;
}


void r294copy_from(T294 C,T294 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T208 r208realloc(T208 C,T2 a1,T2 a2){
T208 R=NULL;
R=calloc(a2,sizeof(T0*));
r208copy_from(R,C,(a1)-(1));
return R;
}


void r208clear_all(T208 C,T2 a1){
T2 _i=0;
T0* _v=NULL;
_i=a1;
while (!((_i)<(0))) {
(C)[_i]=(_v);
_i=(_i)-(1);
}
}


void r208copy_from(T208 C,T208 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T24 r24realloc(T24 C,T2 a1,T2 a2){
T24 R=NULL;
R=calloc(a2,sizeof(T0*));
r24copy_from(R,C,(a1)-(1));
return R;
}


void r24set_all_with(T24 C,T0* a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}


T6 r24equal_like(T0* a1,T0* a2){
T6 R=0;
/*[IF*/
/*AF*//*AF*/if((a1)==((void*)(a2))){
R=1;
}
 else if(((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))){
}
else{
R=r7is_equal(((T7*)a1),a2);
}
/*FI]*/
return R;
}


T2 r24fast_index_of(T24 C,T0* a1,T2 a2){
T2 R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}


void r24copy_from(T24 C,T24 a1,T2 a2){
T2 _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}


T2 r24index_of(T24 C,T0* a1,T2 a2){
T2 R=0;
while (!(((R)>(a2))||(r24equal_like(a1,(C)[R])))) {
R=(R)+(1);
}
return R;
}