/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.84)    --      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 "example1.h"
T0*oRBC1io=NULL;
void rT359out_in_tagged_out_memory(T359* C){
rs_link("out_in_tagged_out_memory of GENERAL");
rs_pREF((void**)&C,Current);
rs_pPOS(tag_pos_3,332,21,1);
rT7append(ivT7(((T7*)ci(7,rT359tagged_out_memory(),332,3,1))),((T0*)(gt[(C)->id])));
rs-=8;
/*IF*/{/*AT*/rs_pPOS(tag_pos_3,334,24,1);
rT7extend(ivT7(((T7*)ci(7,rT359tagged_out_memory(),334,6,1))),'\43');
rs-=8;
rs_pPOS(tag_pos_3,335,25,1);
rT8append_in(((void*)C),rT359tagged_out_memory());
rs-=8;
}
/*FI*/rs_pPOS(tag_pos_3,337,21,1);
rT7extend(ivT7(((T7*)ci(7,rT359tagged_out_memory(),337,3,1))),'\133');
rs-=8;
rs_pPOS(tag_pos_3,338,3,1);
rT359fill_tagged_out_memory();
rs-=8;
rs_pPOS(tag_pos_3,339,21,1);
rT7extend(ivT7(((T7*)ci(7,rT359tagged_out_memory(),339,3,1))),'\135');
rs-=8;
rs_unlink();
}
void rT359make(/*C*/void){
double _d=0;
float _r=0;
int _i=0;
rs_link("make of EXAMPLE1");
rs_pINT(&_i,"i");
rs_pREA(&_r,"r");
rs_pDOU(&_d,"d");
rs_pPOS(tag_pos_3,19,6,359);
rT704put_string(((T704*)ci(704,oRBC1io,19,3,359)),ms1_359);
rs-=8;
_i=