This is pretty10.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"
/*TMP_FEATURE*/void rT136warning(/*C*/T0* a1,T0* a2){
rT46add_position(a1);
rT46warning((T46*)oRBC27eh,a2);
}/*TMP_FEATURE*/T0* rT136to_procedure_or_function(T136 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T257 *n=((T257*)se_new(257));
rT257make(n,rT136n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body);
R=(T0 *)n;}}
else {
{T258 *n=((T258*)se_new(258));
rT258make(n,rT136n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body);
R=(T0 *)n;}}
/*FI*/return R;
}
/*TMP_FEATURE*/void rT136error(/*C*/T0* a1,T0* a2){
rT46add_position(a1);
rT46error((T46*)oRBC27eh,a2);
}/*TMP_FEATURE*/T0* rT136to_writable_attribute(T136 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms1_136);
}
else if (((int)(C)->_arguments)) {
rT136error(rT52current_position((T52*)oRBC27eiffel_parser),(T0 *)ms2_136);
}
/*FI*/{T262 *n=((T262*)se_new(262));
rT262make(n,rT136n(),(C)->_type);
R=(T0 *)n;}
return R;
}
/*TMP_FEATURE*/T0* rT136to_deferred_routine(T136 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T208 *n=((T208*)se_new(208));
rT208make(n,rT136n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion);
R=(T0 *)n;}}
else {
{T209 *n=((T209*)se_new(209));
rT209make(n,rT136n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion);
R=(T0 *)n;}}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136n(/*C*/void){
T0* R=NULL;
{T128 *n=((T128*)se_new(128));
rT128make(n,rT129twin((T129*)oRBC136names));
R=(T0 *)n;}
return R;
}
T0*oRBC136names;
/*TMP_FEATURE*/T0* rT136to_cst_att_integer(T136 *C,T0* a1){
T0* R=NULL;
/*IF*/if (((int)(C)->_type)) {
/*IF*/if (XrT60is_integer((C)->_type)) {
{T157 *n=((T157*)se_new(157));
rT157make(n,rT136n(),(C)->_type,a1);
R=(T0 *)n;}}
else if (XrT60is_real((C)->_type)) {
{T155 *n=((T155*)se_new(155));
rT155make(n,rT136n(),(C)->_type,rT82to_real_constant((T82*)a1));
R=(T0 *)n;}}
else if (XrT60is_double((C)->_type)) {
{T156 *n=((T156*)se_new(156));
rT156make(n,rT136n(),(C)->_type,rT82to_real_constant((T82*)a1));
R=(T0 *)n;}}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms6_136);
}
/*FI*/}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms7_136);
}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136to_cst_att_real(T136 *C,T0* a1){
T0* R=NULL;
/*IF*/if (((int)(C)->_type)) {
/*IF*/if (XrT60is_real((C)->_type)) {
{T155 *n=((T155*)se_new(155));
rT155make(n,rT136n(),(C)->_type,a1);
R=(T0 *)n;}}
else if (XrT60is_double((C)->_type)) {
{T156 *n=((T156*)se_new(156));
rT156make(n,rT136n(),(C)->_type,a1);
R=(T0 *)n;}}
else if (XrT60is_integer((C)->_type)) {
rT136warning(((T81*)a1)->_start_position,(T0 *)ms8_136);
{T157 *n=((T157*)se_new(157));
rT157make(n,rT136n(),(C)->_type,rT81to_integer_constant((T81*)a1));
R=(T0 *)n;}}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms9_136);
}
/*FI*/}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms10_136);
}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136to_cst_att_bit(T136 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT60is_bit((C)->_type))) {
{T154 *n=((T154*)se_new(154));
rT154make(n,rT136n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms4_136);
}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136to_cst_att_string(T136 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT60is_string((C)->_type))) {
{T152 *n=((T152*)se_new(152));
rT152make(n,rT136n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms11_136);
}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136to_cst_att_character(T136 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT60is_character((C)->_type))) {
{T151 *n=((T151*)se_new(151));
rT151make(n,rT136n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms5_136);
}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136to_cst_att_boolean(T136 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT60is_boolean((C)->_type))) {
{T150 *n=((T150*)se_new(150));
rT150make(n,rT136n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT136error(/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position,(T0 *)ms3_136);
}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136to_cst_att_unique(T136 *C){
T0* R=NULL;
T0* _sp=NULL;
/*IF*/if (!((C)->_type)) {
_sp=/*XrT*FEATURE_NAME*/((T68*)rT129first((T129*)oRBC136names))->_start_position;
rT136error(_sp,(T0 *)ms12_136);
}
/*FI*//*IF*/if (!(XrT60is_integer((C)->_type))) {
rT136error(XrT60start_position((C)->_type),(T0 *)ms13_136);
}
/*FI*/{T146 *n=((T146*)se_new(146));
rT146make(n,rT136n(),(C)->_type);
R=(T0 *)n;}
return R;
}
/*TMP_FEATURE*/void rT136add_synonym(/*C*/T0* a1){
rT129add_last((T129*)oRBC136names,a1);
}/*TMP_FEATURE*/void rT136set_require(T136 *C,T0* a1,T0* a2,T0* a3){
/*IF*/if ((((int)a2))||(((int)a3))) {
{T137 *n=((T137*)se_new(137));
rT137make(n,a1,a2,a3);
C->_require_assertion=(T0 *)n;}
}
/*FI*/}/*TMP_FEATURE*/void rT136set_require_else(T136 *C,T0* a1,T0* a2,T0* a3){
/*IF*/if ((((int)a2))||(((int)a3))) {
{T137 *n=((T137*)se_new(137));
rT137make(n,a1,a2,a3);
C->_require_assertion=(T0 *)n;}
/*[IRF3:set_require_else*//*AW*/((T137*)(C)->_require_assertion)->_is_require_else=(1);/*]*/
}
/*FI*/}/*TMP_FEATURE*/void rT136initialize(T136 *C){
rT129clear((T129*)oRBC136names);
C->_arguments=NULL;
C->_type=NULL;
C->_header_comment=NULL;
C->_obsolete_mark=NULL;
C->_require_assertion=NULL;
C->_local_vars=NULL;
C->_routine_body=NULL;
}/*TMP_FEATURE*/T0* rT136to_once_routine(T136 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T260 *n=((T260*)se_new(260));
rT260make(n,rT136n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body);
R=(T0 *)n;}}
else {
{T261 *n=((T261*)se_new(261));
rT261make(n,rT136n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body);
R=(T0 *)n;}}
/*FI*/return R;
}
/*TMP_FEATURE*/T0* rT136to_external_routine(T136 *C,T0* a1,T0* a2){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T217 *n=((T217*)se_new(217));
rT217make(n,rT136n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,a1,a2);
R=(T0 *)n;}}
else {
{T218 *n=((T218*)se_new(218));
rT218make(n,rT136n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,a1,a2);
R=(T0 *)n;}}
/*FI*/return R;
}
/*LOOP_VARIANT_1*/void rT245pretty_print(T245 *C){
/*IF*/if (((int)(C)->_comment)) {
rT61pretty_print((T61*)(C)->_comment);
}
else {
rT267indent((T267*)oRBC27fmt);
}
/*FI*/XrT70pretty_print((C)->_expression);
}/*LOOP_VARIANT_1*/void rT245make(T245 *C,T0* a1,T0* a2){
C->_comment=a2;
C->_expression=a1;
}/*LOOP_VARIANT_2*/void rT244pretty_print(T244 *C){
/*IF*/if (((int)(C)->_comment)) {
rT61pretty_print((T61*)(C)->_comment);
}
else {
rT267indent((T267*)oRBC27fmt);
}
/*FI*/rT267put_string((T267*)oRBC27fmt,((T161*)(C)->_tag)->_to_string);
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_244);
XrT70pretty_print((C)->_expression);
}/*LOOP_VARIANT_2*/void rT244make(T244 *C,T0* a1,T0* a2,T0* a3){
C->_comment=a3;
C->_tag=a1;
C->_expression=a2;
}/*LOOP_INVARIANT*/void rT242pretty_print(T242 *C){
int _i=0;
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,/*(IRF4*/(T0 *)ms1_242/*)*/);
rT267level_incr((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT61pretty_print((T61*)(C)->_header_comment);
}
else {
rT267indent((T267*)oRBC27fmt);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T160*)(C)->_list)->_upper))) {
/*IF*/if (((((T267*)oRBC27fmt)->_zen_mode)&&((_i)==(((T160*)(C)->_list)->_upper)))) {
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(0);/*]*/
}
else {
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(1);/*]*/
}
/*FI*/rT267indent((T267*)oRBC27fmt);
rT66pretty_print((T66*)rT160item((T160*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/rT267level_decr((T267*)oRBC27fmt);
rT267indent((T267*)oRBC27fmt);
}/*LOOP_INVARIANT*/void rT242make(T242 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}/*STD_OUTPUT*/void rT42put_integer(T42 *C,int a1){
/*[IRF3:clear*//*AW*/((T7*)oRBC39tmp_string)->_count=(0);/*]*/
rT2append_in(a1,oRBC39tmp_string);
rT42put_string(C,oRBC39tmp_string);
}/*STD_OUTPUT*/void rT42die_with_code(/*C*/int a1){
exit(a1);
}/*STD_OUTPUT*/void rT42put_string(T42 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT42put_character(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
}/*STD_OUTPUT*/int rT42is_connected(T42 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
/*STD_OUTPUT*/void rT42disconnect(T42 *C){
int _err=0;
_err=fclose((C)->_output_stream);
C->_path=NULL;
C->_output_stream=stdout;
}/*STD_OUTPUT*/void rT42connect_to(T42 *C,T0* a1){
C->_mode=(T0 *)ms1_39;
C->_output_stream=rT42fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}/*STD_OUTPUT*/void rT42append_file(T42 *C,T0* a1){
char _c=0;
rT43connect_to((T43*)oRBC39tmp_file_read,a1);
rT43read_character((T43*)oRBC39tmp_file_read);
while (!(rT43end_of_input((T43*)oRBC39tmp_file_read))) {
_c=rT43last_character((T43*)oRBC39tmp_file_read);
rT42put_character(C,_c);
rT43read_character((T43*)oRBC39tmp_file_read);
}
rT43disconnect((T43*)oRBC39tmp_file_read);
}T0*oRBC39tmp_file_read;
/*STD_OUTPUT*/void * rT42fopen(/*C*/T0* a1,T0* a2){
void * R=0;
void * _pm=0;
void * _pf=0;
_pf=rT7to_external((T7*)a1);
_pm=rT7to_external((T7*)a2);
R=(void*)fopen(((char*)_pf),((char*)_pm));
return R;
}
/*STD_OUTPUT*/void rT42put_character(T42 *C,char a1){
char _err=0;
_err=fputc(a1,(C)->_output_stream);
/*IF*/if ((_err)!=(a1)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms2_39);
/*[IRF3:crash*/rsp();
rT42die_with_code(1);
/*]*/
}
/*FI*/}/*STD_OUTPUT*/void rT42make(T42 *C){
C->_output_stream=stdout;
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.