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

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

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.91)    --      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 ofBC27type_boolean=0;
T0*oRBC27type_boolean;
/*E_TRUE*/T0* rT77type_boolean(/*C*/void){
if (ofBC27type_boolean==0){
T0* R=NULL;
ofBC27type_boolean=1;
{T109 *n=((T109*)se_new(109));
rT109make(n,NULL);
R=(T0 *)n;}
oRBC27type_boolean=R;}
return oRBC27type_boolean;}
/*E_TRUE*/T0* rT77twin(T77 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT77copy((T77*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*E_TRUE*/int rT77is_static(T77 *C){
int R=0;
R=1;
C->_static_value_mem=1;
return R;
}
/*E_TRUE*/int rT77static_value(T77 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*E_TRUE*/T0* rT77to_runnable(T77 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
C->_current_type=a1;
R=(T0 *)C;
}
else {
R=rT77twin(C);
/*[IRF3:set_current_type*//*AW*/((T77*)R)->_current_type=(a1);/*]*/
}
/*FI*/return R;
}
/*E_TRUE*/void rT77error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*E_TRUE*/T0* rT77add_comment(T77 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*E_TRUE*/void rT77copy(T77 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*E_TRUE*/int rT77is_a(T77 *C,T0* a1){
int R=0;
R=XrT62is_a(rT109run_type((T109*)/*(IRF4*/rT77type_boolean()/*)*/),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position((C)->_start_position);
rT77error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_run_type(T95 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_string(T95 *C){
int R=0;
R=XrT62is_string((C)->_run_type);
return R;
}
T0*oRBC62tmp_string;
/*TYPE_LIKE_CURRENT*/int rT95is_character(T95 *C){
int R=0;
R=XrT62is_character((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_bit(T95 *C){
int R=0;
R=XrT62is_bit((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT95run_time_mark(T95 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_type)) {
R=XrT62run_time_mark((C)->_run_type);
}
/*FI*/return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT95to_runnable(T95 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_run_type)) {
C->_run_type=a1;
R=(T0 *)C;
}
 else if (((T0 *)(C)->_run_type)==((T0 *)a1)) {
R=(T0 *)C;
}
else {
{T95 *n=((T95*)se_new(95));
rT95make(n,(C)->_start_position,(C)->_like_what);
R=(T0 *)n;}
R=rT95to_runnable((T95*)R,a1);
}
/*FI*/return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_any(T95 *C){
int R=0;
R=XrT62is_any((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/void rT95cast_to_ref(T95 *C){
XrT62cast_to_ref((C)->_run_type);
}/*TYPE_LIKE_CURRENT*/int rT95is_boolean(T95 *C){
int R=0;
R=XrT62is_boolean((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95fast_mapping_c(T95 *C){
int R=0;
R=XrT62fast_mapping_c((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95id(T95 *C){
int R=0;
R=((T269*)rT95run_class(C))->_id;
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_array(T95 *C){
int R=0;
R=XrT62is_array((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_double(T95 *C){
int R=0;
R=XrT62is_double((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT95generic_list(T95 *C){
T0* R=NULL;
rT48add_type((T0 *)C,(T0 *)ms1_62);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_integer(T95 *C){
int R=0;
R=XrT62is_integer((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_real(T95 *C){
int R=0;
R=XrT62is_real((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_reference(T95 *C){
int R=0;
R=XrT62is_reference((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT95look_up_for(T95 *C,T0* a1,T0* a2){
T0* R=NULL;
R=rT53look_up_for((T53*)rT95base_class(C),a1,a2);
return R;
}
/*TYPE_LIKE_CURRENT*/void rT95mapping_cast(T95 *C){
rT7copy((T7*)oRBC62tmp_string,(T0 *)ms4_62);
rT2append_in(rT95id(C),oRBC62tmp_string);
/*IF*/if (rT95is_reference(C)) {
rT7extend((T7*)oRBC62tmp_string,'\52');
}
/*FI*/rT7extend((T7*)oRBC62tmp_string,'\51');
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_LIKE_CURRENT*/void rT95mapping_c_in(T95 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT95id(C),a1);
}/*TYPE_LIKE_CURRENT*/T0* rT95run_class(T95 *C){
T0* R=NULL;
R=rT55run_class((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_expanded(T95 *C){
int R=0;
R=!(rT95is_reference(C));
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_none(T95 *C){
int R=0;
R=XrT62is_none((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/void rT95to_reference(T95 *C){
XrT62to_reference((C)->_run_type);
}/*TYPE_LIKE_CURRENT*/T0* rT95smallest_ancestor(T95 *C,T0* a1){
T0* R=NULL;
R=XrT62smallest_ancestor((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT95base_class_name(T95 *C){
T0* R=NULL;
R=XrT62base_class_name((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT95base_class(T95 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT95base_class_name(C);
/*IF*/if (((int)_bcn)) {
R=rT51base_class((T51*)_bcn);
}
else {
rT48append((T0 *)ms2_62);
rT48add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_a_in(T95 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms1_95,XrT62written_mark(a1))) {
R=1;
}
else {
_ct=((T269*)a2)->_current_type;
_t1=rT95to_runnable(C,_ct);
_t2=XrT62to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT62run_time_mark(_t1),XrT62run_time_mark(_t2))) {
R=1;
}
else {
R=XrT62is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
/*TYPE_LIKE_CURRENT*/int rT95displacement(T95 *C){
int R=0;
R=XrT62displacement((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95is_a(T95 *C,T0* a1){
int R=0;
R=XrT62is_a((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT95has_creation(T95 *C,T0* a1){
int R=0;
R=XrT62has_creation((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_CURRENT*/void rT95make(T95 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
if ((int)C->_like_what) switch (((T0 *)C->_like_what)->id) {
case 94: 
break;
default:
C->_like_what = NULL;
};}/*TYPE_LIKE_CURRENT*/void rT95c_type_in(T95 *C,T0* a1){
XrT62c_type_in((C)->_run_type,a1);
}/*TYPE_LIKE_CURRENT*/void rT95to_expanded(T95 *C){
XrT62to_expanded((C)->_run_type);
}/*TYPE_ANY*/T0* rT91run_type(T91 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_ANY*/T0* rT91to_runnable(T91 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
rT91check_type(C);
return R;
}
/*TYPE_ANY*/void rT91cast_to_ref(T91 *C){
XrT62cast_to_ref(rT91run_type(C));
}/*TYPE_ANY*/void rT91error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*TYPE_ANY*/int rT91id(T91 *C){
int R=0;
R=((T53*)rT91base_class(C))->_id;
return R;
}
/*TYPE_ANY*/T0* rT91start_position(T91 *C){
T0* R=NULL;
R=((T51*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_ANY*/T0* rT91generic_list(T91 *C){
T0* R=NULL;
rT48add_type((T0 *)C,(T0 *)ms1_62);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
return R;
}
/*TYPE_ANY*/T0* rT91look_up_for(T91 *C,T0* a1,T0* a2){
T0* R=NULL;
R=rT53look_up_for((T53*)rT91base_class(C),a1,a2);
return R;
}
/*TYPE_ANY*/void rT91mapping_cast(T91 *C){
rT7copy((T7*)oRBC62tmp_string,(T0 *)ms4_62);
rT2append_in(rT91id(C),oRBC62tmp_string);
/*IF*/{/*AT*/rT7extend((T7*)oRBC62tmp_string,'\52');
}
/*FI*/rT7extend((T7*)oRBC62tmp_string,'\51');
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_ANY*/void rT91mapping_c_in(T91 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT91id(C),a1);
}/*TYPE_ANY*/T0* rT91run_class(T91 *C){
T0* R=NULL;
R=rT55run_class(rT91run_type(C));
return R;
}
/*TYPE_ANY*/T0* rT91smallest_ancestor(T91 *C,T0* a1){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_ANY*/T0* rT91base_class(T91 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=(C)->_base_class_name;
/*IF*/if (((int)_bcn)) {
R=rT51base_class((T51*)_bcn);
}
else {
rT48append((T0 *)ms2_62);
rT48add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_ANY*/int rT91is_a_in(T91 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms36_27/*)*/,XrT62written_mark(a1))) {
R=1;
}
else {
_ct=((T269*)a2)->_current_type;
_t1=rT91to_runnable(C,_ct);
_t2=XrT62to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT62run_time_mark(_t1),XrT62run_time_mark(_t2))) {
R=1;
}
else {
R=XrT62is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
/*TYPE_ANY*/void rT91c_struct(T91 *C){
T0* _wa=NULL;
T0* _a=NULL;
int _i=0;
rT7copy((T7*)oRBC62tmp_string,(T0 *)ms5_62);
rT2append_in(rT91id(C),oRBC62tmp_string);
rT7extend((T7*)oRBC62tmp_string,'\173');
/*IF*/{/*AT*/rT7append((T7*)oRBC62tmp_string,(T0 *)ms6_62);
}
/*FI*/_wa=rT269writable_attributes((T269*)rT91run_class(C));
/*IF*/if (!(_wa)) {
rT7append((T7*)oRBC62tmp_string,(T0 *)ms7_62);
}
else {
_i=/*XrT*ARRAY[RUN_FEATURE]*/((T273*)_wa)->_upper;
while (!((_i)==(0))) {
_a=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)_wa,_i);
XrT62c_type_in(XrT62run_type(/*XrT*RUN_FEATURE*/((T274*)_a)->_result_type),oRBC62tmp_string);
rT7append((T7*)oRBC62tmp_string,(T0 *)ms8_62);
rT7append((T7*)oRBC62tmp_string,/*XrT*FEATURE_NAME*/((T70*)/*XrT*RUN_FEATURE*/((T274*)_a)->_name)->_to_string);
rT7extend((T7*)oRBC62tmp_string,'\73');
_i=(_i)-(1);
}
}
/*FI*/rT7append((T7*)oRBC62tmp_string,(T0 *)ms9_62);
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_ANY*/int rT91displacement(/*C*/void){
int R=0;
void * _p=0;
R=((0),sizeof(T8));
return R;
}
/*TYPE_ANY*/int rT91is_a(T91 *C,T0* a1){
int R=0;
/*IF*/if (XrT62is_any(a1)) {
R=1;
}
else {
R=rT53is_subclass_of((T53*)rT91base_class(C),XrT62base_class(a1));
}
/*FI*//*IF*/if (!(R)) {
rT48add_type((T0 *)C,(T0 *)ms105_27);
rT48add_type(a1,(T0 *)ms102_27);
}
/*FI*/return R;
}
/*TYPE_ANY*/int rT91has_creation(T91 *C,T0* a1){
int R=0;
rT48add_position(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position);
rT91error(rT91start_position(C),(T0 *)ms1_91);
return R;
}
int ofBC91check_type=0;
/*TYPE_ANY*/void rT91check_type(T91 *C){
if (ofBC91check_type==0){
T0* _rc=NULL;
T0* _bc=NULL;
ofBC91check_type=1;
_bc=rT91base_class(C);
/*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_rc=rT91run_class(C);
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (((T53*)_bc)->_is_expanded) {
rT91error(rT91start_position(C),(T0 *)ms2_91);
}
/*FI*/}
/*FI*/}}
/*TYPE_ANY*/void rT91make(T91 *C,T0* a1){
{T51 *n=((T51*)se_new(51));
rT51make(n,(T0 *)ms36_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_ANY*/void rT91c_typedef(T91 *C){
int _mem_id=0;
_mem_id=rT91id(C);
/*[IRF3:clear*//*AW*/((T7*)oRBC62tmp_string)->_count=(0);/*]*/
rT7append((T7*)oRBC62tmp_string,(T0 *)ms10_62);
rT2append_in(rT91id(C),oRBC62tmp_string);
rT7append((T7*)oRBC62tmp_string,(T0 *)ms11_62);
rT2append_in(rT91id(C),oRBC62tmp_string);
rT7append((T7*)oRBC62tmp_string,(T0 *)ms12_62);
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_ANY*/void rT91c_type_in(/*C*/T0* a1){
rT7append((T7*)a1,(T0 *)ms3_62);
}/*TYPE_LIKE_ARGUMENT*/T0* rT100twin(T100 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT100copy((T100*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_run_type(T100 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_string(T100 *C){
int R=0;
R=XrT62is_string((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT100like_argument(T100 *C){
T0* R=NULL;
R=(C)->_like_what;
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_character(T100 *C){
int R=0;
R=XrT62is_character((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_bit(T100 *C){
int R=0;
R=XrT62is_bit((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT100run_time_mark(T100 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_type)) {
R=XrT62run_time_mark((C)->_run_type);
}
/*FI*/return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT100to_runnable(T100 *C,T0* a1){
T0* R=NULL;
T0* _an=NULL;
T0* _t=NULL;
/*IF*/if (!((C)->_run_type)) {
_an=rT92to_runnable((T92*)(C)->_like_what,a1);
/*IF*/if (!(_an)) {
rT100error((C)->_start_position,(T0 *)ms2_100);
}
else {
C->_like_what=_an;
}
/*FI*//*IF*/if (XrT62is_anchored(((T92*)(C)->_like_what)->_result_type)) {
rT48add_position((C)->_start_position);
rT48add_position(XrT62start_position(((T92*)(C)->_like_what)->_result_type));
rT48error((T48*)oRBC27eh,(T0 *)ms3_100);
}
/*FI*//*IF*/if (XrT62is_expanded(((T92*)(C)->_like_what)->_result_type)) {
rT48add_position((C)->_start_position);
rT48add_position(XrT62start_position(((T92*)(C)->_like_what)->_result_type));
rT48error((T48*)oRBC27eh,(T0 *)ms4_100);
}
/*FI*/C->_run_type=((T92*)(C)->_like_what)->_result_type;
R=(T0 *)C;
}
else {
R=rT100twin(C);
/*[IRF3:set_run_type*//*AW*/((T100*)R)->_run_type=(NULL);/*]*/
R=rT100to_runnable((T100*)R,a1);
}
/*FI*/return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_any(T100 *C){
int R=0;
R=XrT62is_any((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/void rT100cast_to_ref(T100 *C){
XrT62cast_to_ref((C)->_run_type);
}/*TYPE_LIKE_ARGUMENT*/void rT100error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*TYPE_LIKE_ARGUMENT*/int rT100is_boolean(T100 *C){
int R=0;
R=XrT62is_boolean((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100fast_mapping_c(T100 *C){
int R=0;
R=XrT62fast_mapping_c((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100id(T100 *C){
int R=0;
R=((T269*)rT100run_class(C))->_id;
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_array(T100 *C){
int R=0;
R=XrT62is_array((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_double(T100 *C){
int R=0;
R=XrT62is_double((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT100generic_list(T100 *C){
T0* R=NULL;
rT48add_type((T0 *)C,(T0 *)ms1_62);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_integer(T100 *C){
int R=0;
R=XrT62is_integer((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_real(T100 *C){
int R=0;
R=XrT62is_real((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_reference(T100 *C){
int R=0;
R=XrT62is_reference(((T92*)(C)->_like_what)->_result_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT100look_up_for(T100 *C,T0* a1,T0* a2){
T0* R=NULL;
R=rT53look_up_for((T53*)rT100base_class(C),a1,a2);
return R;
}
/*TYPE_LIKE_ARGUMENT*/void rT100mapping_cast(T100 *C){
rT7copy((T7*)oRBC62tmp_string,(T0 *)ms4_62);
rT2append_in(rT100id(C),oRBC62tmp_string);
/*IF*/if (rT100is_reference(C)) {
rT7extend((T7*)oRBC62tmp_string,'\52');
}
/*FI*/rT7extend((T7*)oRBC62tmp_string,'\51');
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_LIKE_ARGUMENT*/void rT100mapping_c_in(T100 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT100id(C),a1);
}/*TYPE_LIKE_ARGUMENT*/T0* rT100run_class(T100 *C){
T0* R=NULL;
R=rT55run_class((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_expanded(T100 *C){
int R=0;
R=!(rT100is_reference(C));
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_none(T100 *C){
int R=0;
R=XrT62is_none((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/void rT100to_reference(T100 *C){
XrT62to_reference((C)->_run_type);
}/*TYPE_LIKE_ARGUMENT*/T0* rT100smallest_ancestor(T100 *C,T0* a1){
T0* R=NULL;
R=XrT62smallest_ancestor((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT100base_class_name(T100 *C){
T0* R=NULL;
R=XrT62base_class_name((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT100base_class(T100 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT100base_class_name(C);
/*IF*/if (((int)_bcn)) {
R=rT51base_class((T51*)_bcn);
}
else {
rT48append((T0 *)ms2_62);
rT48add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_LIKE_ARGUMENT*/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,XrT62written_mark(a1))) {
R=1;
}
else {
_ct=((T269*)a2)->_current_type;
_t1=rT100to_runnable(C,_ct);
_t2=XrT62to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT62run_time_mark(_t1),XrT62run_time_mark(_t2))) {
R=1;
}
else {
R=XrT62is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
/*TYPE_LIKE_ARGUMENT*/void rT100copy(T100 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*TYPE_LIKE_ARGUMENT*/int rT100displacement(T100 *C){
int R=0;
R=XrT62displacement((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100is_a(T100 *C,T0* a1){
int R=0;
R=XrT62is_a((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT100has_creation(T100 *C,T0* a1){
int R=0;
R=XrT62has_creation((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_ARGUMENT*/void rT100make(T100 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1_100);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,((T92*)(C)->_like_what)->_to_string);
}/*TYPE_LIKE_ARGUMENT*/void rT100c_type_in(T100 *C,T0* a1){
XrT62c_type_in((C)->_run_type,a1);
}/*TYPE_LIKE_ARGUMENT*/void rT100to_expanded(T100 *C){
XrT62to_expanded((C)->_run_type);
}/*TYPE_LIKE_FEATURE*/int rT101is_run_type(T101 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_string(T101 *C){
int R=0;
R=XrT62is_string((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_character(T101 *C){
int R=0;
R=XrT62is_character((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_bit(T101 *C){
int R=0;
R=XrT62is_bit((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT101run_time_mark(T101 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_type)) {
R=XrT62run_time_mark((C)->_run_type);
}
/*FI*/return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT101to_runnable(T101 *C,T0* a1){
T0* R=NULL;
T0* _rc=NULL;
T0* _f=NULL;
T0* _t=NULL;
/*IF*/if (!((C)->_run_type)) {
_rc=XrT62run_class(a1);
_f=XrT62look_up_for(a1,_rc,(C)->_like_what);
/*IF*/if (!(_f)) {
rT101error((C)->_start_position,(T0 *)ms2_101);
}
else {
_t=/*XrT*E_FEATURE*/((T148*)_f)->_result_type;
/*IF*/if (!(_t)) {
rT48add_position(XrT66start_position(_f));
rT101error((C)->_start_position,(T0 *)ms3_101);
}
else {
_t=XrT62to_runnable(_t,a1);
/*IF*/if (!(_t)) {
rT101error((C)->_start_position,(T0 *)ms4_101);
}
else {
C->_run_type=XrT62run_type(_t);
R=(T0 *)C;
}
/*FI*/}
/*FI*/}
/*FI*/}
else {
{T101 *n=((T101*)se_new(101));
rT101make(n,(C)->_start_position,(C)->_like_what);
R=(T0 *)n;}
R=rT101to_runnable((T101*)R,a1);
}
/*FI*/return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_any(T101 *C){
int R=0;
R=XrT62is_any((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/void rT101cast_to_ref(T101 *C){
XrT62cast_to_ref((C)->_run_type);
}/*TYPE_LIKE_FEATURE*/void rT101error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*TYPE_LIKE_FEATURE*/int rT101is_boolean(T101 *C){
int R=0;
R=XrT62is_boolean((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101fast_mapping_c(T101 *C){
int R=0;
R=XrT62fast_mapping_c((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101id(T101 *C){
int R=0;
R=((T269*)rT101run_class(C))->_id;
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_array(T101 *C){
int R=0;
R=XrT62is_array((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_double(T101 *C){
int R=0;
R=XrT62is_double((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT101generic_list(T101 *C){
T0* R=NULL;
rT48add_type((T0 *)C,(T0 *)ms1_62);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_integer(T101 *C){
int R=0;
R=XrT62is_integer((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_real(T101 *C){
int R=0;
R=XrT62is_real((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_reference(T101 *C){
int R=0;
R=XrT62is_reference((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT101look_up_for(T101 *C,T0* a1,T0* a2){
T0* R=NULL;
R=rT53look_up_for((T53*)rT101base_class(C),a1,a2);
return R;
}
/*TYPE_LIKE_FEATURE*/void rT101mapping_cast(T101 *C){
rT7copy((T7*)oRBC62tmp_string,(T0 *)ms4_62);
rT2append_in(rT101id(C),oRBC62tmp_string);
/*IF*/if (rT101is_reference(C)) {
rT7extend((T7*)oRBC62tmp_string,'\52');
}
/*FI*/rT7extend((T7*)oRBC62tmp_string,'\51');
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_LIKE_FEATURE*/void rT101mapping_c_in(T101 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT101id(C),a1);
}/*TYPE_LIKE_FEATURE*/T0* rT101run_class(T101 *C){
T0* R=NULL;
R=rT55run_class((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_expanded(T101 *C){
int R=0;
R=!(rT101is_reference(C));
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_none(T101 *C){
int R=0;
R=XrT62is_none((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/void rT101to_reference(T101 *C){
XrT62to_reference((C)->_run_type);
}/*TYPE_LIKE_FEATURE*/T0* rT101smallest_ancestor(T101 *C,T0* a1){
T0* R=NULL;
R=XrT62smallest_ancestor((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT101base_class_name(T101 *C){
T0* R=NULL;
R=XrT62base_class_name((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT101base_class(T101 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT101base_class_name(C);
/*IF*/if (((int)_bcn)) {
R=rT51base_class((T51*)_bcn);
}
else {
rT48append((T0 *)ms2_62);
rT48add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_LIKE_FEATURE*/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*)(C)->_written_mark,XrT62written_mark(a1))) {
R=1;
}
else {
_ct=((T269*)a2)->_current_type;
_t1=rT101to_runnable(C,_ct);
_t2=XrT62to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT62run_time_mark(_t1),XrT62run_time_mark(_t2))) {
R=1;
}
else {
R=XrT62is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
/*TYPE_LIKE_FEATURE*/int rT101displacement(T101 *C){
int R=0;
R=XrT62displacement((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101is_a(T101 *C,T0* a1){
int R=0;
R=XrT62is_a((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT101has_creation(T101 *C,T0* a1){
int R=0;
R=XrT62has_creation((C)->_run_type,a1);
return R;
}
/*TYPE_LIKE_FEATURE*/void rT101make(T101 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1_101);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,/*XrT*FEATURE_NAME*/((T70*)(C)->_like_what)->_to_string);
}/*TYPE_LIKE_FEATURE*/void rT101c_type_in(T101 *C,T0* a1){
XrT62c_type_in((C)->_run_type,a1);
}/*TYPE_LIKE_FEATURE*/void rT101to_expanded(T101 *C){
XrT62to_expanded((C)->_run_type);
}/*TYPE_EXPANDED*/int rT102is_run_type(T102 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_EXPANDED*/void rT102c_initialize_expanded(T102 *C){
T0* _rf=NULL;
int _i=0;
T0* _wa=NULL;
rT44put_character((T44*)oRBC27cpp,'\173');
_wa=rT269writable_attributes((T269*)rT102run_class(C));
/*IF*/if (!(_wa)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms14_62);
}
else {
_i=/*XrT*ARRAY[RUN_FEATURE]*/((T273*)_wa)->_upper;
while (!((_i)==(0))) {
_rf=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)_wa,_i);
XrT62c_initialize(/*XrT*RUN_FEATURE*/((T274*)_rf)->_result_type);
_i=(_i)-(1);
/*IF*/if ((_i)>(0)) {
rT44put_character((T44*)oRBC27cpp,'\54');
}
/*FI*/}
}
/*FI*/rT44put_character((T44*)oRBC27cpp,'\175');
}/*TYPE_EXPANDED*/void rT102c_initialize(T102 *C){
rT102c_initialize_expanded(C);
}/*TYPE_EXPANDED*/void rT102fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*TYPE_EXPANDED*/T0* rT102run_time_mark(T102 *C){
T0* R=NULL;
R=((T102*)(C)->_run_type)->_written_mark;
return R;
}
/*TYPE_EXPANDED*/T0* rT102to_runnable(T102 *C,T0* a1){
T0* R=NULL;
T0* _m=NULL;
_m=XrT62to_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 {
{T102 *n=((T102*)se_new(102));
rT102make(n,(C)->_start_position,_m);
C->_run_type=(T0 *)n;}
C->_run_type=rT102to_runnable((T102*)(C)->_run_type,a1);
}
/*FI*/rT53check_expanded_with((T53*)rT102base_class((T102*)(C)->_run_type),(C)->_run_type);
rT269set_at_run_time((T269*)rT102run_class(C));
}
 else if (((T0 *)_m)==((T0 *)((T102*)(C)->_run_type)->_mapped)) {
R=(T0 *)C;
}
else {
{T102 *n=((T102*)se_new(102));
rT102make(n,(C)->_start_position,(C)->_mapped);
R=(T0 *)n;}
R=rT102to_runnable((T102*)R,a1);
}
/*FI*/return R;
}
/*TYPE_EXPANDED*/void rT102cast_to_ref(T102 *C){
rT102cast_to_ref((T102*)(C)->_run_type);
}/*TYPE_EXPANDED*/int rT102id(T102 *C){
int R=0;
R=((T269*)rT102run_class(C))->_id;
return R;
}
/*TYPE_EXPANDED*/T0* rT102generic_list(T102 *C){
T0* R=NULL;
rT48add_type((T0 *)C,(T0 *)ms1_62);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
return R;
}
/*TYPE_EXPANDED*/T0* rT102look_up_for(T102 *C,T0* a1,T0* a2){
T0* R=NULL;
R=rT53look_up_for((T53*)rT102base_class(C),a1,a2);
return R;
}
/*TYPE_EXPANDED*/void rT102mapping_cast(T102 *C){
rT7copy((T7*)oRBC62tmp_string,(T0 *)ms4_62);
rT2append_in(rT102id(C),oRBC62tmp_string);
/*IF*//*AF*//*AE*/
/*FI*/rT7extend((T7*)oRBC62tmp_string,'\51');
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_EXPANDED*/void rT102mapping_c_in(T102 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT102id(C),a1);
}/*TYPE_EXPANDED*/T0* rT102run_class(T102 *C){
T0* R=NULL;
R=rT55run_class((C)->_run_type);
return R;
}
/*TYPE_EXPANDED*/T0* rT102smallest_ancestor(/*C*/T0* a1){
T0* R=NULL;
rT102fatal_error((T0 *)ms2_102);
return R;
}

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