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

This is pretty5.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 "pretty.h"
/*CST_ATT_BOOLEAN*/T0* rT150first_name(T150 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
/*CST_ATT_BOOLEAN*/void rT150pretty_tail(T150 *C){
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_147);
XrT73pretty_print(rT150value(C,1));
}/*CST_ATT_BOOLEAN*/void rT150pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (/*XrT*FEATURE_NAME*/((T68*)a1)->_is_frozen) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms11_64);
}
/*FI*/XrT69pretty_print(a1);
}/*CST_ATT_BOOLEAN*/void rT150pretty_print_names(T150 *C){
int _i=0;
_i=1;
rT150pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT150pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*CST_ATT_BOOLEAN*/void rT150pretty_print_profile(T150 *C){
rT150pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
/*[IRF3:pretty_print_arguments*//*]*/
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(3);/*]*/
/*IF*/if (((int)(C)->_result_type)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms9_64);
XrT60pretty_print((C)->_result_type);
}
/*FI*/}/*CST_ATT_BOOLEAN*/void rT150pretty_print(T150 *C){
rT150pretty_print_profile(C);
rT150pretty_tail(C);
rT267put_character((T267*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*/}/*CST_ATT_BOOLEAN*/void rT150add_into(T150 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT47base_class((T47*)/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,1))->_start_position);
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT63has((T63*)a1,XrT69to_key(_fn))) {
_fn=XrT64first_name(rT63at((T63*)a1,XrT69to_key(_fn)));
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,_i))->_start_position);
rT46error((T46*)oRBC27eh,(T0 *)ms12_64);
rT46append(/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT46error((T46*)oRBC27eh,(T0 *)ms102_27);
}
else {
rT63put((T63*)a1,(T0 *)C,XrT69to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}/*CST_ATT_BOOLEAN*/T0* rT150value(T150 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_BOOLEAN*/void rT150make_e_feature(T150 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_BOOLEAN*/void rT150make(T150 *C,T0* a1,T0* a2,T0* a3){
rT150make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*CST_ATT_CHARACTER*/T0* rT151first_name(T151 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
/*CST_ATT_CHARACTER*/void rT151pretty_tail(T151 *C){
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_147);
rT77pretty_print((T77*)rT151value(C,1));
}/*CST_ATT_CHARACTER*/void rT151pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (/*XrT*FEATURE_NAME*/((T68*)a1)->_is_frozen) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms11_64);
}
/*FI*/XrT69pretty_print(a1);
}/*CST_ATT_CHARACTER*/void rT151pretty_print_names(T151 *C){
int _i=0;
_i=1;
rT151pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT151pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*CST_ATT_CHARACTER*/void rT151pretty_print_profile(T151 *C){
rT151pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
/*[IRF3:pretty_print_arguments*//*]*/
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(3);/*]*/
/*IF*/if (((int)(C)->_result_type)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms9_64);
XrT60pretty_print((C)->_result_type);
}
/*FI*/}/*CST_ATT_CHARACTER*/void rT151pretty_print(T151 *C){
rT151pretty_print_profile(C);
rT151pretty_tail(C);
rT267put_character((T267*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*/}/*CST_ATT_CHARACTER*/void rT151add_into(T151 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT47base_class((T47*)/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,1))->_start_position);
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT63has((T63*)a1,XrT69to_key(_fn))) {
_fn=XrT64first_name(rT63at((T63*)a1,XrT69to_key(_fn)));
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,_i))->_start_position);
rT46error((T46*)oRBC27eh,(T0 *)ms12_64);
rT46append(/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT46error((T46*)oRBC27eh,(T0 *)ms102_27);
}
else {
rT63put((T63*)a1,(T0 *)C,XrT69to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}/*CST_ATT_CHARACTER*/T0* rT151value(T151 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_CHARACTER*/void rT151make_e_feature(T151 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_CHARACTER*/void rT151make(T151 *C,T0* a1,T0* a2,T0* a3){
rT151make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*CST_ATT_STRING*/T0* rT152first_name(T152 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
/*CST_ATT_STRING*/void rT152pretty_tail(T152 *C){
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_147);
rT78pretty_print((T78*)rT152value(C,1));
}/*CST_ATT_STRING*/void rT152pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (/*XrT*FEATURE_NAME*/((T68*)a1)->_is_frozen) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms11_64);
}
/*FI*/XrT69pretty_print(a1);
}/*CST_ATT_STRING*/void rT152pretty_print_names(T152 *C){
int _i=0;
_i=1;
rT152pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT152pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*CST_ATT_STRING*/void rT152pretty_print_profile(T152 *C){
rT152pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
/*[IRF3:pretty_print_arguments*//*]*/
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(3);/*]*/
/*IF*/if (((int)(C)->_result_type)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms9_64);
XrT60pretty_print((C)->_result_type);
}
/*FI*/}/*CST_ATT_STRING*/void rT152pretty_print(T152 *C){
rT152pretty_print_profile(C);
rT152pretty_tail(C);
rT267put_character((T267*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*/}/*CST_ATT_STRING*/void rT152add_into(T152 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT47base_class((T47*)/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,1))->_start_position);
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT63has((T63*)a1,XrT69to_key(_fn))) {
_fn=XrT64first_name(rT63at((T63*)a1,XrT69to_key(_fn)));
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,_i))->_start_position);
rT46error((T46*)oRBC27eh,(T0 *)ms12_64);
rT46append(/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT46error((T46*)oRBC27eh,(T0 *)ms102_27);
}
else {
rT63put((T63*)a1,(T0 *)C,XrT69to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}/*CST_ATT_STRING*/T0* rT152value(T152 *C,int a1){
T0* R=NULL;
R=rT153item((T153*)(C)->_values,a1);
return R;
}
/*CST_ATT_STRING*/void rT152make_e_feature(T152 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_STRING*/void rT152make(T152 *C,T0* a1,T0* a2,T0* a3){
T0* _ms=NULL;
int _i=0;
rT152make_e_feature(C,a1,a2);
{T153 *n=((T153*)se_new(153));
rT153make(n,1,rT128count((T128*)(C)->_names));
C->_values=(T0 *)n;}
rT153put((T153*)(C)->_values,a3,1);
_i=2;
while (!((_i)>(((T153*)(C)->_values)->_upper))) {
{T78 *n=((T78*)se_new(78));
rT78from_manifest_string(n,a3,_i);
_ms=(T0 *)n;}
rT153put((T153*)(C)->_values,_ms,_i);
_i=(_i)+(1);
}
}/*CST_ATT_BIT*/T0* rT154first_name(T154 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
/*CST_ATT_BIT*/void rT154pretty_tail(T154 *C){
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_147);
rT79pretty_print((T79*)rT154value(C,1));
}/*CST_ATT_BIT*/void rT154pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (/*XrT*FEATURE_NAME*/((T68*)a1)->_is_frozen) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms11_64);
}
/*FI*/XrT69pretty_print(a1);
}/*CST_ATT_BIT*/void rT154pretty_print_names(T154 *C){
int _i=0;
_i=1;
rT154pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT154pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*CST_ATT_BIT*/void rT154pretty_print_profile(T154 *C){
rT154pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
/*[IRF3:pretty_print_arguments*//*]*/
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(3);/*]*/
/*IF*/if (((int)(C)->_result_type)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms9_64);
XrT60pretty_print((C)->_result_type);
}
/*FI*/}/*CST_ATT_BIT*/void rT154pretty_print(T154 *C){
rT154pretty_print_profile(C);
rT154pretty_tail(C);
rT267put_character((T267*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*/}/*CST_ATT_BIT*/void rT154add_into(T154 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT47base_class((T47*)/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,1))->_start_position);
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT63has((T63*)a1,XrT69to_key(_fn))) {
_fn=XrT64first_name(rT63at((T63*)a1,XrT69to_key(_fn)));
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,_i))->_start_position);
rT46error((T46*)oRBC27eh,(T0 *)ms12_64);
rT46append(/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT46error((T46*)oRBC27eh,(T0 *)ms102_27);
}
else {
rT63put((T63*)a1,(T0 *)C,XrT69to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}/*CST_ATT_BIT*/T0* rT154value(T154 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_BIT*/void rT154make_e_feature(T154 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_BIT*/void rT154make(T154 *C,T0* a1,T0* a2,T0* a3){
rT154make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*CST_ATT_REAL*/T0* rT155first_name(T155 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
/*CST_ATT_REAL*/void rT155pretty_tail(T155 *C){
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_147);
rT81pretty_print((T81*)rT155value(C,1));
}/*CST_ATT_REAL*/void rT155pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (/*XrT*FEATURE_NAME*/((T68*)a1)->_is_frozen) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms11_64);
}
/*FI*/XrT69pretty_print(a1);
}/*CST_ATT_REAL*/void rT155pretty_print_names(T155 *C){
int _i=0;
_i=1;
rT155pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT155pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*CST_ATT_REAL*/void rT155pretty_print_profile(T155 *C){
rT155pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
/*[IRF3:pretty_print_arguments*//*]*/
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(3);/*]*/
/*IF*/if (((int)(C)->_result_type)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms9_64);
XrT60pretty_print((C)->_result_type);
}
/*FI*/}/*CST_ATT_REAL*/void rT155pretty_print(T155 *C){
rT155pretty_print_profile(C);
rT155pretty_tail(C);
rT267put_character((T267*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*/}/*CST_ATT_REAL*/void rT155add_into(T155 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT47base_class((T47*)/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,1))->_start_position);
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT63has((T63*)a1,XrT69to_key(_fn))) {
_fn=XrT64first_name(rT63at((T63*)a1,XrT69to_key(_fn)));
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,_i))->_start_position);
rT46error((T46*)oRBC27eh,(T0 *)ms12_64);
rT46append(/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT46error((T46*)oRBC27eh,(T0 *)ms102_27);
}
else {
rT63put((T63*)a1,(T0 *)C,XrT69to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}/*CST_ATT_REAL*/T0* rT155value(T155 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_REAL*/void rT155make_e_feature(T155 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_REAL*/void rT155make(T155 *C,T0* a1,T0* a2,T0* a3){
rT155make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*CST_ATT_DOUBLE*/T0* rT156first_name(T156 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
/*CST_ATT_DOUBLE*/void rT156pretty_tail(T156 *C){
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_147);
rT81pretty_print((T81*)rT156value(C,1));
}/*CST_ATT_DOUBLE*/void rT156pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (/*XrT*FEATURE_NAME*/((T68*)a1)->_is_frozen) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms11_64);
}
/*FI*/XrT69pretty_print(a1);
}/*CST_ATT_DOUBLE*/void rT156pretty_print_names(T156 *C){
int _i=0;
_i=1;
rT156pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT156pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*CST_ATT_DOUBLE*/void rT156pretty_print_profile(T156 *C){
rT156pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
/*[IRF3:pretty_print_arguments*//*]*/
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(3);/*]*/
/*IF*/if (((int)(C)->_result_type)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms9_64);
XrT60pretty_print((C)->_result_type);
}
/*FI*/}/*CST_ATT_DOUBLE*/void rT156pretty_print(T156 *C){
rT156pretty_print_profile(C);
rT156pretty_tail(C);
rT267put_character((T267*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*/}/*CST_ATT_DOUBLE*/void rT156add_into(T156 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT47base_class((T47*)/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,1))->_start_position);
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT63has((T63*)a1,XrT69to_key(_fn))) {
_fn=XrT64first_name(rT63at((T63*)a1,XrT69to_key(_fn)));
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,_i))->_start_position);
rT46error((T46*)oRBC27eh,(T0 *)ms12_64);
rT46append(/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT46error((T46*)oRBC27eh,(T0 *)ms102_27);
}
else {
rT63put((T63*)a1,(T0 *)C,XrT69to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}/*CST_ATT_DOUBLE*/T0* rT156value(T156 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_DOUBLE*/void rT156make_e_feature(T156 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_DOUBLE*/void rT156make(T156 *C,T0* a1,T0* a2,T0* a3){
rT156make_e_feature(C,a1,a2);
C->_value_mem=a3;
}

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