/*
-- 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 "compile_to_c.h"
void r586copy_from(T586 C,T586 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T586 r586realloc(T586 C,int a1,int a2){
T586 R=NULL;
R=calloc(a2,sizeof(T0*));
r586copy_from(R,C,(a1)-(1));
return R;
}
void r973copy_from(T973 C,T973 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T973 r973realloc(T973 C,int a1,int a2){
T973 R=NULL;
R=calloc(a2,sizeof(T0*));
r973copy_from(R,C,(a1)-(1));
return R;
}
void r884set_all_with(T884 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
int r884fast_index_of(T884 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r884copy_from(T884 C,T884 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T884 r884realloc(T884 C,int a1,int a2){
T884 R=NULL;
R=calloc(a2,sizeof(T0*));
r884copy_from(R,C,(a1)-(1));
return R;
}
void r692set_all_with(T692 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
int r692fast_index_of(T692 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r692copy_from(T692 C,T692 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T692 r692realloc(T692 C,int a1,int a2){
T692 R=NULL;
R=calloc(a2,sizeof(T0*));
r692copy_from(R,C,(a1)-(1));
return R;
}
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);
}
}
int r729fast_index_of(T729 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
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;
}
int r729equal_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=r805is_equal(((T805*)a1),a2);
}
/*FI*/return R;
}
int r729index_of(T729 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||(r729equal_like(a1,(C)[R])))) {
R=(R)+(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;
}