This is pretty29.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_PREFIX_PLUS*/void rT169bracketed_print(T169 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT169pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_PREFIX_PLUS*/T0* rT169add_comment(T169 *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_PLUS*/void rT169print_as_target(T169 *C){
rT169bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_PREFIX_PLUS*/T0* rT169start_position(T169 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_PLUS*/void rT169pretty_print(T169 *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_PLUS*/void rT169make_call0(T169 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_PLUS*/void rT169make(T169 *C,T0* a1,T0* a2){
{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms95_27/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT169make_call0(C,a2,(C)->_feature_name);
}/*ARGUMENT_NAME*/void rT90bracketed_print(T90 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT90pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*ARGUMENT_NAME*/T0* rT90add_comment(T90 *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;
}
/*ARGUMENT_NAME*/void rT90print_as_target(T90 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*ARGUMENT_NAME*/void rT90pretty_print(T90 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
}/*ARGUMENT_NAME*/T0* rT90to_key(T90 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*ARGUMENT_NAME*/void rT90refer_to(T90 *C,T0* a1,T0* a2,int a3){
C->_start_position=a1;
C->_rank=a3;
C->_declaration_name=rT95name((T95*)a2,a3);
C->_to_string=((T90*)(C)->_declaration_name)->_to_string;
C->_result_type=((T90*)(C)->_declaration_name)->_result_type;
}/*ARGUMENT_NAME*/void rT90make(T90 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_to_string=a2;
C->_declaration_name=(T0 *)C;
}/*INFIX_NAME*/void rT72bracketed_print(T72 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT72pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*INFIX_NAME*/int rT72same_as(T72 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)rT72to_key(C),XrT50to_key(a1));
return R;
}
/*INFIX_NAME*/T0* rT72add_comment(T72 *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;
}
/*INFIX_NAME*/void rT72print_as_target(T72 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*INFIX_NAME*/void rT72pretty_print2(T72 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
}/*INFIX_NAME*/void rT72pretty_print(T72 *C){
rT267keyword((T267*)oRBC27fmt,(T0 *)ms1_72);
rT267put_character((T267*)oRBC27fmt,'\42');
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\42');
}/*INFIX_NAME*/T0* rT72to_key(T72 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*INFIX_NAME*/void rT72make(T72 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
}/*ASSERTION*/void rT66pretty_print(T66 *C){
/*IF*/if (((int)(C)->_tag)) {
rT267put_string((T267*)oRBC27fmt,((T161*)(C)->_tag)->_to_string);
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_66);
}
/*FI*//*IF*/if (((int)(C)->_expression)) {
XrT70pretty_print((C)->_expression);
/*IF*/if (((T267*)oRBC27fmt)->_semi_colon_flag) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms2_66);
}
/*FI*/}
/*FI*//*IF*/if (((int)(C)->_comment)) {
rT61pretty_print((T61*)(C)->_comment);
}
/*FI*/}/*ASSERTION*/void rT66make(T66 *C,T0* a1,T0* a2,T0* a3){
C->_tag=a1;
C->_expression=a2;
C->_comment=a3;
}/*COMPOUND*/void rT140pretty_print(T140 *C){
int _i=0;
rT267level_incr((T267*)oRBC27fmt);
rT267indent((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T223*)(C)->_list)->_upper))) {
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
XrT179pretty_print(rT223item((T223*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/rT267level_decr((T267*)oRBC27fmt);
}/*COMPOUND*/void rT140make(T140 *C,T0* a1,T0* a2){
C->_header_comment=a1;
C->_list=a2;
}/*ARRAY[FEATURE_CLAUSE]*/int rT264count(T264 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[FEATURE_CLAUSE]*/T0* rT264item(T264 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[FEATURE_CLAUSE]*/T0** rT264realloc(/*C*/T0** a1,int a2){
T0** R=0;
T37 _mem={0/*dummy*/};
T0* _x=NULL;
/*IF*//*AF*//*AE*/
R=realloc(a1,(a2)*(sizeof(char *)));
/*FI*/return R;
}
/*ARRAY[FEATURE_CLAUSE]*/void rT264add_last(T264 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT264count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT264malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT264realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT264put(C,a1,(C)->_upper);
}/*ARRAY[FEATURE_CLAUSE]*/T0** rT264malloc(/*C*/int a1){
T0** R=0;
T37 _mem={0/*dummy*/};
T0* _x=NULL;
/*IF*//*AF*//*AE*/
R=malloc((a1)*(sizeof(char *)));
/*FI*/return R;
}
/*ARRAY[FEATURE_CLAUSE]*/void rT264put(T264 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[WHEN_ITEM_2]*/int rT240count(T240 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[WHEN_ITEM_2]*/T0* rT240item(T240 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[WHEN_ITEM_2]*/T0** rT240realloc(/*C*/T0** a1,int a2){
T0** R=0;
T37 _mem={0/*dummy*/};
T0* _x=NULL;
/*IF*//*AF*//*AE*/
R=realloc(a1,(a2)*(sizeof(char *)));
/*FI*/return R;
}
/*ARRAY[WHEN_ITEM_2]*/void rT240add_last(T240 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT240count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT240malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT240realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT240put(C,a1,(C)->_upper);
}/*ARRAY[WHEN_ITEM_2]*/T0** rT240malloc(/*C*/int a1){
T0** R=0;
T37 _mem={0/*dummy*/};
T0* _x=NULL;
/*IF*//*AF*//*AE*/
R=malloc((a1)*(sizeof(char *)));
/*FI*/return R;
}
/*ARRAY[WHEN_ITEM_2]*/void rT240put(T240 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.