/*
-- 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 r822clear_all(T822 C,int a1){
int _i=0;
T0* _v=NULL;
_i=a1;
while (!((_i)<(0))) {
(C)[_i]=(_v);
_i=(_i)-(1);
}
}
void r822set_all_with(T822 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r822copy_from(T822 C,T822 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T822 r822realloc(T822 C,int a1,int a2){
T822 R=NULL;
R=calloc(a2,sizeof(T0*));
r822copy_from(R,C,(a1)-(1));
return R;
}
void r304copy_from(T304 C,T304 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T304 r304realloc(T304 C,int a1,int a2){
T304 R=NULL;
R=calloc(a2,sizeof(T0*));
r304copy_from(R,C,(a1)-(1));
return R;
}
void r113set_all_with(T113 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
int r113fast_index_of(T113 C,T0* a1,int a2){
int R=0;
while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
R=(R)+(1);
}
return R;
}
void r113copy_from(T113 C,T113 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T113 r113realloc(T113 C,int a1,int a2){
T113 R=NULL;
R=calloc(a2,sizeof(T0*));
r113copy_from(R,C,(a1)-(1));
return R;
}
void r354set_all_with(T354 C,T0* a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r654copy_from(T654 C,T654 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
T654 r654realloc(T654 C,int a1,int a2){
T654 R=NULL;
R=calloc(a2,sizeof(T0*));
r654copy_from(R,C,(a1)-(1));
return R;
}
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 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;
}