home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_jvm18.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  8.7 KB  |  383 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. void r958jvm_target_descriptor_in(T958* C,T0* a1){
  10. X291jvm_target_descriptor_in((((T958*)C))->_run_type/*8*/,a1);
  11. }
  12. int r958jvm_if_x_eq(T958* C){
  13. int R=0;
  14. R=X291jvm_if_x_eq((((T958*)C))->_run_type/*8*/);
  15. return R;
  16. }
  17. int r958has_creation(T958* C,T0* a1){
  18. int R=0;
  19. R=X291has_creation((((T958*)C))->_run_type/*8*/,a1);
  20. return R;
  21. }
  22. /*No:TYPE_LIKE_CURRENT.is_anchored*/
  23. int r958is_array(T958* C){
  24. int R=0;
  25. R=X291is_array((((T958*)C))->_run_type/*8*/);
  26. return R;
  27. }
  28. int r958is_a(T958* C,T0* a1){
  29. int R=0;
  30. R=X291is_a((((T958*)C))->_run_type/*8*/,a1);
  31. return R;
  32. }
  33. void r958jvm_to_reference(T958* C){
  34. X291jvm_to_reference((((T958*)C))->_run_type/*8*/);
  35. }
  36. int r958is_pointer(T958* C){
  37. int R=0;
  38. R=X291is_pointer((((T958*)C))->_run_type/*8*/);
  39. return R;
  40. }
  41. /*No:TYPE_LIKE_CURRENT.run_type*/
  42. int r958is_dummy_expanded(T958* C){
  43. int R=0;
  44. R=X291is_dummy_expanded((((T958*)C))->_run_type/*8*/);
  45. return R;
  46. }
  47. int r958jvm_push_default(T958* C){
  48. int R=0;
  49. R=X291jvm_push_default((((T958*)C))->_run_type/*8*/);
  50. return R;
  51. }
  52. int r958is_string(T958* C){
  53. int R=0;
  54. R=X291is_string((((T958*)C))->_run_type/*8*/);
  55. return R;
  56. }
  57. /*No:TYPE_LIKE_CURRENT.is_like_feature*/
  58. /*No:TYPE_LIKE_CURRENT.is_like_current*/
  59. void r958make(T958* C,T0* a1,T0* a2){
  60. C->_start_position=a1;
  61. C->_like_what=a2;
  62. if(NULL!=(C->_like_what))switch(((T0*)C->_like_what)->id) {
  63. case 358: 
  64. break;
  65. default:
  66. C->_like_what=NULL;
  67. };}
  68. void r958jvm_return_code(T958* C){
  69. X291jvm_return_code((((T958*)C))->_run_type/*8*/);
  70. }
  71. void r958jvm_xnewarray(T958* C){
  72. X291jvm_xnewarray((((T958*)C))->_run_type/*8*/);
  73. }
  74. void r958jvm_descriptor_in(T958* C,T0* a1){
  75. X291jvm_descriptor_in((((T958*)C))->_run_type/*8*/,a1);
  76. }
  77. /*No:TYPE_LIKE_CURRENT.us_like_current*/
  78. /*No:TYPE_LIKE_CURRENT.start_position*/
  79. /*No:TYPE_LIKE_CURRENT.like_what*/
  80. int r958is_user_expanded(T958* C){
  81. int R=0;
  82. R=X291is_user_expanded((((T958*)C))->_run_type/*8*/);
  83. return R;
  84. }
  85. int r958is_character(T958* C){
  86. int R=0;
  87. R=X291is_character((((T958*)C))->_run_type/*8*/);
  88. return R;
  89. }
  90. T0* r958written_mark(void){
  91. T0* R=NULL;
  92. R=((T0*)ms145_473);
  93. return R;
  94. }
  95. /*No:TYPE_LIKE_CURRENT.is_run_type*/
  96. T0* r958to_runnable(T958* C,T0* a1){
  97. T0* R=NULL;
  98. /*IF*/if (((((T958*)C))->_run_type/*8*/)==((void*)(NULL))) {
  99. C->_run_type=X291run_type(a1);
  100. R=(T0*)C;
  101. }
  102. else {
  103. {T958*n=malloc(sizeof(*n));
  104. *n=M958;
  105. r958make(n,(((T958*)C))->_start_position/*4*/,(((T958*)C))->_like_what/*12*/);
  106. R=(T0*)n;
  107. }
  108. R=r958to_runnable(((T958*)R),a1);
  109. }
  110. /*FI*/return R;
  111. }
  112. /*No:TYPE_LIKE_CURRENT.is_formal_generic*/
  113. T0* r958generic_list(T958* C){
  114. T0* R=NULL;
  115. /*IF*/if (r958is_generic(C)) {
  116. R=X291generic_list((((T958*)C))->_run_type/*8*/);
  117. }
  118. else {
  119. r958fatal_error_generic_list(C);
  120. }
  121. /*FI*/return R;
  122. }
  123. int r958is_real(T958* C){
  124. int R=0;
  125. R=X291is_real((((T958*)C))->_run_type/*8*/);
  126. return R;
  127. }
  128. int r958is_bit(T958* C){
  129. int R=0;
  130. R=X291is_bit((((T958*)C))->_run_type/*8*/);
  131. return R;
  132. }
  133. void r958fatal_error_generic_list(T958* C){
  134. r683add_type((T0*)C,((T0*)ms12_291));
  135. r683print_as_fatal_error(((T683*)(oBC364eh)));
  136. }
  137. void r958jvm_check_class_invariant(T958* C){
  138. X291jvm_check_class_invariant((((T958*)C))->_run_type/*8*/);
  139. }
  140. void r958jvm_xaload(T958* C){
  141. X291jvm_xaload((((T958*)C))->_run_type/*8*/);
  142. }
  143. T0* r958smallest_ancestor(T958* C,T0* a1){
  144. T0* R=NULL;
  145. R=X291smallest_ancestor((((T958*)C))->_run_type/*8*/,a1);
  146. return R;
  147. }
  148. int r958is_boolean(T958* C){
  149. int R=0;
  150. R=X291is_boolean((((T958*)C))->_run_type/*8*/);
  151. return R;
  152. }
  153. int r958is_double(T958* C){
  154. int R=0;
  155. R=X291is_double((((T958*)C))->_run_type/*8*/);
  156. return R;
  157. }
  158. int r958jvm_stack_space(T958* C){
  159. int R=0;
  160. /*IF*/if (r958is_double(C)) {
  161. R=2;
  162. }
  163. else {
  164. R=1;
  165. }
  166. /*FI*/return R;
  167. }
  168. T0* r958run_class(T958* C){
  169. T0* R=NULL;
  170. R=r604run_class((((T958*)C))->_run_type/*8*/);
  171. return R;
  172. }
  173. T0* r958run_time_mark(T958* C){
  174. T0* R=NULL;
  175. /*IF*/if (((((T958*)C))->_run_type/*8*/)!=((void*)(NULL))) {
  176. R=X291run_time_mark((((T958*)C))->_run_type/*8*/);
  177. }
  178. /*FI*/return R;
  179. }
  180. int r958is_a_in(T958* C,T0* a1,T0* a2){
  181. int R=0;
  182. T0* _ct=NULL;
  183. T0* _t2=NULL;
  184. T0* _t1=NULL;
  185. /*IF*/if ((r958written_mark())==((void*)(X291written_mark(a1)))) {
  186. R=1;
  187. }
  188. else {
  189. _ct=(((T355*)((T355*)a2)))->_current_type/*0*/;
  190. _t1=r958to_runnable(C,_ct);
  191. _t2=X291to_runnable(a1,_ct);
  192. /*IF*/if ((X291run_time_mark(_t1))==((void*)(X291run_time_mark(_t2)))) {
  193. R=1;
  194. }
  195. else {
  196. R=X291is_a(_t1,_t2);
  197. }
  198. /*FI*/}
  199. /*FI*/return R;
  200. }
  201. T0* r958look_up_for(T958* C,T0* a1,T0* a2){
  202. T0* R=NULL;
  203. R=r605look_up_for(((T605*)(r958base_class(C))),a1,a2);
  204. return R;
  205. }
  206. int r958jvm_convert_to(T958* C,T0* a1){
  207. int R=0;
  208. R=X291jvm_convert_to((((T958*)C))->_run_type/*8*/,a1);
  209. return R;
  210. }
  211. T0* r958expanded_initializer(T958* C){
  212. T0* R=NULL;
  213. R=X291expanded_initializer((((T958*)C))->_run_type/*8*/);
  214. return R;
  215. }
  216. int r958jvm_if_x_ne(T958* C){
  217. int R=0;
  218. R=X291jvm_if_x_ne((((T958*)C))->_run_type/*8*/);
  219. return R;
  220. }
  221. /*No:TYPE_LIKE_CURRENT.fz_dot*/
  222. int r958is_generic(T958* C){
  223. int R=0;
  224. R=X291is_generic((((T958*)C))->_run_type/*8*/);
  225. return R;
  226. }
  227. void r958jvm_write_local(T958* C,int a1){
  228. X291jvm_write_local((((T958*)C))->_run_type/*8*/,a1);
  229. }
  230. void r958jvm_initialize_local(T958* C,int a1){
  231. X291jvm_initialize_local((((T958*)C))->_run_type/*8*/,a1);
  232. }
  233. /*No:TYPE_LIKE_CURRENT.used_as_reference*/
  234. int r958is_reference(T958* C){
  235. int R=0;
  236. R=X291is_reference((((T958*)C))->_run_type/*8*/);
  237. return R;
  238. }
  239. T0* r958base_class(T958* C){
  240. T0* R=NULL;
  241. T0* _bcn=NULL;
  242. _bcn=r958base_class_name(C);
  243. /*IF*/if ((_bcn)!=((void*)(NULL))) {
  244. R=r451base_class(((T451*)_bcn));
  245. }
  246. else {
  247. /*[IRF3.6append*/{T0* b1=((T0*)ms3_291);
  248. r7append(((T7*)(oBC683explanation)),b1);
  249. }/*]*/
  250. r683add_type((T0*)C,((T0*)ms67_470));
  251. r683print_as_fatal_error(((T683*)(oBC364eh)));
  252. }
  253. /*FI*/return R;
  254. }
  255. void r958jvm_xastore(T958* C){
  256. X291jvm_xastore((((T958*)C))->_run_type/*8*/);
  257. }
  258. int r958is_any(T958* C){
  259. int R=0;
  260. R=X291is_any((((T958*)C))->_run_type/*8*/);
  261. return R;
  262. }
  263. int r958jvm_method_flags(T958* C){
  264. int R=0;
  265. R=X291jvm_method_flags((((T958*)C))->_run_type/*8*/);
  266. return R;
  267. }
  268. T0* r958base_class_name(T958* C){
  269. T0* R=NULL;
  270. R=X291base_class_name((((T958*)C))->_run_type/*8*/);
  271. return R;
  272. }
  273. void r958jvm_push_local(T958* C,int a1){
  274. X291jvm_push_local((((T958*)C))->_run_type/*8*/,a1);
  275. }
  276. int r958is_expanded(T958* C){
  277. int R=0;
  278. R=X291is_expanded((((T958*)C))->_run_type/*8*/);
  279. return R;
  280. }
  281. int r958is_basic_eiffel_expanded(T958* C){
  282. int R=0;
  283. R=X291is_basic_eiffel_expanded((((T958*)C))->_run_type/*8*/);
  284. return R;
  285. }
  286. int r958is_none(T958* C){
  287. int R=0;
  288. R=X291is_none((((T958*)C))->_run_type/*8*/);
  289. return R;
  290. }
  291. int r958is_integer(T958* C){
  292. int R=0;
  293. R=X291is_integer((((T958*)C))->_run_type/*8*/);
  294. return R;
  295. }
  296. void r306print_count(T306* C,T0* a1,int a2){
  297. /*IF*/if ((((T306*)C))->_verbose/*0*/) {
  298. /*IF*/if ((a2)>(0)) {
  299. r306put_string(C,((T0*)ms6_306));
  300. r306put_string(C,a1);
  301. /*IF*/if ((a2)>(1)) {
  302. r306put_character(C,'s');
  303. }
  304. /*FI*/r306put_string(C,((T0*)ms7_306));
  305. r306put_integer(C,a2);
  306. r306put_string(C,((T0*)ms241_470));
  307. }
  308. else {
  309. r306put_string(C,((T0*)ms8_306));
  310. r306put_string(C,a1);
  311. r306put_string(C,((T0*)ms241_470));
  312. }
  313. /*FI*/}
  314. /*FI*/}
  315. /*No:ECHO.make*/
  316. /*No:ECHO.verbose*/
  317. void r306sfr_connect(T306* C,T0* a1,T0* a2){
  318. r306put_string(C,((T0*)ms3_306));
  319. r306put_string(C,a2);
  320. r306put_string(C,((T0*)ms4_306));
  321. r675connect_to(((T675*)a1),a2);
  322. }
  323. void r306put_string(T306* C,T0* a1){
  324. /*IF*/if ((((T306*)C))->_verbose/*0*/) {
  325. r830put_string(((T830*)(oBC1std_output)),a1);
  326. /*[IRF3.6flush*/{T830* C1=((T830*)(oBC1std_output));
  327. fflush(stdout);
  328. }/*]*/
  329. }
  330. /*FI*/}
  331. void r306put_integer(T306* C,int a1){
  332. /*IF*/if ((((T306*)C))->_verbose/*0*/) {
  333. r830put_integer(((T830*)(oBC1std_output)),a1);
  334. /*[IRF3.6flush*/{T830* C1=((T830*)(oBC1std_output));
  335. fflush(stdout);
  336. }/*]*/
  337. }
  338. /*FI*/}
  339. void r306w_put_string(T0* a1){
  340. r441put_string(((T441*)(oBC1std_error)),a1);
  341. /*[IRF3.6flush*/{T441* C1=((T441*)(oBC1std_error));
  342. fflush(stderr);
  343. }/*]*/
  344. }
  345. void r306put_character(T306* C,char a1){
  346. /*IF*/if ((((T306*)C))->_verbose/*0*/) {
  347. /*[IRF3.6put_character*/{T830* C1=((T830*)(oBC1std_output));
  348. char b1=a1;
  349. putc(b1,((FILE*)(stdout)));
  350. }/*]*/
  351. /*[IRF3.6flush*/{T830* C1=((T830*)(oBC1std_output));
  352. fflush(stdout);
  353. }/*]*/
  354. }
  355. /*FI*/}
  356. /*No:ECHO.fz_b6*/
  357. void r306w_put_character(char a1){
  358. /*[IRF3.6put_character*/{T441* C1=((T441*)(oBC1std_error));
  359. char b1=a1;
  360. putc(b1,((FILE*)(stderr)));
  361. }/*]*/
  362. /*[IRF3.6flush*/{T441* C1=((T441*)(oBC1std_error));
  363. fflush(stderr);
  364. }/*]*/
  365. }
  366. /*No:ECHO.set_verbose*/
  367. void r306w_put_integer(int a1){
  368. r441put_integer(((T441*)(oBC1std_error)),a1);
  369. /*[IRF3.6flush*/{T441* C1=((T441*)(oBC1std_error));
  370. fflush(stderr);
  371. }/*]*/
  372. }
  373. void r306put_new_line(T306* C){
  374. /*IF*/if ((((T306*)C))->_verbose/*0*/) {
  375. /*[IRF3.4put_new_line*//*[IRF3.6put_character*/{T830* C1=((T830*)(oBC1std_output));
  376. char b1='\n';
  377. putc(b1,((FILE*)(stdout)));
  378. }/*]*/
  379. /*]*/
  380. }
  381. /*FI*/}
  382.  
  383.