/*
-- 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 "finder.h"
T7 M7={NULL,0,0};
T675 M675={0,NULL,0,0};
T676 M676={NULL,0};
T441 M441=NULL;
T830 M830=NULL;
T604 M604=NULL;
T919 M919=0;
T479 M479={0};
T226 M226={NULL,0,0};
T794 M794={NULL,NULL,NULL,NULL,0,0,0,0,0};
T670 M670=0;
T306 M306={0};
T429 M429={NULL,0,0,0};
T927 M927={NULL,0,0};
T52 M52={NULL,0,0,0};
T829 M829=NULL;
int r2min(int C,int a1){
int R=0;
/*IF*/if ((C)<(a1)) {
R=C;
}
else {
R=a1;
}
/*FI*/return R;
}
int r2max(int C,int a1){
int R=0;
/*IF*/if ((a1)<(C)) {
R=C;
}
else {
R=a1;
}
/*FI*/return R;
}
int r6_ix_not(int C){
int R=0;
/*IF*/if (C) {
}
else {
R=1;
}
/*FI*/return R;
}
int r3is_separator(char C){
int R=0;
{int z1=C;

if((0==z1)||((9<=z1)&&(z1<=10))||(13==z1)||(32==z1)){
R=1;
}
}
return R;
}
char r3to_lower(char C){
char R=0;
/*IF*/if ((((unsigned char)C))<(65)) {
R=C;
}
 else if ((((unsigned char)C))>(90)) {
R=C;
}
else {
R=((char)((((unsigned char)C))+(32)));
}
/*FI*/return R;
}
int r3is_digit(char C){
int R=0;
{int z1=C;

if(((48<=z1)&&(z1<=57))){
R=1;
}
}
return R;
}
char r3to_upper(char C){
char R=0;
/*IF*/if ((((unsigned char)C))<(97)) {
R=C;
}
 else if ((((unsigned char)C))>(122)) {
R=C;
}
else {
R=((char)((((unsigned char)C))-(32)));
}
/*FI*/return R;
}
int r3is_letter(char C){
int R=0;
{int z1=C;

if(((65<=z1)&&(z1<=90))||((97<=z1)&&(z1<=122))){
R=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);
}
}
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;
}
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 r686clear_all(T686 C,int a1){
int _i=0;
int _v=0;
_i=a1;
while (!((_i)<(0))) {
(C)[_i]=(_v);
_i=(_i)-(1);
}
}
void r686set_all_with(T686 C,int a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=(a1);
_i=(_i)-(1);
}
}
void r686copy_from(T686 C,T686 a1,int a2){
int _i=0;
_i=a2;
while (!((_i)<(0))) {
(C)[_i]=((a1)[_i]);
_i=(_i)-(1);
}
}
void r7extend(T7* C,char a1){
int _new_capacity=0;
/*IF*/if (((((T7*)C))->_capacity/*8*/)>((((T7*)C))->_count/*4*/)) {
}
 else if (((((T7*)C))->_capacity/*8*/)==(0)) {
C->_capacity=32;
C->_storage=calloc((((T7*)C))->_capacity/*8*/,sizeof(char));
}
else {
_new_capacity=(2)*((((T7*)C))->_capacity/*8*/);
C->_storage=r9realloc((((T7*)C))->_storage/*0*/,(((T7*)C))->_capacity/*8*/,_new_capacity);
C->_capacity=_new_capacity;
}
/*FI*/C->_count=((((T7*)C))->_count/*4*/)+(1);
/*[IRF3.5put*/((((T7*)C))->_storage/*0*/)[((((T7*)C))->_count/*4*/)-(1)]=(a1);
/*]*/
}
void r7set_last(T7* C,char a1){
/*IF*/if ((((((T7*)C))->_count/*4*/)==(0))||((/*(IRF4.6item*/((((T7*)C))->_storage/*0*/)[((((T7*)C))->_count/*4*/)-(1)]/*)*/)!=(a1))) {
r7extend(C,a1);
}
/*FI*/}
void r7to_lower(T7* C){
int _i=0;
_i=(((T7*)C))->_count/*4*/;
while (!((_i)==(0))) {
/*[IRF3.5put*/((((T7*)C))->_storage/*0*/)[(_i)-(1)]=(r3to_lower(/*(IRF4.6item*/((((T7*)C))->_storage/*0*/)[(_i)-(1)]/*)*/));
/*]*/
_i=(_i)-(1);
}
}
int r7hash_code(T7* C){
int R=0;
R=r9hashcode((((T7*)C))->_storage/*0*/,((((T7*)C))->_count/*4*/)-(1));
return R;
}
/*No:STRING.empty*/
void r7make(T7* C,int a1){
/*IF*/if ((a1)>(0)) {
/*IF*/if (((((T7*)C))->_capacity/*8*/)<(a1)) {
C->_storage=calloc(a1,sizeof(char));
C->_capacity=a1;
}
/*FI*/}
/*FI*/C->_count=0;
}
void* r7to_external(T7* C){
void* R=0;
/*IF*/if (((((T7*)C))->_capacity/*8*/)>((((T7*)C))->_count/*4*/)) {
C->_count=((((T7*)C))->_count/*4*/)+(1);
/*IF*/if ((/*(IRF4.6item*/((((T7*)C))->_storage/*0*/)[((((T7*)C))->_count/*4*/)-(1)]/*)*/)!=('\0')) {
/*[IRF3.5put*/((((T7*)C))->_storage/*0*/)[((((T7*)C))->_count/*4*/)-(1)]=('\0');
/*]*/
}
/*FI*/}
else {
r7extend(C,'\0');
}
/*FI*/C->_count=((((T7*)C))->_count/*4*/)-(1);
R=((void*)(((T7*)C))->_storage/*0*/);
return R;
}
/*No:STRING.item*/
/*No:STRING.clear*/
/*No:STRING.storage*/
int r7is_equal(T7* C,T0* a1){
int R=0;
/*IF*/if ((C)==((void*)(a1))) {
R=1;
}
 else if (((((T7*)C))->_count/*4*/)==((((T7*)((T7*)a1)))->_count/*4*/)) {
/*IF*/if (((((T7*)C))->_count/*4*/)>(0)) {
R=r9fast_memcmp((((T7*)C))->_storage/*0*/,(((T7*)((T7*)a1)))->_storage/*0*/,(((T7*)C))->_count/*4*/);
}
else {
R=1;
}
/*FI*/}
/*FI*/return R;
}
T0* r7twin(T7* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T7*)R)=M7;
r7copy(((T7*)R),((T0*)C));
return R;
}
char r7last(T7* C){
char R=0;
R=/*(IRF4.6item*/((((T7*)C))->_storage/*0*/)[((((T7*)C))->_count/*4*/)-(1)]/*)*/;
return R;
}
/*No:STRING.capacity*/
int r7has_suffix(T7* C,T0* a1){
int R=0;
int _i2=0;
int _i1=0;
/*IF*/if (((((T7*)((T7*)a1)))->_count/*4*/)<=((((T7*)C))->_count/*4*/)) {
_i1=(((((T7*)C))->_count/*4*/)-((((T7*)((T7*)a1)))->_count/*4*/))+(1);
_i2=1;
while (!((((_i1)>((((T7*)C))->_count/*4*/))||((_i2)>((((T7*)((T7*)a1)))->_count/*4*/)))||((/*(IRF4.6item*/((((T7*)C))->_storage/*0*/)[(_i1)-(1)]/*)*/)!=(/*(IRF4.6item*/((((T7*)((T7*)a1)))->_storage/*0*/)[(_i2)-(1)]/*)*/)))) {
_i1=(_i1)+(1);
_i2=(_i2)+(1);
}
R=(_i1)>((((T7*)C))->_count/*4*/);
}
/*FI*/return R;
}
int r7has(T7* C,char a1){
int R=0;
R=(r7index_of(C,a1))!=(((((T7*)C))->_count/*4*/)+(1));
return R;
}
void r7copy(T7* C,T0* a1){
C->_count=(((T7*)((T7*)a1)))->_count/*4*/;
/*IF*/if (((((T7*)C))->_count/*4*/)>(0)) {
/*IF*/if (((((T7*)C))->_capacity/*8*/)<((((T7*)C))->_count/*4*/)) {
C->_storage=calloc((((T7*)C))->_count/*4*/,sizeof(char));
C->_capacity=(((T7*)C))->_count/*4*/;
}
/*FI*/r9copy_from((((T7*)C))->_storage/*0*/,(((T7*)((T7*)a1)))->_storage/*0*/,((((T7*)C))->_count/*4*/)-(1));
}
/*FI*/}
/*No:STRING.put*/
void r7prepend(T7* C,T0* a1){
int _old_count=0;
int _i=0;
_old_count=(((T7*)C))->_count/*4*/;
_i=(((T7*)((T7*)a1)))->_count/*4*/;
while (!((_i)==(0))) {
r7extend(C,'\40');
_i=(_i)-(1);
}
_i=(((T7*)C))->_count/*4*/;
while (!((_old_count)==(0))) {
/*[IRF3.5put*/((((T7*)C))->_storage/*0*/)[(_i)-(1)]=(/*(IRF4.6item*/((((T7*)C))->_storage/*0*/)[(_old_count)-(1)]/*)*/);
/*]*/
_i=(_i)-(1);
_old_count=(_old_count)-(1);
}
_i=(((T7*)((T7*)a1)))->_count/*4*/;
while (!((_i)==(0))) {
/*[IRF3.5put*/((((T7*)C))->_storage/*0*/)[(_i)-(1)]=(/*(IRF4.6item*/((((T7*)((T7*)a1)))->_storage/*0*/)[(_i)-(1)]/*)*/);
/*]*/
_i=(_i)-(1);
}
}
/*No:STRING.count*/
void r7to_upper(T7* C){
int _i=0;
_i=(((T7*)C))->_count/*4*/;
while (!((_i)==(0))) {
/*[IRF3.5put*/((((T7*)C))->_storage/*0*/)[(_i)-(1)]=(r3to_upper(/*(IRF4.6item*/((((T7*)C))->_storage/*0*/)[(_i)-(1)]/*)*/));
/*]*/
_i=(_i)-(1);
}
}
void r7remove_last(T7* C,int a1){
C->_count=((((T7*)C))->_count/*4*/)-(a1);
}
int r7index_of(T7* C,char a1){
int R=0;
R=(1)+(r9fast_index_of((((T7*)C))->_storage/*0*/,a1,((((T7*)C))->_count/*4*/)-(1)));
return R;
}
void r7append(T7* C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>((((T7*)((T7*)a1)))->_count/*4*/))) {
r7extend(C,/*(IRF4.6item*/((((T7*)((T7*)a1)))->_storage/*0*/)[(_i)-(1)]/*)*/);
_i=(_i)+(1);
}
}
/*No:FIXED_ARRAY[INTEGER].clear_all*/
/*No:FIXED_ARRAY[INTEGER].set_all_with*/
void r226make(T226* C,int a1){
/*IF*/if ((a1)==(0)) {
C->_upper=-(1);
}
 else if (((((T226*)C))->_capacity/*4*/)==(0)) {
C->_storage=calloc(a1,sizeof(int));
C->_capacity=a1;
C->_upper=(a1)-(1);
}
 else if (((((T226*)C))->_capacity/*4*/)<(a1)) {
C->_storage=calloc(a1,sizeof(int));
C->_capacity=a1;
C->_upper=(a1)-(1);
}
else {
C->_upper=(a1)-(1);
/*[IRF3.6clear_all*/{T226* C1=C;
int __value=0;
/*[IRF3.6set_all_with*/{T226* C2=C1;
int c1=__value;
r686set_all_with((((T226*)C2))->_storage/*0*/,c1,(((T226*)C2))->_upper/*8*/);
}/*]*/
}/*]*/
}
/*FI*/}
/*No:FIXED_ARRAY[INTEGER].item*/
/*No:FIXED_ARRAY[INTEGER].storage*/
/*No:FIXED_ARRAY[INTEGER].capacity*/
void r226copy(T226* C,T0* a1){
int _new_capacity=0;
int _other_upper=0;
_other_upper=(((T226*)((T226*)a1)))->_upper/*8*/;
/*IF*/if ((_other_upper)>=(0)) {
_new_capacity=(_other_upper)+(1);
/*IF*/if (((((T226*)C))->_capacity/*4*/)<(_new_capacity)) {
C->_capacity=_new_capacity;
C->_storage=calloc(_new_capacity,sizeof(int));
}
 else if (((((T226*)C))->_capacity/*4*/)>(0)) {
r686clear_all((((T226*)C))->_storage/*0*/,((((T226*)C))->_capacity/*4*/)-(1));
}
/*FI*/r686copy_from((((T226*)C))->_storage/*0*/,(((T226*)((T226*)a1)))->_storage/*0*/,_other_upper);
}
 else if (((((T226*)C))->_capacity/*4*/)>(0)) {
r686clear_all((((T226*)C))->_storage/*0*/,((((T226*)C))->_capacity/*4*/)-(1));
}
/*FI*/C->_upper=_other_upper;
}
void r226with_capacity(T226* C,int a1){
/*IF*/if (((((T226*)C))->_capacity/*4*/)<(a1)) {
C->_storage=calloc(a1,sizeof(int));
C->_capacity=a1;
}
/*FI*/C->_upper=-(1);
}
/*No:FIXED_ARRAY[INTEGER].put*/
/*No:FIXED_ARRAY[INTEGER].upper*/
/*No:ARRAY[INTEGER].clear_all*/
/*No:ARRAY[INTEGER].set_all_with*/
void r429make(T429* C,int a1,int a2){
int _needed=0;
C->_lower=a1;
C->_upper=a2;
_needed=((a2)-(a1))+(1);
/*IF*/if ((_needed)>(0)) {
/*IF*/if (((((T429*)C))->_capacity/*4*/)<(_needed)) {
/*IF*/if (((((T429*)C))->_capacity/*4*/)==(0)) {
C->_storage=calloc(_needed,sizeof(int));
}
else {
C->_storage=calloc(_needed,sizeof(int));
}
/*FI*/C->_capacity=_needed;
}
else {
/*[IRF3.6clear_all*/{T429* C1=C;
int __value=0;
/*[IRF3.6set_all_with*/{T429* C2=C1;
int c1=__value;
r686set_all_with((((T429*)C2))->_storage/*0*/,c1,((((T429*)C2))->_upper/*8*/)-((((T429*)C2))->_lower/*12*/));
}/*]*/
}/*]*/
}
/*FI*/}
/*FI*/}
int r429item(T429* C,int a1){
int R=0;
R=((((T429*)C))->_storage/*0*/)[(a1)-((((T429*)C))->_lower/*12*/)];
return R;
}
void r429resize(T429* C,int a1,int a2){
int _mem=0;
int _up=0;
int _i=0;
T0* _other=NULL;
{T429*n=malloc(sizeof(*n));
*n=M429;
r429make(n,a1,a2);
_other=(T0*)n;
}
_i=r2max((((T429*)C))->_lower/*12*/,(((T429*)((T429*)_other)))->_lower/*12*/);
_up=r2min((((T429*)C))->_upper/*8*/,(((T429*)((T429*)_other)))->_upper/*8*/);
while (!((_i)>(_up))) {
/*[IRF3.6put*/{T429* C1=((T429*)_other);
int b1=r429item(C,_i);
int b2=_i;
((((T429*)C1))->_storage/*0*/)[(b2)-((((T429*)C1))->_lower/*12*/)]=(b1);
}/*]*/
_i=(_i)+(1);
}
*((T429*)(C))=*((T429*)(_other));
}
/*No:ARRAY[INTEGER].storage*/
/*No:ARRAY[INTEGER].capacity*/
/*No:ARRAY[INTEGER].lower*/
/*No:ARRAY[INTEGER].put*/
/*No:ARRAY[INTEGER].upper*/
int r429count(T429* C){
int R=0;
R=(((((T429*)C))->_upper/*8*/)-((((T429*)C))->_lower/*12*/))+(1);
return R;
}
/*No:FIXED_ARRAY[STRING].clear_all*/
/*No:FIXED_ARRAY[STRING].set_all_with*/
void r927make(T927* C,int a1){
/*IF*/if ((a1)==(0)) {
C->_upper=-(1);
}
 else if (((((T927*)C))->_capacity/*4*/)==(0)) {
C->_storage=calloc(a1,sizeof(T0*));
C->_capacity=a1;
C->_upper=(a1)-(1);
}
 else if (((((T927*)C))->_capacity/*4*/)<(a1)) {
C->_storage=calloc(a1,sizeof(T0*));
C->_capacity=a1;
C->_upper=(a1)-(1);
}
else {
C->_upper=(a1)-(1);
/*[IRF3.6clear_all*/{T927* C1=C;
T0* __value=NULL;
/*[IRF3.6set_all_with*/{T927* C2=C1;
T0* c1=__value;
r400set_all_with((((T927*)C2))->_storage/*0*/,c1,(((T927*)C2))->_upper/*8*/);
}/*]*/
}/*]*/
}
/*FI*/}
/*No:FIXED_ARRAY[STRING].item*/
/*No:FIXED_ARRAY[STRING].storage*/
/*No:FIXED_ARRAY[STRING].capacity*/
void r927with_capacity(T927* C,int a1){
/*IF*/if (((((T927*)C))->_capacity/*4*/)<(a1)) {
C->_storage=calloc(a1,sizeof(T0*));
C->_capacity=a1;
}
/*FI*/C->_upper=-(1);
}
/*No:FIXED_ARRAY[STRING].put*/
/*No:FIXED_ARRAY[STRING].upper*/
void r927add_last(T927* C,T0* a1){
int _new_capacity=0;
/*IF*/if ((((((T927*)C))->_upper/*8*/)+(1))<=(((((T927*)C))->_capacity/*4*/)-(1))) {
C->_upper=((((T927*)C))->_upper/*8*/)+(1);
}
 else if (((((T927*)C))->_capacity/*4*/)==(0)) {
C->_storage=calloc(2,sizeof(T0*));
C->_capacity=2;
C->_upper=0;
}
else {
_new_capacity=(2)*((((T927*)C))->_capacity/*4*/);
C->_storage=r400realloc((((T927*)C))->_storage/*0*/,(((T927*)C))->_capacity/*4*/,_new_capacity);
C->_capacity=_new_capacity;
C->_upper=((((T927*)C))->_upper/*8*/)+(1);
}
/*FI*//*[IRF3.5put*/((((T927*)C))->_storage/*0*/)[(((T927*)C))->_upper/*8*/]=(a1);
/*]*/
}
/*No:ARRAY[STRING].clear_all*/
/*No:ARRAY[STRING].set_all_with*/
void r52make(T52* C,int a1,int a2){
int _needed=0;
C->_lower=a1;
C->_upper=a2;
_needed=((a2)-(a1))+(1);
/*IF*/if ((_needed)>(0)) {
/*IF*/if (((((T52*)C))->_capacity/*4*/)<(_needed)) {
/*IF*/if (((((T52*)C))->_capacity/*4*/)==(0)) {
C->_storage=calloc(_needed,sizeof(T0*));
}
else {
C->_storage=calloc(_needed,sizeof(T0*));
}
/*FI*/C->_capacity=_needed;
}
else {
/*[IRF3.6clear_all*/{T52* C1=C;
T0* __value=NULL;
/*[IRF3.6set_all_with*/{T52* C2=C1;
T0* c1=__value;
r400set_all_with((((T52*)C2))->_storage/*0*/,c1,((((T52*)C2))->_upper/*8*/)-((((T52*)C2))->_lower/*12*/));
}/*]*/
}/*]*/
}
/*FI*/}
/*FI*/}
T0* r52item(T52* C,int a1){
T0* R=NULL;
R=((((T52*)C))->_storage/*0*/)[(a1)-((((T52*)C))->_lower/*12*/)];
return R;
}
void r52resize(T52* C,int a1,int a2){
int _mem=0;
int _up=0;
int _i=0;
T0* _other=NULL;
{T52*n=malloc(sizeof(*n));
*n=M52;
r52make(n,a1,a2);
_other=(T0*)n;
}
_i=r2max((((T52*)C))->_lower/*12*/,(((T52*)((T52*)_other)))->_lower/*12*/);
_up=r2min((((T52*)C))->_upper/*8*/,(((T52*)((T52*)_other)))->_upper/*8*/);
while (!((_i)>(_up))) {
/*[IRF3.6put*/{T52* C1=((T52*)_other);
T0* b1=r52item(C,_i);
int b2=_i;
((((T52*)C1))->_storage/*0*/)[(b2)-((((T52*)C1))->_lower/*12*/)]=(b1);
}/*]*/
_i=(_i)+(1);
}
*((T52*)(C))=*((T52*)(_other));
}
void r52clear(T52* C){
C->_upper=((((T52*)C))->_lower/*12*/)-(1);
}
/*No:ARRAY[STRING].storage*/
/*No:ARRAY[STRING].capacity*/
/*No:ARRAY[STRING].lower*/
/*No:ARRAY[STRING].put*/
/*No:ARRAY[STRING].upper*/
int r52count(T52* C){
int R=0;
R=(((((T52*)C))->_upper/*8*/)-((((T52*)C))->_lower/*12*/))+(1);
return R;
}
void r52add_last(T52* C,T0* a1){
int _new_capacity=0;
/*IF*/if (((((T52*)C))->_capacity/*4*/)<((r52count(C))+(1))) {
/*IF*/if (((((T52*)C))->_capacity/*4*/)==(0)) {
C->_capacity=16;
C->_storage=calloc((((T52*)C))->_capacity/*4*/,sizeof(T0*));
}
else {
_new_capacity=(2)*((((T52*)C))->_capacity/*4*/);
C->_storage=r400realloc((((T52*)C))->_storage/*0*/,(((T52*)C))->_capacity/*4*/,_new_capacity);
C->_capacity=_new_capacity;
}
/*FI*/}
/*FI*/C->_upper=((((T52*)C))->_upper/*8*/)+(1);
/*[IRF3.6put*/{T52* C1=C;
T0* b1=a1;
int b2=(((T52*)C))->_upper/*8*/;
((((T52*)C1))->_storage/*0*/)[(b2)-((((T52*)C1))->_lower/*12*/)]=(b1);
}/*]*/
}
int r52index_of(T52* C,T0* a1){
int R=0;
R=((((T52*)C))->_lower/*12*/)+(r400index_of((((T52*)C))->_storage/*0*/,a1,((((T52*)C))->_upper/*8*/)-((((T52*)C))->_lower/*12*/)));
return R;
}
T0* r794at(T794* C,T0* a1){
T0* R=NULL;
int _foo=0;
_foo=r794has(C,a1);
R=r52item(((T52*)((((T794*)C))->_store/*4*/)),(((T794*)C))->_has_mem/*24*/);
return R;
}
void r794expand(T794* C){
int _old_size=0;
int _i=0;
C->_item_mem=0;
_old_size=r52count(((T52*)((((T794*)C))->_store/*4*/)));
r429resize(((T429*)((((T794*)C))->_chain/*12*/)),1,(2)*(_old_size));
r52resize(((T52*)((((T794*)C))->_keys/*0*/)),1,(2)*(_old_size));
r52resize(((T52*)((((T794*)C))->_store/*4*/)),1,(2)*(_old_size));
_i=(_old_size)+(1);
while (!((_i)==(r429count(((T429*)((((T794*)C))->_chain/*12*/)))))) {
/*[IRF3.6put*/{T429* C1=((T429*)((((T794*)C))->_chain/*12*/));
int b1=(_i)+(1);
int b2=_i;
((((T429*)C1))->_storage/*0*/)[(b2)-((((T429*)C1))->_lower/*12*/)]=(b1);
}/*]*/
_i=(_i)+(1);
}
/*[IRF3.6put*/{T429* C1=((T429*)((((T794*)C))->_chain/*12*/));
int b1=(((T794*)C))->_free/*16*/;
int b2=_i;
((((T429*)C1))->_storage/*0*/)[(b2)-((((T429*)C1))->_lower/*12*/)]=(b1);
}/*]*/
C->_free=(_old_size)+(1);
}
T0*oBC672tmp_buckets=NULL;
/*No:DICTIONARY[STRING,STRING].free*/
void r794make(T794* C){
C->_modulus=(2)*(32);
{T226*n=malloc(sizeof(*n));
*n=M226;
r226make(n,(((T794*)C))->_modulus/*20*/);
C->_buckets=(T0*)n;
}
{T429*n=malloc(sizeof(*n));
*n=M429;
r429make(n,1,32);
C->_chain=(T0*)n;
}
{T52*n=malloc(sizeof(*n));
*n=M52;
r52make(n,1,32);
C->_store=(T0*)n;
}
{T52*n=malloc(sizeof(*n));
*n=M52;
r52make(n,1,32);
C->_keys=(T0*)n;
}
r794initialize(C);
}
void r794resize(T794* C,int a1){
int _p=0;
int _n=0;
int _i=0;
int _hash=0;
r226copy(((T226*)(oBC672tmp_buckets)),(((T794*)C))->_buckets/*8*/);
r226make(((T226*)((((T794*)C))->_buckets/*8*/)),a1);
_i=0;
while (!((_i)>=((((T794*)C))->_modulus/*20*/))) {
_n=/*(IRF4.6item*/((((T226*)((T226*)(oBC672tmp_buckets))))->_storage/*0*/)[_i]/*)*/;
while (!((_n)==(0))) {
_p=r429item(((T429*)((((T794*)C))->_chain/*12*/)),_n);
_hash=(r7hash_code(((T7*)(r52item(((T52*)((((T794*)C))->_keys/*0*/)),_n)))))%(a1);
/*[IRF3.6put*/{T429* C1=((T429*)((((T794*)C))->_chain/*12*/));
int b1=/*(IRF4.6item*/((((T226*)((T226*)((((T794*)C))->_buckets/*8*/))))->_storage/*0*/)[_hash]/*)*/;
int b2=_n;
((((T429*)C1))->_storage/*0*/)[(b2)-((((T429*)C1))->_lower/*12*/)]=(b1);
}/*]*/
/*[IRF3.5put*/((((T226*)((T226*)((((T794*)C))->_buckets/*8*/))))->_storage/*0*/)[_hash]=(_n);
/*]*/
_n=_p;
}
_i=(_i)+(1);
}
C->_modulus=a1;
C->_item_mem=0;
}
/*No:DICTIONARY[STRING,STRING].item_mem*/
/*No:DICTIONARY[STRING,STRING].chain*/
/*No:DICTIONARY[STRING,STRING].keys*/
/*No:DICTIONARY[STRING,STRING].buckets*/
int r794has(T794* C,T0* a1){
int R=0;
/*IF*/if ((((((T794*)C))->_has_mem/*24*/)==(0))||(!(r7is_equal(((T7*)a1),r52item(((T52*)((((T794*)C))->_keys/*0*/)),(((T794*)C))->_has_mem/*24*/))))) {
C->_has_mem=/*(IRF4.6item*/((((T226*)((T226*)((((T794*)C))->_buckets/*8*/))))->_storage/*0*/)[(r7hash_code(((T7*)a1)))%((((T794*)C))->_modulus/*20*/)]/*)*/;
while (!((((((T794*)C))->_has_mem/*24*/)==(0))||(r7is_equal(((T7*)a1),r52item(((T52*)((((T794*)C))->_keys/*0*/)),(((T794*)C))->_has_mem/*24*/))))) {
C->_has_mem=r429item(((T429*)((((T794*)C))->_chain/*12*/)),(((T794*)C))->_has_mem/*24*/);
}
}
/*FI*/R=((((T794*)C))->_has_mem/*24*/)!=(0);
return R;
}
/*No:DICTIONARY[STRING,STRING].Min_size*/
/*No:DICTIONARY[STRING,STRING].store*/
void r794put(T794* C,T0* a1,T0* a2){
int _hash=0;
_hash=(r7hash_code(((T7*)a2)))%((((T794*)C))->_modulus/*20*/);
/*IF*/if ((((((T794*)C))->_has_mem/*24*/)==(0))||(!(r7is_equal(((T7*)a2),r52item(((T52*)((((T794*)C))->_keys/*0*/)),(((T794*)C))->_has_mem/*24*/))))) {
C->_has_mem=/*(IRF4.6item*/((((T226*)((T226*)((((T794*)C))->_buckets/*8*/))))->_storage/*0*/)[_hash]/*)*/;
while (!((((((T794*)C))->_has_mem/*24*/)==(0))||(r7is_equal(((T7*)a2),r52item(((T52*)((((T794*)C))->_keys/*0*/)),(((T794*)C))->_has_mem/*24*/))))) {
C->_has_mem=r429item(((T429*)((((T794*)C))->_chain/*12*/)),(((T794*)C))->_has_mem/*24*/);
}
/*IF*/if (((((T794*)C))->_has_mem/*24*/)==(0)) {
/*IF*/if (((((T794*)C))->_count/*32*/)>=(r52count(((T52*)((((T794*)C))->_store/*4*/))))) {
r794expand(C);
}
/*FI*//*[IRF3.6put*/{T52* C1=((T52*)((((T794*)C))->_keys/*0*/));
T0* b1=a2;
int b2=(((T794*)C))->_free/*16*/;
((((T52*)C1))->_storage/*0*/)[(b2)-((((T52*)C1))->_lower/*12*/)]=(b1);
}/*]*/
/*[IRF3.6put*/{T52* C1=((T52*)((((T794*)C))->_store/*4*/));
T0* b1=a1;
int b2=(((T794*)C))->_free/*16*/;
((((T52*)C1))->_storage/*0*/)[(b2)-((((T52*)C1))->_lower/*12*/)]=(b1);
}/*]*/
C->_has_mem=(((T794*)C))->_free/*16*/;
C->_free=r429item(((T429*)((((T794*)C))->_chain/*12*/)),(((T794*)C))->_free/*16*/);
/*[IRF3.6put*/{T429* C1=((T429*)((((T794*)C))->_chain/*12*/));
int b1=/*(IRF4.6item*/((((T226*)((T226*)((((T794*)C))->_buckets/*8*/))))->_storage/*0*/)[_hash]/*)*/;
int b2=(((T794*)C))->_has_mem/*24*/;
((((T429*)C1))->_storage/*0*/)[(b2)-((((T429*)C1))->_lower/*12*/)]=(b1);
}/*]*/
/*[IRF3.5put*/((((T226*)((T226*)((((T794*)C))->_buckets/*8*/))))->_storage/*0*/)[_hash]=((((T794*)C))->_has_mem/*24*/);
/*]*/
C->_count=((((T794*)C))->_count/*32*/)+(1);
/*IF*/if (((((T794*)C))->_count/*32*/)>(((((T794*)C))->_modulus/*20*/)*(2))) {
r794resize(C,(2)*((((T794*)C))->_modulus/*20*/));
}
/*FI*/}
/*FI*/}
else {
/*[IRF3.6put*/{T52* C1=((T52*)((((T794*)C))->_store/*4*/));
T0* b1=a1;
int b2=(((T794*)C))->_has_mem/*24*/;
((((T52*)C1))->_storage/*0*/)[(b2)-((((T52*)C1))->_lower/*12*/)]=(b1);
}/*]*/
}
/*FI*/C->_item_mem=0;
}
/*No:DICTIONARY[STRING,STRING].modulus*/
/*No:DICTIONARY[STRING,STRING].count*/
/*No:DICTIONARY[STRING,STRING].has_mem*/
void r794initialize(T794* C){
int _i=0;
C->_count=0;
C->_free=1;
C->_has_mem=0;
C->_item_mem=0;
_i=1;
while (!((_i)==(r429count(((T429*)((((T794*)C))->_chain/*12*/)))))) {
/*[IRF3.6put*/{T429* C1=((T429*)((((T794*)C))->_chain/*12*/));
int b1=(_i)+(1);
int b2=_i;
((((T429*)C1))->_storage/*0*/)[(b2)-((((T429*)C1))->_lower/*12*/)]=(b1);
}/*]*/
_i=(_i)+(1);
}
/*[IRF3.6put*/{T429* C1=((T429*)((((T794*)C))->_chain/*12*/));
int b1=0;
int b2=_i;
((((T429*)C1))->_storage/*0*/)[(b2)-((((T429*)C1))->_lower/*12*/)]=(b1);
}/*]*/
_i=0;
while (!((_i)>=((((T794*)C))->_modulus/*20*/))) {
/*[IRF3.5put*/((((T226*)((T226*)((((T794*)C))->_buckets/*8*/))))->_storage/*0*/)[_i]=(0);
/*]*/
_i=(_i)+(1);
}
}
void r675connect_to(T675* C,T0* a1){
C->_input_stream=fopen(r7to_external(((T7*)a1)),"r");
/*IF*/if ((NULL!=(((T675*)C))->_input_stream/*8*/)) {
C->_push_back_flag=0;
C->_memory=((unsigned char)'\40');
C->_path=a1;
}
/*FI*/}
T0*oBC762last_string=NULL;
/*No:STD_FILE_READ.push_back_flag*/
void r675skip_separators(T675* C){
while (!((r675end_of_input(C))||(!(r3is_separator(/*(IRF4.6last_character*/((char)((((T675*)C))->_memory/*12*/))/*)*/))))) {
r675read_character(C);
}
}
/*No:STD_FILE_READ.make*/
void r675disconnect(T675* C){
fclose((((T675*)C))->_input_stream/*8*/);
C->_path=NULL;
}
/*No:STD_FILE_READ.path*/
void r675read_character(T675* C){
/*IF*/if ((((T675*)C))->_push_back_flag/*0*/) {
C->_push_back_flag=0;
}
else {
C->_memory=getc((FILE*)((((T675*)C))->_input_stream/*8*/));
}
/*FI*/}
/*No:STD_FILE_READ.is_connected*/
void r675read_word(T675* C){
r675skip_separators(C);
/*[IRF3.3clear*/((((T7*)(((T7*)(oBC762last_string)))))->_count)=(0);
/*]*/
while (!((r675end_of_input(C))||(r3is_separator(/*(IRF4.6last_character*/((char)((((T675*)C))->_memory/*12*/))/*)*/)))) {
r7extend(((T7*)(oBC762last_string)),/*(IRF4.6last_character*/((char)((((T675*)C))->_memory/*12*/))/*)*/);
r675read_character(C);
}
}
/*No:STD_FILE_READ.last_character*/
void r675read_line_in(T675* C,T0* a1){
int _mem=0;
r675read_character(C);
_mem=(((T675*)C))->_memory/*12*/;
while (!(((_mem)==((EOF)))||((_mem)==(((unsigned char)'\n'))))) {
r7extend(((T7*)a1),((char)(_mem)));
_mem=getc((FILE*)((((T675*)C))->_input_stream/*8*/));
}
C->_memory=_mem;
}
int r675end_of_input(T675* C){
int R=0;
/*IF*/if (!((((T675*)C))->_push_back_flag/*0*/)) {
R=((((T675*)C))->_memory/*12*/)==((EOF));
}
/*FI*/return R;
}
void r675read_line(T675* C){
/*[IRF3.3clear*/((((T7*)(((T7*)(oBC762last_string)))))->_count)=(0);
/*]*/
r675read_line_in(C,oBC762last_string);
}
/*No:STD_FILE_READ.input_stream*/
/*No:STD_FILE_READ.memory*/
/*No:PARSER_BUFFER.make*/
int fBC676buffer=0;
T9 oBC676buffer=NULL;
T9 r676buffer(void){
if (fBC676buffer==0){
T9 R=NULL;
fBC676buffer=1;
R=calloc(4096,sizeof(char));
oBC676buffer=R;}
return oBC676buffer;}
/*No:PARSER_BUFFER.path*/
int r676read_file(T0* a1){
int R=0;
T9 _b=NULL;
T0* _line=NULL;
char _c=0;
int _nb_read=0;
int _i=0;
int _file=0;
void* _p=0;
_p=r7to_external(((T7*)a1));
_file=open(_p,O_RDONLY,0);/*IF*/if ((_file)>=(0)) {
_b=r676buffer();
_line=r676next_line(0);
_line=r676next_line(1);
R=1;
_nb_read=4096;
while (!((_nb_read)<(4096))) {
_nb_read=read(_file,_b,4096);
_i=0;
while (!((_i)==(_nb_read))) {
_c=(_b)[_i];
/*IF*/if ((_c)==('\n')) {
R=(R)+(1);
_line=r676next_line(R);
}
 else if ((_c)==('\15')) {
}
else {
r7extend(((T7*)_line),_c);
}
/*FI*/_i=(_i)+(1);
}
}
/*IF*/if (/*(IRF4.7empty*/((((T7*)((T7*)_line)))->_count/*4*/)==(0)/*)*/) {
R=(R)-(1);
}
/*FI*/_file=close(_file);
}
else {
R=-(1);
}
/*FI*/return R;
}
void r676load_file(T676* C,T0* a1){
C->_count=r676read_file(a1);
/*IF*/if (((((T676*)C))->_count/*4*/)>=(0)) {
C->_path=a1;
}
else {
C->_path=NULL;
}
/*FI*/}
/*No:PARSER_BUFFER.is_ready*/
T0*oBC676text=NULL;
/*No:PARSER_BUFFER.medium_line_size*/
/*No:PARSER_BUFFER.buffer_size*/
/*No:PARSER_BUFFER.count*/
/*No:PARSER_BUFFER.unset_is_ready*/
T0* r676next_line(int a1){
T0* R=NULL;
/*IF*/if ((a1)<=((((T927*)((T927*)(oBC676text))))->_upper/*8*/)) {
R=/*(IRF4.6item*/((((T927*)((T927*)(oBC676text))))->_storage/*0*/)[a1]/*)*/;
/*[IRF3.3clear*/((((T7*)(((T7*)R))))->_count)=(0);
/*]*/
}
else {
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,80);
R=(T0*)n;
}
r927add_last(((T927*)(oBC676text)),R);
}
/*FI*/return R;
}
/*No:STD_ERROR.make*/
/*No:STD_ERROR.flush*/
void r441put_string(T441* C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>((((T7*)((T7*)a1)))->_count/*4*/))) {
/*[IRF3.6put_character*/{T441* C1=C;
char b1=/*(IRF4.6item*/((((T7*)((T7*)a1)))->_storage/*0*/)[(_i)-(1)]/*)*/;
putc(b1,((FILE*)(stderr)));
}/*]*/
_i=(_i)+(1);
}
}
/*No:STD_ERROR.put_character*/
T0*oBC817tmp_file_read=NULL;
/*No:STD_OUTPUT.make*/
void r830append_file(T830* C,T0* a1){
char _c=0;
r675connect_to(((T675*)(oBC817tmp_file_read)),a1);
r675read_character(((T675*)(oBC817tmp_file_read)));
while (!(r675end_of_input(((T675*)(oBC817tmp_file_read))))) {
_c=/*(IRF4.6last_character*/((char)((((T675*)((T675*)(oBC817tmp_file_read))))->_memory/*12*/))/*)*/;
/*[IRF3.6put_character*/{T830* C1=C;
char b1=_c;
putc(b1,((FILE*)(stdout)));
}/*]*/
r675read_character(((T675*)(oBC817tmp_file_read)));
}
r675disconnect(((T675*)(oBC817tmp_file_read)));
}
/*No:STD_OUTPUT.flush*/
void r830put_string(T830* C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>((((T7*)((T7*)a1)))->_count/*4*/))) {
/*[IRF3.6put_character*/{T830* C1=C;
char b1=/*(IRF4.6item*/((((T7*)((T7*)a1)))->_storage/*0*/)[(_i)-(1)]/*)*/;
putc(b1,((FILE*)(stdout)));
}/*]*/
_i=(_i)+(1);
}
}
/*No:STD_OUTPUT.put_character*/
/*No:SMALL_EIFFEL.dos_system*/
/*No:SMALL_EIFFEL.fz_system_se*/
/*No:SMALL_EIFFEL.fz_sys*/
T0*oBC364tmp_file_read=NULL;
int fBC604loading_path=0;
T0*oBC604loading_path=NULL;
T0* r604loading_path(T604* C){
if (fBC604loading_path==0){
T0* R=NULL;
T0* _file=NULL;
T0* _path=NULL;
fBC604loading_path=1;
{T52*n=malloc(sizeof(*n));
*n=M52;
r52make(n,1,10);
R=(T0*)n;
}
r52clear(((T52*)R));
{T675*n=malloc(sizeof(*n));
*n=M675;
r675connect_to(n,((T0*)ms2_604));
_file=(T0*)n;
}
/*IF*/if (/*(IRF4.7is_connected*/((((T675*)((T675*)_file)))->_path/*4*/)!=(NULL)/*)*/) {
while (!(r675end_of_input(((T675*)_file)))) {
r675read_line(((T675*)_file));
r52add_last(((T52*)R),r7twin(((T7*)(oBC762last_string))));
}
r675disconnect(((T675*)_file));
}
/*FI*/_path=r7twin(((T7*)(r604small_eiffel_directory(C))));
r604add_directory(C,_path,((T0*)ms126_470));
r7append(((T7*)_path),((T0*)ms3_604));
r7append(((T7*)_path),r604system_name(C));
r675connect_to(((T675*)_file),_path);
/*IF*/if (/*(IRF4.7is_connected*/((((T675*)((T675*)_file)))->_path/*4*/)!=(NULL)/*)*/) {
while (!(r675end_of_input(((T675*)_file)))) {
r675read_line(((T675*)_file));
r52add_last(((T52*)R),r7twin(((T7*)(oBC762last_string))));
}
r675disconnect(((T675*)_file));
}
else {
r306w_put_string(((T0*)ms4_604));
r306w_put_string(_path);
r306w_put_string(((T0*)ms5_604));
}
/*FI*/oBC604loading_path=R;}
return oBC604loading_path;}
/*No:SMALL_EIFFEL.unix_system*/
/*No:SMALL_EIFFEL.exit_failure_code*/
/*No:SMALL_EIFFEL.vms_system*/
int fBC364small_eiffel_directory=0;
T0*oBC364small_eiffel_directory=NULL;
T0* r604small_eiffel_directory(T604* C){
if (fBC364small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
fBC364small_eiffel_directory=1;
R=r604get_environment_variable(C,((T0*)ms121_470));
/*IF*/if ((R)==((void*)(NULL))) {
R=r7twin(((T7*)(((T0*)ms121_470))));
r7to_upper(((T7*)R));
R=r604get_environment_variable(C,R);
/*IF*/if ((R)!=((void*)(NULL))) {
r7to_upper(((T7*)(((T0*)ms121_470))));
}
/*FI*/}
/*FI*//*IF*/if ((R)==((void*)(NULL))) {
R=((T0*)ms1_364);
}
/*FI*/_i=(((T7*)((T7*)R)))->_count/*4*/;
while (!((_i)<(0))) {
_slash=/*(IRF4.6item*/((((T7*)((T7*)R)))->_storage/*0*/)[(_i)-(1)]/*)*/;
/*IF*/if ((r3is_letter(_slash))||(r3is_digit(_slash))) {
_i=(_i)-(1);
}
else {
_i=-(1);
}
/*FI*/}
/*IF*/if ((_i)==(0)) {
r7extend(((T7*)R),'\57');
}
 else if (!((r7last(((T7*)R)))==(_slash))) {
r7extend(((T7*)R),_slash);
}
/*FI*/oBC364small_eiffel_directory=R;}
return oBC364small_eiffel_directory;}
/*No:SMALL_EIFFEL.amiga_system*/
/*No:SMALL_EIFFEL.make*/
T0*oBC604tmp_tail=NULL;
T0*oBC364parser_buffer=NULL;
void r604add_directory(T604* C,T0* a1,T0* a2){
/*IF*/if ((((T0*)ms17_364))==((void*)(r604system_name(C)))) {
r7set_last(((T7*)a1),'\57');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\57');
}
 else if ((((T0*)ms19_364))==((void*)(r604system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms15_364))==((void*)(r604system_name(C)))) {
r7set_last(((T7*)a1),'\72');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\72');
}
 else if ((((T0*)ms14_364))==((void*)(r604system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms16_364))==((void*)(r604system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms13_364))==((void*)(r604system_name(C)))) {
r7set_last(((T7*)a1),'\57');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\57');
}
 else if ((((T0*)ms18_364))==((void*)(r604system_name(C)))) {
r7set_last(((T7*)a1),'\135');
r7remove_last(((T7*)a1),1);
r7set_last(((T7*)a1),'\56');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\135');
}
/*FI*/}
T0*oBC604parser_buffer_path=NULL;
/*No:SMALL_EIFFEL.windows_system*/
T0*oBC364echo=NULL;
T0* r604get_environment_variable(T604* C,T0* a1){
T0* R=NULL;
void* _p=0;
_p=r7to_external(((T7*)a1));
R=(NULL==(_p=getenv((char*)_p)))?NULL:((T0*)e2s((char*)_p));
return R;
}
/*No:SMALL_EIFFEL.fz_03*/
T0*oBC364system_list=NULL;
int fBC364system_name=0;
T0*oBC364system_name=NULL;
T0* r604system_name(T604* C){
if (fBC364system_name==0){
T0* R=NULL;
int _i=0;
fBC364system_name=1;
r7copy(((T7*)(oBC364tmp_path)),r604small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\57')) {
r7set_last(((T7*)(oBC364tmp_path)),'\57');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\57');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r604small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\134')) {
r7set_last(((T7*)(oBC364tmp_path)),'\134');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\134');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r604small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\72')) {
r7set_last(((T7*)(oBC364tmp_path)),'\72');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\72');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r604small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\135')) {
r7set_last(((T7*)(oBC364tmp_path)),'\135');
r7remove_last(((T7*)(oBC364tmp_path)),1);
r7extend(((T7*)(oBC364tmp_path)),'\56');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\135');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r604small_eiffel_directory(C));
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r306w_put_string(((T0*)ms20_364));
r306w_put_string(((T0*)ms127_470));
r306w_put_string(((T0*)ms21_364));
r306w_put_string(r604small_eiffel_directory(C));
r306w_put_string(((T0*)ms242_470));
exit(1);
}
/*FI*/r675read_line(((T675*)(oBC364tmp_file_read)));
R=oBC762last_string;
_i=r52index_of(((T52*)(oBC364system_list)),R);
r675disconnect(((T675*)(oBC364tmp_file_read)));
/*IF*/if ((_i)>((((T52*)((T52*)(oBC364system_list))))->_upper/*8*/)) {
r306w_put_string(((T0*)ms22_364));
r306w_put_string(oBC364tmp_path);
r306w_put_string(((T0*)ms23_364));
_i=1;
while (!((_i)>((((T52*)((T52*)(oBC364system_list))))->_upper/*8*/))) {
r306w_put_string(r52item(((T52*)(oBC364system_list)),_i));
r306w_put_character('\n');
_i=(_i)+(1);
}
}
else {
R=r52item(((T52*)(oBC364system_list)),_i);
r306put_string(((T306*)(oBC364echo)),((T0*)ms24_364));
r306put_string(((T306*)(oBC364echo)),R);
r306put_string(((T306*)(oBC364echo)),((T0*)ms242_470));
}
/*FI*/oBC364system_name=R;}
return oBC364system_name;}
int r604parser_buffer_for(T604* C,T0* a1){
int R=0;
int _i=0;
r7copy(((T7*)(oBC604tmp_tail)),a1);
r7to_lower(((T7*)(oBC604tmp_tail)));
/*IF*/if (!(r7has_suffix(((T7*)(oBC604tmp_tail)),((T0*)ms25_364)))) {
r7append(((T7*)(oBC604tmp_tail)),((T0*)ms25_364));
}
/*FI*/_i=(((T52*)((T52*)(r604loading_path(C)))))->_lower/*12*/;
while (!(((_i)>((((T52*)((T52*)(r604loading_path(C)))))->_upper/*8*/))||(R))) {
r7copy(((T7*)(oBC604parser_buffer_path)),r52item(((T52*)(r604loading_path(C))),_i));
r7append(((T7*)(oBC604parser_buffer_path)),oBC604tmp_tail);
r676load_file(((T676*)(oBC364parser_buffer)),oBC604parser_buffer_path);
R=/*(IRF4.7is_ready*/((((T676*)((T676*)(oBC364parser_buffer))))->_path/*0*/)!=(NULL)/*)*/;
_i=(_i)+(1);
}
/*IF*/if ((!(R))&&(r794has(((T794*)(r604rename_dictionary(C))),oBC604tmp_tail))) {
r7copy(((T7*)(oBC604parser_buffer_path)),r794at(((T794*)(r604rename_dictionary(C))),oBC604tmp_tail));
r676load_file(((T676*)(oBC364parser_buffer)),oBC604parser_buffer_path);
/*IF*/if (/*(IRF4.7is_ready*/((((T676*)((T676*)(oBC364parser_buffer))))->_path/*0*/)!=(NULL)/*)*/) {
R=1;
}
else {
r306w_put_string(((T0*)ms10_604));
r306w_put_string(oBC604parser_buffer_path);
r306w_put_string(((T0*)ms137_470));
exit(1);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
r7copy(((T7*)(oBC604tmp_tail)),a1);
/*IF*/if (!(r7has_suffix(((T7*)(oBC604tmp_tail)),((T0*)ms25_364)))) {
r7append(((T7*)(oBC604tmp_tail)),((T0*)ms25_364));
}
/*FI*/_i=(((T52*)((T52*)(r604loading_path(C)))))->_lower/*12*/;
while (!(((_i)>((((T52*)((T52*)(r604loading_path(C)))))->_upper/*8*/))||(R))) {
r7copy(((T7*)(oBC604parser_buffer_path)),r52item(((T52*)(r604loading_path(C))),_i));
r7append(((T7*)(oBC604parser_buffer_path)),oBC604tmp_tail);
r676load_file(((T676*)(oBC364parser_buffer)),oBC604parser_buffer_path);
R=/*(IRF4.7is_ready*/((((T676*)((T676*)(oBC364parser_buffer))))->_path/*0*/)!=(NULL)/*)*/;
_i=(_i)+(1);
}
}
/*FI*//*IF*/if (!(R)) {
r306w_put_string(((T0*)ms11_604));
r306w_put_string(a1);
r306w_put_string(((T0*)ms12_604));
/*[IRF3.3clear*/((((T7*)(((T7*)(oBC604parser_buffer_path)))))->_count)=(0);
/*]*/
r604append_loading_path_in(C,oBC604parser_buffer_path);
r306w_put_string(oBC604parser_buffer_path);
}
/*FI*/return R;
}
/*No:SMALL_EIFFEL.fz_b0*/
T0*oBC364tmp_path=NULL;
T0* r604find_path_for(T604* C,T0* a1){
T0* R=NULL;
/*IF*/if (r604parser_buffer_for(C,a1)) {
R=(((T676*)((T676*)(oBC364parser_buffer))))->_path/*0*/;
}
/*FI*//*[IRF3.3unset_is_ready*/((((T676*)(((T676*)(oBC364parser_buffer)))))->_path)=(NULL);
/*]*/
return R;
}
/*No:SMALL_EIFFEL.fz_se*/
/*No:SMALL_EIFFEL.os2_system*/
int fBC604rename_dictionary=0;
T0*oBC604rename_dictionary=NULL;
T0* r604rename_dictionary(T604* C){
if (fBC604rename_dictionary==0){
T0* R=NULL;
T0* _short_name=NULL;
T0* _full_name=NULL;
int _i=0;
fBC604rename_dictionary=1;
{T794*n=malloc(sizeof(*n));
*n=M794;
r794make(n);
R=(T0*)n;
}
_i=1;
while (!((_i)>((((T52*)((T52*)(r604loading_path(C)))))->_upper/*8*/))) {
r7copy(((T7*)(oBC364tmp_path)),r52item(((T52*)(r604loading_path(C))),_i));
r7append(((T7*)(oBC364tmp_path)),((T0*)ms13_604));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
/*IF*/if (/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/) {
while (!(r675end_of_input(((T675*)(oBC364tmp_file_read))))) {
r675read_word(((T675*)(oBC364tmp_file_read)));
_full_name=r7twin(((T7*)(oBC762last_string)));
r675read_word(((T675*)(oBC364tmp_file_read)));
_short_name=r7twin(((T7*)(oBC762last_string)));
r7prepend(((T7*)_short_name),r52item(((T52*)(r604loading_path(C))),_i));
/*IF*/if (r794has(((T794*)R),_full_name)) {
r306w_put_string(((T0*)ms14_604));
r306w_put_string(_full_name);
r306w_put_string(((T0*)ms15_604));
r306w_put_string(_short_name);
r306w_put_string(((T0*)ms16_604));
r306w_put_string(r794at(((T794*)R),_full_name));
r306w_put_string(((T0*)ms17_604));
exit(1);
}
/*FI*/r794put(((T794*)R),_short_name,_full_name);
r675skip_separators(((T675*)(oBC364tmp_file_read)));
}
r675disconnect(((T675*)(oBC364tmp_file_read)));
}
/*FI*/_i=(_i)+(1);
}
oBC604rename_dictionary=R;}
return oBC604rename_dictionary;}
void r604append_loading_path_in(T604* C,T0* a1){
T0* _sed=NULL;
int _i=0;
r7append(((T7*)a1),((T0*)ms62_604));
_i=(((T52*)((T52*)(r604loading_path(C)))))->_lower/*12*/;
while (!((_i)>((((T52*)((T52*)(r604loading_path(C)))))->_upper/*8*/))) {
r7extend(((T7*)a1),'\42');
r7append(((T7*)a1),r52item(((T52*)(r604loading_path(C))),_i));
r7extend(((T7*)a1),'\42');
r7extend(((T7*)a1),'\n');
_i=(_i)+(1);
}
r7append(((T7*)a1),((T0*)ms63_604));
r7append(((T7*)a1),((T0*)ms121_470));
_sed=r604get_environment_variable(C,((T0*)ms121_470));
r7append(((T7*)a1),((T0*)ms64_604));
/*IF*/if ((_sed)==((void*)(NULL))) {
r7append(((T7*)a1),((T0*)ms65_604));
}
else {
r7append(((T7*)a1),((T0*)ms66_604));
r7append(((T7*)a1),_sed);
r7append(((T7*)a1),((T0*)ms67_604));
}
/*FI*/r7extend(((T7*)a1),'\n');
}
/*No:SMALL_EIFFEL.macintosh_system*/
/*No:SMALL_EIFFEL.eiffel_suffix*/
T0*oBC670std_fr1=NULL;
int r670is_readable(T0* a1){
int R=0;
r675connect_to(((T675*)(oBC670std_fr1)),a1);
R=/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC670std_fr1))))->_path/*4*/)!=(NULL)/*)*/;
/*IF*/if (R) {
r675disconnect(((T675*)(oBC670std_fr1)));
}
/*FI*/return R;
}
/*No:ECHO.make*/
/*No:ECHO.verbose*/
T0*oBC1std_error=NULL;
T0*oBC1std_output=NULL;
void r306sfr_connect(T306* C,T0* a1,T0* a2){
r306put_string(C,((T0*)ms3_306));
r306put_string(C,a2);
r306put_string(C,((T0*)ms4_306));
r675connect_to(((T675*)a1),a2);
}
void r306put_string(T306* C,T0* a1){
/*IF*/if ((((T306*)C))->_verbose/*0*/) {
r830put_string(((T830*)(oBC1std_output)),a1);
/*[IRF3.6flush*/{T830* C1=((T830*)(oBC1std_output));
fflush(stdout);
}/*]*/
}
/*FI*/}
void r306w_put_string(T0* a1){
r441put_string(((T441*)(oBC1std_error)),a1);
/*[IRF3.6flush*/{T441* C1=((T441*)(oBC1std_error));
fflush(stderr);
}/*]*/
}
void r306w_put_character(char a1){
/*[IRF3.6put_character*/{T441* C1=((T441*)(oBC1std_error));
char b1=a1;
putc(b1,((FILE*)(stderr)));
}/*]*/
/*[IRF3.6flush*/{T441* C1=((T441*)(oBC1std_error));
fflush(stderr);
}/*]*/
}
/*No:FINDER.dos_system*/
/*No:FINDER.fz_system_se*/
/*No:FINDER.fz_sys*/
/*No:FINDER.unix_system*/
/*No:FINDER.exit_failure_code*/
/*No:FINDER.vms_system*/
T0* r829small_eiffel_directory(T829* C){
if (fBC364small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
fBC364small_eiffel_directory=1;
R=r829get_environment_variable(C,((T0*)ms121_470));
/*IF*/if ((R)==((void*)(NULL))) {
R=r7twin(((T7*)(((T0*)ms121_470))));
r7to_upper(((T7*)R));
R=r829get_environment_variable(C,R);
/*IF*/if ((R)!=((void*)(NULL))) {
r7to_upper(((T7*)(((T0*)ms121_470))));
}
/*FI*/}
/*FI*//*IF*/if ((R)==((void*)(NULL))) {
R=((T0*)ms1_364);
}
/*FI*/_i=(((T7*)((T7*)R)))->_count/*4*/;
while (!((_i)<(0))) {
_slash=/*(IRF4.6item*/((((T7*)((T7*)R)))->_storage/*0*/)[(_i)-(1)]/*)*/;
/*IF*/if ((r3is_letter(_slash))||(r3is_digit(_slash))) {
_i=(_i)-(1);
}
else {
_i=-(1);
}
/*FI*/}
/*IF*/if ((_i)==(0)) {
r7extend(((T7*)R),'\57');
}
 else if (!((r7last(((T7*)R)))==(_slash))) {
r7extend(((T7*)R),_slash);
}
/*FI*/oBC364small_eiffel_directory=R;}
return oBC364small_eiffel_directory;}
/*No:FINDER.amiga_system*/
void r829make(T829* C){
T0* _file_name=NULL;
T0* _class_name=NULL;
/*IF*/if ((/*(IRF4.9argument_count*/(((T927*)((T927*)(r829command_arguments()))))->_upper/*8*//*)*/)!=(1)) {
r441put_string(((T441*)(oBC1std_error)),((T0*)ms1_829));
r829print_help(C,((T0*)ms2_829));
exit(1);
}
/*FI*/_class_name=r829argument(1);
_file_name=r604find_path_for(((T604*)(oBC364small_eiffel)),_class_name);
/*IF*/if ((_file_name)==((void*)(NULL))) {
r830put_string(((T830*)(oBC1std_output)),_class_name);
r830put_string(((T830*)(oBC1std_output)),((T0*)ms3_829));
exit(1);
}
else {
r830put_string(((T830*)(oBC1std_output)),_file_name);
/*[IRF3.6put_character*/{T830* C1=((T830*)(oBC1std_output));
char b1='\n';
putc(b1,((FILE*)(stdout)));
}/*]*/
}
/*FI*/}
/*No:FINDER.help_suffix*/
T0*oBC364help_file_name=NULL;
void r829add_directory(T829* C,T0* a1,T0* a2){
/*IF*/if ((((T0*)ms17_364))==((void*)(r829system_name(C)))) {
r7set_last(((T7*)a1),'\57');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\57');
}
 else if ((((T0*)ms19_364))==((void*)(r829system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms15_364))==((void*)(r829system_name(C)))) {
r7set_last(((T7*)a1),'\72');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\72');
}
 else if ((((T0*)ms14_364))==((void*)(r829system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms16_364))==((void*)(r829system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms13_364))==((void*)(r829system_name(C)))) {
r7set_last(((T7*)a1),'\57');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\57');
}
 else if ((((T0*)ms18_364))==((void*)(r829system_name(C)))) {
r7set_last(((T7*)a1),'\135');
r7remove_last(((T7*)a1),1);
r7set_last(((T7*)a1),'\56');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\135');
}
/*FI*/}
T670 oBC1file_tools=0;
/*No:FINDER.windows_system*/
T0* r829get_environment_variable(T829* C,T0* a1){
T0* R=NULL;
void* _p=0;
_p=r7to_external(((T7*)a1));
R=(NULL==(_p=getenv((char*)_p)))?NULL:((T0*)e2s((char*)_p));
return R;
}
void r829print_help(T829* C,T0* a1){
r7copy(((T7*)(oBC364help_file_name)),r829small_eiffel_directory(C));
r829add_directory(C,oBC364help_file_name,((T0*)ms2_364));
r7append(((T7*)(oBC364help_file_name)),a1);
/*IF*/if (!(r7has_suffix(((T7*)(oBC364help_file_name)),((T0*)ms39_364)))) {
r7append(((T7*)(oBC364help_file_name)),((T0*)ms39_364));
}
/*FI*//*IF*/if (!(r829file_exists(oBC364help_file_name))) {
r306w_put_string(((T0*)ms3_364));
r306w_put_string(oBC364help_file_name);
r306w_put_string(((T0*)ms242_470));
exit(1);
}
/*FI*/r830append_file(((T830*)(oBC1std_output)),oBC364help_file_name);
}
int fBC1command_arguments=0;
T0*oBC1command_arguments=NULL;
T0* r829command_arguments(void){
if (fBC1command_arguments==0){
T0* R=NULL;
T0* _arg=NULL;
int _i=0;
fBC1command_arguments=1;
_i=se_argc;
{T927*n=malloc(sizeof(*n));
*n=M927;
r927make(n,_i);
R=(T0*)n;
}
while (!((_i)==(0))) {
_i=(_i)-(1);
_arg=((T0*)e2s(se_argv[_i]));
/*[IRF3.5put*/((((T927*)((T927*)R)))->_storage/*0*/)[_i]=(_arg);
/*]*/
}
oBC1command_arguments=R;}
return oBC1command_arguments;}
T0* r829system_name(T829* C){
if (fBC364system_name==0){
T0* R=NULL;
int _i=0;
fBC364system_name=1;
r7copy(((T7*)(oBC364tmp_path)),r829small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\57')) {
r7set_last(((T7*)(oBC364tmp_path)),'\57');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\57');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r829small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\134')) {
r7set_last(((T7*)(oBC364tmp_path)),'\134');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\134');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r829small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\72')) {
r7set_last(((T7*)(oBC364tmp_path)),'\72');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\72');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r829small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\135')) {
r7set_last(((T7*)(oBC364tmp_path)),'\135');
r7remove_last(((T7*)(oBC364tmp_path)),1);
r7extend(((T7*)(oBC364tmp_path)),'\56');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\135');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r829small_eiffel_directory(C));
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r306w_put_string(((T0*)ms20_364));
r306w_put_string(((T0*)ms127_470));
r306w_put_string(((T0*)ms21_364));
r306w_put_string(r829small_eiffel_directory(C));
r306w_put_string(((T0*)ms242_470));
exit(1);
}
/*FI*/r675read_line(((T675*)(oBC364tmp_file_read)));
R=oBC762last_string;
_i=r52index_of(((T52*)(oBC364system_list)),R);
r675disconnect(((T675*)(oBC364tmp_file_read)));
/*IF*/if ((_i)>((((T52*)((T52*)(oBC364system_list))))->_upper/*8*/)) {
r306w_put_string(((T0*)ms22_364));
r306w_put_string(oBC364tmp_path);
r306w_put_string(((T0*)ms23_364));
_i=1;
while (!((_i)>((((T52*)((T52*)(oBC364system_list))))->_upper/*8*/))) {
r306w_put_string(r52item(((T52*)(oBC364system_list)),_i));
r306w_put_character('\n');
_i=(_i)+(1);
}
}
else {
R=r52item(((T52*)(oBC364system_list)),_i);
r306put_string(((T306*)(oBC364echo)),((T0*)ms24_364));
r306put_string(((T306*)(oBC364echo)),R);
r306put_string(((T306*)(oBC364echo)),((T0*)ms242_470));
}
/*FI*/oBC364system_name=R;}
return oBC364system_name;}
/*No:FINDER.fz_b0*/
/*No:FINDER.fz_se*/
/*No:FINDER.os2_system*/
T0*oBC364small_eiffel=NULL;
int r829file_exists(T0* a1){
int R=0;
R=r670is_readable(a1);
return R;
}
/*No:FINDER.argument_count*/
/*No:FINDER.macintosh_system*/
T0* r829argument(int a1){
T0* R=NULL;
R=/*(IRF4.6item*/((((T927*)((T927*)(r829command_arguments()))))->_storage/*0*/)[a1]/*)*/;
return R;
}
/*No:BOOLEAN_REF.item*/
int se_argc;
char**se_argv;
int main(int argc,char*argv[]){
se_initialize();
{
T829*n=malloc(1);
se_argc=argc; se_argv=argv;
#ifdef SIGINT
signal(SIGINT,sigrsp);
#endif
#ifdef SIGQUIT
signal(SIGQUIT,sigrsp);
#endif
#ifdef SIGTERM
signal(SIGTERM,sigrsp);
#endif
#ifdef SIGBREAK
signal(SIGBREAK,sigrsp);
#endif
#ifdef SIGKILL
signal(SIGKILL,sigrsp);
#endif
se_msi1();
se_msi2();
se_msi3();
{T0* R=NULL;
{T604*n=malloc(1);
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC364small_eiffel=R;}/*PCO*/
{T0* R=NULL;
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,256);
R=(T0*)n;
}
oBC364tmp_path=R;}/*PCO*/
{T0* R=NULL;
R=se_ma52(7,((T0*)ms13_364),((T0*)ms14_364),((T0*)ms15_364),((T0*)ms16_364),((T0*)ms17_364),((T0*)ms18_364),((T0*)ms19_364));
oBC364system_list=R;}/*PCO*/
{T0* R=NULL;
{T306*n=malloc(sizeof(*n));
*n=M306;
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC364echo=R;}/*PCO*/
{T0* R=NULL;
{T830*n=malloc(1);
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC1std_output=R;}/*PCO*/
{int R=0;
oBC1file_tools=R;}/*PCO*/
{T0* R=NULL;
{T441*n=malloc(1);
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC1std_error=R;}/*PCO*/
{T0* R=NULL;
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,256);
R=(T0*)n;
}
oBC364help_file_name=R;}/*PCO*/
{T0* R=NULL;
{T675*n=malloc(sizeof(*n));
*n=M675;
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC364tmp_file_read=R;}/*PCO*/
{T0* R=NULL;
{T675*n=malloc(sizeof(*n));
*n=M675;
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC670std_fr1=R;}/*PCO*/
{T0* R=NULL;
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,256);
R=(T0*)n;
}
oBC604parser_buffer_path=R;}/*PCO*/
{T0* R=NULL;
{T676*n=malloc(sizeof(*n));
*n=M676;
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC364parser_buffer=R;}/*PCO*/
{T0* R=NULL;
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,64);
R=(T0*)n;
}
oBC604tmp_tail=R;}/*PCO*/
{T0* R=NULL;
{T675*n=malloc(sizeof(*n));
*n=M675;
/*[IRF3.1make*//*]*/
R=(T0*)n;
}
oBC817tmp_file_read=R;}/*PCO*/
{T0* R=NULL;
{T927*n=malloc(sizeof(*n));
*n=M927;
r927with_capacity(n,2048);
R=(T0*)n;
}
oBC676text=R;}/*PCO*/
{T0* R=NULL;
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,256);
R=(T0*)n;
}
oBC762last_string=R;}/*PCO*/
{T0* R=NULL;
{T226*n=malloc(sizeof(*n));
*n=M226;
r226with_capacity(n,512);
R=(T0*)n;
}
oBC672tmp_buckets=R;}/*PCO*/
r829make(n);
exit(0);}}
T7*ms1_829;
T7*ms2_829;
T7*ms2_364;
T7*ms39_364;
T7*ms3_364;
T7*ms10_604;
T7*ms137_470;
T7*ms13_604;
T7*ms14_604;
T7*ms15_604;
T7*ms16_604;
T7*ms17_604;
T7*ms25_364;
T7*ms11_604;
T7*ms12_604;
T7*ms62_604;
T7*ms2_604;
T7*ms3_604;
T7*ms126_470;
T7*ms3_306;
T7*ms4_306;
T7*ms20_364;
T7*ms127_470;
T7*ms21_364;
T7*ms1_364;
T7*ms24_364;
T7*ms242_470;
T7*ms22_364;
T7*ms23_364;
T7*ms13_364;
T7*ms14_364;
T7*ms15_364;
T7*ms16_364;
T7*ms17_364;
T7*ms18_364;
T7*ms19_364;
T7*ms4_604;
T7*ms5_604;
T7*ms63_604;
T7*ms121_470;
T7*ms64_604;
T7*ms66_604;
T7*ms67_604;
T7*ms65_604;
T7*ms3_829;
void se_msi1(void){
ms1_829=se_ms(29,"Bad use of command `finder\'.\n");
ms2_829=se_ms(6,"finder");
ms2_364=se_ms(3,"man");
ms39_364=se_ms(4,".txt");
ms3_364=se_ms(26,"Unable to find help file \"");
ms10_604=se_ms(35,"Bad \"rename.se\" file.\nCannot open \"");
ms137_470=se_ms(2,"\".");
ms13_604=se_ms(9,"rename.se");
ms14_604=se_ms(20,"Multiple entry for \"");
ms15_604=se_ms(36,"\" in \"rename.se\" files.\nClash for \n\"");
ms16_604=se_ms(8,"\" and \n\"");
ms17_604=se_ms(2,".\n");
ms25_364=se_ms(2,".e");
ms11_604=se_ms(31,"Unable to find file for class \"");
ms12_604=se_ms(3,"\". ");
ms62_604=se_ms(19,"\nLoading path is :\n");
ms2_604=se_ms(11,"loadpath.se");
ms3_604=se_ms(9,"loadpath.");
ms126_470=se_ms(3,"sys");
}
void se_msi2(void){
ms3_306=se_ms(18,"Try to read file \"");
ms4_306=se_ms(3,"\".\n");
ms20_364=se_ms(21,"Unable to find file\n\"");
ms127_470=se_ms(9,"system.se");
ms21_364=se_ms(14,"\" using path \"");
ms1_364=se_ms(31,"/usr/local/logiciel/SmallEiffel");
ms24_364=se_ms(11,"System is \"");
ms242_470=se_ms(3,"\".\n");
ms22_364=se_ms(29,"Unknown system name in file\n\"");
ms23_364=se_ms(36,"\".\nCurrently handled system names :\n");
ms13_364=se_ms(5,"Amiga");
ms14_364=se_ms(3,"DOS");
ms15_364=se_ms(9,"Macintosh");
ms16_364=se_ms(3,"OS2");
ms17_364=se_ms(4,"UNIX");
ms18_364=se_ms(3,"VMS");
ms19_364=se_ms(7,"Windows");
ms4_604=se_ms(23,"No default path (file \"");
ms5_604=se_ms(14,"\" not found).\n");
ms63_604=se_ms(22,"Environment Variable \"");
}
void se_msi3(void){
ms121_470=se_ms(11,"SmallEiffel");
ms64_604=se_ms(5,"\" is\n");
ms66_604=se_ms(8,"set to \"");
ms67_604=se_ms(3,"\". ");
ms65_604=se_ms(9,"not set. ");
ms3_829=se_ms(13,": not found.\n");
}
T7*se_ms(int c,char*e){
T7*s=malloc(sizeof(T7));
s->_count=c;
s->_capacity=c+1;
s->_storage=malloc(c+1);
memcpy(s->_storage,e,c);
return s;}
T7*e2s(char*e){
return se_ms(strlen(e),e);}
char*s2e(T7*s){
char*e=malloc(1+s->_count);
memcpy(e,s->_storage,s->_count);
e[s->_count]='\0';
return e;}
void*se_ma52(int argc,...){
T52*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M52;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void rsp(void){
printf("Eiffel program crash at run time.\n");
printf("No trace when using option \"-boost\"\n");}
void sigrsp(int sig){
printf("Received signal %d (man signal).\n",sig);
rsp();
exit(1);}
void se_initialize(void){
}