home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / lib_show / external / jvm / example12.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  1.3 KB  |  46 lines
  1. /* ANSI C code generated by SmallEiffel. */
  2. /*
  3. -- SmallEiffel  -- Release (- 0.84)    --      FRANCE
  4. -- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN 
  5. -- University Henri Poincare' - Nancy 1 - email colnet@loria.fr 
  6. -- CRIN (Centre de Recherche en Informatique de Nancy)
  7. -- FRANCE 
  8. */
  9. #include "example1.h"
  10. T0*oRBC1io=NULL;
  11. void rT359out_in_tagged_out_memory(T359* C){
  12. rs_link("out_in_tagged_out_memory of GENERAL");
  13. rs_pREF((void**)&C,Current);
  14. rs_pPOS(tag_pos_3,332,21,1);
  15. rT7append(ivT7(((T7*)ci(7,rT359tagged_out_memory(),332,3,1))),((T0*)(gt[(C)->id])));
  16. rs-=8;
  17. /*IF*/{/*AT*/rs_pPOS(tag_pos_3,334,24,1);
  18. rT7extend(ivT7(((T7*)ci(7,rT359tagged_out_memory(),334,6,1))),'\43');
  19. rs-=8;
  20. rs_pPOS(tag_pos_3,335,25,1);
  21. rT8append_in(((void*)C),rT359tagged_out_memory());
  22. rs-=8;
  23. }
  24. /*FI*/rs_pPOS(tag_pos_3,337,21,1);
  25. rT7extend(ivT7(((T7*)ci(7,rT359tagged_out_memory(),337,3,1))),'\133');
  26. rs-=8;
  27. rs_pPOS(tag_pos_3,338,3,1);
  28. rT359fill_tagged_out_memory();
  29. rs-=8;
  30. rs_pPOS(tag_pos_3,339,21,1);
  31. rT7extend(ivT7(((T7*)ci(7,rT359tagged_out_memory(),339,3,1))),'\135');
  32. rs-=8;
  33. rs_unlink();
  34. }
  35. void rT359make(/*C*/void){
  36. double _d=0;
  37. float _r=0;
  38. int _i=0;
  39. rs_link("make of EXAMPLE1");
  40. rs_pINT(&_i,"i");
  41. rs_pREA(&_r,"r");
  42. rs_pDOU(&_d,"d");
  43. rs_pPOS(tag_pos_3,19,6,359);
  44. rT704put_string(((T704*)ci(704,oRBC1io,19,3,359)),ms1_359);
  45. rs-=8;
  46. _i=