home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_c3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  3.2 KB  |  194 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. void r392set_all_with(T392 C,T0* a1,int a2){
  10. int _i=0;
  11. _i=a2;
  12. while (!((_i)<(0))) {
  13. (C)[_i]=(a1);
  14. _i=(_i)-(1);
  15. }
  16. }
  17. void r392copy_from(T392 C,T392 a1,int a2){
  18. int _i=0;
  19. _i=a2;
  20. while (!((_i)<(0))) {
  21. (C)[_i]=((a1)[_i]);
  22. _i=(_i)-(1);
  23. }
  24. }
  25. T392 r392realloc(T392 C,int a1,int a2){
  26. T392 R=NULL;
  27. R=calloc(a2,sizeof(T0*));
  28. r392copy_from(R,C,(a1)-(1));
  29. return R;
  30. }
  31. void r770set_all_with(T770 C,T0* a1,int a2){
  32. int _i=0;
  33. _i=a2;
  34. while (!((_i)<(0))) {
  35. (C)[_i]=(a1);
  36. _i=(_i)-(1);
  37. }
  38. }
  39. void r770copy_from(T770 C,T770 a1,int a2){
  40. int _i=0;
  41. _i=a2;
  42. while (!((_i)<(0))) {
  43. (C)[_i]=((a1)[_i]);
  44. _i=(_i)-(1);
  45. }
  46. }
  47. T770 r770realloc(T770 C,int a1,int a2){
  48. T770 R=NULL;
  49. R=calloc(a2,sizeof(T0*));
  50. r770copy_from(R,C,(a1)-(1));
  51. return R;
  52. }
  53. void r100copy_from(T100 C,T100 a1,int a2){
  54. int _i=0;
  55. _i=a2;
  56. while (!((_i)<(0))) {
  57. (C)[_i]=((a1)[_i]);
  58. _i=(_i)-(1);
  59. }
  60. }
  61. T100 r100realloc(T100 C,int a1,int a2){
  62. T100 R=NULL;
  63. R=calloc(a2,sizeof(T0*));
  64. r100copy_from(R,C,(a1)-(1));
  65. return R;
  66. }
  67. void r541set_all_with(T541 C,int a1,int a2){
  68. int _i=0;
  69. _i=a2;
  70. while (!((_i)<(0))) {
  71. (C)[_i]=(a1);
  72. _i=(_i)-(1);
  73. }
  74. }
  75. void r822clear_all(T822 C,int a1){
  76. int _i=0;
  77. T0* _v=NULL;
  78. _i=a1;
  79. while (!((_i)<(0))) {
  80. (C)[_i]=(_v);
  81. _i=(_i)-(1);
  82. }
  83. }
  84. void r822set_all_with(T822 C,T0* a1,int a2){
  85. int _i=0;
  86. _i=a2;
  87. while (!((_i)<(0))) {
  88. (C)[_i]=(a1);
  89. _i=(_i)-(1);
  90. }
  91. }
  92. int r822fast_index_of(T822 C,T0* a1,int a2){
  93. int R=0;
  94. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  95. R=(R)+(1);
  96. }
  97. return R;
  98. }
  99. void r822copy_from(T822 C,T822 a1,int a2){
  100. int _i=0;
  101. _i=a2;
  102. while (!((_i)<(0))) {
  103. (C)[_i]=((a1)[_i]);
  104. _i=(_i)-(1);
  105. }
  106. }
  107. T822 r822realloc(T822 C,int a1,int a2){
  108. T822 R=NULL;
  109. R=calloc(a2,sizeof(T0*));
  110. r822copy_from(R,C,(a1)-(1));
  111. return R;
  112. }
  113. void r304copy_from(T304 C,T304 a1,int a2){
  114. int _i=0;
  115. _i=a2;
  116. while (!((_i)<(0))) {
  117. (C)[_i]=((a1)[_i]);
  118. _i=(_i)-(1);
  119. }
  120. }
  121. T304 r304realloc(T304 C,int a1,int a2){
  122. T304 R=NULL;
  123. R=calloc(a2,sizeof(T0*));
  124. r304copy_from(R,C,(a1)-(1));
  125. return R;
  126. }
  127. void r113set_all_with(T113 C,T0* a1,int a2){
  128. int _i=0;
  129. _i=a2;
  130. while (!((_i)<(0))) {
  131. (C)[_i]=(a1);
  132. _i=(_i)-(1);
  133. }
  134. }
  135. int r113fast_index_of(T113 C,T0* a1,int a2){
  136. int R=0;
  137. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  138. R=(R)+(1);
  139. }
  140. return R;
  141. }
  142. void r113copy_from(T113 C,T113 a1,int a2){
  143. int _i=0;
  144. _i=a2;
  145. while (!((_i)<(0))) {
  146. (C)[_i]=((a1)[_i]);
  147. _i=(_i)-(1);
  148. }
  149. }
  150. T113 r113realloc(T113 C,int a1,int a2){
  151. T113 R=NULL;
  152. R=calloc(a2,sizeof(T0*));
  153. r113copy_from(R,C,(a1)-(1));
  154. return R;
  155. }
  156. void r354set_all_with(T354 C,T0* a1,int a2){
  157. int _i=0;
  158. _i=a2;
  159. while (!((_i)<(0))) {
  160. (C)[_i]=(a1);
  161. _i=(_i)-(1);
  162. }
  163. }
  164. void r654set_all_with(T654 C,T0* a1,int a2){
  165. int _i=0;
  166. _i=a2;
  167. while (!((_i)<(0))) {
  168. (C)[_i]=(a1);
  169. _i=(_i)-(1);
  170. }
  171. }
  172. int r654fast_index_of(T654 C,T0* a1,int a2){
  173. int R=0;
  174. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  175. R=(R)+(1);
  176. }
  177. return R;
  178. }
  179. void r654copy_from(T654 C,T654 a1,int a2){
  180. int _i=0;
  181. _i=a2;
  182. while (!((_i)<(0))) {
  183. (C)[_i]=((a1)[_i]);
  184. _i=(_i)-(1);
  185. }
  186. }
  187. T654 r654realloc(T654 C,int a1,int a2){
  188. T654 R=NULL;
  189. R=calloc(a2,sizeof(T0*));
  190. r654copy_from(R,C,(a1)-(1));
  191. return R;
  192. }
  193.  
  194.