/*
-- ANSI C code generated by :
-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
-- 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"
int r379fast_index_of(T379 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r379copy_from(T379 C,T379 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T379 r379realloc(T379 C,int a1,int a2){
T379 R=NULL;
R=calloc(a2,sizeof(T0*));
r379copy_from(R,C,(a1)-(1));
return R;
}
int r379equal_like(T0* a1,T0* a2){
int R=0;
/*IF*//*AF*//*AF*/if ((a1)==((void*)(a2))) {
R=1;
}
 else if (((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))) {
}
else {
R=r627is_equal(((T627*)a1),a2);
}
/*FI*/return R;
}
int r379index_of(T379 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||(r379equal_like(a1,(C)[R])))) {
R=(R)+(1);
}
return R;
}
void r175set_all_with(T175 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r175copy_from(T175 C,T175 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T175 r175realloc(T175 C,int a1,int a2){
T175 R=NULL;
R=calloc(a2,sizeof(T0*));
r175copy_from(R,C,(a1)-(1));
return R;
}
void r667copy_from(T667 C,T667 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T667 r667realloc(T667 C,int a1,int a2){
T667 R=NULL;
R=calloc(a2,sizeof(T0*));
r667copy_from(R,C,(a1)-(1));
return R;
}
void r659set_all_with(T659 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
int r659fast_index_of(T659 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r659copy_from(T659 C,T659 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T659 r659realloc(T659 C,int a1,int a2){
T659 R=NULL;
R=calloc(a2,sizeof(T0*));
r659copy_from(R,C,(a1)-(1));
return R;
}
void r729set_all_with(T729 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r729copy_from(T729 C,T729 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T729 r729realloc(T729 C,int a1,int a2){
T729 R=NULL;
R=calloc(a2,sizeof(T0*));
r729copy_from(R,C,(a1)-(1));
return R;
}
void r949copy_from(T949 C,T949 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T949 r949realloc(T949 C,int a1,int a2){
T949 R=NULL;
R=calloc(a2,sizeof(T0*));
r949copy_from(R,C,(a1)-(1));
return R;
}
void r400set_all_with(T400 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
int r400fast_index_of(T400 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r400copy_from(T400 C,T400 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T400 r400realloc(T400 C,int a1,int a2){
T400 R=NULL;
R=calloc(a2,sizeof(T0*));
r400copy_from(R,C,(a1)-(1));
return R;
}
int r400equal_like(T0* a1,T0* a2){
int 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;
}
int r400index_of(T400 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||(r400equal_like(a1,(C)[R])))) {
R=(R)+(1);
}
return R;
}
void r705copy_from(T705 C,T705 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T705 r705realloc(T705 C,int a1,int a2){
T705 R=NULL;
R=calloc(a2,sizeof(T0*));
r705copy_from(R,C,(a1)-(1));
return R;
}
void r513copy_from(T513 C,T513 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T513 r513realloc(T513 C,int a1,int a2){
T513 R=NULL;
R=calloc(a2,sizeof(T0*));
r513copy_from(R,C,(a1)-(1));
return R;
}
void r221copy_from(T221 C,T221 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T221 r221realloc(T221 C,int a1,int a2){
T221 R=NULL;
R=calloc(a2,sizeof(T0*));
r221copy_from(R,C,(a1)-(1));
return R;
}