ftp.nice.ch/pub/next/developer/languages/eiffel/SmallEiffel.0.95.N.bs.tar.gz#/SmallEiffel/bin_c/compile_to_c8.c

This is compile_to_c8.c in view mode; [Download] [Up]

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.95)    --      FRANCE
-- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN 
-- University Henri Poincare' - Nancy 1 - email colnet@loria.fr 
-- CRIN (Centre de Recherche en Informatique de Nancy)
-- FRANCE 
*/
#include "compile_to_c.h"
int rT98is_a(T98 *C,T0* a1){
int R=0;
R=XrT58is_a((C)->_run_type,a1);
return R;
}
int rT98has_creation(T98 *C,T0* a1){
int R=0;
R=XrT58has_creation((C)->_run_type,a1);
return R;
}
void rT98make(T98 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms200);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,((T88*)(C)->_like_what)->_to_string);
}
void rT98c_type_in(T98 *C,T0* a1){
XrT58c_type_in((C)->_run_type,a1);
}
int rT99is_run_type(T99 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
T0* rT99run_time_mark(T99 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_type)) {
R=XrT58run_time_mark((C)->_run_type);
}
/*FI*/return R;
}
T0* rT99to_runnable(T99 *C,T0* a1){
T0* R=NULL;
T0* _rc=NULL;
T0* _f=NULL;
T0* _t=NULL;
/*IF*/if (!((C)->_run_type)) {
_rc=XrT58run_class(a1);
_f=XrT58look_up_for(a1,_rc,(C)->_like_what);
/*IF*/if (!(_f)) {
rT99error((C)->_start_position,(T0 *)ms1433);
}
else {
_t=XrT62result_type(_f);
/*IF*/if (!(_t)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(_f));
rT99error((C)->_start_position,(T0 *)ms1434);
}
else {
_t=XrT58to_runnable(_t,a1);
/*IF*/if (!(_t)) {
rT99error((C)->_start_position,(T0 *)ms1435);
}
else {
C->_run_type=XrT58run_type(_t);
R=(T0 *)C;
}
/*FI*/}
/*FI*/}
/*FI*/}
else {
{T99 *n=((T99*)se_new(99));
rT99make(n,(C)->_start_position,(C)->_like_what);
R=(T0 *)n;}
R=rT99to_runnable((T99*)R,a1);
}
/*FI*/return R;
}
void rT99cast_to_ref(T99 *C){
XrT58cast_to_ref((C)->_run_type);
}
void rT99error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
int rT99fast_mapping_c(T99 *C){
int R=0;
R=XrT58fast_mapping_c((C)->_run_type);
return R;
}
int rT99id(T99 *C){
int R=0;
R=((T261*)rT99run_class(C))->_id;
return R;
}
T0* rT99generic_list(T99 *C){
T0* R=NULL;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1452);
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
rT45do_print((T0 *)ms43);
rT45die_with_code(1);
/*)*/return R;
}
int rT99is_reference(T99 *C){
int R=0;
R=XrT58is_reference((C)->_run_type);
return R;
}
T0* rT99look_up_for(T99 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT99base_class(C);
/*IF*/if (((int)_bc)) {
R=rT50look_up_for((T50*)_bc,a1,a2);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms477);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/return R;
}
void rT99mapping_c_in(T99 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT99id(C),a1);
}
void rT99mapping_cast(T99 *C){
rT7copy((T7*)oRBC58tmp_string,(T0 *)ms806);
rT2append_in(rT99id(C),oRBC58tmp_string);
/*IF*/if (rT99is_reference(C)) {
rT7extend((T7*)oRBC58tmp_string,'\52');
}
/*FI*/rT7extend((T7*)oRBC58tmp_string,'\51');
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
T0* rT99run_class(T99 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class((C)->_run_type));
return R;
}
int rT99is_expanded(T99 *C){
int R=0;
R=!(rT99is_reference(C));
return R;
}
T0* rT99smallest_ancestor(T99 *C,T0* a1){
T0* R=NULL;
R=XrT58smallest_ancestor((C)->_run_type,a1);
return R;
}
T0* rT99base_class_name(T99 *C){
T0* R=NULL;
R=XrT58base_class_name((C)->_run_type);
return R;
}
T0* rT99base_class(T99 *C){
T0* R=NULL;
R=rT48base_class((T48*)rT99base_class_name(C));
return R;
}
int rT99is_a_in(T99 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)(C)->_written_mark,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT99to_runnable(C,_ct);
_t2=XrT58to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) {
R=1;
}
else {
R=XrT58is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
int rT99is_a(T99 *C,T0* a1){
int R=0;
R=XrT58is_a((C)->_run_type,a1);
return R;
}
int rT99has_creation(T99 *C,T0* a1){
int R=0;
R=XrT58has_creation((C)->_run_type,a1);
return R;
}
void rT99make(T99 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms201);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT67to_string((C)->_like_what));
}
void rT99c_type_in(T99 *C,T0* a1){
XrT58c_type_in((C)->_run_type,a1);
}
int rT100is_run_type(T100 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
void rT100c_initialize_expanded(T100 *C){
T0* _rf=NULL;
int _i=0;
T0* _wa=NULL;
rT43put_character((T43*)oRBC27cpp,'\173');
_wa=rT261writable_attributes((T261*)rT100run_class(C));
/*IF*/if (((int)_wa)) {
_i=1;
while (!((_i)>(XrT266upper(_wa)))) {
_rf=XrT266item(_wa,_i);
XrT58c_initialize(XrT262result_type(_rf));
_i=(_i)+(1);
/*IF*/if ((_i)<=(XrT266upper(_wa))) {
rT43put_character((T43*)oRBC27cpp,'\54');
}
/*FI*/}
}
/*FI*/rT43put_character((T43*)oRBC27cpp,'\175');
}
void rT100c_initialize(T100 *C){
rT100c_initialize_expanded(C);
}
void rT100fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT100run_time_mark(T100 *C){
T0* R=NULL;
R=((T100*)(C)->_run_type)->_written_mark;
return R;
}
T0* rT100to_runnable(T100 *C,T0* a1){
T0* R=NULL;
T0* _m=NULL;
_m=XrT58to_runnable((C)->_mapped,a1);
/*IF*/if (!((C)->_run_type)) {
R=(T0 *)C;
/*IF*/if (((T0 *)_m)==((T0 *)(C)->_mapped)) {
C->_run_type=(T0 *)C;
}
else {
{T100 *n=((T100*)se_new(100));
rT100make(n,(C)->_start_position,_m);
C->_run_type=(T0 *)n;}
C->_run_type=rT100to_runnable((T100*)(C)->_run_type,a1);
}
/*FI*/rT50check_expanded_with((T50*)rT100base_class((T100*)(C)->_run_type),(C)->_run_type);
rT261set_at_run_time((T261*)rT100run_class(C));
}
 else if (((T0 *)_m)==((T0 *)((T100*)(C)->_run_type)->_mapped)) {
R=(T0 *)C;
}
else {
{T100 *n=((T100*)se_new(100));
rT100make(n,(C)->_start_position,(C)->_mapped);
R=(T0 *)n;}
R=rT100to_runnable((T100*)R,a1);
}
/*FI*/return R;
}
void rT100error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
void rT100cast_to_ref(T100 *C){
rT100cast_to_ref((T100*)(C)->_run_type);
}
int rT100id(T100 *C){
int R=0;
R=((T261*)rT100run_class(C))->_id;
return R;
}
T0* rT100generic_list(T100 *C){
T0* R=NULL;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1452);
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
rT45do_print((T0 *)ms43);
rT45die_with_code(1);
/*)*/return R;
}
T0* rT100look_up_for(T100 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT100base_class(C);
/*IF*/if (((int)_bc)) {
R=rT50look_up_for((T50*)_bc,a1,a2);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms477);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/return R;
}
void rT100mapping_c_in(T100 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT100id(C),a1);
}
void rT100mapping_cast(T100 *C){
rT7copy((T7*)oRBC58tmp_string,(T0 *)ms806);
rT2append_in(rT100id(C),oRBC58tmp_string);
/*IF*//*AF*//*AE*/
/*FI*/rT7extend((T7*)oRBC58tmp_string,'\51');
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
T0* rT100run_class(T100 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class((C)->_run_type));
return R;
}
T0* rT100smallest_ancestor(/*C*/T0* a1){
T0* R=NULL;
rT100fatal_error((T0 *)ms1485);
return R;
}
T0* rT100base_class_name(T100 *C){
T0* R=NULL;
R=XrT58base_class_name((C)->_mapped);
return R;
}
T0* rT100base_class(T100 *C){
T0* R=NULL;
R=rT48base_class((T48*)rT100base_class_name(C));
return R;
}
int rT100is_a_in(T100 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)(C)->_written_mark,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT100to_runnable(C,_ct);
_t2=XrT58to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) {
R=1;
}
else {
R=XrT58is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
void rT100c_struct(T100 *C){
T0* _wa=NULL;
T0* _a=NULL;
int _i=0;
/*(IRF3*/(((T7*)oRBC58tmp_string)->_count)=(0);
/*)*/rT7append((T7*)oRBC58tmp_string,(T0 *)ms767);
rT2append_in(rT100id(C),oRBC58tmp_string);
rT7extend((T7*)oRBC58tmp_string,'\173');
/*IF*//*AF*//*AE*/
/*FI*/_wa=rT261writable_attributes((T261*)rT100run_class(C));
/*IF*/if (((int)_wa)) {
_i=XrT266lower(_wa);
while (!((_i)>(XrT266upper(_wa)))) {
_a=XrT266item(_wa,_i);
XrT58c_type_in(XrT58run_type(XrT262result_type(_a)),oRBC58tmp_string);
rT7append((T7*)oRBC58tmp_string,(T0 *)ms770);
rT7append((T7*)oRBC58tmp_string,XrT67to_string(XrT262name(_a)));
rT7extend((T7*)oRBC58tmp_string,'\73');
_i=(_i)+(1);
}
}
/*FI*/rT7append((T7*)oRBC58tmp_string,(T0 *)ms771);
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
int rT100is_a(T100 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)rT100run_time_mark(C),XrT58run_time_mark(a1));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1503);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms36);
}
/*FI*/return R;
}
int rT100has_creation(T100 *C,T0* a1){
int R=0;
R=rT50has_creation((T50*)rT100base_class(C),a1);
return R;
}
void rT100make(T100 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_mapped=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms203);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT58written_mark((C)->_mapped));
}
void rT100c_typedef(T100 *C){
int _mem_id=0;
_mem_id=rT100id(C);
/*(IRF3*/(((T7*)oRBC58tmp_string)->_count)=(0);
/*)*/rT7append((T7*)oRBC58tmp_string,(T0 *)ms759);
rT2append_in(rT100id(C),oRBC58tmp_string);
rT7append((T7*)oRBC58tmp_string,(T0 *)ms760);
rT2append_in(rT100id(C),oRBC58tmp_string);
rT7append((T7*)oRBC58tmp_string,(T0 *)ms761);
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
void rT100c_type_in(T100 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT100id(C),a1);
}
void rT101c_initialize(T101 *C){
rT101error((C)->_start_position,(T0 *)ms1425);
}
T0* rT101run_type(T101 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT101run_time_mark(T101 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1427);
R=(T0 *)n;}
rT7append((T7*)R,rT2to_string(rT101nb(C)));
return R;
}
T0* rT101to_runnable(T101 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
return R;
}
void rT101cast_to_ref(T101 *C){
XrT58cast_to_ref(rT101run_type(C));
}
void rT101error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
int rT101id(T101 *C){
int R=0;
R=((T261*)rT101run_class(C))->_id;
return R;
}
int rT101nb(T101 *C){
int R=0;
R=((T80*)(C)->_n)->_value;
return R;
}
T0* rT101generic_list(T101 *C){
T0* R=NULL;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1452);
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
rT45do_print((T0 *)ms43);
rT45die_with_code(1);
/*)*/return R;
}
T0* rT101look_up_for(T101 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=/*(IRF4*/rT48base_class((T48*)rT101base_class_name())/*)*/;
/*IF*/if (((int)_bc)) {
R=rT50look_up_for((T50*)_bc,a1,a2);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms477);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/return R;
}
void rT101mapping_c_in(T101 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT101id(C),a1);
}
void rT101mapping_cast(T101 *C){
rT7copy((T7*)oRBC58tmp_string,(T0 *)ms806);
rT2append_in(rT101id(C),oRBC58tmp_string);
/*IF*//*AF*//*AE*/
/*FI*/rT7extend((T7*)oRBC58tmp_string,'\51');
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
T0* rT101run_class(T101 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT101run_type(C)));
return R;
}
T0* rT101smallest_ancestor(T101 *C,T0* a1){
T0* R=NULL;
T0* _other_bit=NULL;
_other_bit=a1;
if ((int)_other_bit) switch (((T0 *)_other_bit)->id) {
case 101: case 103: 
break;
default:
_other_bit = NULL;
};/*IF*/if ((rT101nb(C))<(XrT102nb(_other_bit))) {
R=(T0 *)C;
}
else {
R=a1;
}
/*FI*/return R;
}
T0* rT101written_mark(T101 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1498);
R=(T0 *)n;}
rT7append((T7*)R,rT2to_string(rT101nb(C)));
return R;
}
int ofBC102base_class_name=0;
T0*oRBC102base_class_name;
T0* rT101base_class_name(/*C*/void){
if (ofBC102base_class_name==0){
T0* R=NULL;
ofBC102base_class_name=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms1478,NULL);
R=(T0 *)n;}
oRBC102base_class_name=R;}
return oRBC102base_class_name;}
int rT101is_a_in(T101 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)rT101written_mark(C),XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT101to_runnable(C,_ct);
_t2=XrT58to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) {
R=1;
}
else {
R=XrT58is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
int rT101is_a(T101 *C,T0* a1){
int R=0;
T0* _other_bit=NULL;
/*IF*/if (XrT58is_bit(a1)) {
_other_bit=a1;
if ((int)_other_bit) switch (((T0 *)_other_bit)->id) {
case 101: case 103: 
break;
default:
_other_bit = NULL;
};/*IF*/if ((rT101nb(C))<=(XrT102nb(_other_bit))) {
R=1;
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1503);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms1504);
}
/*FI*/}
/*FI*/return R;
}
int rT101has_creation(/*C*/T0* a1){
int R=0;
return R;
}
void rT101make(T101 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_n=a2;
}
void rT101c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1512);
}
int rT103is_run_type(T103 *C){
int R=0;
R=((C)->_nb)>=(0);
return R;
}
void rT103c_initialize(T103 *C){
rT103error((C)->_start_position,(T0 *)ms1425);
}
T0* rT103run_type(T103 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT103run_time_mark(T103 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1427);
R=(T0 *)n;}
rT7append((T7*)R,rT2to_string((C)->_nb));
return R;
}
T0* rT103to_runnable(T103 *C,T0* a1){
T0* R=NULL;
T0* _run_feature_1=NULL;
T0* _run_feature=NULL;
/*IF*/if (((C)->_nb)==(-(1))) {
_run_feature=XrT67run_feature((C)->_n,a1);
/*IF*/if (!(_run_feature)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1446);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_err_msg((C)->_n));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1448);
rT45print_as_error((T45*)oRBC27eh);
}
else {
_run_feature_1=_run_feature;
if ((int)_run_feature_1) switch (((T0 *)_run_feature_1)->id) {
case 278: 
break;
default:
_run_feature_1 = NULL;
};/*IF*/if (!(_run_feature_1)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1446);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_err_msg((C)->_n));
rT103error(XrT262start_position(_run_feature),(T0 *)ms1449);
}
else {
rT103error((C)->_start_position,(T0 *)ms1450);
/*IF*/if (((C)->_nb)<(0)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1446);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_err_msg((C)->_n));
rT103error(rT278start_position((T278*)_run_feature_1),(T0 *)ms1451);
}
else {
R=(T0 *)C;
}
/*FI*/}
/*FI*/}
/*FI*/}
else {
{T103 *n=((T103*)se_new(103));
rT103make(n,(C)->_start_position,(C)->_n);
R=(T0 *)n;}
R=rT103to_runnable((T103*)R,a1);
}
/*FI*/return R;
}
void rT103cast_to_ref(T103 *C){
XrT58cast_to_ref(rT103run_type(C));
}
void rT103error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
int rT103id(T103 *C){
int R=0;
R=((T261*)rT103run_class(C))->_id;
return R;
}
T0* rT103generic_list(T103 *C){
T0* R=NULL;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1452);
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
rT45do_print((T0 *)ms43);
rT45die_with_code(1);
/*)*/return R;
}
T0* rT103look_up_for(T103 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=/*(IRF4*/rT48base_class((T48*)rT103base_class_name())/*)*/;
/*IF*/if (((int)_bc)) {
R=rT50look_up_for((T50*)_bc,a1,a2);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms477);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/return R;
}
void rT103mapping_c_in(T103 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT103id(C),a1);
}
void rT103mapping_cast(T103 *C){
rT7copy((T7*)oRBC58tmp_string,(T0 *)ms806);
rT2append_in(rT103id(C),oRBC58tmp_string);
/*IF*//*AF*//*AE*/
/*FI*/rT7extend((T7*)oRBC58tmp_string,'\51');
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
T0* rT103run_class(T103 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT103run_type(C)));
return R;
}
T0* rT103smallest_ancestor(T103 *C,T0* a1){
T0* R=NULL;
T0* _other_bit=NULL;
_other_bit=a1;
if ((int)_other_bit) switch (((T0 *)_other_bit)->id) {
case 101: case 103: 
break;
default:
_other_bit = NULL;
};/*IF*/if (((C)->_nb)<(XrT102nb(_other_bit))) {
R=(T0 *)C;
}
else {
R=a1;
}
/*FI*/return R;
}
T0* rT103written_mark(T103 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1499);
R=(T0 *)n;}
rT7append((T7*)R,XrT67to_string((C)->_n));
return R;
}
T0* rT103base_class_name(/*C*/void){
if (ofBC102base_class_name==0){
T0* R=NULL;
ofBC102base_class_name=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms1478,NULL);
R=(T0 *)n;}
oRBC102base_class_name=R;}
return oRBC102base_class_name;}
int rT103is_a_in(T103 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)rT103written_mark(C),XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT103to_runnable(C,_ct);
_t2=XrT58to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) {
R=1;
}
else {
R=XrT58is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
int rT103is_a(T103 *C,T0* a1){
int R=0;
T0* _other_bit=NULL;
/*IF*/if (XrT58is_bit(a1)) {
_other_bit=a1;
if ((int)_other_bit) switch (((T0 *)_other_bit)->id) {
case 101: case 103: 
break;
default:
_other_bit = NULL;
};/*IF*/if (((C)->_nb)<=(XrT102nb(_other_bit))) {
R=1;
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1503);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms1504);
}
/*FI*/}
/*FI*/return R;
}
int rT103has_creation(/*C*/T0* a1){
int R=0;
return R;
}
void rT103make(T103 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_n=a2;
C->_nb=-(1);
}
void rT103c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1512);
}
int rT104is_run_type(T104 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
T0* rT104run_time_mark(T104 *C){
T0* R=NULL;
R=XrT58run_time_mark((C)->_run_type);
return R;
}
T0* rT104to_runnable(T104 *C,T0* a1){
T0* R=NULL;
T0* _t=NULL;
T0* _p=NULL;
T0* _bc_ct=NULL;
T0* _bc_written=NULL;
/*IF*/if (!((C)->_run_type)) {
_bc_written=rT46base_class((T46*)rT104start_position(C));
_bc_ct=XrT58base_class(a1);
/*IF*/if (((T0 *)_bc_written)==((T0 *)_bc_ct)) {
C->_run_type=XrT58to_runnable(rT106item((T106*)XrT58generic_list(a1),(C)->_rank),a1);
/*IF*/if ((!((C)->_run_type))||(!(XrT58is_run_type((C)->_run_type)))) {
rT104error(rT104start_position(C),(T0 *)ms1453);
}
else {
C->_run_type=XrT58run_type((C)->_run_type);
R=(T0 *)C;
}
/*FI*/}
 else if (rT50is_subclass_of((T50*)_bc_ct,_bc_written)) {
_p=rT50parent((T50*)_bc_ct,_bc_written);
_t=((T118*)_p)->_type;
C->_run_type=XrT58to_runnable(rT106item((T106*)XrT58generic_list(_t),(C)->_rank),a1);
/*IF*/if (!((C)->_run_type)) {
rT104error(rT104start_position(C),(T0 *)ms1453);
}
else {
C->_run_type=XrT58run_type((C)->_run_type);
R=(T0 *)C;
}
/*FI*/}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1456);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms1457);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/}
else {
{T104 *n=((T104*)se_new(104));
rT104make(n,(C)->_formal_name,(C)->_rank);
R=(T0 *)n;}
R=rT104to_runnable((T104*)R,a1);
}
/*FI*/return R;
}
void rT104cast_to_ref(T104 *C){
XrT58cast_to_ref((C)->_run_type);
}
void rT104error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
int rT104is_boolean(T104 *C){
int R=0;
R=XrT58is_boolean((C)->_run_type);
return R;
}
int rT104fast_mapping_c(T104 *C){
int R=0;
R=XrT58fast_mapping_c((C)->_run_type);
return R;
}
int rT104id(T104 *C){
int R=0;
R=((T261*)rT104run_class(C))->_id;
return R;
}
T0* rT104start_position(T104 *C){
T0* R=NULL;
R=((T48*)(C)->_formal_name)->_start_position;
return R;
}
T0* rT104generic_list(T104 *C){
T0* R=NULL;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1452);
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
rT45do_print((T0 *)ms43);
rT45die_with_code(1);
/*)*/return R;
}
int rT104is_reference(T104 *C){
int R=0;
R=XrT58is_reference((C)->_run_type);
return R;
}
T0* rT104look_up_for(T104 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT104base_class(C);
/*IF*/if (((int)_bc)) {
R=rT50look_up_for((T50*)_bc,a1,a2);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms477);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/return R;
}
void rT104mapping_c_in(T104 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT104id(C),a1);
}
void rT104mapping_cast(T104 *C){
rT7copy((T7*)oRBC58tmp_string,(T0 *)ms806);
rT2append_in(rT104id(C),oRBC58tmp_string);
/*IF*/if (rT104is_reference(C)) {
rT7extend((T7*)oRBC58tmp_string,'\52');
}
/*FI*/rT7extend((T7*)oRBC58tmp_string,'\51');
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
T0* rT104run_class(T104 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class((C)->_run_type));
return R;
}
int rT104is_expanded(T104 *C){
int R=0;
R=XrT58is_expanded((C)->_run_type);
return R;
}
void rT104to_reference(T104 *C){
XrT58to_reference((C)->_run_type);
}
T0* rT104smallest_ancestor(T104 *C,T0* a1){
T0* R=NULL;
R=XrT58smallest_ancestor((C)->_run_type,a1);
return R;
}
T0* rT104written_mark(T104 *C){
T0* R=NULL;
R=((T48*)(C)->_formal_name)->_to_string;
return R;
}
T0* rT104base_class_name(T104 *C){
T0* R=NULL;
R=XrT58base_class_name((C)->_run_type);
return R;
}
T0* rT104base_class(T104 *C){
T0* R=NULL;
R=rT48base_class((T48*)rT104base_class_name(C));
return R;
}
int rT104is_a_in(T104 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)rT104written_mark(C),XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT104to_runnable(C,_ct);
_t2=XrT58to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) {
R=1;
}
else {
R=XrT58is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
int rT104is_a(T104 *C,T0* a1){
int R=0;
R=XrT58is_a((C)->_run_type,a1);
return R;
}
int rT104has_creation(T104 *C,T0* a1){
int R=0;
/*IF*/if (((T0 *)C)==((T0 *)(C)->_run_type)) {
R=rT50has_creation((T50*)rT104base_class(C),a1);
}
else {
R=XrT58has_creation((C)->_run_type,a1);
}
/*FI*/return R;
}
void rT104make(T104 *C,T0* a1,int a2){
C->_rank=a2;
C->_formal_name=a1;
}
void rT104c_type_in(T104 *C,T0* a1){
XrT58c_type_in((C)->_run_type,a1);
}
void rT104to_expanded(T104 *C){
XrT58to_expanded((C)->_run_type);
}
T0* rT105twin(T105 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT105copy((T105*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT105fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT105cast_to_ref(T105 *C){
rT105cast_to_ref((T105*)(C)->_run_type);
}
int rT105id(T105 *C){
int R=0;
R=((T261*)rT105run_class(C))->_id;
return R;
}
T0* rT105look_up_for(T105 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT105base_class(C);
/*IF*/if (((int)_bc)) {
R=rT50look_up_for((T50*)_bc,a1,a2);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms477);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/return R;
}
T0* rT105run_class(T105 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class((C)->_run_type));
return R;
}
void rT105mapping_cast(T105 *C){
rT7copy((T7*)oRBC58tmp_string,(T0 *)ms806);
rT2append_in(rT105id(C),oRBC58tmp_string);
/*IF*/{/*AT*/rT7extend((T7*)oRBC58tmp_string,'\52');
}
/*FI*/rT7extend((T7*)oRBC58tmp_string,'\51');
rT43put_string((T43*)oRBC27cpp,oRBC58tmp_string);
}
void rT105mapping_c_in(T105 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT105id(C),a1);
}
T0* rT105smallest_ancestor(T105 *C,T0* a1){
T0* R=NULL;
T0* _array_of3=NULL;
T0* _array_of2=NULL;
T0* _array_of1=NULL;
T0* _rto=NULL;
_rto=XrT58run_type(a1);
/*IF*/if (XrT58is_array(_rto)) {
_array_of1=XrT58run_type(rT105array_of(C));
_array_of2=rT106first((T106*)XrT58generic_list(_rto));
_array_of3=XrT58smallest_ancestor(_array_of1,_array_of2);
/*IF*/if (((T0 *)_array_of3)==((T0 *)_array_of1)) {
R=(T0 *)C;
}
 else if (((T0 *)_array_of3)==((T0 *)_array_of2)) {
R=a1;
}
else {
{T105 *n=((T105*)se_new(105));
rT105make(n,NULL,_array_of3);
R=(T0 *)n;}}
/*FI*/}
else {
rT105fatal_error((T0 *)ms1486);
}
/*FI*/return R;
}
void rT105c_struct(T105 *C){
/*IF*/if (XrT58is_expanded(XrT58run_type(rT105array_of(C)))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1500);
rT43put_integer((T43*)oRBC27cpp,rT105id(C));
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1501);
rT43put_integer((T43*)oRBC27cpp,XrT58id(rT105array_of(C)));
rT43put_character((T43*)oRBC27cpp,'\40');
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1502);
}
/*FI*/}
int rT105is_a(T105 *C,T0* a1){
int R=0;
/*IF*/if (((T0 *)rT105run_class(C))==((T0 *)XrT58run_class(a1))) {
R=1;
}
 else if (XrT58is_array(a1)) {
R=XrT58is_a(rT105array_of(C),rT106first((T106*)XrT58generic_list(a1)));
}
 else if (rT50is_subclass_of((T50*)rT105base_class(C),XrT58base_class(a1))) {
R=1;
}
else {
/*IF*/if (rT50is_subclass_of((T50*)XrT58base_class(a1),rT105base_class(C))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms1505);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1506);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1503);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms36);
}
/*FI*/}
/*FI*/return R;
}
void rT105make(T105 *C,T0* a1,T0* a2){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms182,a1);
C->_base_class_name=(T0 *)n;}
C->_generic_list=ma(106,0,1,a2);
/*IF*/if (((T0 *)XrT58run_type(a2))==((T0 *)a2)) {
C->_run_type=(T0 *)C;
}
/*FI*/{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms206);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT58written_mark(a2));
rT7extend((T7*)(C)->_written_mark,'\135');
}
T0* rT105array_of(T105 *C){
T0* R=NULL;
R=rT106first((T106*)(C)->_generic_list);
return R;
}
void rT105c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms769);
}
void rT105c_typedef(T105 *C){
int _mem_id=0;
_mem_id=rT105id(C);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1520);
/*IF*/if (XrT58is_expanded(XrT58run_type(rT105array_of(C)))) {
rT43put_integer((T43*)oRBC27cpp,_mem_id);
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1521);
}
/*FI*/rT43put_string((T43*)oRBC27cpp,(T0 *)ms1522);
rT43put_integer((T43*)oRBC27cpp,_mem_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1523);
}
int rT105is_run_type(T105 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
T0* rT105run_time_mark(T105 *C){
T0* R=NULL;
R=((T105*)(C)->_run_type)->_written_mark;
return R;
}
T0* rT105to_runnable(T105 *C,T0* a1){
T0* R=NULL;
int _ne=0;
T0* _rt=NULL;
T0* _run_array_of=NULL;
/*IF*/if (((T0 *)(C)->_run_type)==((T0 *)C)) {
_run_array_of=XrT58to_runnable(rT105array_of(C),a1);
R=(T0 *)C;
}
else {
_ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/;
_run_array_of=XrT58to_runnable(rT105array_of(C),a1);
/*IF*/if ((!(_run_array_of))||(!(XrT58is_run_type(_run_array_of)))) {
rT105error(XrT58start_position(rT105array_of(C)),(T0 *)ms1133);
}
/*FI*/_run_array_of=XrT58run_type(_run_array_of);
/*IF*/if (((_ne)-(/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/))==(0)) {
/*IF*/if (!((C)->_run_type)) {
{T105 *n=((T105*)se_new(105));
rT105make(n,rT105start_position(C),_run_array_of);
C->_run_type=(T0 *)n;}
R=(T0 *)C;
}
else {
/*IF*/if (((T0 *)rT106first((T106*)((T105*)(C)->_run_type)->_generic_list))==((T0 *)_run_array_of)) {
R=(T0 *)C;
}
else {
R=rT105twin(C);
{T105 *n=((T105*)se_new(105));
rT105make(n,rT105start_position(C),_run_array_of);
_rt=(T0 *)n;}
/*(IRF3*/(((T105*)R)->_run_type)=(_rt);
/*)*/}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
void rT105error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT105start_position(T105 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT105base_class(T105 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
void rT105copy(T105 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT105is_a_in(T105 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)(C)->_written_mark,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT105to_runnable(C,_ct);
_t2=XrT58to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) {
R=1;
}
else {
R=XrT58is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
int rT105has_creation(T105 *C,T0* a1){
int R=0;
/*IF*/if (((T0 *)C)==((T0 *)(C)->_run_type)) {
R=rT50has_creation((T50*)rT105base_class(C),a1);
}
else {
R=rT105has_creation((T105*)(C)->_run_type,a1);
}
/*FI*/return R;
}
int ofBC27type_boolean_ref=0;
T0*oRBC27type_boolean_ref;
T0* rT107type_boolean_ref(/*C*/void){
if (ofBC27type_boolean_ref==0){
T0* R=NULL;
T0* _boolean_ref=NULL;
ofBC27type_boolean_ref=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms185,NULL);
_boolean_ref=(T0 *)n;}
{T116 *n=((T116*)se_new(116));
/*(IRF3*/((n)->_base_class_name)=(_boolean_ref);
/*)*/R=(T0 *)n;}
oRBC27type_boolean_ref=R;}
return oRBC27type_boolean_ref;}
void rT107fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT107run_type(T107 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT107to_runnable(T107 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
rT107check_type(C);
return R;
}
void rT107error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT107start_position(T107 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
int ofBC107used_as_reference=0;
void rT107used_as_reference(/*C*/void){
if (ofBC107used_as_reference==0){
ofBC107used_as_reference=1;
rT107load_ref((T0 *)ms185);
}}
T0* rT107generic_list(T107 *C){
T0* R=NULL;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1452);
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
rT45do_print((T0 *)ms43);
rT45die_with_code(1);
/*)*/return R;
}
T0* rT107look_up_for(T107 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT107base_class(C);
/*IF*/if (((int)_bc)) {
R=rT50look_up_for((T50*)_bc,a1,a2);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms477);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
/*FI*/return R;
}
void rT107mapping_c_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1479);
}
T0* rT107run_class(T107 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT107run_type(C)));
return R;
}
void rT107to_reference(T107 *C){
rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT107type_boolean_ref());
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.