home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_jvm1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  12.9 KB  |  537 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. T632 M632={0,NULL,NULL,NULL};
  10. T376 M376={376,NULL,NULL,NULL,NULL};
  11. T343 M343={NULL,NULL,NULL,NULL,0};
  12. T121 M121={121,0,NULL,NULL,NULL,NULL,NULL,NULL};
  13. T134 M134={134,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  14. T868 M868={868,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  15. T916 M916={0};
  16. T380 M380={380,NULL,NULL,NULL,NULL,NULL,NULL};
  17. T588 M588={588,NULL,NULL,NULL,NULL,NULL,NULL};
  18. T590 M590={0,0,NULL,NULL};
  19. T431 M431={NULL,NULL};
  20. T873 M873={873,0,NULL,NULL,NULL,0,NULL};
  21. T292 M292={292,NULL,NULL};
  22. T890 M890={890,0,NULL,NULL,NULL,NULL,NULL,NULL};
  23. T830 M830=NULL;
  24. T414 M414={414,0,NULL,NULL,NULL,NULL,NULL,NULL};
  25. T390 M390={390,NULL,NULL,NULL,NULL,NULL};
  26. T699 M699={NULL,NULL,NULL,NULL};
  27. T906 M906={906,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  28. T28 M28={28,NULL,0,0,0};
  29. T235 M235={NULL,0,0,0};
  30. T604 M604={0,0,0,0,0};
  31. T349 M349={349,NULL,NULL,0};
  32. T933 M933={933,NULL,NULL,NULL,NULL};
  33. T886 M886={886,0,NULL,NULL,NULL,0,NULL};
  34. T446 M446={446,0,0,NULL,NULL,NULL,NULL};
  35. T398 M398={398,NULL,NULL,NULL,NULL,NULL,NULL};
  36. T46 M46={46,NULL,NULL,NULL};
  37. T679 M679={679,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  38. T145 M145={145,NULL,NULL,NULL};
  39. T477 M477={477,NULL,0,0,0};
  40. T147 M147={NULL,0,0,0};
  41. T892 M892={892,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0,NULL};
  42. T796 M796={796,0,NULL,NULL,NULL};
  43. T404 M404={404,NULL,NULL,NULL,NULL,NULL,NULL};
  44. T453 M453={453,0,NULL,NULL,NULL,NULL,NULL,NULL};
  45. T798 M798=0;
  46. T348 M348={NULL,NULL,NULL,NULL};
  47. T372 M372={372,NULL,NULL,NULL,0,0};
  48. T41 M41={41,NULL,0,0};
  49. T153 M153={NULL,NULL,NULL};
  50. T226 M226={NULL,0,0};
  51. T32 M32={32,NULL,0,0};
  52. T180 M180={180,0,NULL,NULL,NULL,NULL,NULL};
  53. T460 M460={460,0,NULL,NULL,NULL,NULL,NULL,NULL};
  54. T902 M902=NULL;
  55. T158 M158={158,NULL,NULL,NULL,NULL};
  56. T904 M904={904,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  57. T953 M953={NULL};
  58. T809 M809={NULL,NULL,NULL,0};
  59. T794 M794={NULL,NULL,NULL,NULL,0,0,0,0,0};
  60. T689 M689={689,NULL,NULL,NULL,NULL,NULL,NULL};
  61. T605 M605={0,NULL,NULL,NULL,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  62. T958 M958={958,NULL,NULL,NULL};
  63. T943 M943={NULL,0,0,0};
  64. T569 M569={NULL,0,0};
  65. T306 M306={0};
  66. T355 M355={NULL,0,0,NULL,NULL,0,NULL,NULL,NULL};
  67. T636 M636={NULL,NULL};
  68. T429 M429={NULL,0,0,0};
  69. T358 M358={358,0,NULL,NULL,0,NULL};
  70. T592 M592={NULL,NULL,NULL};
  71. T529 M529={529,0,NULL,NULL,NULL};
  72. T436 M436={436,0,NULL,NULL,NULL,NULL};
  73. T764 M764={NULL,0,0,0};
  74. T644 M644={NULL};
  75. T388 M388={388,NULL};
  76. T900 M900={900,NULL};
  77. T843 M843={NULL,NULL,NULL,NULL,NULL,NULL,0};
  78. T673 M673={NULL,NULL,NULL,NULL};
  79. T625 M625={NULL,NULL,NULL,NULL,NULL};
  80. T406 M406={406,NULL,NULL,0,NULL};
  81. T338 M338={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  82. T7 M7={NULL,0,0};
  83. T515 M515={NULL,0,0};
  84. T675 M675={0,NULL,0,0};
  85. T347 M347={347,NULL,NULL,NULL,NULL};
  86. T676 M676={NULL,0};
  87. T308 M308={308,NULL,0,0};
  88. T932 M932={932,0,NULL,NULL,NULL,NULL,NULL,NULL};
  89. T629 M629={629,NULL,NULL,NULL};
  90. T239 M239={239,NULL,NULL,NULL,NULL};
  91. T936 M936={936,0,NULL,NULL,NULL};
  92. T377 M377={NULL,NULL};
  93. T683 M683={0,0,0};
  94. T733 M733={733,NULL,0,0,0};
  95. T990 M990={990,0,NULL,NULL,NULL,NULL,NULL};
  96. T247 M247={247,NULL,0,0,0};
  97. T849 M849={849,0,NULL,NULL};
  98. T410 M410={NULL,NULL,0};
  99. T994 M994={NULL,0};
  100. T696 M696={696,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  101. T948 M948={NULL,0,0,0};
  102. T657 M657={657,NULL};
  103. T300 M300={300};
  104. T671 M671={NULL,NULL};
  105. T940 M940={940,0,NULL,NULL,NULL,NULL};
  106. T367 M367={367,0,NULL,NULL};
  107. T280 M280={280,NULL,0,0,0};
  108. T65 M65={65,NULL,0,0,0};
  109. T627 M627={NULL,0};
  110. T260 M260={260,0,NULL,NULL,0,0};
  111. T213 M213={NULL,NULL,NULL,NULL};
  112. T252 M252={252,NULL};
  113. T495 M495={NULL,0,0,0};
  114. T263 M263={263,NULL,0,0,0};
  115. T633 M633={NULL,NULL,NULL,NULL,0};
  116. T378 M378={0,NULL};
  117. T283 M283={283,NULL,0,NULL};
  118. T272 M272={272,NULL,0,0};
  119. T320 M320={320};
  120. T59 M59={NULL,NULL};
  121. T877 M877={NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  122. T253 M253={253,0,NULL,NULL,NULL,NULL,NULL,NULL};
  123. T670 M670=0;
  124. T278 M278={278,0,NULL,NULL,NULL,NULL,NULL,NULL};
  125. T767 M767={767,0,NULL,NULL,NULL,NULL,NULL};
  126. T880 M880={880,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  127. T393 M393={NULL,NULL};
  128. T688 M688={NULL};
  129. T723 M723={723,NULL};
  130. T31 M31={31,NULL,NULL,NULL,NULL};
  131. T701 M701={NULL,0,0,0};
  132. T33 M33={NULL};
  133. T522 M522={NULL,0,0,0};
  134. T963 M963={963,NULL,NULL,NULL};
  135. T707 M707={707,NULL};
  136. T417 M417={0};
  137. T712 M712={NULL,NULL};
  138. T552 M552={NULL,0,0,0};
  139. T760 M760={760,0,NULL,NULL,NULL,NULL,NULL,NULL};
  140. T669 M669={669,NULL};
  141. T915 M915={915,0,NULL,NULL,NULL,NULL,NULL,NULL};
  142. T534 M534={534,0,NULL,NULL,NULL,NULL,NULL,NULL};
  143. T999 M999={999,0,NULL,NULL,NULL,NULL,NULL,NULL};
  144. T352 M352={NULL,0,0};
  145. T256 M256={0,0,0,0,0};
  146. T720 M720={720,NULL,NULL,NULL,NULL};
  147. T680 M680={680};
  148. T441 M441=NULL;
  149. T64 M64={64,NULL};
  150. T420 M420={420,0,NULL};
  151. T517 M517={517,0,NULL,NULL,NULL,NULL,NULL,NULL};
  152. T848 M848={NULL,0,0,0};
  153. T199 M199={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  154. T520 M520={520,0,NULL,NULL,NULL,NULL,NULL,NULL};
  155. T451 M451={NULL,NULL};
  156. T340 M340=NULL;
  157. T708 M708={708,0,NULL,NULL,NULL};
  158. T709 M709={709,NULL,NULL,NULL,NULL};
  159. T454 M454={454,NULL,NULL,0,NULL};
  160. T38 M38={NULL,0,0,0};
  161. T919 M919=0;
  162. T479 M479={0};
  163. T664 M664={664,0,NULL,NULL,0};
  164. T554 M554={554,NULL,NULL,NULL,NULL,NULL,NULL};
  165. T557 M557={557,0,NULL,NULL,NULL,NULL,NULL,NULL};
  166. T72 M72={72,0,NULL,NULL,NULL,NULL,NULL};
  167. T854 M854={NULL,0,0};
  168. T209 M209={209,NULL};
  169. T26 M26={NULL,0,0,0};
  170. T587 M587={NULL,0,0,0};
  171. T491 M491={491,NULL};
  172. T505 M505={NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  173. T381 M381={381,NULL,0,0,0};
  174. T498 M498={NULL,NULL};
  175. T523 M523={523,NULL,NULL,NULL,NULL,NULL};
  176. T805 M805={805,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  177. T85 M85={85};
  178. T718 M718={NULL,NULL,NULL,NULL,0,0,0,0,0};
  179. T574 M574={574,0,NULL,NULL,NULL,NULL,NULL,NULL};
  180. T855 M855={NULL,0,0,0};
  181. T576 M576=0;
  182. T185 M185={185,NULL,0,0};
  183. T506 M506={0,0,0,0};
  184. T90 M90={90,0,NULL,NULL,NULL,NULL,NULL,NULL};
  185. T715 M715={715,0,NULL,NULL,NULL,NULL};
  186. T509 M509={0};
  187. T96 M96={96,NULL,0,0,0};
  188. T681 M681={NULL,0,0,0};
  189. T391 M391={NULL};
  190. T567 M567={NULL};
  191. T52 M52={NULL,0,0,0};
  192. T56 M56={NULL};
  193. T57 M57={57,0,NULL,NULL,NULL,NULL,NULL,NULL};
  194. T313 M313={313,0,NULL,NULL,NULL,NULL,NULL,NULL};
  195. T106 M106={106,NULL,NULL,NULL,NULL,NULL};
  196. T268 M268={268,NULL,NULL,NULL,NULL};
  197. T39 M39={39,0,NULL,NULL,NULL,0,NULL,0};
  198. T853 M853={853,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  199. T782 M782={NULL,NULL};
  200. T342 M342={342,0,NULL,NULL,0};
  201. T808 M808={808,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  202. T893 M893={893};
  203. T222 M222={222,NULL,0,0};
  204. T881 M881={NULL,NULL};
  205. T907 M907={NULL,0,0};
  206. T580 M580={580,NULL,NULL,NULL,NULL,NULL,NULL};
  207. T788 M788={788,NULL};
  208. T250 M250={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  209. T237 M237={NULL,NULL,NULL,NULL,0,0,0,0,0};
  210. T317 M317={317,NULL,NULL,NULL,NULL,NULL};
  211. T23 M23={23,0,NULL,NULL,NULL,0,NULL};
  212. T487 M487={487,0,NULL,NULL,NULL,NULL,NULL};
  213. T583 M583={NULL,NULL,NULL,NULL};
  214. T863 M863={NULL,0,0,0};
  215. T608 M608={NULL,0,0,0};
  216. T719 M719={NULL,0,0};
  217. T490 M490={NULL,NULL};
  218. T818 M818={0,0,0,0,0,NULL,0,NULL,NULL,NULL,0,0,NULL,NULL,0,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0};
  219. T492 M492={492,0,NULL,NULL,NULL,NULL,NULL,NULL};
  220. T820 M820={820,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  221. T542 M542={NULL,NULL};
  222. T126 M126={126,NULL,NULL,NULL};
  223. T382 M382={NULL,0,0,0};
  224. T353 M353={NULL,0,0,0};
  225. T270 M270={270,NULL,NULL,NULL,NULL,NULL,NULL};
  226. T844 M844={844,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  227. T269 M269={269,NULL,0,0};
  228. T832 M832={832,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,0};
  229. T530 M530={530,NULL,NULL,NULL,NULL};
  230. T187 M187={NULL,0,0};
  231. T883 M883={883,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  232. T228 M228={0,0,0,0,NULL,0,0,0,0,NULL};
  233. T548 M548={0};
  234. T511 M511={NULL,0,0};
  235. T95 M95={0,0,0,0};
  236. T655 M655={655,0,NULL,NULL,NULL,NULL,NULL,NULL};
  237. T240 M240={240};
  238. T913 M913={NULL};
  239. T870 M870={870,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,0,0,0};
  240. T284 M284={284,NULL};
  241. T297 M297={297,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  242. T613 M613=NULL;
  243. T835 M835={835,NULL,NULL,NULL,NULL,NULL,NULL};
  244. T419 M419={NULL,0,0,0};
  245. T543 M543={0};
  246. T568 M568={568,NULL,NULL,NULL,NULL,NULL};
  247. T362 M362={362,NULL,NULL,NULL};
  248. T970 M970={970};
  249. T620 M620={620,NULL,NULL,NULL,NULL};
  250. T901 M901={NULL,0,0,0};
  251. T549 M549={549,NULL,NULL,NULL,NULL};
  252. T526 M526={526,NULL,NULL};
  253. T927 M927={NULL,0,0};
  254. T623 M623={NULL,NULL,NULL,NULL};
  255. T869 M869={869,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  256. T112 M112={112,0,NULL,NULL,NULL,NULL,NULL,NULL};
  257. T648 M648={648,NULL,NULL,NULL,NULL};
  258. T649 M649={649,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  259. T396 M396={NULL,0,0,0};
  260. T118 M118={118,NULL,NULL,NULL,NULL,NULL,NULL};
  261. T558 M558={558,NULL,NULL,NULL,NULL,0};
  262. T374 M374={NULL,0,0};
  263. int r6_ix_not(int C){
  264. int R=0;
  265. /*IF*/if (C) {
  266. }
  267. else {
  268. R=1;
  269. }
  270. /*FI*/return R;
  271. }
  272. T0* r2to_string(int C){
  273. T0* R=NULL;
  274. {T7*n=malloc(sizeof(*n));
  275. *n=M7;
  276. r7make(n,0);
  277. R=(T0*)n;
  278. }
  279. r2append_in(C,R);
  280. return R;
  281. }
  282. void r2append_in(int C,T0* a1){
  283. int _i=0;
  284. int _val=0;
  285. /*IF*/if ((C)==(0)) {
  286. r7extend(((T7*)a1),'0');
  287. }
  288. else {
  289. /*IF*/if ((C)>(0)) {
  290. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  291. _val=C;
  292. while (!((_val)==(0))) {
  293. r7extend(((T7*)a1),r2digit((_val)%(10)));
  294. _val=(_val)/(10);
  295. }
  296. }
  297. else {
  298. r7extend(((T7*)a1),'\55');
  299. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  300. _val=C;
  301. while (!((_val)==(0))) {
  302. r7extend(((T7*)a1),r2digit(-((_val)%(10))));
  303. _val=(_val)/(10);
  304. }
  305. }
  306. /*FI*/_val=(((T7*)((T7*)a1)))->_count/*4*/;
  307. while (!((_i)>=(_val))) {
  308. r7swap(((T7*)a1),_i,_val);
  309. _val=(_val)-(1);
  310. _i=(_i)+(1);
  311. }
  312. }
  313. /*FI*/}
  314. int r2_px_94(int C,int a1){
  315. int R=0;
  316. /*IF*/if ((a1)==(0)) {
  317. R=1;
  318. }
  319.  else if (((a1)%(2))==(0)) {
  320. R=r2_px_94((C)*(C),(a1)/(2));
  321. }
  322. else {
  323. R=(C)*(r2_px_94(C,(a1)-(1)));
  324. }
  325. /*FI*/return R;
  326. }
  327. int r2min(int C,int a1){
  328. int R=0;
  329. /*IF*/if ((C)<(a1)) {
  330. R=C;
  331. }
  332. else {
  333. R=a1;
  334. }
  335. /*FI*/return R;
  336. }
  337. char r2digit(int C){
  338. char R=0;
  339. R=((char)((C)+(((unsigned char)'0'))));
  340. return R;
  341. }
  342. int r2max(int C,int a1){
  343. int R=0;
  344. /*IF*/if ((a1)<(C)) {
  345. R=C;
  346. }
  347. else {
  348. R=a1;
  349. }
  350. /*FI*/return R;
  351. }
  352. int r3is_separator(char C){
  353. int R=0;
  354. {int z1=C;
  355.  
  356. if((0==z1)||((9<=z1)&&(z1<=10))||(13==z1)||(32==z1)){
  357. R=1;
  358. }
  359. }
  360. return R;
  361. }
  362. char r3to_lower(char C){
  363. char R=0;
  364. /*IF*/if ((((unsigned char)C))<(65)) {
  365. R=C;
  366. }
  367.  else if ((((unsigned char)C))>(90)) {
  368. R=C;
  369. }
  370. else {
  371. R=((char)((((unsigned char)C))+(32)));
  372. }
  373. /*FI*/return R;
  374. }
  375. int r3_px_60(char C,char a1){
  376. int R=0;
  377. R=(((unsigned char)C))<(((unsigned char)a1));
  378. return R;
  379. }
  380. int r3value(char C){
  381. int R=0;
  382. R=(((unsigned char)C))-(48);
  383. return R;
  384. }
  385. int r3same_as(char C,char a1){
  386. int R=0;
  387. /*IF*/if ((C)==(a1)) {
  388. R=1;
  389. }
  390. else {
  391. {int z1=((unsigned char)C);
  392.  
  393. if(((65<=z1)&&(z1<=90))){
  394. R=(((unsigned char)C))==((((unsigned char)a1))-(32));
  395. }
  396.  else 
  397. if(((97<=z1)&&(z1<=122))){
  398. R=(((unsigned char)C))==((((unsigned char)a1))+(32));
  399. }
  400. }
  401. }
  402. /*FI*/return R;
  403. }
  404. int r3_px_6261(char C,char a1){
  405. int R=0;
  406. R=(((unsigned char)C))>=(((unsigned char)a1));
  407. return R;
  408. }
  409. int r3is_digit(char C){
  410. int R=0;
  411. {int z1=C;
  412.  
  413. if(((48<=z1)&&(z1<=57))){
  414. R=1;
  415. }
  416. }
  417. return R;
  418. }
  419. char r3to_upper(char C){
  420. char R=0;
  421. /*IF*/if ((((unsigned char)C))<(97)) {
  422. R=C;
  423. }
  424.  else if ((((unsigned char)C))>(122)) {
  425. R=C;
  426. }
  427. else {
  428. R=((char)((((unsigned char)C))-(32)));
  429. }
  430. /*FI*/return R;
  431. }
  432. int r3is_letter(char C){
  433. int R=0;
  434. {int z1=C;
  435.  
  436. if(((65<=z1)&&(z1<=90))||((97<=z1)&&(z1<=122))){
  437. R=1;
  438. }
  439. }
  440. return R;
  441. }
  442. void r98set_all_with(T98 C,T0* a1,int a2){
  443. int _i=0;
  444. _i=a2;
  445. while (!((_i)<(0))) {
  446. (C)[_i]=(a1);
  447. _i=(_i)-(1);
  448. }
  449. }
  450. void r98copy_from(T98 C,T98 a1,int a2){
  451. int _i=0;
  452. _i=a2;
  453. while (!((_i)<(0))) {
  454. (C)[_i]=((a1)[_i]);
  455. _i=(_i)-(1);
  456. }
  457. }
  458. T98 r98realloc(T98 C,int a1,int a2){
  459. T98 R=NULL;
  460. R=calloc(a2,sizeof(T0*));
  461. r98copy_from(R,C,(a1)-(1));
  462. return R;
  463. }
  464. void r497copy_from(T497 C,T497 a1,int a2){
  465. int _i=0;
  466. _i=a2;
  467. while (!((_i)<(0))) {
  468. (C)[_i]=((a1)[_i]);
  469. _i=(_i)-(1);
  470. }
  471. }
  472. T497 r497realloc(T497 C,int a1,int a2){
  473. T497 R=NULL;
  474. R=calloc(a2,sizeof(T0*));
  475. r497copy_from(R,C,(a1)-(1));
  476. return R;
  477. }
  478. void r731set_all_with(T731 C,T0* a1,int a2){
  479. int _i=0;
  480. _i=a2;
  481. while (!((_i)<(0))) {
  482. (C)[_i]=(a1);
  483. _i=(_i)-(1);
  484. }
  485. }
  486. void r731copy_from(T731 C,T731 a1,int a2){
  487. int _i=0;
  488. _i=a2;
  489. while (!((_i)<(0))) {
  490. (C)[_i]=((a1)[_i]);
  491. _i=(_i)-(1);
  492. }
  493. }
  494. T731 r731realloc(T731 C,int a1,int a2){
  495. T731 R=NULL;
  496. R=calloc(a2,sizeof(T0*));
  497. r731copy_from(R,C,(a1)-(1));
  498. return R;
  499. }
  500. void r500set_all_with(T500 C,T0* a1,int a2){
  501. int _i=0;
  502. _i=a2;
  503. while (!((_i)<(0))) {
  504. (C)[_i]=(a1);
  505. _i=(_i)-(1);
  506. }
  507. }
  508. void r500copy_from(T500 C,T500 a1,int a2){
  509. int _i=0;
  510. _i=a2;
  511. while (!((_i)<(0))) {
  512. (C)[_i]=((a1)[_i]);
  513. _i=(_i)-(1);
  514. }
  515. }
  516. T500 r500realloc(T500 C,int a1,int a2){
  517. T500 R=NULL;
  518. R=calloc(a2,sizeof(T0*));
  519. r500copy_from(R,C,(a1)-(1));
  520. return R;
  521. }
  522. void r539copy_from(T539 C,T539 a1,int a2){
  523. int _i=0;
  524. _i=a2;
  525. while (!((_i)<(0))) {
  526. (C)[_i]=((a1)[_i]);
  527. _i=(_i)-(1);
  528. }
  529. }
  530. T539 r539realloc(T539 C,int a1,int a2){
  531. T539 R=NULL;
  532. R=calloc(a2,sizeof(T0*));
  533. r539copy_from(R,C,(a1)-(1));
  534. return R;
  535. }
  536.  
  537.