This is pretty27.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_PLUS*/void rT194bracketed_print(T194 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT194pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_PLUS*/void rT194fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_PLUS*/T0* rT194arg1(T194 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_PLUS*/T0* rT194add_comment(T194 *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_PLUS*/void rT194print_as_target(T194 *C){
rT194bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_PLUS*/void rT194print_op(T194 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_PLUS*/T0* rT194start_position(T194 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_PLUS*/void rT194pretty_print(T194 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT194print_op(C);
/*IF*/if ((XrT70precedence(rT194arg1(C)))==(13)) {
XrT70pretty_print(rT194arg1(C));
}
else if ((7)>=(XrT70precedence(rT194arg1(C)))) {
XrT70bracketed_print(rT194arg1(C));
}
else {
XrT70pretty_print(rT194arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(7)) {
XrT70bracketed_print((C)->_target);
rT194print_op(C);
XrT70pretty_print(rT194arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT194print_op(C);
XrT70pretty_print(rT194arg1(C));
}
/*FI*/}/*CALL_INFIX_PLUS*/void rT194make_call_1(T194 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_PLUS*/void rT194make(T194 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT194fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms95_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;}
rT194make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_MINUS*/void rT193bracketed_print(T193 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT193pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_MINUS*/void rT193fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_MINUS*/T0* rT193arg1(T193 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_MINUS*/T0* rT193add_comment(T193 *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_MINUS*/void rT193print_as_target(T193 *C){
rT193bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_MINUS*/void rT193print_op(T193 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_MINUS*/T0* rT193start_position(T193 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_MINUS*/void rT193pretty_print(T193 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT193print_op(C);
/*IF*/if ((XrT70precedence(rT193arg1(C)))==(13)) {
XrT70pretty_print(rT193arg1(C));
}
else if ((7)>=(XrT70precedence(rT193arg1(C)))) {
XrT70bracketed_print(rT193arg1(C));
}
else {
XrT70pretty_print(rT193arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(7)) {
XrT70bracketed_print((C)->_target);
rT193print_op(C);
XrT70pretty_print(rT193arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT193print_op(C);
XrT70pretty_print(rT193arg1(C));
}
/*FI*/}/*CALL_INFIX_MINUS*/void rT193make_call_1(T193 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_MINUS*/void rT193make(T193 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT193fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms96_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;}
rT193make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_TIMES*/void rT192bracketed_print(T192 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT192pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_TIMES*/void rT192fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_TIMES*/T0* rT192arg1(T192 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_TIMES*/T0* rT192add_comment(T192 *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_TIMES*/void rT192print_as_target(T192 *C){
rT192bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_TIMES*/void rT192print_op(T192 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_TIMES*/T0* rT192start_position(T192 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_TIMES*/void rT192pretty_print(T192 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT192print_op(C);
/*IF*/if ((XrT70precedence(rT192arg1(C)))==(13)) {
XrT70pretty_print(rT192arg1(C));
}
else if ((8)>=(XrT70precedence(rT192arg1(C)))) {
XrT70bracketed_print(rT192arg1(C));
}
else {
XrT70pretty_print(rT192arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(8)) {
XrT70bracketed_print((C)->_target);
rT192print_op(C);
XrT70pretty_print(rT192arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT192print_op(C);
XrT70pretty_print(rT192arg1(C));
}
/*FI*/}/*CALL_INFIX_TIMES*/void rT192make_call_1(T192 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_TIMES*/void rT192make(T192 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT192fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_192,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;}
rT192make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_INT_DIV*/void rT191bracketed_print(T191 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT191pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_INT_DIV*/void rT191fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_INT_DIV*/T0* rT191arg1(T191 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_INT_DIV*/T0* rT191add_comment(T191 *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_INT_DIV*/void rT191print_as_target(T191 *C){
rT191bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_INT_DIV*/void rT191print_op(T191 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_INT_DIV*/T0* rT191start_position(T191 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_INT_DIV*/void rT191pretty_print(T191 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT191print_op(C);
/*IF*/if ((XrT70precedence(rT191arg1(C)))==(13)) {
XrT70pretty_print(rT191arg1(C));
}
else if ((8)>=(XrT70precedence(rT191arg1(C)))) {
XrT70bracketed_print(rT191arg1(C));
}
else {
XrT70pretty_print(rT191arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(8)) {
XrT70bracketed_print((C)->_target);
rT191print_op(C);
XrT70pretty_print(rT191arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT191print_op(C);
XrT70pretty_print(rT191arg1(C));
}
/*FI*/}/*CALL_INFIX_INT_DIV*/void rT191make_call_1(T191 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_INT_DIV*/void rT191make(T191 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT191fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_191,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;}
rT191make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_INT_REM*/void rT190bracketed_print(T190 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT190pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_INT_REM*/void rT190fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_INT_REM*/T0* rT190arg1(T190 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_INT_REM*/T0* rT190add_comment(T190 *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_INT_REM*/void rT190print_as_target(T190 *C){
rT190bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_INT_REM*/void rT190print_op(T190 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_INT_REM*/T0* rT190start_position(T190 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_INT_REM*/void rT190pretty_print(T190 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT190print_op(C);
/*IF*/if ((XrT70precedence(rT190arg1(C)))==(13)) {
XrT70pretty_print(rT190arg1(C));
}
else if ((8)>=(XrT70precedence(rT190arg1(C)))) {
XrT70bracketed_print(rT190arg1(C));
}
else {
XrT70pretty_print(rT190arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(8)) {
XrT70bracketed_print((C)->_target);
rT190print_op(C);
XrT70pretty_print(rT190arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT190print_op(C);
XrT70pretty_print(rT190arg1(C));
}
/*FI*/}/*CALL_INFIX_INT_REM*/void rT190make_call_1(T190 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_INT_REM*/void rT190make(T190 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT190fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_190,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;}
rT190make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_DIV*/void rT189bracketed_print(T189 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT189pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_DIV*/void rT189fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_DIV*/T0* rT189arg1(T189 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_DIV*/T0* rT189add_comment(T189 *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_DIV*/void rT189print_as_target(T189 *C){
rT189bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_DIV*/void rT189print_op(T189 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_DIV*/T0* rT189start_position(T189 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_DIV*/void rT189pretty_print(T189 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT189print_op(C);
/*IF*/if ((XrT70precedence(rT189arg1(C)))==(13)) {
XrT70pretty_print(rT189arg1(C));
}
else if ((8)>=(XrT70precedence(rT189arg1(C)))) {
XrT70bracketed_print(rT189arg1(C));
}
else {
XrT70pretty_print(rT189arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<(8)) {
XrT70bracketed_print((C)->_target);
rT189print_op(C);
XrT70pretty_print(rT189arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT189print_op(C);
XrT70pretty_print(rT189arg1(C));
}
/*FI*/}/*CALL_INFIX_DIV*/void rT189make_call_1(T189 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_DIV*/void rT189make(T189 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT189fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms125_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;}
rT189make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_POWER*/void rT188bracketed_print(T188 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT188pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_POWER*/void rT188fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_POWER*/T0* rT188arg1(T188 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_POWER*/T0* rT188add_comment(T188 *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_POWER*/void rT188print_as_target(T188 *C){
rT188bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_POWER*/void rT188print_op(T188 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_POWER*/T0* rT188start_position(T188 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_POWER*/void rT188pretty_print(T188 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT188print_op(C);
/*IF*/if ((XrT70precedence(rT188arg1(C)))==(13)) {
XrT70pretty_print(rT188arg1(C));
}
else if ((9)>(XrT70precedence(rT188arg1(C)))) {
XrT70bracketed_print(rT188arg1(C));
}
else {
XrT70pretty_print(rT188arg1(C));
}
/*FI*/}
else if ((XrT70precedence((C)->_target))<=(9)) {
XrT70bracketed_print((C)->_target);
rT188print_op(C);
XrT70pretty_print(rT188arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT188print_op(C);
XrT70pretty_print(rT188arg1(C));
}
/*FI*/}/*CALL_INFIX_POWER*/void rT188make_call_1(T188 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_POWER*/void rT188make(T188 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT188fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,(T0 *)ms1_188,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;}
rT188make_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.