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

This is compile_to_c9.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"
T0* rT107smallest_ancestor(T107 *C,T0* a1){
T0* R=NULL;
T0* _rto=NULL;
_rto=XrT58run_type(a1);
/*IF*/if (XrT58is_boolean(_rto)) {
R=(T0 *)C;
}
else {
rT107fatal_error((T0 *)ms1487);
}
/*FI*/return R;
}
T0* rT107base_class(T107 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
int rT107is_a_in(T107 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms184/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT107to_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 rT107is_a(T107 *C,T0* a1){
int R=0;
/*IF*/if (XrT58is_boolean(a1)) {
R=1;
}
else {
R=rT50is_subclass_of((T50*)rT107base_class(C),XrT58base_class(a1));
/*IF*/if (R) {
rT107used_as_reference();
}
/*FI*/}
/*FI*//*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 rT107has_creation(T107 *C,T0* a1){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(a1));
rT107error(rT107start_position(C),(T0 *)ms1510);
return R;
}
int ofBC107check_type=0;
void rT107check_type(T107 *C){
if (ofBC107check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
ofBC107check_type=1;
_bc=rT107base_class(C);
/*IF*/if (!(_bc)) {
rT107error(rT107start_position(C),(T0 *)ms1458);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_rc=rT107run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (!(((T50*)_bc)->_is_expanded)) {
rT107error(rT107start_position(C),(T0 *)ms1459);
}
/*FI*/}
/*FI*/}}
void rT107make(T107 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms184,a1);
C->_base_class_name=(T0 *)n;}
}
void rT107c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1513);
}
void rT107to_expanded(T107 *C){
rT43to_expanded((T43*)oRBC27cpp,rT107type_boolean_ref(),(T0 *)C);
}
void rT107load_ref(/*C*/T0* a1){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _cn=NULL;
{T48 *n=((T48*)se_new(48));
rT48make(n,a1,NULL);
_cn=(T0 *)n;}
_rc=rT50run_class((T50*)rT48base_class((T48*)_cn));
rT261set_at_run_time((T261*)_rc);
_rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477);
}
int ofBC27type_character_ref=0;
T0*oRBC27type_character_ref;
T0* rT109type_character_ref(/*C*/void){
if (ofBC27type_character_ref==0){
T0* R=NULL;
T0* _character_ref=NULL;
ofBC27type_character_ref=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms187,NULL);
_character_ref=(T0 *)n;}
{T116 *n=((T116*)se_new(116));
/*(IRF3*/((n)->_base_class_name)=(_character_ref);
/*)*/R=(T0 *)n;}
oRBC27type_character_ref=R;}
return oRBC27type_character_ref;}
void rT109fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT109run_type(T109 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT109to_runnable(T109 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
rT109check_type(C);
return R;
}
void rT109error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT109start_position(T109 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
int ofBC109used_as_reference=0;
void rT109used_as_reference(/*C*/void){
if (ofBC109used_as_reference==0){
ofBC109used_as_reference=1;
rT109load_ref((T0 *)ms187);
}}
T0* rT109generic_list(T109 *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* rT109look_up_for(T109 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT109base_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 rT109mapping_c_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1480);
}
T0* rT109run_class(T109 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT109run_type(C)));
return R;
}
void rT109to_reference(T109 *C){
rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT109type_character_ref());
}
T0* rT109smallest_ancestor(T109 *C,T0* a1){
T0* R=NULL;
T0* _rto=NULL;
_rto=XrT58run_type(a1);
/*IF*/if (XrT58is_character(_rto)) {
R=(T0 *)C;
}
 else if (XrT58is_reference(_rto)) {
R=rT116smallest_ancestor((T116*)rT109type_character_ref(),a1);
}
else {
rT109fatal_error((T0 *)ms1491);
}
/*FI*/return R;
}
T0* rT109base_class(T109 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
int rT109is_a_in(T109 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms186/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT109to_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 rT109is_a(T109 *C,T0* a1){
int R=0;
/*IF*/if (XrT58is_character(a1)) {
R=1;
}
else {
R=rT50is_subclass_of((T50*)rT109base_class(C),XrT58base_class(a1));
/*IF*/if (R) {
rT109used_as_reference();
}
/*FI*/}
/*FI*//*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 rT109has_creation(T109 *C,T0* a1){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(a1));
rT109error(rT109start_position(C),(T0 *)ms1510);
return R;
}
int ofBC109check_type=0;
void rT109check_type(T109 *C){
if (ofBC109check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
ofBC109check_type=1;
_bc=rT109base_class(C);
/*IF*/if (!(_bc)) {
rT109error(rT109start_position(C),(T0 *)ms1460);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_rc=rT109run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (!(((T50*)_bc)->_is_expanded)) {
rT109error(rT109start_position(C),(T0 *)ms1461);
}
/*FI*/}
/*FI*/}}
void rT109make(T109 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms186,a1);
C->_base_class_name=(T0 *)n;}
}
void rT109c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1514);
}
void rT109to_expanded(T109 *C){
rT43to_expanded((T43*)oRBC27cpp,rT109type_character_ref(),(T0 *)C);
}
void rT109load_ref(/*C*/T0* a1){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _cn=NULL;
{T48 *n=((T48*)se_new(48));
rT48make(n,a1,NULL);
_cn=(T0 *)n;}
_rc=rT50run_class((T50*)rT48base_class((T48*)_cn));
rT261set_at_run_time((T261*)_rc);
_rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477);
}
int ofBC27type_double_ref=0;
T0*oRBC27type_double_ref;
T0* rT110type_double_ref(/*C*/void){
if (ofBC27type_double_ref==0){
T0* R=NULL;
T0* _double_ref=NULL;
ofBC27type_double_ref=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms194,NULL);
_double_ref=(T0 *)n;}
{T116 *n=((T116*)se_new(116));
/*(IRF3*/((n)->_base_class_name)=(_double_ref);
/*)*/R=(T0 *)n;}
oRBC27type_double_ref=R;}
return oRBC27type_double_ref;}
void rT110fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT110run_type(T110 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT110to_runnable(T110 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
rT110check_type(C);
return R;
}
void rT110error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT110start_position(T110 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
int ofBC110used_as_reference=0;
void rT110used_as_reference(/*C*/void){
if (ofBC110used_as_reference==0){
ofBC110used_as_reference=1;
rT110load_ref((T0 *)ms194);
}}
T0* rT110generic_list(T110 *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* rT110look_up_for(T110 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT110base_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 rT110mapping_c_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1481);
}
T0* rT110run_class(T110 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT110run_type(C)));
return R;
}
void rT110to_reference(T110 *C){
rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT110type_double_ref());
}
T0* rT110smallest_ancestor(T110 *C,T0* a1){
T0* R=NULL;
T0* _rto=NULL;
_rto=XrT58run_type(a1);
/*IF*/if (XrT58is_integer(_rto)) {
R=(T0 *)C;
}
 else if (XrT58is_real(_rto)) {
R=(T0 *)C;
}
 else if (XrT58is_double(_rto)) {
R=(T0 *)C;
}
 else if (XrT58is_reference(_rto)) {
R=rT116smallest_ancestor((T116*)rT110type_double_ref(),a1);
}
else {
rT110fatal_error((T0 *)ms1492);
}
/*FI*/return R;
}
T0* rT110base_class(T110 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
int rT110is_a_in(T110 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms193/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT110to_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 rT110is_a(T110 *C,T0* a1){
int R=0;
/*IF*/if (XrT58is_double(a1)) {
R=1;
}
else {
R=rT50is_subclass_of((T50*)rT110base_class(C),XrT58base_class(a1));
/*IF*/if (R) {
rT110used_as_reference();
}
/*FI*/}
/*FI*//*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 rT110has_creation(T110 *C,T0* a1){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(a1));
rT110error(rT110start_position(C),(T0 *)ms1510);
return R;
}
int ofBC110check_type=0;
void rT110check_type(T110 *C){
if (ofBC110check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
ofBC110check_type=1;
_bc=rT110base_class(C);
/*IF*/if (!(_bc)) {
rT110error(rT110start_position(C),(T0 *)ms1462);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_rc=rT110run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (!(((T50*)_bc)->_is_expanded)) {
rT110error(rT110start_position(C),(T0 *)ms1463);
}
/*FI*/}
/*FI*/}}
void rT110make(T110 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms193,a1);
C->_base_class_name=(T0 *)n;}
}
void rT110c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1515);
}
void rT110to_expanded(T110 *C){
rT43to_expanded((T43*)oRBC27cpp,rT110type_double_ref(),(T0 *)C);
}
void rT110load_ref(/*C*/T0* a1){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _cn=NULL;
{T48 *n=((T48*)se_new(48));
rT48make(n,a1,NULL);
_cn=(T0 *)n;}
_rc=rT50run_class((T50*)rT48base_class((T48*)_cn));
rT261set_at_run_time((T261*)_rc);
_rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477);
}
int ofBC27type_integer_ref=0;
T0*oRBC27type_integer_ref;
T0* rT111type_integer_ref(/*C*/void){
if (ofBC27type_integer_ref==0){
T0* R=NULL;
T0* _integer_ref=NULL;
ofBC27type_integer_ref=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms190,NULL);
_integer_ref=(T0 *)n;}
{T116 *n=((T116*)se_new(116));
/*(IRF3*/((n)->_base_class_name)=(_integer_ref);
/*)*/R=(T0 *)n;}
oRBC27type_integer_ref=R;}
return oRBC27type_integer_ref;}
void rT111fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT111run_type(T111 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT111to_runnable(T111 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
rT111check_type(C);
return R;
}
void rT111error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT111start_position(T111 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
int ofBC111used_as_reference=0;
void rT111used_as_reference(/*C*/void){
if (ofBC111used_as_reference==0){
ofBC111used_as_reference=1;
rT111load_ref((T0 *)ms190);
}}
T0* rT111generic_list(T111 *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* rT111look_up_for(T111 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT111base_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 rT111mapping_c_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1482);
}
T0* rT111run_class(T111 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT111run_type(C)));
return R;
}
void rT111to_reference(T111 *C){
rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT111type_integer_ref());
}
T0* rT111smallest_ancestor(T111 *C,T0* a1){
T0* R=NULL;
T0* _rto=NULL;
_rto=XrT58run_type(a1);
/*IF*/if (XrT58is_integer(_rto)) {
R=(T0 *)C;
}
 else if (XrT58is_real(_rto)) {
R=a1;
}
 else if (XrT58is_double(_rto)) {
R=a1;
}
 else if (XrT58is_reference(_rto)) {
R=rT116smallest_ancestor((T116*)rT111type_integer_ref(),a1);
}
else {
rT111fatal_error((T0 *)ms1493);
}
/*FI*/return R;
}
T0* rT111base_class(T111 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
int rT111is_a_in(T111 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms189/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT111to_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 rT111is_a(T111 *C,T0* a1){
int R=0;
/*IF*/if (((XrT58is_integer(a1))||(XrT58is_double(a1)))||(XrT58is_real(a1))) {
R=1;
}
else {
R=rT50is_subclass_of((T50*)rT111base_class(C),XrT58base_class(a1));
/*IF*/if (R) {
rT111used_as_reference();
}
/*FI*/}
/*FI*//*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 rT111has_creation(T111 *C,T0* a1){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(a1));
rT111error(rT111start_position(C),(T0 *)ms1510);
return R;
}
int ofBC111check_type=0;
void rT111check_type(T111 *C){
if (ofBC111check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
ofBC111check_type=1;
_bc=rT111base_class(C);
/*IF*/if (!(_bc)) {
rT111error(rT111start_position(C),(T0 *)ms1464);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_rc=rT111run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (!(((T50*)_bc)->_is_expanded)) {
rT111error(rT111start_position(C),(T0 *)ms1465);
}
/*FI*/}
/*FI*/}}
void rT111make(T111 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms189,a1);
C->_base_class_name=(T0 *)n;}
}
void rT111c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1516);
}
void rT111to_expanded(T111 *C){
rT43to_expanded((T43*)oRBC27cpp,rT111type_integer_ref(),(T0 *)C);
}
void rT111load_ref(/*C*/T0* a1){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _cn=NULL;
{T48 *n=((T48*)se_new(48));
rT48make(n,a1,NULL);
_cn=(T0 *)n;}
_rc=rT50run_class((T50*)rT48base_class((T48*)_cn));
rT261set_at_run_time((T261*)_rc);
_rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477);
}
void rT112fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT112run_type(T112 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT112to_runnable(T112 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
return R;
}
void rT112error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
void rT112cast_to_ref(T112 *C){
XrT58cast_to_ref(rT112run_type(C));
}
int rT112id(/*C*/void){
int R=0;
rT112fatal_error((T0 *)ms1476);
return R;
}
T0* rT112start_position(T112 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT112generic_list(T112 *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* rT112look_up_for(T112 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=/*(IRF4*/NULL/*)*/;
/*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* rT112run_class(T112 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT112run_type(C)));
return R;
}
void rT112mapping_c_in(/*C*/T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT112id(),a1);
}
T0* rT112smallest_ancestor(/*C*/T0* a1){
T0* R=NULL;
R=a1;
return R;
}
int rT112is_a_in(T112 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms179/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT112to_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 rT112is_a(/*C*/T0* a1){
int R=0;
R=1;
return R;
}
int rT112has_creation(T112 *C,T0* a1){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(a1));
rT112error(rT112start_position(C),(T0 *)ms1511);
return R;
}
void rT112make(T112 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms179,a1);
C->_base_class_name=(T0 *)n;}
}
void rT112c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms769);
}
int ofBC113used_as_reference=0;
void rT113used_as_reference(/*C*/void){
if (ofBC113used_as_reference==0){
ofBC113used_as_reference=1;
rT113load_ref((T0 *)ms181);
}}
T0* rT113generic_list(T113 *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* rT113look_up_for(T113 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT113base_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* rT113run_class(T113 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT113run_type(C)));
return R;
}
void rT113mapping_c_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1483);
}
T0* rT113smallest_ancestor(T113 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
return R;
}
void rT113to_reference(T113 *C){
rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT113type_pointer_ref());
}
int rT113is_a(T113 *C,T0* a1){
int R=0;
/*IF*/if (XrT58is_pointer(a1)) {
R=1;
}
else {
R=rT50is_subclass_of((T50*)rT113base_class(C),XrT58base_class(a1));
/*IF*/if (R) {
rT113used_as_reference();
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((T0 *)C,(T0 *)ms1507);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms36);
}
/*FI*/return R;
}
void rT113make(T113 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms180,a1);
C->_base_class_name=(T0 *)n;}
}
void rT113to_expanded(T113 *C){
rT43to_expanded((T43*)oRBC27cpp,rT113type_pointer_ref(),(T0 *)C);
}
void rT113c_type_in(T113 *C,T0* a1){
rT7append((T7*)a1,(C)->_c_type);
}
int ofBC27type_pointer_ref=0;
T0*oRBC27type_pointer_ref;
T0* rT113type_pointer_ref(/*C*/void){
if (ofBC27type_pointer_ref==0){
T0* R=NULL;
T0* _pointer_ref=NULL;
ofBC27type_pointer_ref=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms181,NULL);
_pointer_ref=(T0 *)n;}
{T116 *n=((T116*)se_new(116));
/*(IRF3*/((n)->_base_class_name)=(_pointer_ref);
/*)*/R=(T0 *)n;}
oRBC27type_pointer_ref=R;}
return oRBC27type_pointer_ref;}
T0* rT113run_type(T113 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT113to_runnable(T113 *C,T0* a1){
T0* R=NULL;
T0* _bcw=NULL;
rT113check_type(C);
/*IF*/if (!((C)->_c_type)) {
R=(T0 *)C;
_bcw=((T48*)((T46*)rT113start_position(C))->_base_class_name)->_to_string;
/*IF*/if (((((T0 *)_bcw)==((T0 *)(T0 *)ms182))||(((T0 *)_bcw)==((T0 *)(T0 *)ms188)))&&(XrT58is_generic(a1))) {
{T7 *n=((T7*)se_new(7));
rT7make(n,8);
C->_c_type=(T0 *)n;}
XrT58c_type_in(rT106item((T106*)XrT58generic_list(XrT58run_type(a1)),1),(C)->_c_type);
rT7extend((T7*)(C)->_c_type,'\52');
}
 else if (((T0 *)_bcw)==((T0 *)(T0 *)ms183)) {
C->_c_type=(T0 *)ms1468;
}
else {
C->_c_type=(T0 *)ms1469;
}
/*FI*/}
else {
{T113 *n=((T113*)se_new(113));
rT113make(n,rT113start_position(C));
R=(T0 *)n;}
R=rT113to_runnable((T113*)R,a1);
}
/*FI*/return R;
}
void rT113error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT113start_position(T113 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT113base_class(T113 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
int rT113is_a_in(T113 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms180/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT113to_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 ofBC113check_type=0;
void rT113check_type(T113 *C){
if (ofBC113check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
ofBC113check_type=1;
_bc=rT113base_class(C);
/*IF*/if (!(_bc)) {
rT113error(rT113start_position(C),(T0 *)ms1466);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_rc=rT113run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (!(((T50*)_bc)->_is_expanded)) {
rT113error(rT113start_position(C),(T0 *)ms1467);
}
/*FI*/}
/*FI*/}}
int rT113has_creation(T113 *C,T0* a1){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(a1));
rT113error(rT113start_position(C),(T0 *)ms1510);
return R;
}
void rT113load_ref(/*C*/T0* a1){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _cn=NULL;
{T48 *n=((T48*)se_new(48));
rT48make(n,a1,NULL);
_cn=(T0 *)n;}
_rc=rT50run_class((T50*)rT48base_class((T48*)_cn));
rT261set_at_run_time((T261*)_rc);
_rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477);
}
int ofBC27type_real_ref=0;
T0*oRBC27type_real_ref;
T0* rT114type_real_ref(/*C*/void){
if (ofBC27type_real_ref==0){
T0* R=NULL;
T0* _real_ref=NULL;
ofBC27type_real_ref=1;
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms192,NULL);
_real_ref=(T0 *)n;}
{T116 *n=((T116*)se_new(116));
/*(IRF3*/((n)->_base_class_name)=(_real_ref);
/*)*/R=(T0 *)n;}
oRBC27type_real_ref=R;}
return oRBC27type_real_ref;}
void rT114fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT114run_type(T114 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT114to_runnable(T114 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
rT114check_type(C);
return R;
}
void rT114error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT114start_position(T114 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
int ofBC114used_as_reference=0;
void rT114used_as_reference(/*C*/void){
if (ofBC114used_as_reference==0){
ofBC114used_as_reference=1;
rT114load_ref((T0 *)ms192);
}}
T0* rT114generic_list(T114 *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* rT114look_up_for(T114 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT114base_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 rT114mapping_c_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1484);
}
T0* rT114run_class(T114 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT114run_type(C)));
return R;
}
void rT114to_reference(T114 *C){
rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT114type_real_ref());
}
T0* rT114smallest_ancestor(T114 *C,T0* a1){
T0* R=NULL;
T0* _rto=NULL;
_rto=XrT58run_type(a1);
/*IF*/if (XrT58is_integer(_rto)) {
R=(T0 *)C;
}
 else if (XrT58is_real(_rto)) {
R=(T0 *)C;
}
 else if (XrT58is_double(_rto)) {
R=a1;
}
 else if (XrT58is_reference(_rto)) {
R=rT116smallest_ancestor((T116*)rT114type_real_ref(),a1);
}
else {
rT114fatal_error((T0 *)ms1494);
}
/*FI*/return R;
}
T0* rT114base_class(T114 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
int rT114is_a_in(T114 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms191/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT114to_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 rT114is_a(T114 *C,T0* a1){
int R=0;
/*IF*/if ((XrT58is_real(a1))||(XrT58is_double(a1))) {
R=1;
}
else {
R=rT50is_subclass_of((T50*)rT114base_class(C),XrT58base_class(a1));
/*IF*/if (R) {
rT114used_as_reference();
}
/*FI*/}
/*FI*//*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 rT114has_creation(T114 *C,T0* a1){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(a1));
rT114error(rT114start_position(C),(T0 *)ms1510);
return R;
}
int ofBC114check_type=0;
void rT114check_type(T114 *C){
if (ofBC114check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
ofBC114check_type=1;
_bc=rT114base_class(C);
/*IF*/if (!(_bc)) {
rT114error(rT114start_position(C),(T0 *)ms1470);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_rc=rT114run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (!(((T50*)_bc)->_is_expanded)) {
rT114error(rT114start_position(C),(T0 *)ms1471);
}
/*FI*/}
/*FI*/}}
void rT114make(T114 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms191,a1);
C->_base_class_name=(T0 *)n;}
}
void rT114c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms1517);
}
void rT114to_expanded(T114 *C){
rT43to_expanded((T43*)oRBC27cpp,(T0 *)C,rT114type_real_ref());
}
void rT114load_ref(/*C*/T0* a1){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _cn=NULL;
{T48 *n=((T48*)se_new(48));
rT48make(n,a1,NULL);
_cn=(T0 *)n;}
_rc=rT50run_class((T50*)rT48base_class((T48*)_cn));
rT261set_at_run_time((T261*)_rc);
_rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477);
}
void rT115fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT115run_type(T115 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT115to_runnable(T115 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
rT115check_type(C);
return R;
}
void rT115cast_to_ref(T115 *C){
XrT58cast_to_ref(rT115run_type(C));
}
void rT115error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT115start_position(T115 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT115generic_list(T115 *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* rT115look_up_for(T115 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT115base_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 rT115mapping_c_in(/*C*/T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(/*(IRF4*/7/*)*/,a1);
}
T0* rT115run_class(T115 *C){
T0* R=NULL;
R=((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52run_class(rT115run_type(C)));
return R;
}
T0* rT115smallest_ancestor(T115 *C,T0* a1){
T0* R=NULL;
T0* _rto=NULL;
_rto=XrT58run_type(a1);
/*IF*/if (XrT58is_string(_rto)) {
R=(T0 *)C;
}
else {
rT115fatal_error((T0 *)ms1495);
}
/*FI*/return R;
}
T0* rT115base_class(T115 *C){
T0* R=NULL;
R=rT48base_class((T48*)(C)->_base_class_name);
return R;
}
int rT115is_a_in(T115 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms183/*)*/,XrT58written_mark(a1))) {
R=1;
}
else {
_ct=((T261*)a2)->_current_type;
_t1=rT115to_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 rT115is_a(T115 *C,T0* a1){
int R=0;
/*IF*/if (XrT58is_string(a1)) {
R=1;
}
else {
R=rT50is_subclass_of((T50*)rT115base_class(C),XrT58base_class(a1));
}
/*FI*//*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 rT115has_creation(T115 *C,T0* a1){
int R=0;
R=rT50has_creation((T50*)rT115base_class(C),a1);
return R;
}
int ofBC115check_type=0;
void rT115check_type(T115 *C){
if (ofBC115check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
int _ne=0;
ofBC115check_type=1;
_ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/;
_bc=rT115base_class(C);
/*IF*/if (!(_bc)) {
rT115error(rT115start_position(C),(T0 *)ms1472);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
_rc=rT115run_class(C);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((T50*)_bc)->_is_expanded) {
rT115error(rT115start_position(C),(T0 *)ms1473);
}
/*FI*/}
/*FI*/}}
void rT115make(T115 *C,T0* a1){
{T48 *n=((T48*)se_new(48));
rT48make(n,(T0 *)ms183,a1);
C->_base_class_name=(T0 *)n;}
}
void rT115c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms769);
}
T0* rT116type_any(/*C*/void){
if (ofBC27type_any==0){
T0* R=NULL;
ofBC27type_any=1;
{T87 *n=((T87*)se_new(87));
rT87make(n,NULL);
R=(T0 *)n;}
oRBC27type_any=R;}
return oRBC27type_any;}
void rT116c_initialize_expanded(T116 *C){
T0* _rf=NULL;
int _i=0;
T0* _wa=NULL;
rT43put_character((T43*)oRBC27cpp,'\173');
_wa=rT261writable_attributes((T261*)rT116run_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 rT116c_initialize(T116 *C){
/*IF*/if (rT116is_expanded(C)) {
rT116c_initialize_expanded(C);
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1426);
}
/*FI*/}
void rT116fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT116run_time_mark(T116 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_to_string;
return R;
}
T0* rT116run_type(T116 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT116to_runnable(T116 *C,T0* a1){
T0* R=NULL;
T0* _rc=NULL;
T0* _bc=NULL;
_bc=rT48base_class((T48*)(C)->_base_class_name);
/*IF*/if (((T50*)_bc)->_is_expanded) {
/*IF*/if (!(rT56fast_has((T56*)oRBC116check_memory,_bc))) {
rT50check_expanded_with((T50*)_bc,(T0 *)C);
rT56add_last((T56*)oRBC116check_memory,_bc);
}
/*FI*/}
/*FI*/_rc=rT116run_class(C);
R=(T0 *)C;
return R;
}
void rT116cast_to_ref(T116 *C){
XrT58cast_to_ref(rT116run_type(C));
}
void rT116error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
int rT116id(T116 *C){
int R=0;
R=((T50*)rT116base_class(C))->_id;
return R;
}
T0* rT116start_position(T116 *C){
T0* R=NULL;
R=((T48*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT116generic_list(T116 *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 rT116is_reference(T116 *C){
int R=0;
T0* _bc=NULL;
_bc=rT116base_class(C);
/*IF*/if (!(_bc)) {
rT116error(rT116start_position(C),(T0 *)ms1475);
}
else {
R=!(((T50*)_bc)->_is_expanded);
}
/*FI*/return R;
}
T0* rT116look_up_for(T116 *C,T0* a1,T0* a2){
T0* R=NULL;
T0* _bc=NULL;
_bc=rT116base_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 rT116mapping_c_in(T116 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT116id(C),a1);
}

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