This is pretty11.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"
/*E_STRIP*/void rT172bracketed_print(T172 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT172pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*E_STRIP*/T0* rT172add_comment(T172 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T226 *n=((T226*)se_new(226));
rT226make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*E_STRIP*/void rT172print_as_target(T172 *C){
rT172pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*E_STRIP*/T0* rT172start_position(T172 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_list)) {
R=/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_list,1))->_start_position;
}
/*FI*/return R;
}
/*E_STRIP*/void rT172pretty_print(T172 *C){
int _i=0;
rT267put_string((T267*)oRBC27fmt,(T0 *)ms4_172);
rT267level_incr((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_list)) {
rT128pretty_print((T128*)(C)->_list);
}
/*FI*/rT267put_string((T267*)oRBC27fmt,(T0 *)ms5_172);
rT267level_decr((T267*)oRBC27fmt);
}/*E_STRIP*/void rT172make(T172 *C,T0* a1,T0* a2){
/*IF*/if (((int)a2)) {
{T128 *n=((T128*)se_new(128));
rT128make(n,a2);
C->_list=(T0 *)n;}
}
/*FI*/}T0*oRBC71tmp_string;
/*TMP_NAME*/T0* rT71to_prefix_name(T71 *C){
T0* R=NULL;
{T68 *n=((T68*)se_new(68));
rT68make(n,rT7twin((T7*)(C)->_to_string),rT71pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/void rT71extend(T71 *C,char a1){
rT7extend((T7*)(C)->_to_string,a1);
}/*TMP_NAME*/T0* rT71to_e_void(T71 *C){
T0* R=NULL;
{T175 *n=((T175*)se_new(175));
rT175make(n,rT71pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_e_result(T71 *C){
T0* R=NULL;
{T174 *n=((T174*)se_new(174));
rT174make(n,rT71pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_e_current(T71 *C){
T0* R=NULL;
{T92 *n=((T92*)se_new(92));
rT92make(n,rT71pos((C)->_li,(C)->_co),1);
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/int rT71isa_keyword(T71 *C){
int R=0;
T0* _kt=NULL;
int _i=0;
_kt=oRBC71keyword_table;
_i=((T45*)_kt)->_upper;
while (!(((_i)==(0))||(rT7same_as((T7*)rT45item((T45*)_kt,_i),(C)->_to_string)))) {
_i=(_i)-(1);
}
R=(_i)>(0);
return R;
}
/*TMP_NAME*/int rT71count(T71 *C){
int R=0;
R=((T7*)(C)->_to_string)->_count;
return R;
}
/*TMP_NAME*/T0* rT71to_feature_name(T71 *C){
T0* R=NULL;
{T69 *n=((T69*)se_new(69));
rT69make(n,rT7twin((T7*)(C)->_to_string),rT71pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71start_position(T71 *C){
T0* R=NULL;
{T47 *n=((T47*)se_new(47));
rT47make(n,(C)->_li,(C)->_co);
R=(T0 *)n;}
return R;
}
T0*oRBC71keyword_table;
/*TMP_NAME*/T0* rT71to_class_name(T71 *C){
T0* R=NULL;
{T49 *n=((T49*)se_new(49));
rT49make(n,(C)->_to_string,rT71pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_key(T71 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*TMP_NAME*/T0* rT71pos(/*C*/int a1,int a2){
T0* R=NULL;
{T47 *n=((T47*)se_new(47));
rT47make(n,a1,a2);
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_argument_name_declaration(T71 *C){
T0* R=NULL;
{T90 *n=((T90*)se_new(90));
rT90make(n,rT71pos((C)->_li,(C)->_co),rT7twin((T7*)(C)->_to_string));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_argument_name(T71 *C,T0* a1,int a2){
T0* R=NULL;
{T90 *n=((T90*)se_new(90));
rT90refer_to(n,rT71pos((C)->_li,(C)->_co),a1,a2);
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_tag_name(T71 *C){
T0* R=NULL;
{T161 *n=((T161*)se_new(161));
rT161make(n,rT7twin((T7*)(C)->_to_string),rT71pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_infix_name_use(T71 *C){
T0* R=NULL;
{T72 *n=((T72*)se_new(72));
rT72make(n,rT7twin((T7*)(C)->_to_string),rT71pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_infix_name(T71 *C,T0* a1){
T0* R=NULL;
{T72 *n=((T72*)se_new(72));
rT72make(n,rT7twin((T7*)(C)->_to_string),a1);
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_local_name_declaration(T71 *C){
T0* R=NULL;
{T184 *n=((T184*)se_new(184));
rT184make(n,rT71pos((C)->_li,(C)->_co),rT7twin((T7*)(C)->_to_string));
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/T0* rT71to_local_name(T71 *C,T0* a1,int a2){
T0* R=NULL;
{T184 *n=((T184*)se_new(184));
rT184refer_to(n,rT71pos((C)->_li,(C)->_co),a1,a2);
R=(T0 *)n;}
return R;
}
/*TMP_NAME*/void rT71make(T71 *C,int a1,int a2){
C->_li=a1;
C->_co=a2;
C->_to_string=oRBC71tmp_string;
/*[IRF3:clear*//*AW*/((T7*)(C)->_to_string)->_count=(0);/*]*/
}/*E_TRUE*/T0* rT75add_comment(T75 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T226 *n=((T226*)se_new(226));
rT226make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT98is_run_type(T98 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT98is_string(T98 *C){
int R=0;
R=XrT60is_string((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT98is_character(T98 *C){
int R=0;
R=XrT60is_character((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT98is_bit(T98 *C){
int R=0;
R=XrT60is_bit((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT98run_time_mark(T98 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_type)) {
R=XrT60run_time_mark((C)->_run_type);
}
/*FI*/return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT98is_boolean(T98 *C){
int R=0;
R=XrT60is_boolean((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT98is_double(T98 *C){
int R=0;
R=XrT60is_double((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/void rT98pretty_print(T98 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_written_mark);
}/*TYPE_LIKE_ARGUMENT*/int rT98is_integer(T98 *C){
int R=0;
R=XrT60is_integer((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/int rT98is_real(T98 *C){
int R=0;
R=XrT60is_real((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT98base_class_name(T98 *C){
T0* R=NULL;
R=XrT60base_class_name((C)->_run_type);
return R;
}
/*TYPE_LIKE_ARGUMENT*/T0* rT98base_class(T98 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT98base_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_LIKE_ARGUMENT*/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 *)ms1_98);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,((T90*)(C)->_like_what)->_to_string);
}/*TYPE_LIKE_CURRENT*/int rT93is_run_type(T93 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT93is_string(T93 *C){
int R=0;
R=XrT60is_string((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT93is_character(T93 *C){
int R=0;
R=XrT60is_character((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT93is_bit(T93 *C){
int R=0;
R=XrT60is_bit((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT93run_time_mark(T93 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_type)) {
R=XrT60run_time_mark((C)->_run_type);
}
/*FI*/return R;
}
/*TYPE_LIKE_CURRENT*/int rT93is_boolean(T93 *C){
int R=0;
R=XrT60is_boolean((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT93is_double(T93 *C){
int R=0;
R=XrT60is_double((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT93is_integer(T93 *C){
int R=0;
R=XrT60is_integer((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/int rT93is_real(T93 *C){
int R=0;
R=XrT60is_real((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT93base_class_name(T93 *C){
T0* R=NULL;
R=XrT60base_class_name((C)->_run_type);
return R;
}
/*TYPE_LIKE_CURRENT*/T0* rT93base_class(T93 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT93base_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_LIKE_CURRENT*/void rT93make(T93 *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 92:
break;
default:
C->_like_what = NULL;
};}/*TYPE_ANY*/T0* rT89run_type(T89 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_ANY*/T0* rT89start_position(T89 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_ANY*/T0* rT89base_class(T89 *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_ANY*/void rT89make(T89 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms36_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_LIKE_FEATURE*/int rT99is_run_type(T99 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT99is_string(T99 *C){
int R=0;
R=XrT60is_string((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT99is_character(T99 *C){
int R=0;
R=XrT60is_character((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT99is_bit(T99 *C){
int R=0;
R=XrT60is_bit((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT99run_time_mark(T99 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_type)) {
R=XrT60run_time_mark((C)->_run_type);
}
/*FI*/return R;
}
/*TYPE_LIKE_FEATURE*/int rT99is_boolean(T99 *C){
int R=0;
R=XrT60is_boolean((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT99is_double(T99 *C){
int R=0;
R=XrT60is_double((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/void rT99pretty_print(T99 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_written_mark);
}/*TYPE_LIKE_FEATURE*/int rT99is_integer(T99 *C){
int R=0;
R=XrT60is_integer((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/int rT99is_real(T99 *C){
int R=0;
R=XrT60is_real((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT99base_class_name(T99 *C){
T0* R=NULL;
R=XrT60base_class_name((C)->_run_type);
return R;
}
/*TYPE_LIKE_FEATURE*/T0* rT99base_class(T99 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT99base_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_LIKE_FEATURE*/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 *)ms1_99);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,/*XrT*FEATURE_NAME*/((T68*)(C)->_like_what)->_to_string);
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.