/*
-- 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 r500set_all_with(T500 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r500copy_from(T500 C,T500 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T500 r500realloc(T500 C,int a1,int a2){
T500 R=NULL;
R=calloc(a2,sizeof(T0*));
r500copy_from(R,C,(a1)-(1));
return R;
}
void r539copy_from(T539 C,T539 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T539 r539realloc(T539 C,int a1,int a2){
T539 R=NULL;
R=calloc(a2,sizeof(T0*));
r539copy_from(R,C,(a1)-(1));
return R;
}
void r42copy_from(T42 C,T42 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T42 r42realloc(T42 C,int a1,int a2){
T42 R=NULL;
R=calloc(a2,sizeof(T0*));
r42copy_from(R,C,(a1)-(1));
return R;
}
void r24set_all_with(T24 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r24copy_from(T24 C,T24 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T24 r24realloc(T24 C,int a1,int a2){
T24 R=NULL;
R=calloc(a2,sizeof(T0*));
r24copy_from(R,C,(a1)-(1));
return R;
}
void r533copy_from(T533 C,T533 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T533 r533realloc(T533 C,int a1,int a2){
T533 R=NULL;
R=calloc(a2,sizeof(T0*));
r533copy_from(R,C,(a1)-(1));
return R;
}
void r778set_all_with(T778 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
int r778fast_index_of(T778 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r778copy_from(T778 C,T778 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T778 r778realloc(T778 C,int a1,int a2){
T778 R=NULL;
R=calloc(a2,sizeof(T0*));
r778copy_from(R,C,(a1)-(1));
return R;
}
void r51set_all_with(T51 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
int r51fast_index_of(T51 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r51copy_from(T51 C,T51 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T51 r51realloc(T51 C,int a1,int a2){
T51 R=NULL;
R=calloc(a2,sizeof(T0*));
r51copy_from(R,C,(a1)-(1));
return R;
}
int r9hashcode(T9 C,int a1){
int R=0;
int _i3=0;
int _i2=0;
int _i1=0;
_i2=a1;
_i3=(a1)/(2);
/*IF*/if ((_i3)>(6)) {
_i3=6;
}
/*FI*/while (!((_i3)==(0))) {
R=(R)+(((unsigned char)(C)[_i1]));
R=(R)+((((unsigned char)(C)[_i2]))*(_i2));
_i1=(_i1)+(1);
_i2=(_i2)-(1);
_i3=(_i3)-(1);
}
/*IF*/if ((R)<(0)) {
R=-(R);
}
/*FI*/return R;
}
int r9fast_memcmp(T9 C,T9 a1,int a2){
int R=0;
int _i=0;
R=((C)[0])==((a1)[0]);
_i=(a2)-(1);
while (!(((_i)==(0))||(!(R)))) {
R=((C)[_i])==((a1)[_i]);
_i=(_i)-(1);
}
return R;
}
int r9fast_index_of(T9 C,char a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((C)[R])))) {
R=(R)+(1);
}
return R;
}
void r9copy_from(T9 C,T9 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T9 r9realloc(T9 C,int a1,int a2){
T9 R=NULL;
R=calloc(a2,sizeof(char));
r9copy_from(R,C,(a1)-(1));
return R;
}
void r36copy_from(T36 C,T36 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T36 r36realloc(T36 C,int a1,int a2){
T36 R=NULL;
R=calloc(a2,sizeof(T0*));
r36copy_from(R,C,(a1)-(1));
return R;
}
void r579set_all_with(T579 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r579copy_from(T579 C,T579 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T579 r579realloc(T579 C,int a1,int a2){
T579 R=NULL;
R=calloc(a2,sizeof(T0*));
r579copy_from(R,C,(a1)-(1));
return R;
}