This is pretty12.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"
/*TYPE_EXPANDED*/int rT100is_run_type(T100 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_EXPANDED*/T0* rT100run_time_mark(T100 *C){
T0* R=NULL;
R=((T100*)(C)->_run_type)->_written_mark;
return R;
}
/*TYPE_EXPANDED*/void rT100pretty_print(T100 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_written_mark);
}/*TYPE_EXPANDED*/T0* rT100base_class_name(T100 *C){
T0* R=NULL;
R=XrT60base_class_name((C)->_mapped);
return R;
}
/*TYPE_EXPANDED*/T0* rT100base_class(T100 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT100base_class_name(C);
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_EXPANDED*/void rT100make(T100 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_mapped=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1_100);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT60written_mark((C)->_mapped));
}/*TYPE_BIT_1*/T0* rT101run_type(T101 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_BIT_1*/T0* rT101run_time_mark(T101 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms9_102);
R=(T0 *)n;}
rT7append((T7*)R,rT2to_string(rT101nb(C)));
return R;
}
/*TYPE_BIT_1*/void rT101pretty_print(T101 *C){
rT267put_string((T267*)oRBC27fmt,rT101written_mark(C));
}/*TYPE_BIT_1*/int rT101nb(T101 *C){
int R=0;
R=((T82*)(C)->_n)->_value;
return R;
}
int ofBC102base_class_name=0;
T0*oRBC102base_class_name;
/*TYPE_BIT_1*/T0* rT101base_class_name(/*C*/void){
if (ofBC102base_class_name==0){
T0* R=NULL;
ofBC102base_class_name=1;
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms1_102,NULL);
R=(T0 *)n;}
oRBC102base_class_name=R;}
return oRBC102base_class_name;}
/*TYPE_BIT_1*/T0* rT101base_class(T101 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT101base_class_name();
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_BIT_1*/T0* rT101written_mark(T101 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1_101);
R=(T0 *)n;}
rT7append((T7*)R,rT2to_string(rT101nb(C)));
return R;
}
/*TYPE_BIT_1*/void rT101make(T101 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_n=a2;
}/*TYPE_BIT_2*/int rT103is_run_type(T103 *C){
int R=0;
R=((C)->_nb)>=(0);
return R;
}
/*TYPE_BIT_2*/T0* rT103run_type(T103 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_BIT_2*/T0* rT103run_time_mark(T103 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms9_102);
R=(T0 *)n;}
rT7append((T7*)R,rT2to_string((C)->_nb));
return R;
}
/*TYPE_BIT_2*/void rT103pretty_print(T103 *C){
rT267put_string((T267*)oRBC27fmt,rT103written_mark(C));
}/*TYPE_BIT_2*/T0* rT103base_class_name(/*C*/void){
if (ofBC102base_class_name==0){
T0* R=NULL;
ofBC102base_class_name=1;
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms1_102,NULL);
R=(T0 *)n;}
oRBC102base_class_name=R;}
return oRBC102base_class_name;}
/*TYPE_BIT_2*/T0* rT103base_class(T103 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT103base_class_name();
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_BIT_2*/T0* rT103written_mark(T103 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms4_103);
R=(T0 *)n;}
rT7append((T7*)R,/*XrT*FEATURE_NAME*/((T68*)(C)->_n)->_to_string);
return R;
}
/*TYPE_BIT_2*/void rT103make(T103 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_n=a2;
C->_nb=-(1);
}/*TYPE_FORMAL_GENERIC*/int rT104is_run_type(T104 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/int rT104is_string(T104 *C){
int R=0;
R=XrT60is_string((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/int rT104is_character(T104 *C){
int R=0;
R=XrT60is_character((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/int rT104is_bit(T104 *C){
int R=0;
R=XrT60is_bit((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/T0* rT104run_time_mark(T104 *C){
T0* R=NULL;
R=XrT60run_time_mark((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/int rT104is_boolean(T104 *C){
int R=0;
R=XrT60is_boolean((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/T0* rT104start_position(T104 *C){
T0* R=NULL;
R=((T49*)(C)->_formal_name)->_start_position;
return R;
}
/*TYPE_FORMAL_GENERIC*/int rT104is_double(T104 *C){
int R=0;
R=XrT60is_double((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/void rT104pretty_print(T104 *C){
rT267put_string((T267*)oRBC27fmt,rT104written_mark(C));
}/*TYPE_FORMAL_GENERIC*/int rT104is_integer(T104 *C){
int R=0;
R=XrT60is_integer((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/int rT104is_real(T104 *C){
int R=0;
R=XrT60is_real((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/T0* rT104base_class_name(T104 *C){
T0* R=NULL;
R=XrT60base_class_name((C)->_run_type);
return R;
}
/*TYPE_FORMAL_GENERIC*/T0* rT104base_class(T104 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT104base_class_name(C);
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_FORMAL_GENERIC*/T0* rT104written_mark(T104 *C){
T0* R=NULL;
R=((T49*)(C)->_formal_name)->_to_string;
return R;
}
/*TYPE_FORMAL_GENERIC*/void rT104make(T104 *C,T0* a1,int a2){
C->_rank=a2;
C->_formal_name=a1;
}/*TYPE_ARRAY*/int rT105is_run_type(T105 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_ARRAY*/T0* rT105run_time_mark(T105 *C){
T0* R=NULL;
R=((T105*)(C)->_run_type)->_written_mark;
return R;
}
/*TYPE_ARRAY*/T0* rT105start_position(T105 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_ARRAY*/void rT105pretty_print(T105 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_written_mark);
}/*TYPE_ARRAY*/T0* rT105base_class(T105 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=(C)->_base_class_name;
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_ARRAY*/void rT105make(T105 *C,T0* a1,T0* a2){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms37_27,a1);
C->_base_class_name=(T0 *)n;}
C->_generic_list=ma(106,0,1,a2);
/*IF*/if (((T0 *)XrT60run_type(a2))==((T0 *)a2)) {
C->_run_type=(T0 *)C;
}
/*FI*/{T7 *n=((T7*)se_new(7));
rT7make(n,16);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,(T0 *)ms37_27);
rT7extend((T7*)(C)->_written_mark,'\133');
rT7append((T7*)(C)->_written_mark,XrT60written_mark(a2));
rT7extend((T7*)(C)->_written_mark,'\135');
}/*TYPE_BOOLEAN*/T0* rT107run_type(T107 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_BOOLEAN*/T0* rT107start_position(T107 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_BOOLEAN*/T0* rT107base_class(T107 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=(C)->_base_class_name;
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_BOOLEAN*/void rT107make(T107 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms40_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_CHARACTER*/T0* rT109run_type(T109 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_CHARACTER*/T0* rT109start_position(T109 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_CHARACTER*/T0* rT109base_class(T109 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=(C)->_base_class_name;
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_CHARACTER*/void rT109make(T109 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms42_27,a1);
C->_base_class_name=(T0 *)n;}
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.