/*
-- 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 "short.h"
/*No:LOOP_INVARIANT.fz_bad_assertion*/
T0* r213runnable(T0* a1,T0* a2,T0* a3){
T0* R=NULL;
T0* _a=NULL;
int _i=0;
/*IF*/if (!(r608empty(((T608*)a1)))) {
R=r608twin(((T608*)a1));
_i=(((T608*)((T608*)R)))->_upper/*8*/;
while (!((_i)==(0))) {
r604push(((T604*)(oBC364small_eiffel)),a3);
_a=r348to_runnable(((T348*)(r608item(((T608*)R),_i))),a2);
/*IF*/if ((_a)==((void*)(NULL))) {
r213error(r348start_position(((T348*)(r608item(((T608*)R),_i)))),((T0*)ms57_470));
}
else {
/*[IRF3.6put*/{T608* C1=((T608*)R);
T0* b1=_a;
int b2=_i;
((((T608*)C1))->_storage/*0*/)[(b2)-((((T608*)C1))->_lower/*12*/)]=(b1);
}/*]*/
}
/*FI*/r604pop(((T604*)(oBC364small_eiffel)));
_i=(_i)-(1);
}
}
/*FI*/return R;
}
void r213make(T213* C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}
/*No:LOOP_INVARIANT.nb_errors*/
/*No:LOOP_INVARIANT.start_position*/
T0* r213to_runnable(T213* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T213*)C))->_current_type/*12*/)==((void*)(NULL))) {
C->_current_type=a1;
/*IF*/if (((((T213*)C))->_list/*8*/)!=((void*)(NULL))) {
C->_list=r213runnable((((T213*)C))->_list/*8*/,a1,r604top_rf(((T604*)(oBC364small_eiffel))));
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
R=r213twin(C);
/*[IRF3.3set_current_type*/((((T213*)(((T213*)R))))->_current_type)=(NULL);
/*]*/
R=r213to_runnable(((T213*)R),a1);
}
/*FI*/return R;
}
T0* r213twin(T213* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T213*)R)=*C;
return R;
}
/*No:LOOP_INVARIANT.set_current_type*/
/*No:LOOP_INVARIANT.list*/
/*No:LOOP_INVARIANT.current_type*/
/*No:LOOP_INVARIANT.header_comment*/
void r213error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
int fBC364type_character_ref=0;
T0*oBC364type_character_ref=NULL;
T0* r252type_character_ref(void){
if (fBC364type_character_ref==0){
T0* R=NULL;
T0* _character_ref=NULL;
fBC364type_character_ref=1;
{T451*n=malloc(sizeof(*n));
*n=M451;
r451make(n,((T0*)ms9_473),NULL);
_character_ref=(T0*)n;
}
{T657*n=malloc(sizeof(*n));
*n=M657;
/*[IRF3.3make*/((((T657*)(n)))->_base_class_name)=(_character_ref);
/*]*/
R=(T0*)n;
}
oBC364type_character_ref=R;}
return oBC364type_character_ref;}
void r252short(T252* C){
r580hook(((T580*)(oBC364short_print)),((T0*)ms1_291));
/*[IRF3.6short_hook*/{T252* C1=C;
r580a_class_name(((T580*)(oBC364short_print)),(((T252*)C1))->_base_class_name/*4*/);
}/*]*/
r580hook(((T580*)(oBC364short_print)),((T0*)ms2_291));
}
int r252has_creation(T252* C,T0* a1){
int R=0;
r683add_position(X776start_position(a1));
r252error(/*(IRF4.6start_position*/(((T451*)((T451*)((((T252*)C))->_base_class_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms1_84));
return R;
}
/*No:TYPE_CHARACTER.is_anchored*/
/*No:TYPE_CHARACTER.us_character_ref*/
/*No:TYPE_CHARACTER.is_array*/
int r252is_a(T252* C,T0* a1){
int R=0;
/*IF*/if (X291is_character(a1)) {
R=1;
}
else {
R=r605is_subclass_of(((T605*)(r252base_class(C))),X291base_class(a1));
/*IF*/if (R) {
r252used_as_reference();
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
r683add_type((T0*)C,((T0*)ms71_470));
r683add_type(a1,((T0*)ms67_470));
}
/*FI*/return R;
}
/*No:TYPE_CHARACTER.run_type*/
/*No:TYPE_CHARACTER.is_pointer*/
/*No:TYPE_CHARACTER.is_string*/
/*No:TYPE_CHARACTER.is_like_feature*/
/*No:TYPE_CHARACTER.is_like_current*/
void r252make(T252* C,T0* a1){
{T451*n=malloc(sizeof(*n));
*n=M451;
r451make(n,((T0*)ms8_473),a1);
C->_base_class_name=(T0*)n;
}
}
/*No:TYPE_CHARACTER.nb_errors*/
/*No:TYPE_CHARACTER.us_item*/
void r252load_ref(T0* a1){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _cn=NULL;
{T451*n=malloc(sizeof(*n));
*n=M451;
r451make(n,a1,NULL);
_cn=(T0*)n;
}
_rc=r605run_class(((T605*)(r451base_class(((T451*)_cn)))));
r368set_at_run_time(((T368*)_rc));
_rf=r368get_feature_with(((T368*)_rc),((T0*)ms86_473));
}
int fBC252check_type=0;
void r252check_type(T252* C){
if (fBC252check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
fBC252check_type=1;
_bc=r252base_class(C);
/*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
_rc=r252run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
/*IF*/if (!((((T605*)((T605*)_bc)))->_is_expanded/*20*/)) {
r252error(/*(IRF4.6start_position*/(((T451*)((T451*)((((T252*)C))->_base_class_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms1_252));
}
/*FI*/}
/*FI*/}}
/*No:TYPE_CHARACTER.start_position*/
/*No:TYPE_CHARACTER.fz_inako*/
/*No:TYPE_CHARACTER.is_character*/
T0* r252written_mark(void){
T0* R=NULL;
R=((T0*)ms8_473);
return R;
}
/*No:TYPE_CHARACTER.is_run_type*/
T0* r252to_runnable(T252* C,T0* a1){
T0* R=NULL;
R=(T0*)C;
r252check_type(C);
return R;
}
T0* r252generic_list(T252* C){
T0* R=NULL;
r252fatal_error_generic_list(C);
return R;
}
/*No:TYPE_CHARACTER.is_formal_generic*/
/*No:TYPE_CHARACTER.is_real*/
/*No:TYPE_CHARACTER.us_character*/
/*No:TYPE_CHARACTER.is_bit*/
void r252fatal_error_generic_list(T252* C){
r683add_type((T0*)C,((T0*)ms12_291));
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
T0* r252smallest_ancestor(T252* C,T0* a1){
T0* R=NULL;
T0* _rto=NULL;
_rto=X291run_type(a1);
/*IF*/if (X291is_character(_rto)) {
R=(T0*)C;
}
else {
R=r657smallest_ancestor(((T657*)(r252type_character_ref())),_rto);
}
/*FI*/return R;
}
/*No:TYPE_CHARACTER.is_boolean*/
/*No:TYPE_CHARACTER.is_double*/
T0* r252run_class(T252* C){
T0* R=NULL;
R=r604run_class((T0*)C);
return R;
}
T0* r252run_time_mark(void){
T0* R=NULL;
R=((T0*)ms8_473);
return R;
}
int r252is_a_in(T252* C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if ((r252written_mark())==((void*)(X291written_mark(a1)))) {
R=1;
}
else {
_ct=(((T368*)((T368*)a2)))->_current_type/*0*/;
_t1=r252to_runnable(C,_ct);
_t2=X291to_runnable(a1,_ct);
/*IF*/if ((X291run_time_mark(_t1))==((void*)(X291run_time_mark(_t2)))) {
R=1;
}
else {
R=X291is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
T0* r252look_up_for(T252* C,T0* a1,T0* a2){
T0* R=NULL;
R=r605look_up_for(((T605*)(r252base_class(C))),a1,a2);
return R;
}
/*No:TYPE_CHARACTER.expanded_initializer*/
/*No:TYPE_CHARACTER.fz_dot*/
/*No:TYPE_CHARACTER.is_generic*/
int fBC252used_as_reference=0;
void r252used_as_reference(void){
if (fBC252used_as_reference==0){
fBC252used_as_reference=1;
r252load_ref(((T0*)ms9_473));
}}
/*No:TYPE_CHARACTER.is_reference*/
void r252error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
T0* r252base_class(T252* C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=(((T252*)C))->_base_class_name/*4*/;
/*IF*/if ((_bcn)!=((void*)(NULL))) {
R=r451base_class(((T451*)_bcn));
}
else {
/*[IRF3.6append*/{T0* b1=((T0*)ms3_291);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683add_type((T0*)C,((T0*)ms67_470));
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
/*FI*/return R;
}
/*No:TYPE_CHARACTER.short_hook*/
/*No:TYPE_CHARACTER.is_any*/
/*No:TYPE_CHARACTER.base_class_name*/
/*No:TYPE_CHARACTER.is_expanded*/
/*No:TYPE_CHARACTER.is_basic_eiffel_expanded*/
/*No:TYPE_CHARACTER.is_none*/
/*No:TYPE_CHARACTER.is_integer*/
void r633short(T633* C){
int _i=0;
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms3_633),((T0*)ms4_633));
/*IF*/if (((((T633*)C))->_header_comment/*4*/)==((void*)(NULL))) {
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms5_633),((T0*)ms6_633));
}
else {
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms7_633),((T0*)ms8_633));
r393short(((T393*)((((T633*)C))->_header_comment/*4*/)),((T0*)ms9_633),((T0*)ms10_633),((T0*)ms11_633),((T0*)ms12_633));
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms13_633),((T0*)ms14_633));
}
/*FI*//*IF*/if (((((T633*)C))->_list/*8*/)==((void*)(NULL))) {
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms15_633),((T0*)ms16_633));
}
else {
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms17_633),((T0*)ms18_633));
_i=1;
while (!((_i)==((((T608*)((T608*)((((T633*)C))->_list/*8*/))))->_upper/*8*/))) {
r348short(((T348*)(r608item(((T608*)((((T633*)C))->_list/*8*/)),_i))),((T0*)ms19_633),((T0*)ms20_633),((T0*)ms21_633),((T0*)ms22_633),((T0*)ms23_633),((T0*)ms24_633),((T0*)ms25_633),((T0*)ms26_633),((T0*)ms27_633),((T0*)ms28_633),((T0*)ms29_633),((T0*)ms30_633),((T0*)ms31_633),((T0*)ms32_633),((T0*)ms33_633),((T0*)ms34_633),((T0*)ms35_633),((T0*)ms36_633),((T0*)ms37_633),((T0*)ms38_633),((T0*)ms39_633),((T0*)ms40_633),((T0*)ms41_633),((T0*)ms42_633),((T0*)ms43_633),((T0*)ms44_633));
_i=(_i)+(1);
}
r348short(((T348*)(r608item(((T608*)((((T633*)C))->_list/*8*/)),_i))),((T0*)ms45_633),((T0*)ms46_633),((T0*)ms47_633),((T0*)ms48_633),((T0*)ms49_633),((T0*)ms50_633),((T0*)ms51_633),((T0*)ms52_633),((T0*)ms53_633),((T0*)ms54_633),((T0*)ms55_633),((T0*)ms56_633),((T0*)ms57_633),((T0*)ms58_633),((T0*)ms59_633),((T0*)ms60_633),((T0*)ms61_633),((T0*)ms62_633),((T0*)ms63_633),((T0*)ms64_633),((T0*)ms65_633),((T0*)ms66_633),((T0*)ms67_633),((T0*)ms68_633),((T0*)ms69_633),((T0*)ms70_633));
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms71_633),((T0*)ms72_633));
}
/*FI*/r580hook_or(((T580*)(oBC364short_print)),((T0*)ms73_633),((T0*)ms74_633));
}
void r633add_into(T633* C,T0* a1){
T0* _a=NULL;
int _i=0;
/*IF*/if (((((T633*)C))->_list/*8*/)!=((void*)(NULL))) {
_i=1;
while (!((_i)>((((T608*)((T608*)((((T633*)C))->_list/*8*/))))->_upper/*8*/))) {
_a=r608item(((T608*)((((T633*)C))->_list/*8*/)),_i);
/*IF*/if (!(r608fast_has(((T608*)a1),_a))) {
r608add_last(((T608*)a1),_a);
}
/*FI*/_i=(_i)+(1);
}
}
/*FI*/}
void r633from_runnable(T633* C,T0* a1){
C->_list=a1;
C->_current_type=(((T348*)((T348*)(r608item(((T608*)((((T633*)C))->_list/*8*/)),1)))))->_current_type/*12*/;
}
void r633make(T633* C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}
/*No:E_ENSURE.set_header_comment*/
/*No:E_ENSURE.start_position*/
/*No:E_ENSURE.set_ensure_then*/
/*No:E_ENSURE.list*/
/*No:E_ENSURE.current_type*/
/*No:E_ENSURE.is_ensure_then*/
/*No:E_ENSURE.header_comment*/
void r283short(T283* C){
r580hook(((T580*)(oBC364short_print)),((T0*)ms1_291));
/*[IRF3.6short_hook*/{T283* C1=C;
r580a_class_name(((T580*)(oBC364short_print)),(((T283*)C1))->_formal_name/*4*/);
}/*]*/
r580hook(((T580*)(oBC364short_print)),((T0*)ms2_291));
}
int r283has_creation(T283* C,T0* a1){
int R=0;
/*IF*/if ((C)==((void*)((((T283*)C))->_run_type/*12*/))) {
R=r605has_creation(((T605*)(r283base_class(C))),a1);
}
else {
R=X291has_creation((((T283*)C))->_run_type/*12*/,a1);
}
/*FI*/return R;
}
/*No:TYPE_FORMAL_GENERIC.is_anchored*/
int r283is_array(T283* C){
int R=0;
R=X291is_array((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_a(T283* C,T0* a1){
int R=0;
R=X291is_a((((T283*)C))->_run_type/*12*/,a1);
return R;
}
int r283is_pointer(T283* C){
int R=0;
R=X291is_pointer((((T283*)C))->_run_type/*12*/);
return R;
}
/*No:TYPE_FORMAL_GENERIC.run_type*/
int r283is_string(T283* C){
int R=0;
R=X291is_string((((T283*)C))->_run_type/*12*/);
return R;
}
/*No:TYPE_FORMAL_GENERIC.is_like_feature*/
/*No:TYPE_FORMAL_GENERIC.is_like_current*/
void r283make(T283* C,T0* a1,int a2){
C->_rank=a2;
C->_formal_name=a1;
}
/*No:TYPE_FORMAL_GENERIC.formal_name*/
/*No:TYPE_FORMAL_GENERIC.start_position*/
int r283is_character(T283* C){
int R=0;
R=X291is_character((((T283*)C))->_run_type/*12*/);
return R;
}
/*No:TYPE_FORMAL_GENERIC.written_mark*/
/*No:TYPE_FORMAL_GENERIC.is_run_type*/
T0* r283to_runnable(T283* C,T0* a1){
T0* R=NULL;
T0* _gl=NULL;
T0* _t=NULL;
T0* _p=NULL;
T0* _bc_ct=NULL;
T0* _bc_written=NULL;
_bc_written=r627base_class(((T627*)(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/)));
_bc_ct=X291base_class(a1);
/*IF*/if ((_bc_written)==((void*)(_bc_ct))) {
_gl=X291generic_list(a1);
/*IF*/if (((_gl)==((void*)(NULL)))||(((((T283*)C))->_rank/*8*/)>((((T701*)((T701*)_gl)))->_upper/*8*/))) {
r683add_position(X291start_position(a1));
r683add_position(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/);
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms61_470);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
else {
R=r283make_runnable(C,r701item(((T701*)_gl),(((T283*)C))->_rank/*8*/));
}
/*FI*/}
else {
_p=/*(IRF4.6first_parent_for*/r686first_parent_for(((T686*)((((T605*)((T605*)_bc_ct)))->_parent_list/*40*/)),_bc_written)/*)*/;
while (!((_p)==((void*)(NULL)))) {
_t=(((T877*)((T877*)_p)))->_type/*4*/;
_t=X291run_type(X291to_runnable(_t,a1));
/*IF*/if ((R)==((void*)(NULL))) {
R=r283to_runnable(C,_t);
_p=NULL;
}
else {
_p=/*(IRF4.6next_parent_for*/r686next_parent_for(((T686*)((((T605*)((T605*)_bc_ct)))->_parent_list/*40*/)),_bc_written,_p)/*)*/;
}
/*FI*/}
/*IF*/if ((R)==((void*)(NULL))) {
r683add_type(a1,((T0*)ms1_283));
r283warning(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms2_283));
}
/*FI*/}
/*FI*/return R;
}
/*No:TYPE_FORMAL_GENERIC.rank*/
T0* r283generic_list(T283* C){
T0* R=NULL;
/*IF*/if (r283is_generic(C)) {
R=X291generic_list((((T283*)C))->_run_type/*12*/);
}
else {
r283fatal_error_generic_list(C);
}
/*FI*/return R;
}
/*No:TYPE_FORMAL_GENERIC.is_formal_generic*/
int r283is_real(T283* C){
int R=0;
R=X291is_real((((T283*)C))->_run_type/*12*/);
return R;
}
T0* r283twin(T283* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T283*)R)=*C;
return R;
}
/*No:TYPE_FORMAL_GENERIC.fz_bnga*/
T0* r283formal_arg(T283* C){
T0* R=NULL;
R=/*(IRF4.6item*/r681item(((T681*)((((T881*)((T881*)(r283formal_generic_list(C)))))->_list/*4*/)),(((T283*)C))->_rank/*8*/)/*)*/;
return R;
}
int r283is_bit(T283* C){
int R=0;
R=X291is_bit((((T283*)C))->_run_type/*12*/);
return R;
}
void r283fatal_error_generic_list(T283* C){
r683add_type((T0*)C,((T0*)ms12_291));
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
T0* r283smallest_ancestor(T283* C,T0* a1){
T0* R=NULL;
R=X291smallest_ancestor((((T283*)C))->_run_type/*12*/,a1);
return R;
}
/*No:TYPE_FORMAL_GENERIC.set_run_type*/
int r283is_boolean(T283* C){
int R=0;
R=X291is_boolean((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_double(T283* C){
int R=0;
R=X291is_double((((T283*)C))->_run_type/*12*/);
return R;
}
T0* r283run_class(T283* C){
T0* R=NULL;
R=r604run_class((((T283*)C))->_run_type/*12*/);
return R;
}
T0* r283run_time_mark(T283* C){
T0* R=NULL;
R=X291run_time_mark((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_a_in(T283* C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if ((/*(IRF4.6written_mark*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_to_string/*0*//*)*/)==((void*)(X291written_mark(a1)))) {
R=1;
}
else {
_ct=(((T368*)((T368*)a2)))->_current_type/*0*/;
_t1=r283to_runnable(C,_ct);
_t2=X291to_runnable(a1,_ct);
/*IF*/if ((X291run_time_mark(_t1))==((void*)(X291run_time_mark(_t2)))) {
R=1;
}
else {
R=X291is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
T0* r283look_up_for(T283* C,T0* a1,T0* a2){
T0* R=NULL;
R=r605look_up_for(((T605*)(r283base_class(C))),a1,a2);
return R;
}
T0* r283constraint(T283* C){
T0* R=NULL;
R=(((T33*)((T33*)(r283formal_arg(C)))))->_constraint/*4*/;
return R;
}
T0* r283expanded_initializer(T283* C){
T0* R=NULL;
R=X291expanded_initializer((((T283*)C))->_run_type/*12*/);
return R;
}
/*No:TYPE_FORMAL_GENERIC.fz_dot*/
int r283is_generic(T283* C){
int R=0;
R=X291is_generic((((T283*)C))->_run_type/*12*/);
return R;
}
/*No:TYPE_FORMAL_GENERIC.fz_bga*/
/*No:TYPE_FORMAL_GENERIC.used_as_reference*/
T0* r283formal_generic_list(T283* C){
T0* R=NULL;
R=(((T605*)((T605*)(r627base_class(((T627*)(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/)))))))->_formal_generic_list/*28*/;
return R;
}
int r283is_reference(T283* C){
int R=0;
R=X291is_reference((((T283*)C))->_run_type/*12*/);
return R;
}
void r283error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
T0* r283base_class(T283* C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=r283base_class_name(C);
/*IF*/if ((_bcn)!=((void*)(NULL))) {
R=r451base_class(((T451*)_bcn));
}
else {
/*[IRF3.6append*/{T0* b1=((T0*)ms3_291);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683add_type((T0*)C,((T0*)ms67_470));
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
/*FI*/return R;
}
/*No:TYPE_FORMAL_GENERIC.fatal_error*/
/*No:TYPE_FORMAL_GENERIC.short_hook*/
int r283is_any(T283* C){
int R=0;
R=X291is_any((((T283*)C))->_run_type/*12*/);
return R;
}
T0* r283base_class_name(T283* C){
T0* R=NULL;
R=X291base_class_name((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_expanded(T283* C){
int R=0;
R=X291is_expanded((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_basic_eiffel_expanded(T283* C){
int R=0;
R=X291is_basic_eiffel_expanded((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_none(T283* C){
int R=0;
R=X291is_none((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_integer(T283* C){
int R=0;
R=X291is_integer((((T283*)C))->_run_type/*12*/);
return R;
}
void r283warning(T0* a1,T0* a2){
r683add_position(a1);
r683warning(((T683*)(oBC364eh)),a2);
}
T0* r283make_runnable(T283* C,T0* a1){
T0* R=NULL;
T0* _rt2=NULL;
_rt2=X291run_type(a1);
/*IF*/if ((_rt2)==((void*)(NULL))) {
/*IF*/if ((a1)!=((void*)(NULL))) {
r683add_position(X291start_position(a1));
}
/*FI*/r283error(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms59_470));
}
 else if (((((T283*)C))->_run_type/*12*/)==((void*)(NULL))) {
C->_run_type=_rt2;
R=(T0*)C;
}
else {
R=r283twin(C);
/*[IRF3.3set_run_type*/((((T283*)(((T283*)R))))->_run_type)=(_rt2);
/*]*/
}
/*FI*/return R;
}
void r33short(T33* C){
r580a_class_name(((T580*)(oBC364short_print)),(((T33*)C))->_name/*0*/);
/*IF*/if (/*(IRF4.7constrained*/((((T33*)C))->_constraint/*4*/)!=(NULL)/*)*/) {
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms2_33),((T0*)ms3_33));
X291short((((T33*)C))->_constraint/*4*/);
}
/*FI*/}
void r33make(T33* C,T0* a1,T0* a2){
C->_name=a1;
C->_constraint=a2;
}
/*No:FORMAL_GENERIC_ARG.name*/
/*No:FORMAL_GENERIC_ARG.start_position*/
/*No:FORMAL_GENERIC_ARG.constrained*/
/*No:FORMAL_GENERIC_ARG.constraint*/
/*No:CALL_INFIX_PLUS.arguments*/
void r253short(T253* C){
/*IF*/if ((X662precedence((((T253*)C))->_target/*8*/))==(13)) {
X662short((((T253*)C))->_target/*8*/);
/*[IRF3.6short_print_feature_name*/{T253* C1=C;
r580a_infix_name(((T580*)(oBC364short_print)),((T0*)ms2_618),((T0*)ms3_618),((T0*)ms4_618),((T0*)ms5_618),(((T253*)C1))->_feature_name/*24*/);
}/*]*/
/*IF*/if ((X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/))==(13)) {
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/);
}
 else if ((7)>=(X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/))) {
X662bracketed_short(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
 else if ((X662precedence((((T253*)C))->_target/*8*/))<(7)) {
X662bracketed_short((((T253*)C))->_target/*8*/);
/*[IRF3.6short_print_feature_name*/{T253* C1=C;
r580a_infix_name(((T580*)(oBC364short_print)),((T0*)ms2_618),((T0*)ms3_618),((T0*)ms4_618),((T0*)ms5_618),(((T253*)C1))->_feature_name/*24*/);
}/*]*/
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662short((((T253*)C))->_target/*8*/);
/*[IRF3.6short_print_feature_name*/{T253* C1=C;
r580a_infix_name(((T580*)(oBC364short_print)),((T0*)ms2_618),((T0*)ms3_618),((T0*)ms4_618),((T0*)ms5_618),(((T253*)C1))->_feature_name/*24*/);
}/*]*/
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
T0* r253add_comment(T253* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
else {
{T529*n=malloc(sizeof(*n));
*n=M529;
r529make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/return R;
}
int r253to_integer(T253* C){
int R=0;
r253error(/*(IRF4.6start_position*/(((T454*)((T454*)((((T253*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/,((T0*)ms69_470));
return R;
}
void r253bracketed_short(T253* C){
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms6_662),((T0*)ms7_662));
r253short(C);
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms8_662),((T0*)ms9_662));
}
int r253is_a(T253* C,T0* a1){
int R=0;
R=X291is_a(X291run_type((((T253*)C))->_result_type/*16*/),X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position(/*(IRF4.6start_position*/(((T454*)((T454*)((((T253*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/);
r253error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:CALL_INFIX_PLUS.is_current*/
void r253make(T253* C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((a3)==((void*)(NULL)))) {
r683add_position(a2);
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_618);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/{T454*n=malloc(sizeof(*n));
*n=M454;
r454make(n,r253operator(),a2);
C->_feature_name=(T0*)n;
}
{T431*n=malloc(sizeof(*n));
*n=M431;
/*[IRF3.3make*/((((T431*)(n)))->_list)=(se_ma96(1,a3));
/*]*/
_eal=(T0*)n;
}
r253make_call_1(C,a1,(((T253*)C))->_feature_name/*24*/,_eal);
}
/*No:CALL_INFIX_PLUS.nb_errors*/
/*No:CALL_INFIX_PLUS.feature_name*/
/*No:CALL_INFIX_PLUS.fz_iinaiv*/
/*No:CALL_INFIX_PLUS.run_feature*/
/*No:CALL_INFIX_PLUS.start_position*/
/*No:CALL_INFIX_PLUS.target*/
/*No:CALL_INFIX_PLUS.precedence*/
T0* r253to_runnable(T253* C,T0* a1){
T0* R=NULL;
T0* _tla=NULL;
T0* _a=NULL;
/*IF*/if (((((T253*)C))->_current_type/*4*/)==((void*)(NULL))) {
r253to_runnable_0(C,a1);
_a=r431to_runnable(((T431*)((((T253*)C))->_arguments/*20*/)),a1);
/*IF*/if ((_a)==((void*)(NULL))) {
r253error(X662start_position(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/),((T0*)ms55_470));
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
r431match_with(((T431*)((((T253*)C))->_arguments/*20*/)),(((T253*)C))->_run_feature/*12*/);
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
_tla=(((T253*)C))->_result_type/*16*/;
if(NULL!=(_tla))switch(((T0*)_tla)->id) {
case 239: 
break;
default:
_tla=NULL;
};/*IF*/if ((_tla)!=((void*)(NULL))) {
C->_result_type=X291run_type(X662result_type(/*(IRF4.6arg1*/r431first(((T431*)((((T253*)C))->_arguments/*20*/)))/*)*/));
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
R=r253twin(C);
/*[IRF3.3set_current_type*/((((T253*)(((T253*)R))))->_current_type)=(NULL);
/*]*/
R=r253to_runnable(((T253*)R),a1);
}
/*FI*/return R;
}
/*No:CALL_INFIX_PLUS.short_print_feature_name*/
/*No:CALL_INFIX_PLUS.result_type*/
T0* r253twin(T253* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T253*)R)=*C;
return R;
}
/*No:CALL_INFIX_PLUS.set_current_type*/
T0* r253operator(void){
T0* R=NULL;
R=((T0*)ms43_473);
return R;
}
/*No:CALL_INFIX_PLUS.atomic_precedence*/
/*No:CALL_INFIX_PLUS.current_type*/
void r253make_call_1(T253* C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
/*No:CALL_INFIX_PLUS.is_manifest_string*/
/*No:CALL_INFIX_PLUS.is_void*/
void r253to_runnable_0(T253* C,T0* a1){
C->_current_type=a1;
r253cpc_to_runnable(C,a1);
C->_result_type=/*X496*/((T0*)(((T808*)((T808*)((((T253*)C))->_run_feature/*12*/))))->_result_type/*24*/);
/*IF*/if (((((T253*)C))->_result_type/*16*/)==((void*)(NULL))) {
r683add_position(X496start_position((((T253*)C))->_run_feature/*12*/));
r253error((((T454*)((T454*)((((T253*)C))->_feature_name/*24*/))))->_start_position/*8*/,((T0*)ms1_295));
}
 else if (X291is_like_current((((T253*)C))->_result_type/*16*/)) {
C->_result_type=X662result_type((((T253*)C))->_target/*8*/);
}
/*FI*/}
void r253cpc_to_runnable(T253* C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=X662to_runnable((((T253*)C))->_target/*8*/,a1);
/*IF*/if ((_t)==((void*)(NULL))) {
r683add_position(X662start_position((((T253*)C))->_target/*8*/));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_135);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/C->_target=_t;
_rc=X291run_class(X662result_type((((T253*)C))->_target/*8*/));
C->_run_feature=r368get_rf(((T368*)_rc),(T0*)C);
r576update((((T253*)C))->_target/*8*/,(((T253*)C))->_run_feature/*12*/);
}
void r253error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:CALL_INFIX_PLUS.fatal_error*/
/*No:CALL_INFIX_PLUS.fz_bad_argument*/
/*No:CALL_INFIX_PLUS.us_plus*/
void r253short_target(T253* C){
r253bracketed_short(C);
/*[IRF3.6a_dot*/{T580* C1=((T580*)(oBC364short_print));
r580hook_or(C1,((T0*)ms58_580),((T0*)ms67_470));
}/*]*/
}
/*No:CALL_INFIX_PLUS.arg1*/
/*No:PARENT.us_none*/
void r877multiple_check(T877* C,T0* a1){
T0* _fn2=NULL;
T0* _fn1=NULL;
int _i=0;
T0* _bc2=NULL;
T0* _bc1=NULL;
_bc1=X291base_class((((T877*)C))->_type/*4*/);
_bc2=X291base_class((((T877*)((T877*)a1)))->_type/*4*/);
/*IF*/if ((((_bc1)==((void*)(_bc2)))||(r605is_subclass_of(((T605*)_bc1),_bc2)))||(r605is_subclass_of(((T605*)_bc2),_bc1))) {
/*IF*/if (((((T877*)C))->_redefine_list/*24*/)!=((void*)(NULL))) {
_i=/*(IRF4.6count*/(((T855*)((T855*)((((T953*)((T953*)((((T877*)C))->_redefine_list/*24*/))))->_list/*0*/))))->_upper/*8*//*)*/;
while (!((_i)==(0))) {
_fn1=/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T877*)C))->_redefine_list/*24*/))))->_list/*0*/)),_i)/*)*/;
/*IF*/if (((((T877*)((T877*)a1)))->_rename_list/*12*/)==((void*)(NULL))) {
}
 else if (r644affect(((T644*)((((T877*)((T877*)a1)))->_rename_list/*12*/)),_fn1)) {
_fn2=r644to_new_name(((T644*)((((T877*)((T877*)a1)))->_rename_list/*12*/)),_fn1);
/*IF*/if ((_fn2)!=((void*)(_fn1))) {
/*IF*/if (((((T877*)C))->_select_list/*28*/)!=((void*)(NULL))) {
/*IF*/if (r953has(((T953*)((((T877*)C))->_select_list/*28*/)),_fn1)) {
/*IF*/if (((((T877*)((T877*)a1)))->_select_list/*28*/)!=((void*)(NULL))) {
/*IF*/if (r953has(((T953*)((((T877*)((T877*)a1)))->_select_list/*28*/)),_fn2)) {
r877select_conflict(_fn1,_fn2);
}
/*FI*/}
/*FI*/}
 else if (((((T877*)((T877*)a1)))->_select_list/*28*/)==((void*)(NULL))) {
r877missing_select(_fn1,_fn2);
}
 else if (!(r953has(((T953*)((((T877*)((T877*)a1)))->_select_list/*28*/)),_fn2))) {
r877missing_select(_fn1,_fn2);
}
/*FI*/}
 else if (((((T877*)((T877*)a1)))->_select_list/*28*/)==((void*)(NULL))) {
r877missing_select(_fn1,_fn2);
}
 else if (!(r953has(((T953*)((((T877*)((T877*)a1)))->_select_list/*28*/)),_fn2))) {
r877missing_select(_fn1,_fn2);
}
/*FI*/}
/*FI*/}
/*FI*/_i=(_i)-(1);
}
}
/*FI*/}
/*FI*/}
/*No:PARENT.us_integer*/
void r877get_started(T877* C,T0* a1){
int _all_check=0;
T0* _new_fn=NULL;
T0* _old_fn=NULL;
T0* _fn=NULL;
T0* _pbc=NULL;
T0* _wbc=NULL;
int _i=0;
_all_check=r590all_check(((T590*)(oBC364run_control)));
C->_parent_list=a1;
_pbc=X291base_class((((T877*)C))->_type/*4*/);
_wbc=(((T686*)((T686*)((((T877*)C))->_parent_list/*0*/))))->_base_class/*0*/;
/*IF*/if ((_all_check)&&(((((T877*)C))->_rename_list/*12*/)!=((void*)(NULL)))) {
r644get_started(((T644*)((((T877*)C))->_rename_list/*12*/)),_pbc);
}
/*FI*//*IF*/if ((_all_check)&&(((((T877*)C))->_undefine_list/*20*/)!=((void*)(NULL)))) {
_i=/*(IRF4.6count*/(((T855*)((T855*)((((T953*)((T953*)((((T877*)C))->_undefine_list/*20*/))))->_list/*0*/))))->_upper/*8*//*)*/;
while (!((_i)==(0))) {
_fn=/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T877*)C))->_undefine_list/*20*/))))->_list/*0*/)),_i)/*)*/;
_old_fn=r877get_old_name(C,_fn);
/*IF*/if (((_old_fn)==((void*)(NULL)))&&(!(r605has(((T605*)_pbc),_fn)))) {
r683add_position(X776start_position(_fn));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms9_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/_i=(_i)-(1);
}
}
/*FI*//*IF*/if (((((T877*)C))->_redefine_list/*24*/)!=((void*)(NULL))) {
_i=/*(IRF4.6count*/(((T855*)((T855*)((((T953*)((T953*)((((T877*)C))->_redefine_list/*24*/))))->_list/*0*/))))->_upper/*8*//*)*/;
while (!((_i)==(0))) {
_fn=/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T877*)C))->_redefine_list/*24*/))))->_list/*0*/)),_i)/*)*/;
/*IF*/if (!(r605proper_has(((T605*)_wbc),_fn))) {
r683add_position(X776start_position(_fn));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms10_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*//*IF*/if (_all_check) {
_old_fn=r877get_old_name(C,_fn);
/*IF*/if (((_old_fn)==((void*)(NULL)))&&(!(r605has(((T605*)_pbc),_fn)))) {
r683add_position(X776start_position(_fn));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms11_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/}
/*FI*/_i=(_i)-(1);
}
}
/*FI*//*IF*/if ((_all_check)&&(((((T877*)C))->_select_list/*28*/)!=((void*)(NULL)))) {
_i=/*(IRF4.6count*/(((T855*)((T855*)((((T953*)((T953*)((((T877*)C))->_select_list/*28*/))))->_list/*0*/))))->_upper/*8*//*)*/;
while (!((_i)==(0))) {
_fn=/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T877*)C))->_select_list/*28*/))))->_list/*0*/)),_i)/*)*/;
_old_fn=r877get_old_name(C,_fn);
/*IF*/if (((_old_fn)==((void*)(NULL)))&&(!(r605has(((T605*)_pbc),_fn)))) {
r683add_position(X776start_position(_fn));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms16_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/_new_fn=r877get_new_name(C,_fn);
/*IF*/if ((_new_fn)!=((void*)(NULL))) {
/*IF*/if ((r877get_old_name(C,_new_fn))==((void*)(NULL))) {
r683add_position(X776start_position(_new_fn));
r683add_position(X776start_position(_fn));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms16_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/}
/*FI*/_i=(_i)-(1);
}
}
/*FI*/}
/*No:PARENT.select_list*/
/*No:PARENT.undefine_memory1*/
T0* r877get_new_name(T877* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T877*)C))->_rename_list/*12*/)!=((void*)(NULL))) {
R=r644to_new_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a1);
/*IF*/if ((R)==((void*)(a1))) {
R=NULL;
}
/*FI*/}
/*FI*/return R;
}
T0* r877get_old_name(T877* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T877*)C))->_rename_list/*12*/)!=((void*)(NULL))) {
R=r644to_old_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a1);
/*IF*/if ((R)==((void*)(a1))) {
R=NULL;
}
/*FI*/}
/*FI*/return R;
}
void r877make(T877* C,T0* a1){
C->_type=a1;
/*IF*/if (r52fast_has(((T52*)(oBC877forbidden_parent_list)),X291written_mark((((T877*)C))->_type/*4*/))) {
r683add_position(X291start_position((((T877*)C))->_type/*4*/));
/*[IRF3.6append*/{T0* b1=((T0*)ms1_877);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=X291written_mark((((T877*)C))->_type/*4*/);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/}
/*No:PARENT.rename_list*/
/*No:PARENT.parent_list*/
/*No:PARENT.us_pointer*/
void r877set_select(T877* C,T0* a1){
{T953*n=malloc(sizeof(*n));
*n=M953;
r953make(n,a1);
C->_select_list=(T0*)n;
}
}
/*No:PARENT.type*/
T0* r877going_down(T877* C,T0* a1,T0* a2){
T0* R=NULL;
T0* _previous=NULL;
/*IF*/if (((((T877*)C))->_rename_list/*12*/)==((void*)(NULL))) {
R=a2;
}
else {
R=r644to_new_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a2);
}
/*FI*//*IF*/if (!(r854empty(((T854*)a1)))) {
_previous=r854last(((T854*)a1));
r854remove_last(((T854*)a1));
R=r877going_down(((T877*)_previous),a1,R);
}
/*FI*/return R;
}
/*No:PARENT.set_comment*/
/*No:PARENT.undefine_memory2*/
T0* r877start_position(T877* C){
T0* R=NULL;
R=X291start_position((((T877*)C))->_type/*4*/);
return R;
}
/*No:PARENT.comment*/
T0* r877do_rename(T877* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T877*)C))->_rename_list/*12*/)==((void*)(NULL))) {
R=a1;
}
else {
R=r644to_new_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a1);
}
/*FI*/return R;
}
int r877has_select_for(T877* C,T0* a1){
int R=0;
/*IF*/if (((((T877*)C))->_select_list/*28*/)!=((void*)(NULL))) {
R=r953has(((T953*)((((T877*)C))->_select_list/*28*/)),a1);
}
/*FI*/return R;
}
/*No:PARENT.export_list*/
void r877add_rename(T877* C,T0* a1){
/*IF*/if (((((T877*)C))->_rename_list/*12*/)==((void*)(NULL))) {
{T644*n=malloc(sizeof(*n));
*n=M644;
/*[IRF3.3make*/((((T644*)(n)))->_list)=(se_ma552(1,a1));
/*]*/
C->_rename_list=(T0*)n;
}
}
else {
/*[IRF3.5add_last*/r552add_last(((T552*)((((T644*)((T644*)((((T877*)C))->_rename_list/*12*/))))->_list/*0*/)),a1);
/*]*/
}
/*FI*/}
/*No:PARENT.us_character*/
/*No:PARENT.em1*/
/*No:PARENT.us_real*/
T0* r877up_to_original(T877* C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
T0* _old_name=NULL;
_bc=X291base_class((((T877*)C))->_type/*4*/);
/*IF*/if (((((T877*)C))->_rename_list/*12*/)==((void*)(NULL))) {
R=r605up_to_original(((T605*)_bc),a1,a2);
}
 else if (r644affect(((T644*)((((T877*)C))->_rename_list/*12*/)),a2)) {
_old_name=r644to_old_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a2);
/*IF*/if ((_old_name)!=((void*)(a2))) {
R=r605up_to_original(((T605*)_bc),a1,_old_name);
}
/*FI*/}
else {
R=r605up_to_original(((T605*)_bc),a1,a2);
}
/*FI*/return R;
}
void r877select_conflict(T0* a1,T0* a2){
r683add_position(X776start_position(a1));
r683add_position(X776start_position(a2));
/*[IRF3.6append*/{T0* b1=((T0*)ms14_877);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
T0* r877smallest_ancestor(T877* C,T0* a1){
T0* R=NULL;
/*IF*/if (X291is_generic((((T877*)C))->_type/*4*/)) {
R=X291to_runnable((((T877*)C))->_type/*4*/,a1);
}
else {
R=(((T877*)C))->_type/*4*/;
}
/*FI*/return R;
}
int r877has(T877* C,T0* a1){
int R=0;
/*IF*/if (((((T877*)C))->_rename_list/*12*/)==((void*)(NULL))) {
R=r605has(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),a1);
}
else {
R=r605has(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),r644to_old_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a1));
}
/*FI*/return R;
}
void r877missing_select(T0* a1,T0* a2){
r683add_position(X776start_position(a1));
r683add_position(X776start_position(a2));
/*[IRF3.6append*/{T0* b1=((T0*)ms15_877);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
/*No:PARENT.us_bit*/
/*No:PARENT.fz_09*/
int r877has_redefine(T877* C,T0* a1){
int R=0;
/*IF*/if (((((T877*)C))->_redefine_list/*24*/)!=((void*)(NULL))) {
R=r953has(((T953*)((((T877*)C))->_redefine_list/*24*/)),a1);
}
/*FI*/return R;
}
int r877has_undefine(T877* C,T0* a1){
int R=0;
/*IF*/if (((((T877*)C))->_undefine_list/*20*/)!=((void*)(NULL))) {
R=r953has(((T953*)((((T877*)C))->_undefine_list/*20*/)),a1);
}
/*FI*/return R;
}
T0* r877look_up_for(T877* C,T0* a1,T0* a2){
T0* R=NULL;
T0* _f=NULL;
T0* _fn2=NULL;
/*IF*/if ((((((T877*)C))->_rename_list/*12*/)==((void*)(NULL)))||(!(r644affect(((T644*)((((T877*)C))->_rename_list/*12*/)),a2)))) {
_f=X291look_up_for((((T877*)C))->_type/*4*/,a1,a2);
R=r877apply_undefine(C,_f,a2);
}
else {
_fn2=r644to_old_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a2);
/*IF*/if ((_fn2)!=((void*)(a2))) {
_f=X291look_up_for((((T877*)C))->_type/*4*/,a1,_fn2);
R=r877apply_undefine(C,_f,_fn2);
}
else {
_f=X291look_up_for((((T877*)C))->_type/*4*/,a1,a2);
/*IF*/if ((_f)==((void*)(NULL))) {
r683add_position(X776start_position(a2));
/*[IRF3.6append*/{T0* b1=((T0*)ms143_470);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=X776to_string(a2);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms3_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
T0*oBC877forbidden_parent_list=NULL;
/*No:PARENT.us_boolean*/
/*No:PARENT.us_double*/
T0* r877clients_for(T877* C,T0* a1){
T0* R=NULL;
T0* _old_fn=NULL;
/*IF*/if (((((T877*)C))->_rename_list/*12*/)==((void*)(NULL))) {
/*IF*/if (((((T877*)C))->_export_list/*16*/)==((void*)(NULL))) {
R=r605clients_for(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),a1);
}
else {
R=r671clients_for(((T671*)((((T877*)C))->_export_list/*16*/)),a1);
/*IF*/if ((R)==((void*)(NULL))) {
R=r605clients_for(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),a1);
}
/*FI*/}
/*FI*/}
else {
_old_fn=r644to_old_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a1);
/*IF*/if (((((T877*)C))->_export_list/*16*/)==((void*)(NULL))) {
R=r605clients_for(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),_old_fn);
}
else {
R=r671clients_for(((T671*)((((T877*)C))->_export_list/*16*/)),_old_fn);
/*IF*/if ((R)==((void*)(NULL))) {
R=r605clients_for(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),_old_fn);
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
void r877set_redefine(T877* C,T0* a1){
{T953*n=malloc(sizeof(*n));
*n=M953;
r953make(n,a1);
C->_redefine_list=(T0*)n;
}
}
void r877set_undefine(T877* C,T0* a1){
{T953*n=malloc(sizeof(*n));
*n=M953;
r953make(n,a1);
C->_undefine_list=(T0*)n;
}
}
T0* r877going_up(T877* C,T0* a1,T0* a2,T0* a3){
T0* R=NULL;
T0* _bc=NULL;
_bc=X291base_class((((T877*)C))->_type/*4*/);
/*IF*/if ((_bc)==((void*)(a2))) {
R=r877going_down(C,a1,a3);
}
 else if (r605is_general(((T605*)_bc))) {
R=r877going_down(C,a1,a3);
}
 else if (r605is_subclass_of(((T605*)_bc),a2)) {
r854add_last(((T854*)a1),(T0*)C);
R=r605going_up(((T605*)_bc),a1,a2,a3);
}
/*FI*/return R;
}
void r877collect_for(T877* C,int a1,T0* a2){
T0* _fn2=NULL;
/*IF*/if ((((((T877*)C))->_rename_list/*12*/)==((void*)(NULL)))||(!(r644affect(((T644*)((((T877*)C))->_rename_list/*12*/)),a2)))) {
r605collect_for(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),a1,a2);
}
else {
_fn2=r644to_old_name(((T644*)((((T877*)C))->_rename_list/*12*/)),a2);
/*IF*/if ((_fn2)!=((void*)(a2))) {
r605collect_for(((T605*)(X291base_class((((T877*)C))->_type/*4*/))),a1,_fn2);
}
/*FI*/}
/*FI*/}
int r877is_a_vncg(T877* C,T0* a1,T0* a2){
int R=0;
T0* _t2_bcn=NULL;
T0* _type_bcn=NULL;
T0* _t2_bc=NULL;
T0* _type_bc=NULL;
T0* _rt=NULL;
T0* _tfg=NULL;
T0* _gl2=NULL;
T0* _gl1=NULL;
T0* _gl=NULL;
int _i=0;
int _rank=0;
_type_bc=X291base_class((((T877*)C))->_type/*4*/);
_type_bcn=(((T451*)((T451*)((((T605*)((T605*)_type_bc)))->_base_class_name/*24*/))))->_to_string/*0*/;
_t2_bc=X291base_class(a2);
_t2_bcn=(((T451*)((T451*)((((T605*)((T605*)_t2_bc)))->_base_class_name/*24*/))))->_to_string/*0*/;
/*IF*/if ((_type_bcn)==((void*)(_t2_bcn))) {
_gl=X291generic_list((((T877*)C))->_type/*4*/);
_gl2=X291generic_list(a2);
/*IF*/if (((_gl)==((void*)(NULL)))||((r701count(((T701*)_gl)))!=(r701count(((T701*)_gl2))))) {
r683add_position(X291start_position((((T877*)C))->_type/*4*/));
r683add_position(X291start_position(a2));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms4_877);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*//*IF*/if (X291is_generic(a1)) {
_gl1=X291generic_list(a1);
R=1;
_i=r701count(((T701*)_gl2));
while (!((!(R))||((_i)==(0)))) {
/*IF*/if (X291is_formal_generic(r701item(((T701*)_gl),_i))) {
_tfg=r701item(((T701*)_gl),_i);
if(NULL!=(_tfg))switch(((T0*)_tfg)->id) {
case 283: 
break;
default:
_tfg=NULL;
};_rank=(((T283*)((T283*)_tfg)))->_rank/*8*/;
R=X291is_a(r701item(((T701*)_gl1),_rank),r701item(((T701*)_gl2),_i));
}
else {
_rt=X291run_type(X291to_runnable(r701item(((T701*)_gl),_i),a1));
R=X291is_a(_rt,r701item(((T701*)_gl2),_i));
}
/*FI*/_i=(_i)-(1);
}
}
else {
R=X291is_a((((T877*)C))->_type/*4*/,a2);
}
/*FI*//*IF*/if (!(R)) {
/*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)(((T7*)(oBC683explanation)))))->_count)=(0);
/*]*/
r51clear(((T51*)(oBC683positions)));
/*]*/
}
/*FI*/}
 else if (r605is_subclass_of(((T605*)_type_bc),_t2_bc)) {
/*IF*/if (X291is_generic(a1)) {
_rt=X291run_type(X291to_runnable((((T877*)C))->_type/*4*/,a1));
R=r605is_a_vncg(((T605*)_type_bc),_rt,a2);
}
else {
R=r605is_a_vncg(((T605*)_type_bc),(((T877*)C))->_type/*4*/,a2);
}
/*FI*//*IF*/if (!(R)) {
/*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)(((T7*)(oBC683explanation)))))->_count)=(0);
/*]*/
r51clear(((T51*)(oBC683positions)));
/*]*/
}
/*FI*/}
/*FI*/return R;
}
/*No:PARENT.fatal_error*/
/*No:PARENT.redefine_list*/
/*No:PARENT.us_native_array*/
/*No:PARENT.set_export*/
T0* r877apply_undefine(T877* C,T0* a1,T0* a2){
T0* R=NULL;
int _index=0;
T0* _fnkey=NULL;
/*IF*/if (r877has_undefine(C,a2)) {
_fnkey=X776to_key(a2);
/*IF*/if (((((T877*)C))->_undefine_memory1/*32*/)==((void*)(NULL))) {
C->_undefine_memory1=se_ma52(1,_fnkey);
R=X359try_to_undefine(a1,a2,(((T686*)((T686*)((((T877*)C))->_parent_list/*0*/))))->_base_class/*0*/);
C->_undefine_memory2=se_ma495(1,R);
}
else {
_index=r52fast_index_of(((T52*)((((T877*)C))->_undefine_memory1/*32*/)),_fnkey);
/*IF*/if ((_index)>((((T52*)((T52*)((((T877*)C))->_undefine_memory1/*32*/))))->_upper/*8*/)) {
r52add_last(((T52*)((((T877*)C))->_undefine_memory1/*32*/)),_fnkey);
R=X359try_to_undefine(a1,a2,(((T686*)((T686*)((((T877*)C))->_parent_list/*0*/))))->_base_class/*0*/);
r495add_last(((T495*)((((T877*)C))->_undefine_memory2/*36*/)),R);
}
else {
R=r495item(((T495*)((((T877*)C))->_undefine_memory2/*36*/)),_index);
}
/*FI*/}
/*FI*/}
else {
R=a1;
}
/*FI*/return R;
}
/*No:PARENT.undefine_list*/
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:CALL_INFIX_OR_ELSE.arguments*/
void r278short(T278* C){
/*IF*/if ((X662precedence((((T278*)C))->_target/*8*/))==(13)) {
X662short((((T278*)C))->_target/*8*/);
/*[IRF3.6short_print_feature_name*/{T278* C1=C;
r580a_infix_name(((T580*)(oBC364short_print)),((T0*)ms2_618),((T0*)ms3_618),((T0*)ms4_618),((T0*)ms5_618),(((T278*)C1))->_feature_name/*24*/);
}/*]*/
/*IF*/if ((X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/))==(13)) {
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/);
}
 else if ((4)>=(X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/))) {
X662bracketed_short(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
 else if ((X662precedence((((T278*)C))->_target/*8*/))<(4)) {
X662bracketed_short((((T278*)C))->_target/*8*/);
/*[IRF3.6short_print_feature_name*/{T278* C1=C;
r580a_infix_name(((T580*)(oBC364short_print)),((T0*)ms2_618),((T0*)ms3_618),((T0*)ms4_618),((T0*)ms5_618),(((T278*)C1))->_feature_name/*24*/);
}/*]*/
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662short((((T278*)C))->_target/*8*/);
/*[IRF3.6short_print_feature_name*/{T278* C1=C;
r580a_infix_name(((T580*)(oBC364short_print)),((T0*)ms2_618),((T0*)ms3_618),((T0*)ms4_618),((T0*)ms5_618),(((T278*)C1))->_feature_name/*24*/);
}/*]*/
X662short(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
T0* r278add_comment(T278* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
else {
{T529*n=malloc(sizeof(*n));
*n=M529;
r529make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/return R;
}
int r278to_integer(T278* C){
int R=0;
r278error(/*(IRF4.6start_position*/(((T454*)((T454*)((((T278*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/,((T0*)ms69_470));
return R;
}
void r278bracketed_short(T278* C){
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms6_662),((T0*)ms7_662));
r278short(C);
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms8_662),((T0*)ms9_662));
}
int r278is_a(T278* C,T0* a1){
int R=0;
R=X291is_a(X291run_type((((T278*)C))->_result_type/*16*/),X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position(/*(IRF4.6start_position*/(((T454*)((T454*)((((T278*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/);
r278error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:CALL_INFIX_OR_ELSE.is_current*/
void r278make(T278* C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((a3)==((void*)(NULL)))) {
r683add_position(a2);
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_618);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/{T454*n=malloc(sizeof(*n));
*n=M454;
r454make(n,r278operator(),a2);
C->_feature_name=(T0*)n;
}
{T431*n=malloc(sizeof(*n));
*n=M431;
/*[IRF3.3make*/((((T431*)(n)))->_list)=(se_ma96(1,a3));
/*]*/
_eal=(T0*)n;
}
r278make_call_1(C,a1,(((T278*)C))->_feature_name/*24*/,_eal);
}
/*No:CALL_INFIX_OR_ELSE.nb_errors*/
/*No:CALL_INFIX_OR_ELSE.feature_name*/
/*No:CALL_INFIX_OR_ELSE.fz_iinaiv*/
/*No:CALL_INFIX_OR_ELSE.run_feature*/
/*No:CALL_INFIX_OR_ELSE.start_position*/
/*No:CALL_INFIX_OR_ELSE.us_or_else*/
/*No:CALL_INFIX_OR_ELSE.target*/
/*No:CALL_INFIX_OR_ELSE.precedence*/
T0* r278to_runnable(T278* C,T0* a1){
T0* R=NULL;
T0* _tla=NULL;
T0* _a=NULL;
/*IF*/if (((((T278*)C))->_current_type/*4*/)==((void*)(NULL))) {
r278to_runnable_0(C,a1);
_a=r431to_runnable(((T431*)((((T278*)C))->_arguments/*20*/)),a1);
/*IF*/if ((_a)==((void*)(NULL))) {
r278error(X662start_position(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/),((T0*)ms55_470));
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
r431match_with(((T431*)((((T278*)C))->_arguments/*20*/)),(((T278*)C))->_run_feature/*12*/);
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
_tla=(((T278*)C))->_result_type/*16*/;
if(NULL!=(_tla))switch(((T0*)_tla)->id) {
case 239: 
break;
default:
_tla=NULL;
};/*IF*/if ((_tla)!=((void*)(NULL))) {
C->_result_type=X291run_type(X662result_type(/*(IRF4.6arg1*/r431first(((T431*)((((T278*)C))->_arguments/*20*/)))/*)*/));
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
R=r278twin(C);
/*[IRF3.3set_current_type*/((((T278*)(((T278*)R))))->_current_type)=(NULL);
/*]*/
R=r278to_runnable(((T278*)R),a1);
}
/*FI*/return R;
}
/*No:CALL_INFIX_OR_ELSE.short_print_feature_name*/
/*No:CALL_INFIX_OR_ELSE.result_type*/
T0* r278twin(T278* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T278*)R)=*C;
return R;
}
/*No:CALL_INFIX_OR_ELSE.set_current_type*/
T0* r278operator(void){
T0* R=NULL;
R=((T0*)ms42_473);
return R;
}
/*No:CALL_INFIX_OR_ELSE.atomic_precedence*/
/*No:CALL_INFIX_OR_ELSE.current_type*/
void r278make_call_1(T278* C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
/*No:CALL_INFIX_OR_ELSE.is_manifest_string*/
/*No:CALL_INFIX_OR_ELSE.is_void*/
void r278to_runnable_0(T278* C,T0* a1){
C->_current_type=a1;
r278cpc_to_runnable(C,a1);
C->_result_type=/*X496*/((T0*)(((T808*)((T808*)((((T278*)C))->_run_feature/*12*/))))->_result_type/*24*/);
/*IF*/if (((((T278*)C))->_result_type/*16*/)==((void*)(NULL))) {
r683add_position(X496start_position((((T278*)C))->_run_feature/*12*/));
r278error((((T454*)((T454*)((((T278*)C))->_feature_name/*24*/))))->_start_position/*8*/,((T0*)ms1_295));
}
 else if (X291is_like_current((((T278*)C))->_result_type/*16*/)) {
C->_result_type=X662result_type((((T278*)C))->_target/*8*/);
}
/*FI*/}
void r278cpc_to_runnable(T278* C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=X662to_runnable((((T278*)C))->_target/*8*/,a1);
/*IF*/if ((_t)==((void*)(NULL))) {
r683add_position(X662start_position((((T278*)C))->_target/*8*/));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_135);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/C->_target=_t;
_rc=X291run_class(X662result_type((((T278*)C))->_target/*8*/));
C->_run_feature=r368get_rf(((T368*)_rc),(T0*)C);
r576update((((T278*)C))->_target/*8*/,(((T278*)C))->_run_feature/*12*/);
}
void r278error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:CALL_INFIX_OR_ELSE.fatal_error*/
/*No:CALL_INFIX_OR_ELSE.fz_bad_argument*/
void r278short_target(T278* C){
r278bracketed_short(C);
/*[IRF3.6a_dot*/{T580* C1=((T580*)(oBC364short_print));
r580hook_or(C1,((T0*)ms58_580),((T0*)ms67_470));
}/*]*/
}
/*No:CALL_INFIX_OR_ELSE.arg1*/
void r767short(T767* C){
r580a_prefix_name(((T580*)(oBC364short_print)),(((T767*)C))->_feature_name/*20*/);
/*IF*/if ((X662precedence((((T767*)C))->_target/*8*/))<(11)) {
X662bracketed_short((((T767*)C))->_target/*8*/);
}
else {
X662short((((T767*)C))->_target/*8*/);
}
/*FI*/}
T0* r767add_comment(T767* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
else {
{T529*n=malloc(sizeof(*n));
*n=M529;
r529make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/return R;
}
int r767to_integer(T767* C){
int R=0;
T0* _rf1=NULL;
_rf1=(((T767*)C))->_run_feature/*12*/;
if(NULL!=(_rf1))switch(((T0*)_rf1)->id) {
case 808: 
break;
default:
_rf1=NULL;
};/*IF*/if ((_rf1)==((void*)(NULL))) {
r767error(/*(IRF4.6start_position*/(((T406*)((T406*)((((T767*)C))->_feature_name/*20*/))))->_start_position/*8*//*)*/,((T0*)ms69_470));
}
else {
R=X662to_integer((((T808*)((T808*)_rf1)))->_value/*44*/);
}
/*FI*/return R;
}
void r767bracketed_short(T767* C){
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms6_662),((T0*)ms7_662));
r767short(C);
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms8_662),((T0*)ms9_662));
}
int r767is_a(T767* C,T0* a1){
int R=0;
R=X291is_a(X291run_type((((T767*)C))->_result_type/*16*/),X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position(/*(IRF4.6start_position*/(((T406*)((T406*)((((T767*)C))->_feature_name/*20*/))))->_start_position/*8*//*)*/);
r767error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:CALL_PREFIX_PLUS.is_current*/
void r767make(T767* C,T0* a1,T0* a2){
{T406*n=malloc(sizeof(*n));
*n=M406;
r406make(n,r767operator(),a1);
C->_feature_name=(T0*)n;
}
r767make_call0(C,a2,(((T767*)C))->_feature_name/*20*/);
}
/*No:CALL_PREFIX_PLUS.nb_errors*/
/*No:CALL_PREFIX_PLUS.feature_name*/
/*No:CALL_PREFIX_PLUS.fz_iinaiv*/
/*No:CALL_PREFIX_PLUS.run_feature*/
/*No:CALL_PREFIX_PLUS.start_position*/
/*No:CALL_PREFIX_PLUS.target*/
/*No:CALL_PREFIX_PLUS.precedence*/
T0* r767to_runnable(T767* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T767*)C))->_current_type/*4*/)==((void*)(NULL))) {
r767to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0))&&((X496arg_count((((T767*)C))->_run_feature/*12*/))>(0))) {
r683add_position((((T406*)((T406*)((((T767*)C))->_feature_name/*20*/))))->_start_position/*8*/);
r767error(X496start_position((((T767*)C))->_run_feature/*12*/),((T0*)ms1_752));
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
R=r767twin(C);
/*[IRF3.3set_current_type*/((((T767*)(((T767*)R))))->_current_type)=(NULL);
/*]*/
R=r767to_runnable(((T767*)R),a1);
}
/*FI*/return R;
}
/*No:CALL_PREFIX_PLUS.result_type*/
T0* r767twin(T767* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T767*)R)=*C;
return R;
}
/*No:CALL_PREFIX_PLUS.set_current_type*/