This is pretty26.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_AND*/void rT201bracketed_print(T201 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT201pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_AND*/void rT201fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_AND*/T0* rT201arg1(T201 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_AND*/T0* rT201add_comment(T201 *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_AND*/void rT201print_as_target(T201 *C){
rT201bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_AND*/void rT201print_op(T201 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_AND*/T0* rT201start_position(T201 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_AND*/void rT201pretty_print(T201 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT201print_op(C);
/*IF*/if ((XrT70precedence(rT201arg1(C)))==(13)) {
XrT70pretty_print(rT201arg1(C));
}
else if ((5)>=(XrT70precedence(rT201arg1(C)))) {
XrT70bracketed_print(rT201arg1(C));
}
else {
XrT70pretty_print(rT201arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(5)) {
XrT70bracketed_print((C)->_target);
rT201print_op(C);
XrT70pretty_print(rT201arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT201print_op(C);
XrT70pretty_print(rT201arg1(C));
}
/*FI*/}/*CALL_INFIX_AND*/void rT201make_call_1(T201 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_AND*/void rT201make(T201 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT201fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms59_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT201make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_EQUAL*/void rT200bracketed_print(T200 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT200pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_EQUAL*/void rT200fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_EQUAL*/T0* rT200arg1(T200 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_EQUAL*/T0* rT200add_comment(T200 *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_EQUAL*/void rT200print_as_target(T200 *C){
rT200bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_EQUAL*/void rT200print_op(T200 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_EQUAL*/T0* rT200start_position(T200 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_EQUAL*/void rT200pretty_print(T200 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT200print_op(C);
/*IF*/if ((XrT70precedence(rT200arg1(C)))==(13)) {
XrT70pretty_print(rT200arg1(C));
}
else if ((6)>=(XrT70precedence(rT200arg1(C)))) {
XrT70bracketed_print(rT200arg1(C));
}
else {
XrT70pretty_print(rT200arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(6)) {
XrT70bracketed_print((C)->_target);
rT200print_op(C);
XrT70pretty_print(rT200arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT200print_op(C);
XrT70pretty_print(rT200arg1(C));
}
/*FI*/}/*CALL_INFIX_EQUAL*/void rT200make_call_1(T200 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_EQUAL*/void rT200make(T200 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT200fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_200,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT200make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_NOT_EQUAL*/void rT199bracketed_print(T199 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT199pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_NOT_EQUAL*/void rT199fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_NOT_EQUAL*/T0* rT199arg1(T199 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_NOT_EQUAL*/T0* rT199add_comment(T199 *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_NOT_EQUAL*/void rT199print_as_target(T199 *C){
rT199bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_NOT_EQUAL*/void rT199print_op(T199 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_NOT_EQUAL*/T0* rT199start_position(T199 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_NOT_EQUAL*/void rT199pretty_print(T199 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT199print_op(C);
/*IF*/if ((XrT70precedence(rT199arg1(C)))==(13)) {
XrT70pretty_print(rT199arg1(C));
}
else if ((6)>=(XrT70precedence(rT199arg1(C)))) {
XrT70bracketed_print(rT199arg1(C));
}
else {
XrT70pretty_print(rT199arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(6)) {
XrT70bracketed_print((C)->_target);
rT199print_op(C);
XrT70pretty_print(rT199arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT199print_op(C);
XrT70pretty_print(rT199arg1(C));
}
/*FI*/}/*CALL_INFIX_NOT_EQUAL*/void rT199make_call_1(T199 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_NOT_EQUAL*/void rT199make(T199 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT199fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_199,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT199make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_LE*/void rT198bracketed_print(T198 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT198pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_LE*/void rT198fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_LE*/T0* rT198arg1(T198 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_LE*/T0* rT198add_comment(T198 *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_LE*/void rT198print_as_target(T198 *C){
rT198bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_LE*/void rT198print_op(T198 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_LE*/T0* rT198start_position(T198 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_LE*/void rT198pretty_print(T198 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT198print_op(C);
/*IF*/if ((XrT70precedence(rT198arg1(C)))==(13)) {
XrT70pretty_print(rT198arg1(C));
}
else if ((6)>=(XrT70precedence(rT198arg1(C)))) {
XrT70bracketed_print(rT198arg1(C));
}
else {
XrT70pretty_print(rT198arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(6)) {
XrT70bracketed_print((C)->_target);
rT198print_op(C);
XrT70pretty_print(rT198arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT198print_op(C);
XrT70pretty_print(rT198arg1(C));
}
/*FI*/}/*CALL_INFIX_LE*/void rT198make_call_1(T198 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_LE*/void rT198make(T198 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT198fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_198,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT198make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_LT*/void rT197bracketed_print(T197 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT197pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_LT*/void rT197fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_LT*/T0* rT197arg1(T197 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_LT*/T0* rT197add_comment(T197 *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_LT*/void rT197print_as_target(T197 *C){
rT197bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_LT*/void rT197print_op(T197 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_LT*/T0* rT197start_position(T197 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_LT*/void rT197pretty_print(T197 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT197print_op(C);
/*IF*/if ((XrT70precedence(rT197arg1(C)))==(13)) {
XrT70pretty_print(rT197arg1(C));
}
else if ((6)>=(XrT70precedence(rT197arg1(C)))) {
XrT70bracketed_print(rT197arg1(C));
}
else {
XrT70pretty_print(rT197arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(6)) {
XrT70bracketed_print((C)->_target);
rT197print_op(C);
XrT70pretty_print(rT197arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT197print_op(C);
XrT70pretty_print(rT197arg1(C));
}
/*FI*/}/*CALL_INFIX_LT*/void rT197make_call_1(T197 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_LT*/void rT197make(T197 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT197fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_197,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT197make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_GE*/void rT196bracketed_print(T196 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT196pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_GE*/void rT196fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_GE*/T0* rT196arg1(T196 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_GE*/T0* rT196add_comment(T196 *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_GE*/void rT196print_as_target(T196 *C){
rT196bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_GE*/void rT196print_op(T196 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_GE*/T0* rT196start_position(T196 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_GE*/void rT196pretty_print(T196 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT196print_op(C);
/*IF*/if ((XrT70precedence(rT196arg1(C)))==(13)) {
XrT70pretty_print(rT196arg1(C));
}
else if ((6)>=(XrT70precedence(rT196arg1(C)))) {
XrT70bracketed_print(rT196arg1(C));
}
else {
XrT70pretty_print(rT196arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(6)) {
XrT70bracketed_print((C)->_target);
rT196print_op(C);
XrT70pretty_print(rT196arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT196print_op(C);
XrT70pretty_print(rT196arg1(C));
}
/*FI*/}/*CALL_INFIX_GE*/void rT196make_call_1(T196 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_GE*/void rT196make(T196 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT196fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_196,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT196make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_GT*/void rT195bracketed_print(T195 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT195pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_GT*/void rT195fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_GT*/T0* rT195arg1(T195 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_GT*/T0* rT195add_comment(T195 *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_GT*/void rT195print_as_target(T195 *C){
rT195bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_GT*/void rT195print_op(T195 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_GT*/T0* rT195start_position(T195 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_GT*/void rT195pretty_print(T195 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT195print_op(C);
/*IF*/if ((XrT70precedence(rT195arg1(C)))==(13)) {
XrT70pretty_print(rT195arg1(C));
}
else if ((6)>=(XrT70precedence(rT195arg1(C)))) {
XrT70bracketed_print(rT195arg1(C));
}
else {
XrT70pretty_print(rT195arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(6)) {
XrT70bracketed_print((C)->_target);
rT195print_op(C);
XrT70pretty_print(rT195arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT195print_op(C);
XrT70pretty_print(rT195arg1(C));
}
/*FI*/}/*CALL_INFIX_GT*/void rT195make_call_1(T195 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_GT*/void rT195make(T195 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT195fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_195,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT195make_call_1(C,a1,(C)->_feature_name,_eal);
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.