This is pretty14.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"
/*TYPE_GENERIC*/int rT117is_run_type(T117 *C){
int R=0;
R=((int)(C)->_run_type);
return R;
}
/*TYPE_GENERIC*/T0* rT117run_time_mark(T117 *C){
T0* R=NULL;
R=((T117*)(C)->_run_type)->_written_mark;
return R;
}
/*TYPE_GENERIC*/T0* rT117start_position(T117 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_GENERIC*/void rT117pretty_print(T117 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_written_mark);
}/*TYPE_GENERIC*/T0* rT117base_class(T117 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=(C)->_base_class_name;
/*IF*/if (((int)_bcn)) {
R=rT49base_class((T49*)_bcn);
}
else {
rT46append((T0 *)ms2_60);
rT46add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT46do_print((T0 *)ms4_46);
rT46die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_GENERIC*/void rT117make(T117 *C,T0* a1,T0* a2){
int _is_rt=0;
T0* _t=NULL;
int _i=0;
C->_base_class_name=a1;
C->_generic_list=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,((T49*)a1)->_to_string);
C->_written_mark=(T0 *)n;}
rT7extend((T7*)(C)->_written_mark,'\133');
_i=1;
_is_rt=1;
while (!((_i)>(((T106*)a2)->_upper))) {
_t=rT106item((T106*)a2,_i);
rT7append((T7*)(C)->_written_mark,XrT60written_mark(_t));
/*IF*/if (!(XrT60is_run_type(_t))) {
_is_rt=0;
}
/*FI*/_i=(_i)+(1);
/*IF*/if ((_i)<=(((T106*)a2)->_upper)) {
rT7extend((T7*)(C)->_written_mark,'\54');
}
/*FI*/}
rT7extend((T7*)(C)->_written_mark,'\135');
/*IF*/if (_is_rt) {
C->_run_type=(T0 *)C;
}
/*FI*/}/*TEXT*/void rT62fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}T0*oRBC62storage;
/*TEXT*/void rT62storage_grow(/*C*/int a1){
int _i=0;
T0* _str=NULL;
_i=((T45*)oRBC62storage)->_upper;
rT45resize((T45*)oRBC62storage,1,(((T45*)oRBC62storage)->_upper)+(a1));
while (!((_i)==(((T45*)oRBC62storage)->_upper))) {
_i=(_i)+(1);
{T7 *n=((T7*)se_new(7));
rT7make(n,80);
_str=(T0 *)n;}
rT45put((T45*)oRBC62storage,_str,_i);
}
}T0*oRBC62sfr;
/*TEXT*/T0* rT62item(/*C*/int a1){
T0* R=NULL;
R=rT45item((T45*)oRBC62storage,a1);
return R;
}
int ofBC62init_storage=0;
/*TEXT*/void rT62init_storage(/*C*/void){
if (ofBC62init_storage==0){
ofBC62init_storage=1;
rT62storage_grow(3000);
}}
/*TEXT*/void rT62read(T62 *C,T0* a1){
rT62init_storage();
rT43connect_to((T43*)oRBC62sfr,a1);
/*IF*/if (rT43is_connected((T43*)oRBC62sfr)) {
C->_count=0;
while (!(rT43end_of_input((T43*)oRBC62sfr))) {
C->_count=((C)->_count)+(1);
/*IF*/if ((((T45*)oRBC62storage)->_upper)<((C)->_count)) {
rT62storage_grow(1000);
}
/*FI*/rT43read_line_in((T43*)oRBC62sfr,rT45item((T45*)oRBC62storage,(C)->_count));
}
rT43disconnect((T43*)oRBC62sfr);
}
else {
rT46append((T0 *)ms1_62);
rT46append(a1);
rT62fatal_error((T0 *)ms2_62);
}
/*FI*/}/*EFFECTIVE_ARG_LIST*/T0* rT173expression(T173 *C,int a1){
T0* R=NULL;
R=/*XrT*ARRAY[EXPRESSION]*/rT83item((T83*)(C)->_list,a1);
return R;
}
/*EFFECTIVE_ARG_LIST*/T0* rT173first(T173 *C){
T0* R=NULL;
R=/*XrT*ARRAY[EXPRESSION]*/rT83item((T83*)(C)->_list,1);
return R;
}
/*EFFECTIVE_ARG_LIST*/int rT173count(T173 *C){
int R=0;
R=/*XrT*ARRAY[EXPRESSION]*/((T83*)(C)->_list)->_upper;
return R;
}
/*EFFECTIVE_ARG_LIST*/void rT173pretty_print(T173 *C){
int _i=0;
rT267put_character((T267*)oRBC27fmt,'\50');
_i=1;
while (!((_i)>(rT173count(C)))) {
XrT70pretty_print(rT173expression(C,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(rT173count(C))) {
rT267put_character((T267*)oRBC27fmt,'\54');
}
/*FI*/}
rT267put_character((T267*)oRBC27fmt,'\51');
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.