This is pretty28.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"
/*CALL_INFIX_FREEOP*/void rT186bracketed_print(T186 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT186pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_FREEOP*/T0* rT186arg1(T186 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_FREEOP*/T0* rT186add_comment(T186 *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;
}
/*CALL_INFIX_FREEOP*/void rT186print_as_target(T186 *C){
rT186bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_FREEOP*/void rT186print_op(T186 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_FREEOP*/T0* rT186start_position(T186 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_FREEOP*/void rT186pretty_print(T186 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT186print_op(C);
/*IF*/if ((XrT70precedence(rT186arg1(C)))==(13)) {
XrT70pretty_print(rT186arg1(C));
}
else if ((10)>=(XrT70precedence(rT186arg1(C)))) {
XrT70bracketed_print(rT186arg1(C));
}
else {
XrT70pretty_print(rT186arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(10)) {
XrT70bracketed_print((C)->_target);
rT186print_op(C);
XrT70pretty_print(rT186arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT186print_op(C);
XrT70pretty_print(rT186arg1(C));
}
/*FI*/}/*CALL_INFIX_FREEOP*/void rT186make_call_1(T186 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_FREEOP*/void rT186make(T186 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT186make_call_1(C,a1,a2,_eal);
}/*CALL_N*/void rT178bracketed_print(T178 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT178pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_N*/T0* rT178add_comment(T178 *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;
}
/*CALL_N*/void rT178print_as_target(T178 *C){
rT178pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_N*/T0* rT178start_position(T178 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_N*/void rT178pretty_print(T178 *C){
XrT70print_as_target((C)->_target);
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_to_string);
rT267level_incr((T267*)oRBC27fmt);
rT173pretty_print((T173*)(C)->_arguments);
rT267level_decr((T267*)oRBC27fmt);
}/*CALL_N*/void rT178make(T178 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_1*/void rT177bracketed_print(T177 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT177pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_1*/T0* rT177arg1(T177 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_1*/T0* rT177add_comment(T177 *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;
}
/*CALL_1*/void rT177print_as_target(T177 *C){
rT177pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_1*/T0* rT177start_position(T177 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_1*/void rT177pretty_print(T177 *C){
XrT70print_as_target((C)->_target);
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\50');
XrT70pretty_print(rT177arg1(C));
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_1*/void rT177make(T177 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_0*/void rT165bracketed_print(T165 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT165pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_0*/T0* rT165add_comment(T165 *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;
}
/*CALL_0*/void rT165print_as_target(T165 *C){
rT165pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_0*/T0* rT165start_position(T165 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_0*/void rT165pretty_print(T165 *C){
XrT70print_as_target((C)->_target);
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_to_string);
}/*CALL_0*/void rT165make(T165 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_NOT*/void rT170bracketed_print(T170 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT170pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_PREFIX_NOT*/T0* rT170add_comment(T170 *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;
}
/*CALL_PREFIX_NOT*/void rT170print_as_target(T170 *C){
rT170bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_PREFIX_NOT*/T0* rT170start_position(T170 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_NOT*/void rT170pretty_print(T170 *C){
rT68pretty_print2((T68*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
/*IF*/if ((XrT70precedence((C)->_target))<(11)) {
rT267put_character((T267*)oRBC27fmt,'\50');
XrT70pretty_print((C)->_target);
rT267put_character((T267*)oRBC27fmt,'\51');
}
else {
XrT70pretty_print((C)->_target);
}
/*FI*/}/*CALL_PREFIX_NOT*/void rT170make_call0(T170 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_NOT*/void rT170make(T170 *C,T0* a1,T0* a2){
{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms118_27/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT170make_call0(C,a2,(C)->_feature_name);
}/*CALL_PREFIX_FREEOP*/void rT163bracketed_print(T163 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT163pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_PREFIX_FREEOP*/T0* rT163add_comment(T163 *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;
}
/*CALL_PREFIX_FREEOP*/void rT163print_as_target(T163 *C){
rT163bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_PREFIX_FREEOP*/T0* rT163start_position(T163 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_FREEOP*/void rT163pretty_print(T163 *C){
rT68pretty_print2((T68*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
/*IF*/if ((XrT70precedence((C)->_target))<(11)) {
rT267put_character((T267*)oRBC27fmt,'\50');
XrT70pretty_print((C)->_target);
rT267put_character((T267*)oRBC27fmt,'\51');
}
else {
XrT70pretty_print((C)->_target);
}
/*FI*/}/*CALL_PREFIX_FREEOP*/void rT163make_call0(T163 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_FREEOP*/void rT163make(T163 *C,T0* a1,T0* a2){
rT163make_call0(C,a1,a2);
}/*CALL_PREFIX_MINUS*/void rT168bracketed_print(T168 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT168pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_PREFIX_MINUS*/T0* rT168add_comment(T168 *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;
}
/*CALL_PREFIX_MINUS*/void rT168print_as_target(T168 *C){
rT168bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_PREFIX_MINUS*/T0* rT168start_position(T168 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_MINUS*/void rT168pretty_print(T168 *C){
rT68pretty_print2((T68*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
/*IF*/if ((XrT70precedence((C)->_target))<(11)) {
rT267put_character((T267*)oRBC27fmt,'\50');
XrT70pretty_print((C)->_target);
rT267put_character((T267*)oRBC27fmt,'\51');
}
else {
XrT70pretty_print((C)->_target);
}
/*FI*/}/*CALL_PREFIX_MINUS*/void rT168make_call0(T168 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_MINUS*/void rT168make(T168 *C,T0* a1,T0* a2){
{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms96_27/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT168make_call0(C,a2,(C)->_feature_name);
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.