home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_jvm4.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  4.8 KB  |  278 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 r973copy_from(T973 C,T973 a1,int a2){
  10. int _i=0;
  11. _i=a2;
  12. while (!((_i)<(0))) {
  13. (C)[_i]=((a1)[_i]);
  14. _i=(_i)-(1);
  15. }
  16. }
  17. T973 r973realloc(T973 C,int a1,int a2){
  18. T973 R=NULL;
  19. R=calloc(a2,sizeof(T0*));
  20. r973copy_from(R,C,(a1)-(1));
  21. return R;
  22. }
  23. void r884set_all_with(T884 C,T0* a1,int a2){
  24. int _i=0;
  25. _i=a2;
  26. while (!((_i)<(0))) {
  27. (C)[_i]=(a1);
  28. _i=(_i)-(1);
  29. }
  30. }
  31. int r884fast_index_of(T884 C,T0* a1,int a2){
  32. int R=0;
  33. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  34. R=(R)+(1);
  35. }
  36. return R;
  37. }
  38. void r884copy_from(T884 C,T884 a1,int a2){
  39. int _i=0;
  40. _i=a2;
  41. while (!((_i)<(0))) {
  42. (C)[_i]=((a1)[_i]);
  43. _i=(_i)-(1);
  44. }
  45. }
  46. T884 r884realloc(T884 C,int a1,int a2){
  47. T884 R=NULL;
  48. R=calloc(a2,sizeof(T0*));
  49. r884copy_from(R,C,(a1)-(1));
  50. return R;
  51. }
  52. void r692set_all_with(T692 C,T0* a1,int a2){
  53. int _i=0;
  54. _i=a2;
  55. while (!((_i)<(0))) {
  56. (C)[_i]=(a1);
  57. _i=(_i)-(1);
  58. }
  59. }
  60. int r692fast_index_of(T692 C,T0* a1,int a2){
  61. int R=0;
  62. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  63. R=(R)+(1);
  64. }
  65. return R;
  66. }
  67. void r692copy_from(T692 C,T692 a1,int a2){
  68. int _i=0;
  69. _i=a2;
  70. while (!((_i)<(0))) {
  71. (C)[_i]=((a1)[_i]);
  72. _i=(_i)-(1);
  73. }
  74. }
  75. T692 r692realloc(T692 C,int a1,int a2){
  76. T692 R=NULL;
  77. R=calloc(a2,sizeof(T0*));
  78. r692copy_from(R,C,(a1)-(1));
  79. return R;
  80. }
  81. int r379fast_index_of(T379 C,T0* a1,int a2){
  82. int R=0;
  83. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  84. R=(R)+(1);
  85. }
  86. return R;
  87. }
  88. void r379copy_from(T379 C,T379 a1,int a2){
  89. int _i=0;
  90. _i=a2;
  91. while (!((_i)<(0))) {
  92. (C)[_i]=((a1)[_i]);
  93. _i=(_i)-(1);
  94. }
  95. }
  96. T379 r379realloc(T379 C,int a1,int a2){
  97. T379 R=NULL;
  98. R=calloc(a2,sizeof(T0*));
  99. r379copy_from(R,C,(a1)-(1));
  100. return R;
  101. }
  102. int r379equal_like(T0* a1,T0* a2){
  103. int R=0;
  104. /*IF*//*AF*//*AF*/if ((a1)==((void*)(a2))) {
  105. R=1;
  106. }
  107.  else if (((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))) {
  108. }
  109. else {
  110. R=r627is_equal(((T627*)a1),a2);
  111. }
  112. /*FI*/return R;
  113. }
  114. int r379index_of(T379 C,T0* a1,int a2){
  115. int R=0;
  116. while (!(((R)>(a2))||(r379equal_like(a1,(C)[R])))) {
  117. R=(R)+(1);
  118. }
  119. return R;
  120. }
  121. void r175set_all_with(T175 C,T0* a1,int a2){
  122. int _i=0;
  123. _i=a2;
  124. while (!((_i)<(0))) {
  125. (C)[_i]=(a1);
  126. _i=(_i)-(1);
  127. }
  128. }
  129. void r175copy_from(T175 C,T175 a1,int a2){
  130. int _i=0;
  131. _i=a2;
  132. while (!((_i)<(0))) {
  133. (C)[_i]=((a1)[_i]);
  134. _i=(_i)-(1);
  135. }
  136. }
  137. T175 r175realloc(T175 C,int a1,int a2){
  138. T175 R=NULL;
  139. R=calloc(a2,sizeof(T0*));
  140. r175copy_from(R,C,(a1)-(1));
  141. return R;
  142. }
  143. void r667copy_from(T667 C,T667 a1,int a2){
  144. int _i=0;
  145. _i=a2;
  146. while (!((_i)<(0))) {
  147. (C)[_i]=((a1)[_i]);
  148. _i=(_i)-(1);
  149. }
  150. }
  151. T667 r667realloc(T667 C,int a1,int a2){
  152. T667 R=NULL;
  153. R=calloc(a2,sizeof(T0*));
  154. r667copy_from(R,C,(a1)-(1));
  155. return R;
  156. }
  157. void r659set_all_with(T659 C,T0* a1,int a2){
  158. int _i=0;
  159. _i=a2;
  160. while (!((_i)<(0))) {
  161. (C)[_i]=(a1);
  162. _i=(_i)-(1);
  163. }
  164. }
  165. int r659fast_index_of(T659 C,T0* a1,int a2){
  166. int R=0;
  167. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  168. R=(R)+(1);
  169. }
  170. return R;
  171. }
  172. void r659copy_from(T659 C,T659 a1,int a2){
  173. int _i=0;
  174. _i=a2;
  175. while (!((_i)<(0))) {
  176. (C)[_i]=((a1)[_i]);
  177. _i=(_i)-(1);
  178. }
  179. }
  180. T659 r659realloc(T659 C,int a1,int a2){
  181. T659 R=NULL;
  182. R=calloc(a2,sizeof(T0*));
  183. r659copy_from(R,C,(a1)-(1));
  184. return R;
  185. }
  186. void r729set_all_with(T729 C,T0* a1,int a2){
  187. int _i=0;
  188. _i=a2;
  189. while (!((_i)<(0))) {
  190. (C)[_i]=(a1);
  191. _i=(_i)-(1);
  192. }
  193. }
  194. int r729fast_index_of(T729 C,T0* a1,int a2){
  195. int R=0;
  196. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  197. R=(R)+(1);
  198. }
  199. return R;
  200. }
  201. void r729copy_from(T729 C,T729 a1,int a2){
  202. int _i=0;
  203. _i=a2;
  204. while (!((_i)<(0))) {
  205. (C)[_i]=((a1)[_i]);
  206. _i=(_i)-(1);
  207. }
  208. }
  209. T729 r729realloc(T729 C,int a1,int a2){
  210. T729 R=NULL;
  211. R=calloc(a2,sizeof(T0*));
  212. r729copy_from(R,C,(a1)-(1));
  213. return R;
  214. }
  215. void r949copy_from(T949 C,T949 a1,int a2){
  216. int _i=0;
  217. _i=a2;
  218. while (!((_i)<(0))) {
  219. (C)[_i]=((a1)[_i]);
  220. _i=(_i)-(1);
  221. }
  222. }
  223. T949 r949realloc(T949 C,int a1,int a2){
  224. T949 R=NULL;
  225. R=calloc(a2,sizeof(T0*));
  226. r949copy_from(R,C,(a1)-(1));
  227. return R;
  228. }
  229. void r400set_all_with(T400 C,T0* a1,int a2){
  230. int _i=0;
  231. _i=a2;
  232. while (!((_i)<(0))) {
  233. (C)[_i]=(a1);
  234. _i=(_i)-(1);
  235. }
  236. }
  237. int r400fast_index_of(T400 C,T0* a1,int a2){
  238. int R=0;
  239. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  240. R=(R)+(1);
  241. }
  242. return R;
  243. }
  244. void r400copy_from(T400 C,T400 a1,int a2){
  245. int _i=0;
  246. _i=a2;
  247. while (!((_i)<(0))) {
  248. (C)[_i]=((a1)[_i]);
  249. _i=(_i)-(1);
  250. }
  251. }
  252. T400 r400realloc(T400 C,int a1,int a2){
  253. T400 R=NULL;
  254. R=calloc(a2,sizeof(T0*));
  255. r400copy_from(R,C,(a1)-(1));
  256. return R;
  257. }
  258. int r400equal_like(T0* a1,T0* a2){
  259. int R=0;
  260. /*IF*//*AF*//*AF*/if ((a1)==((void*)(a2))) {
  261. R=1;
  262. }
  263.  else if (((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))) {
  264. }
  265. else {
  266. R=r7is_equal(((T7*)a1),a2);
  267. }
  268. /*FI*/return R;
  269. }
  270. int r400index_of(T400 C,T0* a1,int a2){
  271. int R=0;
  272. while (!(((R)>(a2))||(r400equal_like(a1,(C)[R])))) {
  273. R=(R)+(1);
  274. }
  275. return R;
  276. }
  277.  
  278.