home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_c27.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  4.7 KB  |  149 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9. int r283is_expanded(T283* C){
  10. int R=0;
  11. R=X291is_expanded((((T283*)C))->_run_type/*12*/);
  12. return R;
  13. }
  14. int r283is_basic_eiffel_expanded(T283* C){
  15. int R=0;
  16. R=X291is_basic_eiffel_expanded((((T283*)C))->_run_type/*12*/);
  17. return R;
  18. }
  19. int r283is_none(T283* C){
  20. int R=0;
  21. R=X291is_none((((T283*)C))->_run_type/*12*/);
  22. return R;
  23. }
  24. void r283to_expanded(T283* C){
  25. X291to_expanded((((T283*)C))->_run_type/*12*/);
  26. }
  27. int r283is_integer(T283* C){
  28. int R=0;
  29. R=X291is_integer((((T283*)C))->_run_type/*12*/);
  30. return R;
  31. }
  32. void r283warning(T0* a1,T0* a2){
  33. r683add_position(a1);
  34. r683warning(((T683*)(oBC364eh)),a2);
  35. }
  36. T0* r283make_runnable(T283* C,T0* a1){
  37. T0* R=NULL;
  38. T0* _rt2=NULL;
  39. _rt2=X291run_type(a1);
  40. /*IF*/if ((_rt2)==((void*)(NULL))) {
  41. /*IF*/if ((a1)!=((void*)(NULL))) {
  42. r683add_position(X291start_position(a1));
  43. }
  44. /*FI*/r283error(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms59_470));
  45. }
  46.  else if (((((T283*)C))->_run_type/*12*/)==((void*)(NULL))) {
  47. C->_run_type=_rt2;
  48. R=(T0*)C;
  49. }
  50. else {
  51. R=r283twin(C);
  52. /*[IRF3.3set_run_type*/((((T283*)(((T283*)R))))->_run_type)=(_rt2);
  53. /*]*/
  54. }
  55. /*FI*/return R;
  56. }
  57. void r283c_header_pass4(T283* C){
  58. X291c_header_pass4((((T283*)C))->_run_type/*12*/);
  59. }
  60. void r320c_mapping_procedure_non_small_eiffel(T0* a1,T0* a2){
  61. int _bfuc=0;
  62. T0* _bf=NULL;
  63. _bf=(((T906*)((T906*)a1)))->_base_feature/*44*/;
  64. _bfuc=r883use_current(((T883*)_bf));
  65. /*IF*/if ((!(_bfuc))&&(r324target_cannot_be_dropped(((T324*)(oBC364cpp))))) {
  66. /*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
  67. /*]*/
  68. }
  69. /*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),r883external_c_name(((T883*)_bf)));
  70. /*]*/
  71. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  72. char b1='\50';
  73. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  74. }/*]*/
  75. /*]*/
  76. /*IF*/if (_bfuc) {
  77. r324put_target_as_value(((T324*)(oBC364cpp)));
  78. }
  79. /*FI*//*IF*/if ((r906arg_count(((T906*)a1)))>(0)) {
  80. /*IF*/if (_bfuc) {
  81. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  82. char b1='\54';
  83. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  84. }/*]*/
  85. /*]*/
  86. }
  87. /*FI*/r324put_arguments(((T324*)(oBC364cpp)));
  88. }
  89. /*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
  90. /*]*/
  91. }
  92. void r320c_mapping_function_non_small_eiffel(T0* a1,T0* a2){
  93. int _tcbd=0;
  94. int _bfuc=0;
  95. T0* _bf=NULL;
  96. _bf=(((T892*)((T892*)a1)))->_base_feature/*48*/;
  97. _bfuc=r679use_current(((T679*)_bf));
  98. /*IF*/if (!(_bfuc)) {
  99. _tcbd=r324target_cannot_be_dropped(((T324*)(oBC364cpp)));
  100. /*IF*/if (_tcbd) {
  101. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  102. char b1='\54';
  103. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  104. }/*]*/
  105. /*]*/
  106. }
  107. /*FI*/}
  108. /*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),r679external_c_name(((T679*)_bf)));
  109. /*]*/
  110. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  111. char b1='\50';
  112. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  113. }/*]*/
  114. /*]*/
  115. /*IF*/if (_bfuc) {
  116. r324put_target_as_value(((T324*)(oBC364cpp)));
  117. }
  118. /*FI*//*IF*/if ((r892arg_count(((T892*)a1)))>(0)) {
  119. /*IF*/if (_bfuc) {
  120. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  121. char b1='\54';
  122. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  123. }/*]*/
  124. /*]*/
  125. }
  126. /*FI*/r324put_arguments(((T324*)(oBC364cpp)));
  127. }
  128. /*FI*//*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  129. char b1='\51';
  130. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  131. }/*]*/
  132. /*]*/
  133. /*IF*/if ((!(_bfuc))&&(_tcbd)) {
  134. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  135. char b1='\51';
  136. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  137. }/*]*/
  138. /*]*/
  139. }
  140. /*FI*/}
  141. /*No:NATIVE_WITHOUT_CURRENT.c_define_function*/
  142. /*No:NATIVE_WITHOUT_CURRENT.fz_14*/
  143. /*No:NATIVE_WITHOUT_CURRENT.c_define_procedure*/
  144. /*No:NATIVE_WITHOUT_CURRENT.stupid_switch*/
  145. /*No:NATIVE_WITHOUT_CURRENT.c_mapping_procedure*/
  146. /*No:NATIVE_WITHOUT_CURRENT.c_mapping_function*/
  147. /*No:NATIVE_WITHOUT_CURRENT.use_current*/
  148.  
  149.