This is compile_to_c9.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 "compile_to_c.h"
/*STD_FILE_WRITE*/void rT39put_integer(T39 *C,int a1){
/*[IRF3:clear*//*AW*/((T7*)oRBC39tmp_string)->_count=(0);/*]*/
rT2append_in(a1,oRBC39tmp_string);
rT39put_string(C,oRBC39tmp_string);
}/*STD_FILE_WRITE*/void rT39die_with_code(/*C*/int a1){
exit(a1);
}/*STD_FILE_WRITE*/void rT39put_string(T39 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT39put_character(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
}/*STD_FILE_WRITE*/int rT39is_connected(T39 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
/*STD_FILE_WRITE*/void rT39disconnect(T39 *C){
int _err=0;
_err=fclose((C)->_output_stream);
C->_path=NULL;
}/*STD_FILE_WRITE*/void rT39connect_to(T39 *C,T0* a1){
C->_mode=(T0 *)ms1_39;
C->_output_stream=rT39fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}/*STD_FILE_WRITE*/void * rT39fopen(/*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_FILE_WRITE*/void rT39put_character(T39 *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();
rT39die_with_code(1);
/*]*/
}
/*FI*/}/*INSTRUCTION_WITH_COMMENT*/T0* rT224to_runnable(T224 *C,T0* a1){
T0* R=NULL;
T0* _ri=NULL;
/*IF*/if (!((C)->_run_compound)) {
C->_run_compound=a1;
_ri=XrT181to_runnable((C)->_instruction,a1);
/*IF*/if (!(_ri)) {
rT224error(XrT181start_position((C)->_instruction),(T0 *)ms1_224);
}
else {
C->_instruction=_ri;
R=(T0 *)C;
}
/*FI*/}
else {
{T224 *n=((T224*)se_new(224));
rT224make(n,(C)->_instruction,(C)->_comment);
R=(T0 *)n;}
R=rT224to_runnable((T224*)R,a1);
}
/*FI*/return R;
}
/*INSTRUCTION_WITH_COMMENT*/void rT224error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*INSTRUCTION_WITH_COMMENT*/T0* rT224add_comment(/*C*/T0* a1){
T0* R=NULL;
return R;
}
/*INSTRUCTION_WITH_COMMENT*/T0* rT224start_position(T224 *C){
T0* R=NULL;
R=XrT181start_position((C)->_instruction);
return R;
}
/*INSTRUCTION_WITH_COMMENT*/int rT224use_current(T224 *C){
int R=0;
R=XrT181use_current((C)->_instruction);
return R;
}
/*INSTRUCTION_WITH_COMMENT*/void rT224compile_to_c(T224 *C){
XrT181compile_to_c((C)->_instruction);
}/*INSTRUCTION_WITH_COMMENT*/int rT224is_pre_computable(T224 *C){
int R=0;
R=XrT181is_pre_computable((C)->_instruction);
return R;
}
/*INSTRUCTION_WITH_COMMENT*/void rT224make(T224 *C,T0* a1,T0* a2){
C->_instruction=a1;
C->_comment=a2;
}/*STD_FILE_READ*/int rT43feof(T43 *C,void * a1){
int R=0;
R=feof((FILE*)C->_input_stream);
return R;
}
/*STD_FILE_READ*/int rT43end_of_input(T43 *C){
int R=0;
R=rT43feof(C,(C)->_input_stream);
return R;
}
/*STD_FILE_READ*/int rT43is_connected(T43 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
/*STD_FILE_READ*/void rT43disconnect(T43 *C){
int _err=0;
_err=fclose((C)->_input_stream);
C->_path=NULL;
}T0*oRBC43last_string;
/*STD_FILE_READ*/char rT43last_character(T43 *C){
char R=0;
R=(C)->_last_character_memory;
return R;
}
/*STD_FILE_READ*/void rT43connect_to(T43 *C,T0* a1){
/*[IRF3:make*//*AW*/(C)->_mode=((T0 *)ms1_43);/*]*/
C->_input_stream=rT43fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}/*STD_FILE_READ*/void rT43skip_separators(T43 *C){
while (!((rT43end_of_input(C))||(!(rT3is_separator(rT43last_character(C)))))) {
rT43read_character(C);
}
}/*STD_FILE_READ*/void * rT43fopen(/*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_FILE_READ*/void rT43read_word(T43 *C){
rT43skip_separators(C);
/*[IRF3:clear*//*AW*/((T7*)oRBC43last_string)->_count=(0);/*]*/
while (!((rT43end_of_input(C))||(rT3is_separator(rT43last_character(C))))) {
rT7extend((T7*)oRBC43last_string,rT43last_character(C));
rT43read_character(C);
}
}/*STD_FILE_READ*/void rT43read_line_in(T43 *C,T0* a1){
/*[IRF3:clear*//*AW*/((T7*)a1)->_count=(0);/*]*/
rT43read_character(C);
while (!((rT43end_of_input(C))||((rT43last_character(C))==('\12')))) {
rT7extend((T7*)a1,rT43last_character(C));
rT43read_character(C);
}
}/*STD_FILE_READ*/void rT43read_line(T43 *C){
rT43read_line_in(C,oRBC43last_string);
}/*STD_FILE_READ*/void rT43read_character(T43 *C){
C->_last_character_memory=fgetc((C)->_input_stream);
}/*STRING*/T0* rT7twin(T7 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT7copy((T7*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*STRING*/int rT7hash_code(T7 *C){
int R=0;
int _i=0;
_i=(C)->_count;
/*IF*/if ((_i)>(5)) {
_i=5;
}
/*FI*/while (!((_i)==(0))) {
R=(R)+(((unsigned char)rT7item(C,_i)));
_i=(_i)-(1);
}
return R;
}
/*STRING*/void rT7reverse(T7 *C){
int _i2=0;
int _i1=0;
_i1=1;
_i2=(C)->_count;
while (!((_i1)>=(_i2))) {
rT7swap(C,_i1,_i2);
_i1=(_i1)+(1);
_i2=(_i2)-(1);
}
}/*STRING*/void rT7extend(T7 *C,char a1){
T37 _mem={0/*dummy*/};
/*IF*/if (((C)->_capacity)>((C)->_count)) {
}
else if (((C)->_capacity)==(0)) {
C->_capacity=32;
C->_storage=malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(32);
C->_storage=realloc((C)->_storage,(C)->_capacity);
}
/*FI*/C->_count=((C)->_count)+(1);
rT7put(C,a1,(C)->_count);
}/*STRING*/int rT7same_as(T7 *C,T0* a1){
int R=0;
int _i=0;
/*IF*/if (((T0 *)a1)==((T0 *)C)) {
R=1;
}
else {
/*IF*/if ((((T7*)a1)->_count)!=((C)->_count)) {
}
else {
_i=(C)->_count;
while (!(((_i)==(0))||(!(rT3same_as(rT7item(C,_i),rT7item((T7*)a1,_i)))))) {
_i=(_i)-(1);
}
R=(_i)==(0);
}
/*FI*/}
/*FI*/return R;
}
/*STRING*/void rT7to_upper(T7 *C){
int _i=0;
_i=(C)->_count;
while (!((_i)==(0))) {
rT7put(C,rT3to_upper(rT7item(C,_i)),_i);
_i=(_i)-(1);
}
}/*STRING*/char rT7first(T7 *C){
char R=0;
R=rT7item(C,1);
return R;
}
/*STRING*/void rT7remove_between(T7 *C,int a1,int a2){
int _i=0;
_i=a2;
while (!((_i)>=((C)->_count))) {
rT7put(C,rT7item(C,(_i)+(1)),((a1)+(_i))-(a2));
_i=(_i)+(1);
}
C->_count=((C)->_count)-(((a2)-(a1))+(1));
}/*STRING*/void rT7remove_first(T7 *C,int a1){
/*IF*/if ((a1)>(0)) {
rT7remove_between(C,1,a1);
}
/*FI*/}/*STRING*/void rT7remove_last(T7 *C,int a1){
C->_count=((C)->_count)-(a1);
}/*STRING*/int rT7has_prefix(T7 *C,T0* a1){
int R=0;
int _i=0;
/*IF*/if ((((T7*)a1)->_count)<=((C)->_count)) {
_i=((T7*)a1)->_count;
while (!(((_i)==(0))||((rT7item(C,_i))!=(rT7item((T7*)a1,_i))))) {
_i=(_i)-(1);
}
R=(_i)==(0);
}
/*FI*/return R;
}
/*STRING*/int rT7has_string(T7 *C,T0* a1){
int R=0;
R=(rT7index_of_string(C,a1))!=(((C)->_count)+(1));
return R;
}
/*STRING*/int rT7has_suffix(T7 *C,T0* a1){
int R=0;
int _i2=0;
int _i1=0;
/*IF*/if ((((T7*)a1)->_count)<=((C)->_count)) {
_i1=(((C)->_count)-(((T7*)a1)->_count))+(1);
_i2=1;
while (!((((_i1)>((C)->_count))||((_i2)>(((T7*)a1)->_count)))||((rT7item(C,_i1))!=(rT7item((T7*)a1,_i2))))) {
_i1=(_i1)+(1);
_i2=(_i2)+(1);
}
R=(_i1)>((C)->_count);
}
/*FI*/return R;
}
/*STRING*/int rT7empty(T7 *C){
int R=0;
R=((C)->_count)==(0);
return R;
}
/*STRING*/char rT7item(T7 *C,int a1){
char R=0;
R=(C->_storage)[a1-1];
return R;
}
/*STRING*/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;
}
/*STRING*/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;
}
/*STRING*/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);
}
}/*STRING*/char rT7last(T7 *C){
char R=0;
R=rT7item(C,(C)->_count);
return R;
}
/*STRING*/int rT7index_of(T7 *C,char a1){
int R=0;
R=1;
while (!(((R)>((C)->_count))||((a1)==(rT7item(C,R))))) {
R=(R)+(1);
}
return R;
}
/*STRING*/int rT7index_of_string(T7 *C,T0* a1){
int R=0;
int _i3=0;
int _i2=0;
int _i1=0;
int _stop=0;
_i1=1;
_i2=((T7*)a1)->_count;
_i3=_i2;
while (!((R)!=(0))) {
/*IF*/if ((_i2)>((C)->_count)) {
R=((C)->_count)+(1);
}
else {
_stop=0;
while (!(_stop)) {
/*IF*/if ((_i3)==(0)) {
_stop=1;
R=_i1;
}
else if ((rT7item((T7*)a1,_i3))!=(rT7item(C,_i2))) {
_stop=1;
}
/*FI*/_i3=(_i3)-(1);
_i2=(_i2)-(1);
}
}
/*FI*/_i1=(_i1)+(1);
_i3=((T7*)a1)->_count;
_i2=((_i1)+(_i3))-(1);
}
return R;
}
/*STRING*/int rT7to_integer(T7 *C){
int R=0;
int _minus=0;
char _cc=0;
int _state=0;
int _i=0;
_i=1;
while (!(((_i)>((C)->_count))||((_state)==(4)))) {
_cc=rT7item(C,_i);
{int iv1=_state;
if (0 == iv1) goto l31;
goto l32;
l31: ;
/*IF*/if (rT3is_separator(_cc)) {
}
else if ((_cc)==('\53')) {
_state=1;
}
else if ((_cc)==('\55')) {
_minus=1;
_state=1;
}
else if (rT3is_digit(_cc)) {
R=rT3value(_cc);
_state=2;
}
else {
_state=4;
}
/*FI*/goto l30;
l32: ;
if (1 == iv1) goto l33;
goto l34;
l33: ;
/*IF*/if (rT3is_separator(_cc)) {
}
else if (rT3is_digit(_cc)) {
R=rT3value(_cc);
_state=2;
}
else {
_state=4;
}
/*FI*/goto l30;
l34: ;
if (2 == iv1) goto l35;
goto l36;
l35: ;
/*IF*/if (rT3is_digit(_cc)) {
R=((R)*(10))+(rT3value(_cc));
}
else if (rT3is_separator(_cc)) {
_state=3;
}
else {
_state=4;
}
/*FI*/goto l30;
l36: ;
/*IF*/if (rT3is_separator(_cc)) {
}
else {
_state=4;
}
/*FI*/ l30: ;
}
_i=(_i)+(1);
}
/*IF*/if ((_state)==(4)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms3_7);
rT38put_string((T38*)oRBC1std_error,(T0 *)C);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms4_7);
}
else if (_minus) {
R=-(R);
}
/*FI*/return R;
}
/*STRING*/void rT7put(T7 *C,char a1,int a2){
(C->_storage)[a2-1]=a1;
}/*STRING*/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);
}/*STRING*/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);
}
}/*STRING*/int rT7has(T7 *C,char a1){
int R=0;
R=(rT7index_of(C,a1))!=(((C)->_count)+(1));
return R;
}
/*STRING*/int rT7_ix60(T7 *C,T0* a1){
int R=0;
int _i=0;
_i=1;
while (!(((((C)->_count)<(_i))||((((T7*)a1)->_count)<(_i)))||((rT7item(C,_i))!=(rT7item((T7*)a1,_i))))) {
_i=(_i)+(1);
}
/*IF*/if (((C)->_count)<(_i)) {
R=(((T7*)a1)->_count)>=(_i);
}
else if ((((T7*)a1)->_count)<(_i)) {
R=0;
}
else {
R=(rT7item(C,_i))<(rT7item((T7*)a1,_i));
}
/*FI*/return R;
}
/*STRING*/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);
}
}/*STRING*/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);
}
}/*STRING*/void rT7make(T7 *C,int a1){
T37 _mem={0/*dummy*/};
/*IF*/if ((a1)>(0)) {
/*IF*/if (((C)->_capacity)<(a1)) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_storage=malloc(a1);
}
else {
C->_storage=realloc((C)->_storage,a1);
}
/*FI*/C->_capacity=a1;
}
/*FI*/}
/*FI*/C->_count=0;
}/*STRING*/char * rT7to_external(T7 *C){
char * R=0;
rT7extend(C,'\0');
C->_count=((C)->_count)-(1);
R=(C)->_storage;
return R;
}
/*WHEN_ITEM_2*/T0* rT241current_type(T241 *C){
T0* R=NULL;
R=rT234current_type((T234*)(C)->_e_when);
return R;
}
/*WHEN_ITEM_2*/T0* rT241twin(T241 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT241copy((T241*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*WHEN_ITEM_2*/T0* rT241to_runnable_character(T241 *C,T0* a1){
T0* R=NULL;
T0* _v=NULL;
/*IF*/if (!((C)->_e_when)) {
C->_e_when=a1;
_v=XrT72to_runnable((C)->_lower,rT241current_type(C));
/*IF*/if ((((int)_v))&&(XrT62is_character(XrT72result_type(_v)))) {
C->_lower=_v;
C->_lower_value=XrT72to_integer((C)->_lower);
}
else {
rT241error(XrT72start_position((C)->_lower),(T0 *)ms3_241);
}
/*FI*/_v=XrT72to_runnable((C)->_upper,rT241current_type(C));
/*IF*/if ((((int)_v))&&(XrT62is_character(XrT72result_type(_v)))) {
C->_upper=_v;
C->_upper_value=XrT72to_integer((C)->_upper);
}
else {
rT241error(XrT72start_position((C)->_upper),(T0 *)ms4_241);
}
/*FI*/rT234add_when_item_2((T234*)(C)->_e_when,(T0 *)C);
R=(T0 *)C;
}
else {
{T241 *n=((T241*)se_new(241));
rT241make(n,(C)->_lower,(C)->_upper);
R=(T0 *)n;}
R=rT241to_runnable_character((T241*)R,a1);
}
/*FI*/return R;
}
/*WHEN_ITEM_2*/T0* rT241to_runnable_integer(T241 *C,T0* a1){
T0* R=NULL;
T0* _v=NULL;
/*IF*/if (!((C)->_e_when)) {
C->_e_when=a1;
_v=XrT72to_runnable((C)->_lower,rT241current_type(C));
/*IF*/if ((((int)_v))&&(XrT62is_integer(XrT72result_type(_v)))) {
C->_lower=_v;
C->_lower_value=XrT72to_integer((C)->_lower);
}
else {
rT241error(XrT72start_position((C)->_lower),(T0 *)ms1_241);
}
/*FI*/_v=XrT72to_runnable((C)->_upper,rT241current_type(C));
/*IF*/if ((((int)_v))&&(XrT62is_integer(XrT72result_type(_v)))) {
C->_upper=_v;
C->_upper_value=XrT72to_integer((C)->_upper);
}
else {
rT241error(XrT72start_position((C)->_upper),(T0 *)ms2_241);
}
/*FI*/rT234add_when_item_2((T234*)(C)->_e_when,(T0 *)C);
R=(T0 *)C;
}
else {
{T241 *n=((T241*)se_new(241));
rT241make(n,(C)->_lower,(C)->_upper);
R=(T0 *)n;}
R=rT241to_runnable_integer((T241*)R,a1);
}
/*FI*/return R;
}
/*WHEN_ITEM_2*/void rT241error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*WHEN_ITEM_2*/T0* rT241start_position(T241 *C){
T0* R=NULL;
R=XrT72start_position((C)->_lower);
return R;
}
/*WHEN_ITEM_2*/void rT241copy(T241 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*WHEN_ITEM_2*/void rT241make(T241 *C,T0* a1,T0* a2){
C->_lower=a1;
C->_upper=a2;
}/*WHEN_LIST*/T0* rT239current_type(T239 *C){
T0* R=NULL;
R=rT233current_type((T233*)(C)->_e_inspect);
return R;
}
/*WHEN_LIST*/T0* rT239to_runnable_integer(T239 *C,T0* a1){
T0* R=NULL;
T0* _e_when=NULL;
int _ne=0;
int _i=0;
/*IF*/if (!((C)->_e_inspect)) {
_ne=/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/;
C->_e_inspect=a1;
_i=1;
while (!((((_i)>(((T240*)(C)->_list)->_upper))||(((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))>(0))))) {
_e_when=rT234to_runnable_integer((T234*)rT240item((T240*)(C)->_list,_i),(T0 *)C);
/*IF*/if (!(_e_when)) {
rT239error(rT239start_position(C),(T0 *)ms1_239);
}
else {
rT240put((T240*)(C)->_list,_e_when,_i);
}
/*FI*/_i=(_i)+(1);
}
R=(T0 *)C;
}
else {
{T239 *n=((T239*)se_new(239));
rT239from_when_list(n,(T0 *)C);
R=(T0 *)n;}
R=rT239to_runnable_integer((T239*)R,a1);
}
/*FI*/return R;
}
/*WHEN_LIST*/T0* rT239to_runnable_character(T239 *C,T0* a1){
T0* R=NULL;
T0* _e_when=NULL;
int _ne=0;
int _i=0;
/*IF*/if (!((C)->_e_inspect)) {
_ne=/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/;
C->_e_inspect=a1;
_i=1;
while (!((((_i)>(((T240*)(C)->_list)->_upper))||(((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))>(0))))) {
_e_when=rT234to_runnable_character((T234*)rT240item((T240*)(C)->_list,_i),(T0 *)C);
/*IF*/if (!(_e_when)) {
rT239error(rT239start_position(C),(T0 *)ms1_239);
}
else {
rT240put((T240*)(C)->_list,_e_when,_i);
}
/*FI*/_i=(_i)+(1);
}
R=(T0 *)C;
}
else {
{T239 *n=((T239*)se_new(239));
rT239from_when_list(n,(T0 *)C);
R=(T0 *)n;}
R=rT239to_runnable_character((T239*)R,a1);
}
/*FI*/return R;
}
/*WHEN_LIST*/void rT239error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*WHEN_LIST*/T0* rT239start_position(T239 *C){
T0* R=NULL;
R=((T234*)rT240first((T240*)(C)->_list))->_start_position;
return R;
}
/*WHEN_LIST*/int rT239use_current(T239 *C){
int R=0;
int _i=0;
/*IF*/if (((int)(C)->_list)) {
_i=1;
while (!(((_i)>(((T240*)(C)->_list)->_upper))||(R))) {
R=rT234use_current((T234*)rT240item((T240*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/return R;
}
/*WHEN_LIST*/void rT239from_when_list(T239 *C,T0* a1){
T0* _e_when=NULL;
int _i=0;
C->_list=rT240twin((T240*)((T239*)a1)->_list);
_i=1;
while (!((_i)>(((T240*)(C)->_list)->_upper))) {
{T234 *n=((T234*)se_new(234));
rT234from_e_when(n,rT240item((T240*)(C)->_list,_i));
_e_when=(T0 *)n;}
rT240put((T240*)(C)->_list,_e_when,_i);
_i=(_i)+(1);
}
}/*WHEN_LIST*/void rT239add_last(T239 *C,T0* a1){
rT240add_last((T240*)(C)->_list,a1);
}/*WHEN_LIST*/void rT239compile_to_c(T239 *C,int a1){
int _i=0;
/*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T240*)(C)->_list)->_upper))) {
rT234compile_to_c((T234*)rT240item((T240*)(C)->_list,_i),a1);
_i=(_i)+(1);
}
}
/*FI*/}/*WHEN_LIST*/int rT239includes_integer(T239 *C,int a1){
int R=0;
int _i=0;
_i=1;
while (!((R)||((_i)>(((T240*)(C)->_list)->_upper)))) {
R=rT234includes_integer((T234*)rT240item((T240*)(C)->_list,_i),a1);
_i=(_i)+(1);
}
return R;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.