/*
-- 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"
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);
}
}
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;
}
void r9set_all_with(T9 C,char a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
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 r392set_all_with(T392 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r392copy_from(T392 C,T392 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T392 r392realloc(T392 C,int a1,int a2){
T392 R=NULL;
R=calloc(a2,sizeof(T0*));
r392copy_from(R,C,(a1)-(1));
return R;
}
void r770copy_from(T770 C,T770 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T770 r770realloc(T770 C,int a1,int a2){
T770 R=NULL;
R=calloc(a2,sizeof(T0*));
r770copy_from(R,C,(a1)-(1));
return R;
}
void r100copy_from(T100 C,T100 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T100 r100realloc(T100 C,int a1,int a2){
T100 R=NULL;
R=calloc(a2,sizeof(T0*));
r100copy_from(R,C,(a1)-(1));
return R;
}
void r567set_all_with(T567 C,int a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}