ftp.nice.ch/pub/next/developer/languages/eiffel/SmallEiffel.0.95.N.bs.tar.gz#/SmallEiffel/bin_c/pretty3.c

This is pretty3.c in view mode; [Download] [Up]

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.95)    --      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"
char rT7item(T7 *C,int a1){
char R=0;
/*IF*//*AF*//*AE*/
/*FI*/R=(C->_storage)[a1-1];
return R;
}
char * rT7realloc(/*C*/char * a1,int a2){
char * R=0;
R=(char*)realloc(a1,(size_t)a2);
return R;
}
T0* rT7substring(T7 *C,int a1,int a2){
T0* R=NULL;
int _i=0;
{T7 *n=((T7*)se_new(7));
rT7make(n,((a2)-(a1))+(1));
R=(T0 *)n;}
_i=a1;
while (!((_i)>(a2))) {
rT7extend((T7*)R,rT7item(C,_i));
_i=(_i)+(1);
}
return R;
}
int rT7is_equal(T7 *C,T0* a1){
int R=0;
int _i=0;
/*IF*/if (((T0 *)C)==((T0 *)a1)) {
R=1;
}
else {
_i=(C)->_count;
R=(_i)==(((T7*)a1)->_count);
while (!(((!(R))||((_i)==(0))))) {
R=(rT7item(C,_i))==(rT7item((T7*)a1,_i));
_i=(_i)-(1);
}
}
/*FI*/return R;
}
void rT7append(T7 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT7extend(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
}
char rT7last(T7 *C){
char R=0;
R=rT7item(C,(C)->_count);
return R;
}
char * rT7malloc(/*C*/int a1){
char * R=0;
R=(char*)malloc((size_t)a1);
return R;
}
void rT7put(T7 *C,char a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*/(C->_storage)[a2-1]=a1;
}
void rT7swap(T7 *C,int a1,int a2){
char _tmp=0;
_tmp=rT7item(C,a1);
rT7put(C,rT7item(C,a2),a1);
rT7put(C,_tmp,a2);
}
void rT7copy(T7 *C,T0* a1){
int _i=0;
/*IF*/if (((C)->_capacity)<(((T7*)a1)->_count)) {
rT7make(C,((T7*)a1)->_count);
}
/*FI*/_i=((T7*)a1)->_count;
C->_count=_i;
while (!((_i)==(0))) {
rT7put(C,rT7item((T7*)a1,_i),_i);
_i=(_i)-(1);
}
}
void rT7prepend(T7 *C,T0* a1){
int _old_count=0;
int _i=0;
_old_count=(C)->_count;
_i=((T7*)a1)->_count;
while (!((_i)==(0))) {
rT7extend(C,'\40');
_i=(_i)-(1);
}
_i=(C)->_count;
while (!((_old_count)==(0))) {
rT7put(C,rT7item(C,_old_count),_i);
_i=(_i)-(1);
_old_count=(_old_count)-(1);
}
_i=((T7*)a1)->_count;
while (!((_i)==(0))) {
rT7put(C,rT7item((T7*)a1,_i),_i);
_i=(_i)-(1);
}
}
void rT7to_lower(T7 *C){
int _i=0;
_i=(C)->_count;
while (!((_i)==(0))) {
rT7put(C,rT3to_lower(rT7item(C,_i)),_i);
_i=(_i)-(1);
}
}
void rT7make(T7 *C,int a1){
/*IF*/if ((a1)>(0)) {
/*IF*/if (((C)->_capacity)<(a1)) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_storage=rT7malloc(a1);
}
else {
C->_storage=rT7realloc((C)->_storage,a1);
}
/*FI*/C->_capacity=a1;
}
/*FI*/}
/*FI*/C->_count=0;
}
char * rT7to_external(T7 *C){
char * R=0;
rT7extend(C,'\0');
rT7remove_last(C,1);
R=(C)->_storage;
return R;
}
void rT232pretty_print(T232 *C){
XrT66pretty_print((C)->_lower);
rT260put_string((T260*)oRBC27fmt,(T0 *)ms558);
XrT66pretty_print((C)->_upper);
}
void rT232make(T232 *C,T0* a1,T0* a2){
C->_lower=a1;
C->_upper=a2;
}
void rT230pretty_print(T230 *C){
int _i=0;
_i=1;
while (!((_i)>(((T231*)(C)->_list)->_upper))) {
rT225pretty_print((T225*)rT231item((T231*)(C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T231*)(C)->_list)->_upper)) {
rT260put_character((T260*)oRBC27fmt,'\12');
rT260indent((T260*)oRBC27fmt);
}
/*FI*/}
}
void rT230add_last(T230 *C,T0* a1){
rT231add_last((T231*)(C)->_list,a1);
}
void rT226pretty_print(T226 *C){
XrT66pretty_print((C)->_expression);
}
void rT171bracketed_print(T171 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT171pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT171fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT171add_comment(T171 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T219 *n=((T219*)se_new(219));
rT219make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT171pretty_print(T171 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
T0* rT171to_key(T171 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT171make(T171 *C,T0* a1){
C->_start_position=a1;
C->_to_string=(T0 *)ms289;
}
T0* rT179add_comment(T179 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
/*AF*/else {
{T215 *n=((T215*)se_new(215));
rT215make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT179pretty_print(T179 *C){
XrT66print_as_target((C)->_target);
rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name));
rT260level_incr((T260*)oRBC27fmt);
rT169pretty_print((T169*)(C)->_arguments);
rT260level_decr((T260*)oRBC27fmt);
/*IF*/if (((T260*)oRBC27fmt)->_semi_colon_flag) {
rT260put_character((T260*)oRBC27fmt,'\73');
}
/*FI*/}
void rT179make(T179 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
T0* rT178arg1(T178 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT178add_comment(T178 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
/*AF*/else {
{T215 *n=((T215*)se_new(215));
rT215make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT178pretty_print(T178 *C){
XrT66print_as_target((C)->_target);
rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name));
rT260put_character((T260*)oRBC27fmt,'\50');
XrT66pretty_print(rT178arg1(C));
rT260put_character((T260*)oRBC27fmt,'\51');
/*IF*/if (((T260*)oRBC27fmt)->_semi_colon_flag) {
rT260put_character((T260*)oRBC27fmt,'\73');
}
/*FI*/}
void rT178make(T178 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
T0* rT177add_comment(T177 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
/*AF*/else {
{T215 *n=((T215*)se_new(215));
rT215make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT177pretty_print(T177 *C){
XrT66print_as_target((C)->_target);
rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name));
/*IF*/if (((T260*)oRBC27fmt)->_semi_colon_flag) {
rT260put_character((T260*)oRBC27fmt,'\73');
}
/*FI*/}
void rT177make(T177 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT134warning(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43warning((T43*)oRBC27eh,a2);
}
T0* rT134to_procedure_or_function(T134 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T250 *n=((T250*)se_new(250));
rT250make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body);
R=(T0 *)n;}}
else {
{T251 *n=((T251*)se_new(251));
rT251make(n,rT134n(),(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;
}
void rT134error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT134to_writable_attribute(T134 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms398);
}
 else if (((int)(C)->_arguments)) {
rT134error(rT49current_position((T49*)oRBC27eiffel_parser),(T0 *)ms399);
}
/*FI*/{T255 *n=((T255*)se_new(255));
rT255make(n,rT134n(),(C)->_type);
R=(T0 *)n;}
return R;
}
T0* rT134to_deferred_routine(T134 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T203 *n=((T203*)se_new(203));
rT203make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion);
R=(T0 *)n;}}
else {
{T204 *n=((T204*)se_new(204));
rT204make(n,rT134n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT134n(/*C*/void){
T0* R=NULL;
{T126 *n=((T126*)se_new(126));
rT126make(n,rT127twin((T127*)oRBC134names));
R=(T0 *)n;}
return R;
}
T0*oRBC134names;
T0* rT134to_cst_att_integer(T134 *C,T0* a1){
T0* R=NULL;
/*IF*/if (((int)(C)->_type)) {
/*IF*/if (XrT56is_integer((C)->_type)) {
{T153 *n=((T153*)se_new(153));
rT153make(n,rT134n(),(C)->_type,a1);
R=(T0 *)n;}}
 else if (XrT56is_real((C)->_type)) {
{T151 *n=((T151*)se_new(151));
rT151make(n,rT134n(),(C)->_type,rT78to_real_constant((T78*)a1));
R=(T0 *)n;}}
 else if (XrT56is_double((C)->_type)) {
{T152 *n=((T152*)se_new(152));
rT152make(n,rT134n(),(C)->_type,rT78to_real_constant((T78*)a1));
R=(T0 *)n;}}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms271);
}
/*FI*/}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms272);
}
/*FI*/return R;
}
T0* rT134to_cst_att_real(T134 *C,T0* a1){
T0* R=NULL;
/*IF*/if (((int)(C)->_type)) {
/*IF*/if (XrT56is_real((C)->_type)) {
{T151 *n=((T151*)se_new(151));
rT151make(n,rT134n(),(C)->_type,a1);
R=(T0 *)n;}}
 else if (XrT56is_double((C)->_type)) {
{T152 *n=((T152*)se_new(152));
rT152make(n,rT134n(),(C)->_type,a1);
R=(T0 *)n;}}
 else if (XrT56is_integer((C)->_type)) {
rT134warning(((T77*)a1)->_start_position,(T0 *)ms266);
{T153 *n=((T153*)se_new(153));
rT153make(n,rT134n(),(C)->_type,rT77to_integer_constant((T77*)a1));
R=(T0 *)n;}}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms268);
}
/*FI*/}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms269);
}
/*FI*/return R;
}
T0* rT134to_cst_att_bit(T134 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT56is_bit((C)->_type))) {
{T150 *n=((T150*)se_new(150));
rT150make(n,rT134n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms265);
}
/*FI*/return R;
}
T0* rT134to_cst_att_string(T134 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT56is_string((C)->_type))) {
{T148 *n=((T148*)se_new(148));
rT148make(n,rT134n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms264);
}
/*FI*/return R;
}
T0* rT134to_cst_att_character(T134 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT56is_character((C)->_type))) {
{T147 *n=((T147*)se_new(147));
rT147make(n,rT134n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms261);
}
/*FI*/return R;
}
T0* rT134to_cst_att_boolean(T134 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((((int)(C)->_type))&&(XrT56is_boolean((C)->_type))) {
{T146 *n=((T146*)se_new(146));
rT146make(n,rT134n(),(C)->_type,a1);
R=(T0 *)n;}
}
else {
rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms260);
}
/*FI*/return R;
}
T0* rT134to_cst_att_unique(T134 *C){
T0* R=NULL;
T0* _sp=NULL;
/*IF*/if (!((C)->_type)) {
_sp=XrT65start_position(rT127first((T127*)oRBC134names));
rT134error(_sp,(T0 *)ms258);
}
/*FI*//*IF*/if (!(XrT56is_integer((C)->_type))) {
rT134error(XrT56start_position((C)->_type),(T0 *)ms259);
}
/*FI*/{T142 *n=((T142*)se_new(142));
rT142make(n,rT134n(),(C)->_type);
R=(T0 *)n;}
return R;
}
void rT134add_synonym(/*C*/T0* a1){
rT127add_last((T127*)oRBC134names,a1);
}
void rT134set_require(T134 *C,T0* a1,T0* a2,T0* a3){
/*IF*/if ((((int)a2))||(((int)a3))) {
{T135 *n=((T135*)se_new(135));
rT135make(n,a1,a2,a3);
C->_require_assertion=(T0 *)n;}
}
/*FI*/}
void rT134set_require_else(T134 *C,T0* a1,T0* a2,T0* a3){
/*IF*/if ((((int)a2))||(((int)a3))) {
{T135 *n=((T135*)se_new(135));
rT135make(n,a1,a2,a3);
C->_require_assertion=(T0 *)n;}
/*(IRF3*/(((T135*)(C)->_require_assertion)->_is_require_else)=(1);
/*)*/}
/*FI*/}
void rT134initialize(T134 *C){
rT127clear((T127*)oRBC134names);
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;
}
T0* rT134to_once_routine(T134 *C){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T253 *n=((T253*)se_new(253));
rT253make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body);
R=(T0 *)n;}}
else {
{T254 *n=((T254*)se_new(254));
rT254make(n,rT134n(),(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;
}
T0* rT134to_external_routine(T134 *C,T0* a1,T0* a2){
T0* R=NULL;
/*IF*/if (!((C)->_type)) {
{T210 *n=((T210*)se_new(210));
rT210make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,a1,a2);
R=(T0 *)n;}}
else {
{T211 *n=((T211*)se_new(211));
rT211make(n,rT134n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,a1,a2);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT238pretty_print(T238 *C){
/*IF*/if (((int)(C)->_comment)) {
rT57pretty_print((T57*)(C)->_comment);
}
else {
rT260indent((T260*)oRBC27fmt);
}
/*FI*/XrT66pretty_print((C)->_expression);
}
void rT238make(T238 *C,T0* a1,T0* a2){
C->_comment=a2;
C->_expression=a1;
}
void rT237pretty_print(T237 *C){
/*IF*/if (((int)(C)->_comment)) {
rT57pretty_print((T57*)(C)->_comment);
}
else {
rT260indent((T260*)oRBC27fmt);
}
/*FI*/rT260put_string((T260*)oRBC27fmt,((T157*)(C)->_tag)->_to_string);
rT260put_string((T260*)oRBC27fmt,(T0 *)ms562);
XrT66pretty_print((C)->_expression);
}
void rT237make(T237 *C,T0* a1,T0* a2,T0* a3){
C->_comment=a3;
C->_tag=a1;
C->_expression=a2;
}
void rT235pretty_print(T235 *C){
int _i=0;
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,/*(IRF4*/(T0 *)ms548/*)*/);
rT260level_incr((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT57pretty_print((T57*)(C)->_header_comment);
}
else {
rT260indent((T260*)oRBC27fmt);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T156*)(C)->_list)->_upper))) {
/*IF*/if (((((T260*)oRBC27fmt)->_zen_mode)&&((_i)==(((T156*)(C)->_list)->_upper)))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/}
else {
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(1);
/*)*/}
/*FI*/rT260indent((T260*)oRBC27fmt);
rT62pretty_print((T62*)rT156item((T156*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/rT260level_decr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
}
void rT235make(T235 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}
void rT41put_integer(T41 *C,int a1){
/*(IRF3*/(((T7*)oRBC38tmp_string)->_count)=(0);
/*)*/rT2append_in(a1,oRBC38tmp_string);
rT41put_string(C,oRBC38tmp_string);
}
void rT41die_with_code(/*C*/int a1){
exit(a1);
}
void rT41put_string(T41 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT41put_character(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
}
int rT41is_connected(T41 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
void rT41disconnect(T41 *C){
int _err=0;
_err=fclose((C)->_output_stream);
C->_path=NULL;
C->_output_stream=stdout;
}
void rT41connect_to(T41 *C,T0* a1){
C->_mode=(T0 *)ms448;
C->_output_stream=rT41fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}
void rT41append_file(T41 *C,T0* a1){
char _c=0;
rT42connect_to((T42*)rT41tmp_file_read(),a1);
rT42read_character((T42*)rT41tmp_file_read());
while (!(rT42end_of_input((T42*)rT41tmp_file_read()))) {
_c=rT42last_character((T42*)rT41tmp_file_read());
rT41put_character(C,_c);
rT42read_character((T42*)rT41tmp_file_read());
}
rT42disconnect((T42*)rT41tmp_file_read());
}
int ofBC38tmp_file_read=0;
T0*oRBC38tmp_file_read;
T0* rT41tmp_file_read(/*C*/void){
if (ofBC38tmp_file_read==0){
T0* R=NULL;
ofBC38tmp_file_read=1;
{T42 *n=((T42*)se_new(42));
/*(IRF3*/((n)->_mode)=((T0 *)ms25);
/*)*/R=(T0 *)n;}
oRBC38tmp_file_read=R;}
return oRBC38tmp_file_read;}
void * rT41fopen(/*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;
}
void rT41put_character(T41 *C,char a1){
char _err=0;
_err=fputc(a1,(C)->_output_stream);
/*IF*/if ((_err)!=(a1)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms5);
/*(IRF3*/rsp();
rT41die_with_code(1);
/*)*/}
/*FI*/}
void rT41make(T41 *C){
C->_output_stream=stdout;
}
void rT168bracketed_print(T168 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT168pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT168add_comment(T168 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T219 *n=((T219*)se_new(219));
rT219make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT168print_as_target(T168 *C){
rT168pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT168start_position(T168 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_list)) {
R=XrT65start_position(rT126item((T126*)(C)->_list,1));
}
/*FI*/return R;
}
void rT168pretty_print(T168 *C){
int _i=0;
rT260put_string((T260*)oRBC27fmt,(T0 *)ms495);
rT260level_incr((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_list)) {
rT126pretty_print((T126*)(C)->_list);
}
/*FI*/rT260put_string((T260*)oRBC27fmt,(T0 *)ms496);
rT260level_decr((T260*)oRBC27fmt);
}
void rT168make(T168 *C,T0* a1,T0* a2){
/*IF*/if (((int)a2)) {
{T126 *n=((T126*)se_new(126));
rT126make(n,a2);
C->_list=(T0 *)n;}
}
/*FI*/}
T0*oRBC67tmp_string;
T0* rT67to_prefix_name(T67 *C){
T0* R=NULL;
{T64 *n=((T64*)se_new(64));
rT64make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
void rT67extend(T67 *C,char a1){
rT7extend((T7*)(C)->_to_string,a1);
}
T0* rT67to_e_void(T67 *C){
T0* R=NULL;
{T171 *n=((T171*)se_new(171));
rT171make(n,rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
T0* rT67to_e_result(T67 *C){
T0* R=NULL;
{T170 *n=((T170*)se_new(170));
rT170make(n,rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
T0* rT67to_e_current(T67 *C){
T0* R=NULL;
{T87 *n=((T87*)se_new(87));
rT87make(n,rT67pos((C)->_li,(C)->_co),1);
R=(T0 *)n;}
return R;
}
int rT67isa_keyword(T67 *C){
int R=0;
T0* _kt=NULL;
int _i=0;
_kt=oRBC67keyword_table;
_i=((T34*)_kt)->_upper;
while (!(((_i)==(0))||(rT7same_as((T7*)rT34item((T34*)_kt,_i),(C)->_to_string)))) {
_i=(_i)-(1);
}
R=(_i)>(0);
return R;
}
int rT67count(T67 *C){
int R=0;
R=((T7*)(C)->_to_string)->_count;
return R;
}
T0* rT67to_decl_name(T67 *C){
T0* R=NULL;
{T95 *n=((T95*)se_new(95));
rT95make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
T0* rT67to_feature_name(T67 *C){
T0* R=NULL;
{T65 *n=((T65*)se_new(65));
rT65make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
T0* rT67start_position(T67 *C){
T0* R=NULL;
{T44 *n=((T44*)se_new(44));
rT44make(n,(C)->_li,(C)->_co);
R=(T0 *)n;}
return R;
}
T0*oRBC67keyword_table;
T0* rT67to_class_name(T67 *C){
T0* R=NULL;
{T46 *n=((T46*)se_new(46));
rT46make(n,(C)->_to_string,rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
T0* rT67to_key(T67 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
T0* rT67pos(/*C*/int a1,int a2){
T0* R=NULL;
{T44 *n=((T44*)se_new(44));
rT44make(n,a1,a2);
R=(T0 *)n;}
return R;
}
T0* rT67to_argument_name(T67 *C,T0* a1,int a2){
T0* R=NULL;
{T86 *n=((T86*)se_new(86));
rT86make(n,rT67pos((C)->_li,(C)->_co),XrT47to_string(rT90name((T90*)a1,a2)),a2);
R=(T0 *)n;}
return R;
}
T0* rT67to_tag_name(T67 *C){
T0* R=NULL;
{T157 *n=((T157*)se_new(157));
rT157make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
T0* rT67to_infix_name_use(T67 *C){
T0* R=NULL;
{T68 *n=((T68*)se_new(68));
rT68make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co));
R=(T0 *)n;}
return R;
}
T0* rT67to_infix_name(T67 *C,T0* a1){
T0* R=NULL;
{T68 *n=((T68*)se_new(68));
rT68make(n,rT7twin((T7*)(C)->_to_string),a1);
R=(T0 *)n;}
return R;
}
T0* rT67to_local_name(T67 *C,T0* a1,int a2){
T0* R=NULL;
{T180 *n=((T180*)se_new(180));
rT180make(n,rT67pos((C)->_li,(C)->_co),XrT47to_string(rT137name((T137*)a1,a2)),rT137type((T137*)a1,a2),a2);
R=(T0 *)n;}
return R;
}
void rT67make(T67 *C,int a1,int a2){
C->_li=a1;
C->_co=a2;
C->_to_string=oRBC67tmp_string;
/*(IRF3*/(((T7*)(C)->_to_string)->_count)=(0);
/*)*/}
T0* rT71add_comment(T71 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T219 *n=((T219*)se_new(219));
rT219make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT97pretty_print(T97 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_written_mark);
}
T0* rT97base_class_name(T97 *C){
T0* R=NULL;
R=XrT56base_class_name((C)->_run_type);
return R;
}
T0* rT97base_class(T97 *C){
T0* R=NULL;
R=rT46base_class((T46*)rT97base_class_name(C));
return R;
}
void rT97make(T97 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms199);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT65to_string((C)->_like_what));
}
void rT96pretty_print(T96 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_written_mark);
}
T0* rT96base_class_name(T96 *C){
T0* R=NULL;
R=XrT56base_class_name((C)->_run_type);
return R;
}
T0* rT96base_class(T96 *C){
T0* R=NULL;
R=rT46base_class((T46*)rT96base_class_name(C));
return R;
}
void rT96make(T96 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms198);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,((T86*)(C)->_like_what)->_to_string);
}
T0* rT88base_class_name(T88 *C){
T0* R=NULL;
R=XrT56base_class_name((C)->_run_type);
return R;
}
T0* rT88base_class(T88 *C){
T0* R=NULL;
R=rT46base_class((T46*)rT88base_class_name(C));
return R;
}
void rT88make(T88 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_like_what=a2;
if ((int)C->_like_what) switch (((T0 *)C->_like_what)->id) {
case 87: 
break;
default:
C->_like_what = NULL;
};}
T0* rT85run_type(T85 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT85start_position(T85 *C){
T0* R=NULL;
R=((T46*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT85base_class(T85 *C){
T0* R=NULL;
R=rT46base_class((T46*)(C)->_base_class_name);
return R;
}
void rT85make(T85 *C,T0* a1){
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms175,a1);
C->_base_class_name=(T0 *)n;}
}
void rT98pretty_print(T98 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_written_mark);
}
T0* rT98base_class_name(T98 *C){
T0* R=NULL;
R=XrT56base_class_name((C)->_mapped);
return R;
}
T0* rT98base_class(T98 *C){
T0* R=NULL;
R=rT46base_class((T46*)rT98base_class_name(C));
return R;
}
void rT98make(T98 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_mapped=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms201);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT56written_mark((C)->_mapped));
}
T0* rT99run_type(T99 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
void rT99pretty_print(T99 *C){
rT260put_string((T260*)oRBC27fmt,rT99written_mark(C));
}
int rT99nb(T99 *C){
int R=0;
R=((T78*)(C)->_n)->_value;
return R;
}
int ofBC100base_class_name=0;
T0*oRBC100base_class_name;
T0* rT99base_class_name(/*C*/void){
if (ofBC100base_class_name==0){
T0* R=NULL;
ofBC100base_class_name=1;
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms503,NULL);
R=(T0 *)n;}
oRBC100base_class_name=R;}
return oRBC100base_class_name;}
T0* rT99written_mark(T99 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms501);
R=(T0 *)n;}
rT7append((T7*)R,rT2to_string(rT99nb(C)));
return R;
}
void rT99make(T99 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_n=a2;
}
T0* rT101run_type(T101 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
void rT101pretty_print(T101 *C){
rT260put_string((T260*)oRBC27fmt,rT101written_mark(C));
}
T0* rT101base_class_name(/*C*/void){
if (ofBC100base_class_name==0){
T0* R=NULL;
ofBC100base_class_name=1;
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms503,NULL);
R=(T0 *)n;}
oRBC100base_class_name=R;}
return oRBC100base_class_name;}
T0* rT101written_mark(T101 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms502);
R=(T0 *)n;}
rT7append((T7*)R,XrT65to_string((C)->_n));
return R;
}
void rT101make(T101 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_n=a2;
C->_nb=-(1);
}
int rT102is_boolean(T102 *C){
int R=0;
R=XrT56is_boolean((C)->_run_type);
return R;
}
T0* rT102start_position(T102 *C){
T0* R=NULL;
R=((T46*)(C)->_formal_name)->_start_position;
return R;
}
void rT102pretty_print(T102 *C){
rT260put_string((T260*)oRBC27fmt,rT102written_mark(C));
}
T0* rT102base_class_name(T102 *C){
T0* R=NULL;
R=XrT56base_class_name((C)->_run_type);
return R;
}
T0* rT102base_class(T102 *C){
T0* R=NULL;
R=rT46base_class((T46*)rT102base_class_name(C));
return R;
}
T0* rT102written_mark(T102 *C){
T0* R=NULL;
R=((T46*)(C)->_formal_name)->_to_string;
return R;
}
void rT102make(T102 *C,T0* a1,int a2){
C->_rank=a2;
C->_formal_name=a1;
}
T0* rT103start_position(T103 *C){
T0* R=NULL;
R=((T46*)(C)->_base_class_name)->_start_position;
return R;
}
void rT103pretty_print(T103 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_written_mark);
}
T0* rT103base_class(T103 *C){
T0* R=NULL;
R=rT46base_class((T46*)(C)->_base_class_name);
return R;
}
void rT103make(T103 *C,T0* a1,T0* a2){
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms180,a1);
C->_base_class_name=(T0 *)n;}
C->_generic_list=ma(104,0,1,a2);
/*IF*/if (((T0 *)XrT56run_type(a2))==((T0 *)a2)) {
C->_run_type=(T0 *)C;
}
/*FI*/{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms204);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT56written_mark(a2));
rT7extend((T7*)(C)->_written_mark,'\135');
}
T0* rT105run_type(T105 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT105start_position(T105 *C){
T0* R=NULL;
R=((T46*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT105base_class(T105 *C){
T0* R=NULL;
R=rT46base_class((T46*)(C)->_base_class_name);
return R;
}
void rT105make(T105 *C,T0* a1){
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms182,a1);
C->_base_class_name=(T0 *)n;}
}
T0* rT107run_type(T107 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT107start_position(T107 *C){
T0* R=NULL;
R=((T46*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT107base_class(T107 *C){
T0* R=NULL;
R=rT46base_class((T46*)(C)->_base_class_name);
return R;
}
void rT107make(T107 *C,T0* a1){
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms184,a1);
C->_base_class_name=(T0 *)n;}
}
T0* rT108run_type(T108 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT108start_position(T108 *C){
T0* R=NULL;
R=((T46*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT108base_class(T108 *C){
T0* R=NULL;
R=rT46base_class((T46*)(C)->_base_class_name);
return R;
}
void rT108make(T108 *C,T0* a1){
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms191,a1);
C->_base_class_name=(T0 *)n;}
}
T0* rT109run_type(T109 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
T0* rT109start_position(T109 *C){
T0* R=NULL;
R=((T46*)(C)->_base_class_name)->_start_position;
return R;
}
T0* rT109base_class(T109 *C){
T0* R=NULL;
R=rT46base_class((T46*)(C)->_base_class_name);
return R;
}
void rT109make(T109 *C,T0* a1){
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms187,a1);
C->_base_class_name=(T0 *)n;}
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.