This is pretty13.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_DOUBLE*/T0* rT110run_type(T110 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_DOUBLE*/T0* rT110start_position(T110 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_DOUBLE*/T0* rT110base_class(T110 *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_DOUBLE*/void rT110make(T110 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms45_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_INTEGER*/T0* rT111run_type(T111 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_INTEGER*/T0* rT111start_position(T111 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_INTEGER*/T0* rT111base_class(T111 *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_INTEGER*/void rT111make(T111 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms49_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_NONE*/T0* rT112run_type(T112 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_NONE*/T0* rT112start_position(T112 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_NONE*/T0* rT112base_class(T112 *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_NONE*/void rT112make(T112 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms52_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_POINTER*/T0* rT113run_type(T113 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_POINTER*/T0* rT113start_position(T113 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_POINTER*/T0* rT113base_class(T113 *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_POINTER*/void rT113make(T113 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms53_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_REAL*/T0* rT114run_type(T114 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_REAL*/T0* rT114start_position(T114 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_REAL*/T0* rT114base_class(T114 *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_REAL*/void rT114make(T114 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms55_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_STRING*/T0* rT115run_type(T115 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_STRING*/T0* rT115start_position(T115 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_STRING*/T0* rT115base_class(T115 *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_STRING*/void rT115make(T115 *C,T0* a1){
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms57_27,a1);
C->_base_class_name=(T0 *)n;}
}/*TYPE_CLASS*/T0* rT116run_type(T116 *C){
T0* R=NULL;
R=(T0 *)C;
return R;
}
/*TYPE_CLASS*/T0* rT116run_time_mark(T116 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_to_string;
return R;
}
/*TYPE_CLASS*/T0* rT116start_position(T116 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_start_position;
return R;
}
/*TYPE_CLASS*/void rT116pretty_print(T116 *C){
rT267put_string((T267*)oRBC27fmt,rT116written_mark(C));
}/*TYPE_CLASS*/T0* rT116base_class(T116 *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_CLASS*/T0* rT116written_mark(T116 *C){
T0* R=NULL;
R=((T49*)(C)->_base_class_name)->_to_string;
return R;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.