home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_jvm25.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  3.3 KB  |  122 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_jvm.h"
  9. T0* r283formal_generic_list(T283* C){
  10. T0* R=NULL;
  11. R=(((T605*)((T605*)(r627base_class(((T627*)(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/)))))))->_formal_generic_list/*28*/;
  12. return R;
  13. }
  14. int r283is_reference(T283* C){
  15. int R=0;
  16. R=X291is_reference((((T283*)C))->_run_type/*12*/);
  17. return R;
  18. }
  19. void r283error(T0* a1,T0* a2){
  20. r683add_position(a1);
  21. r683error(((T683*)(oBC364eh)),a2);
  22. }
  23. T0* r283base_class(T283* C){
  24. T0* R=NULL;
  25. T0* _bcn=NULL;
  26. _bcn=r283base_class_name(C);
  27. /*IF*/if ((_bcn)!=((void*)(NULL))) {
  28. R=r451base_class(((T451*)_bcn));
  29. }
  30. else {
  31. /*[IRF3.6append*/{T0* b1=((T0*)ms3_291);
  32. r7append(((T7*)(oBC683explanation)),b1);
  33. }/*]*/
  34. r683add_type((T0*)C,((T0*)ms67_470));
  35. r683print_as_fatal_error(((T683*)(oBC364eh)));
  36. }
  37. /*FI*/return R;
  38. }
  39. void r283jvm_xastore(T283* C){
  40. X291jvm_xastore((((T283*)C))->_run_type/*12*/);
  41. }
  42. /*No:TYPE_FORMAL_GENERIC.fatal_error*/
  43. int r283is_any(T283* C){
  44. int R=0;
  45. R=X291is_any((((T283*)C))->_run_type/*12*/);
  46. return R;
  47. }
  48. int r283jvm_method_flags(T283* C){
  49. int R=0;
  50. R=X291jvm_method_flags((((T283*)C))->_run_type/*12*/);
  51. return R;
  52. }
  53. T0* r283base_class_name(T283* C){
  54. T0* R=NULL;
  55. R=X291base_class_name((((T283*)C))->_run_type/*12*/);
  56. return R;
  57. }
  58. void r283jvm_push_local(T283* C,int a1){
  59. X291jvm_push_local((((T283*)C))->_run_type/*12*/,a1);
  60. }
  61. int r283is_expanded(T283* C){
  62. int R=0;
  63. R=X291is_expanded((((T283*)C))->_run_type/*12*/);
  64. return R;
  65. }
  66. int r283is_basic_eiffel_expanded(T283* C){
  67. int R=0;
  68. R=X291is_basic_eiffel_expanded((((T283*)C))->_run_type/*12*/);
  69. return R;
  70. }
  71. int r283is_none(T283* C){
  72. int R=0;
  73. R=X291is_none((((T283*)C))->_run_type/*12*/);
  74. return R;
  75. }
  76. int r283is_integer(T283* C){
  77. int R=0;
  78. R=X291is_integer((((T283*)C))->_run_type/*12*/);
  79. return R;
  80. }
  81. void r283warning(T0* a1,T0* a2){
  82. r683add_position(a1);
  83. r683warning(((T683*)(oBC364eh)),a2);
  84. }
  85. T0* r283make_runnable(T283* C,T0* a1){
  86. T0* R=NULL;
  87. T0* _rt2=NULL;
  88. _rt2=X291run_type(a1);
  89. /*IF*/if ((_rt2)==((void*)(NULL))) {
  90. /*IF*/if ((a1)!=((void*)(NULL))) {
  91. r683add_position(X291start_position(a1));
  92. }
  93. /*FI*/r283error(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms59_470));
  94. }
  95.  else if (((((T283*)C))->_run_type/*12*/)==((void*)(NULL))) {
  96. C->_run_type=_rt2;
  97. R=(T0*)C;
  98. }
  99. else {
  100. R=r283twin(C);
  101. /*[IRF3.3set_run_type*/((((T283*)(((T283*)R))))->_run_type)=(_rt2);
  102. /*]*/
  103. }
  104. /*FI*/return R;
  105. }
  106. /*No:NATIVE_WITHOUT_CURRENT.jvm_add_method_for_procedure*/
  107. /*No:NATIVE_WITHOUT_CURRENT.jvm_add_method_for_function*/
  108. /*No:NATIVE_WITHOUT_CURRENT.jvm_mapping_procedure*/
  109. /*No:NATIVE_WITHOUT_CURRENT.jvm_define_procedure*/
  110. /*No:NATIVE_WITHOUT_CURRENT.use_current*/
  111. /*No:NATIVE_WITHOUT_CURRENT.jvm_define_function*/
  112. /*No:NATIVE_WITHOUT_CURRENT.fatal_error*/
  113. void r320fe_c2jvm(T0* a1){
  114. r683add_position(r228target_position(((T228*)(oBC364jvm))));
  115. r683add_position(X496start_position(a1));
  116. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_845);
  117. r683fatal_error(((T683*)(oBC364eh)),b1);
  118. }/*]*/
  119. }
  120. /*No:NATIVE_WITHOUT_CURRENT.jvm_mapping_function*/
  121.  
  122.