home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_c1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  13.8 KB  |  577 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. T376 M376={376,NULL,NULL,NULL,NULL};
  10. T343 M343={NULL,NULL,NULL,NULL,0};
  11. T121 M121={121,0,NULL,NULL,NULL,NULL,NULL,NULL};
  12. T134 M134={134,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  13. T916 M916=NULL;
  14. T868 M868={868,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  15. T380 M380={380,NULL,NULL,NULL,NULL,NULL,NULL};
  16. T588 M588={588,NULL,NULL,NULL,NULL,NULL,NULL};
  17. T590 M590={0,0,NULL,NULL};
  18. T431 M431={431,NULL,NULL};
  19. T873 M873={873,0,NULL,NULL,NULL,0,NULL};
  20. T292 M292={292,NULL,NULL};
  21. T890 M890={890,0,NULL,NULL,NULL,NULL,NULL,NULL};
  22. T414 M414={414,0,NULL,NULL,NULL,NULL,NULL,NULL};
  23. T830 M830=NULL;
  24. T390 M390={390,NULL,NULL,NULL,NULL,NULL};
  25. T699 M699={NULL,NULL,NULL,NULL};
  26. T111 M111={0,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. T460 M460={460,0,NULL,NULL,NULL,NULL,NULL,NULL};
  53. T180 M180={180,0,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};
  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,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,0,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};
  78. T673 M673={NULL,NULL,NULL,NULL};
  79. T624 M624={0};
  80. T625 M625={NULL,NULL,NULL,NULL,NULL};
  81. T406 M406={406,NULL,NULL,0,NULL};
  82. T338 M338={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  83. T7 M7={NULL,0,0};
  84. T675 M675={0,NULL,0,0};
  85. T347 M347={347,NULL,NULL,NULL,NULL};
  86. T321 M321={321,NULL,0,0};
  87. T932 M932={932,0,NULL,NULL,NULL,NULL,NULL,NULL};
  88. T676 M676={NULL,0};
  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. T696 M696={696,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  100. T948 M948={NULL,0,0,0};
  101. T657 M657={657,NULL};
  102. T300 M300={300};
  103. T940 M940={940,0,NULL,NULL,NULL,NULL};
  104. T367 M367={367,0,NULL,NULL};
  105. T671 M671={NULL,NULL};
  106. T280 M280={280,NULL,0,0,0};
  107. T65 M65={65,NULL,0,0,0};
  108. T627 M627={NULL,0};
  109. T260 M260={260,0,NULL,NULL,0,0};
  110. T213 M213={NULL,NULL,NULL,NULL};
  111. T252 M252={252,NULL};
  112. T79 M79={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  113. T495 M495={NULL,0,0,0};
  114. T263 M263={263,NULL,0,0,0};
  115. T633 M633={NULL,NULL,NULL,NULL,0};
  116. T283 M283={283,NULL,0,NULL};
  117. T272 M272={272,NULL,0,0};
  118. T320 M320={320};
  119. T59 M59={NULL,NULL};
  120. T253 M253={253,0,NULL,NULL,NULL,NULL,NULL,NULL};
  121. T877 M877={NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  122. T278 M278={278,0,NULL,NULL,NULL,NULL,NULL,NULL};
  123. T670 M670=0;
  124. T767 M767={767,0,NULL,NULL,NULL,NULL,NULL};
  125. T880 M880={880,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  126. T393 M393={NULL,NULL};
  127. T723 M723={723,NULL};
  128. T688 M688={NULL};
  129. T31 M31={31,NULL,NULL,NULL,NULL};
  130. T701 M701={NULL,0,0,0};
  131. T33 M33={NULL};
  132. T522 M522={NULL,0,0,0};
  133. T963 M963={963,NULL,NULL,NULL};
  134. T707 M707={707,NULL};
  135. T417 M417={0};
  136. T712 M712={NULL,NULL};
  137. T552 M552={NULL,0,0,0};
  138. T760 M760={760,0,NULL,NULL,NULL,NULL,NULL,NULL};
  139. T716 M716={716,0,NULL,NULL,0,NULL};
  140. T669 M669={669,NULL};
  141. T534 M534={534,0,NULL,NULL,NULL,NULL,NULL,NULL};
  142. T915 M915={915,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. T720 M720={720,NULL,NULL,NULL,NULL};
  146. T680 M680={680};
  147. T441 M441=NULL;
  148. T64 M64={64,NULL};
  149. T420 M420={420,0,NULL};
  150. T517 M517={517,0,NULL,NULL,NULL,NULL,NULL,NULL};
  151. T848 M848={NULL,0,0,0};
  152. T199 M199={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  153. T520 M520={520,0,NULL,NULL,NULL,NULL,NULL,NULL};
  154. T521 M521={521,NULL,NULL};
  155. T451 M451={NULL,NULL};
  156. T708 M708={708,0,NULL,NULL,NULL};
  157. T340 M340=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. T94 M94=NULL;
  167. T72 M72={72,0,NULL,NULL,NULL,NULL,NULL};
  168. T365 M365={365,NULL,0,0,0};
  169. T854 M854={NULL,0,0};
  170. T209 M209={209,NULL};
  171. T26 M26={NULL,0,0,0};
  172. T491 M491={491,NULL};
  173. T587 M587={NULL,0,0,0};
  174. T505 M505={NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  175. T381 M381={381,NULL,0,0,0};
  176. T544 M544={NULL,0};
  177. T498 M498={NULL,NULL};
  178. T523 M523={523,NULL,NULL,NULL,NULL,NULL};
  179. T805 M805={805,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  180. T85 M85={85};
  181. T574 M574={574,0,NULL,NULL,NULL,NULL,NULL,NULL};
  182. T718 M718={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  183. T855 M855={NULL,0,0,0};
  184. T576 M576=0;
  185. T185 M185={185,NULL,0,0};
  186. T90 M90={90,0,NULL,NULL,NULL,NULL,NULL,NULL};
  187. T715 M715={715,0,NULL,NULL,NULL,NULL};
  188. T324 M324={0,0,0,0,0,0,0,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,NULL,0,0,0,0,0,0,NULL,0,NULL,0,0,NULL,NULL,NULL,0};
  189. T509 M509={0};
  190. T96 M96={96,NULL,0,0,0};
  191. T681 M681={NULL,0,0,0};
  192. T378 M378={NULL};
  193. T567 M567={NULL};
  194. T52 M52={NULL,0,0,0};
  195. T56 M56={NULL};
  196. T313 M313={313,0,NULL,NULL,NULL,NULL,NULL,NULL};
  197. T57 M57={57,0,NULL,NULL,NULL,NULL,NULL,NULL};
  198. T106 M106={106,NULL,NULL,NULL,NULL,NULL};
  199. T268 M268={268,NULL,NULL,NULL,NULL};
  200. T39 M39={39,0,NULL,NULL,NULL,0,NULL,0};
  201. T853 M853={853,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  202. T342 M342={342,0,NULL,NULL,0};
  203. T782 M782={NULL,NULL};
  204. T808 M808={808,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  205. T893 M893={893};
  206. T222 M222={222,NULL,0,0};
  207. T881 M881={NULL,NULL};
  208. T907 M907={NULL,0,0};
  209. T580 M580={580,NULL,NULL,NULL,NULL,NULL,NULL};
  210. T788 M788={788,NULL};
  211. T237 M237={NULL,NULL,NULL,NULL,0,0,0,0,0};
  212. T250 M250={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  213. T317 M317={317,NULL,NULL,NULL,NULL,NULL};
  214. T23 M23={23,0,NULL,NULL,NULL,0,NULL};
  215. T487 M487={487,0,NULL,NULL,NULL,NULL,NULL};
  216. T583 M583={NULL,NULL,NULL,NULL};
  217. T863 M863={NULL,0,0,0};
  218. T608 M608={NULL,0,0,0};
  219. T719 M719={NULL,0,0};
  220. T490 M490={NULL,NULL};
  221. 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};
  222. T820 M820={820,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  223. T492 M492={492,0,NULL,NULL,NULL,NULL,NULL,NULL};
  224. T126 M126={126,NULL,NULL,NULL};
  225. T382 M382={NULL,0,0,0};
  226. T542 M542={NULL,NULL};
  227. T353 M353={NULL,0,0,0};
  228. T270 M270={270,NULL,NULL,NULL,NULL,NULL,NULL};
  229. T844 M844={844,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  230. T256 M256={256,NULL,0,0};
  231. T832 M832={832,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,0};
  232. T530 M530={530,NULL,NULL,NULL,NULL};
  233. T187 M187={NULL,0,0};
  234. T883 M883={883,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  235. T548 M548={0,0};
  236. T655 M655={655,0,NULL,NULL,NULL,NULL,NULL,NULL};
  237. T511 M511={NULL,0,0};
  238. T240 M240={240};
  239. T913 M913={NULL};
  240. T870 M870={870,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,0,0,0};
  241. T284 M284={284,NULL};
  242. T297 M297={297,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  243. T835 M835={835,NULL,NULL,NULL,NULL,NULL,NULL};
  244. T419 M419={NULL,0,0,0};
  245. T568 M568={568,NULL,NULL,NULL,NULL,NULL};
  246. T362 M362={362,NULL,NULL,NULL};
  247. T970 M970={970};
  248. T620 M620={620,NULL,NULL,NULL,NULL};
  249. T901 M901={NULL,0,0,0};
  250. T549 M549={549,NULL,NULL,NULL,NULL};
  251. T526 M526={526,NULL,NULL};
  252. T927 M927={NULL,0,0};
  253. T623 M623={NULL,NULL,NULL,NULL};
  254. T869 M869={869,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  255. T112 M112={112,0,NULL,NULL,NULL,NULL,NULL,NULL};
  256. T648 M648={648,NULL,NULL,NULL,NULL};
  257. T649 M649={649,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  258. T396 M396={NULL,0,0,0};
  259. T118 M118={118,NULL,NULL,NULL,NULL,NULL,NULL};
  260. T558 M558={558,NULL,NULL,NULL,NULL,0};
  261. T374 M374={NULL,0,0};
  262. int r6_ix_not(int C){
  263. int R=0;
  264. /*IF*/if (C) {
  265. }
  266. else {
  267. R=1;
  268. }
  269. /*FI*/return R;
  270. }
  271. void r5append_in_format(double C,T0* a1,int a2){
  272. int _i=0;
  273. {int i;
  274. double d=C;
  275. sprintf(_spfd+2,"%d",(a2));
  276. for(i=2;_spfd[i]!=0;i++);
  277. _spfd[i]='f';
  278. _spfd[++i]=0;
  279. sprintf((r5tmp_native_array()),_spfd,d);
  280. }
  281. _i=0;
  282. while (!(((r5tmp_native_array())[_i])==('\0'))) {
  283. r7extend(((T7*)a1),(r5tmp_native_array())[_i]);
  284. _i=(_i)+(1);
  285. }
  286. }
  287. int r5rounded(double C){
  288. int R=0;
  289. /*IF*/if (((floor(C))+(0.5))<(C)) {
  290. R=((int)floor(r5double_ceiling(C)));
  291. }
  292. else {
  293. R=((int)floor(floor(C)));
  294. }
  295. /*FI*/return R;
  296. }
  297. int fBC5tmp_native_array=0;
  298. T9 oBC5tmp_native_array=NULL;
  299. T9 r5tmp_native_array(void){
  300. if (fBC5tmp_native_array==0){
  301. T9 R=NULL;
  302. fBC5tmp_native_array=1;
  303. R=calloc(128,sizeof(char));
  304. oBC5tmp_native_array=R;}
  305. return oBC5tmp_native_array;}
  306. double r5double_ceiling(double C){
  307. double R=0;
  308. R=ceil(C);
  309. return R;
  310. }
  311. int r2hash_code(int C){
  312. int R=0;
  313. /*IF*/if ((C)<(0)) {
  314. R=-((C)+(1));
  315. }
  316. else {
  317. R=C;
  318. }
  319. /*FI*/return R;
  320. }
  321. T0* r2to_string(int C){
  322. T0* R=NULL;
  323. {T7*n=malloc(sizeof(*n));
  324. *n=M7;
  325. r7make(n,0);
  326. R=(T0*)n;
  327. }
  328. r2append_in(C,R);
  329. return R;
  330. }
  331. void r2append_in(int C,T0* a1){
  332. int _i=0;
  333. int _val=0;
  334. /*IF*/if ((C)==(0)) {
  335. r7extend(((T7*)a1),'0');
  336. }
  337. else {
  338. /*IF*/if ((C)>(0)) {
  339. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  340. _val=C;
  341. while (!((_val)==(0))) {
  342. r7extend(((T7*)a1),r2digit((_val)%(10)));
  343. _val=(_val)/(10);
  344. }
  345. }
  346. else {
  347. r7extend(((T7*)a1),'\55');
  348. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  349. _val=C;
  350. while (!((_val)==(0))) {
  351. r7extend(((T7*)a1),r2digit(-((_val)%(10))));
  352. _val=(_val)/(10);
  353. }
  354. }
  355. /*FI*/_val=(((T7*)((T7*)a1)))->_count/*4*/;
  356. while (!((_i)>=(_val))) {
  357. r7swap(((T7*)a1),_i,_val);
  358. _val=(_val)-(1);
  359. _i=(_i)+(1);
  360. }
  361. }
  362. /*FI*/}
  363. int r2_px_94(int C,int a1){
  364. int R=0;
  365. /*IF*/if ((a1)==(0)) {
  366. R=1;
  367. }
  368.  else if (((a1)%(2))==(0)) {
  369. R=r2_px_94((C)*(C),(a1)/(2));
  370. }
  371. else {
  372. R=(C)*(r2_px_94(C,(a1)-(1)));
  373. }
  374. /*FI*/return R;
  375. }
  376. double r2log(int C){
  377. double R=0;
  378. R=log(/*(IRF4.4to_double*/((double)(C))/*)*/);
  379. return R;
  380. }
  381. int r2to_octal(int C){
  382. int R=0;
  383. /*IF*/if ((C)==(0)) {
  384. }
  385.  else if ((C)<(0)) {
  386. R=-(r2to_octal(-(C)));
  387. }
  388. else {
  389. /*[IRF3.3clear*/((((T7*)(((T7*)(oBC2tmp_string)))))->_count)=(0);
  390. /*]*/
  391. R=C;
  392. while (!((R)==(0))) {
  393. r7extend(((T7*)(oBC2tmp_string)),r2digit((R)%(8)));
  394. R=(R)/(8);
  395. }
  396. r7reverse(((T7*)(oBC2tmp_string)));
  397. R=r7to_integer(((T7*)(oBC2tmp_string)));
  398. }
  399. /*FI*/return R;
  400. }
  401. int r2min(int C,int a1){
  402. int R=0;
  403. /*IF*/if ((C)<(a1)) {
  404. R=C;
  405. }
  406. else {
  407. R=a1;
  408. }
  409. /*FI*/return R;
  410. }
  411. T0*oBC2tmp_string=NULL;
  412. /*No:INTEGER.to_double*/
  413. char r2digit(int C){
  414. char R=0;
  415. R=((char)((C)+(((unsigned char)'0'))));
  416. return R;
  417. }
  418. int r2max(int C,int a1){
  419. int R=0;
  420. /*IF*/if ((a1)<(C)) {
  421. R=C;
  422. }
  423. else {
  424. R=a1;
  425. }
  426. /*FI*/return R;
  427. }
  428. int r3is_separator(char C){
  429. int R=0;
  430. {int z1=C;
  431.  
  432. if((0==z1)||((9<=z1)&&(z1<=10))||(13==z1)||(32==z1)){
  433. R=1;
  434. }
  435. }
  436. return R;
  437. }
  438. char r3to_lower(char C){
  439. char R=0;
  440. /*IF*/if ((((unsigned char)C))<(65)) {
  441. R=C;
  442. }
  443.  else if ((((unsigned char)C))>(90)) {
  444. R=C;
  445. }
  446. else {
  447. R=((char)((((unsigned char)C))+(32)));
  448. }
  449. /*FI*/return R;
  450. }
  451. int r3_px_60(char C,char a1){
  452. int R=0;
  453. R=(((unsigned char)C))<(((unsigned char)a1));
  454. return R;
  455. }
  456. int r3value(char C){
  457. int R=0;
  458. R=(((unsigned char)C))-(48);
  459. return R;
  460. }
  461. int r3same_as(char C,char a1){
  462. int R=0;
  463. /*IF*/if ((C)==(a1)) {
  464. R=1;
  465. }
  466. else {
  467. {int z1=((unsigned char)C);
  468.  
  469. if(((65<=z1)&&(z1<=90))){
  470. R=(((unsigned char)C))==((((unsigned char)a1))-(32));
  471. }
  472.  else 
  473. if(((97<=z1)&&(z1<=122))){
  474. R=(((unsigned char)C))==((((unsigned char)a1))+(32));
  475. }
  476. }
  477. }
  478. /*FI*/return R;
  479. }
  480. int r3_px_6261(char C,char a1){
  481. int R=0;
  482. R=(((unsigned char)C))>=(((unsigned char)a1));
  483. return R;
  484. }
  485. int r3is_digit(char C){
  486. int R=0;
  487. {int z1=C;
  488.  
  489. if(((48<=z1)&&(z1<=57))){
  490. R=1;
  491. }
  492. }
  493. return R;
  494. }
  495. char r3to_upper(char C){
  496. char R=0;
  497. /*IF*/if ((((unsigned char)C))<(97)) {
  498. R=C;
  499. }
  500.  else if ((((unsigned char)C))>(122)) {
  501. R=C;
  502. }
  503. else {
  504. R=((char)((((unsigned char)C))-(32)));
  505. }
  506. /*FI*/return R;
  507. }
  508. int r3is_letter(char C){
  509. int R=0;
  510. {int z1=C;
  511.  
  512. if(((65<=z1)&&(z1<=90))||((97<=z1)&&(z1<=122))){
  513. R=1;
  514. }
  515. }
  516. return R;
  517. }
  518. void r98set_all_with(T98 C,T0* a1,int a2){
  519. int _i=0;
  520. _i=a2;
  521. while (!((_i)<(0))) {
  522. (C)[_i]=(a1);
  523. _i=(_i)-(1);
  524. }
  525. }
  526. void r98copy_from(T98 C,T98 a1,int a2){
  527. int _i=0;
  528. _i=a2;
  529. while (!((_i)<(0))) {
  530. (C)[_i]=((a1)[_i]);
  531. _i=(_i)-(1);
  532. }
  533. }
  534. T98 r98realloc(T98 C,int a1,int a2){
  535. T98 R=NULL;
  536. R=calloc(a2,sizeof(T0*));
  537. r98copy_from(R,C,(a1)-(1));
  538. return R;
  539. }
  540. void r497copy_from(T497 C,T497 a1,int a2){
  541. int _i=0;
  542. _i=a2;
  543. while (!((_i)<(0))) {
  544. (C)[_i]=((a1)[_i]);
  545. _i=(_i)-(1);
  546. }
  547. }
  548. T497 r497realloc(T497 C,int a1,int a2){
  549. T497 R=NULL;
  550. R=calloc(a2,sizeof(T0*));
  551. r497copy_from(R,C,(a1)-(1));
  552. return R;
  553. }
  554. void r731set_all_with(T731 C,T0* a1,int a2){
  555. int _i=0;
  556. _i=a2;
  557. while (!((_i)<(0))) {
  558. (C)[_i]=(a1);
  559. _i=(_i)-(1);
  560. }
  561. }
  562. void r731copy_from(T731 C,T731 a1,int a2){
  563. int _i=0;
  564. _i=a2;
  565. while (!((_i)<(0))) {
  566. (C)[_i]=((a1)[_i]);
  567. _i=(_i)-(1);
  568. }
  569. }
  570. T731 r731realloc(T731 C,int a1,int a2){
  571. T731 R=NULL;
  572. R=calloc(a2,sizeof(T0*));
  573. r731copy_from(R,C,(a1)-(1));
  574. return R;
  575. }
  576.  
  577.