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