home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / languages / pot / potsrc / lib / Core / c / Reals < prev   
Encoding:
Text File  |  1995-01-22  |  10.0 KB  |  558 lines
  1. /* This code is generated by pOt. */
  2. #line 3 "reals.mod"
  3.  
  4. #line 3 "reals.mod"
  5. #include <pOtRTL.h>
  6. #line 3 "reals.mod"
  7.  
  8. #line 3 "reals.mod"
  9. #include "Reals.hi"
  10. #line 3 "reals.mod"
  11.  
  12. #line 3 "reals.mod"
  13.  
  14. #line 3 "reals.mod"
  15.  
  16. #line 3 "reals.mod"
  17. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  18. #line 3 "reals.mod"
  19.   pOt_NIL
  20. #line 3 "reals.mod"
  21. }};
  22. #line 3 "reals.mod"
  23. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  24. #line 3 "reals.mod"
  25.   pOt_NIL
  26. #line 3 "reals.mod"
  27. }};
  28. #line 3 "reals.mod"
  29.  
  30. #line 3 "reals.mod"
  31.  
  32.  
  33. #line 4 "reals.mod"
  34. extern pOt_INTEGER pOt_Expo_Reals
  35. #line 4 "reals.mod"
  36. #if pOt__ANSI_C
  37. #line 4 "reals.mod"
  38.   (pOt_REAL pOt_x)
  39. #line 4 "reals.mod"
  40. #else
  41. #line 4 "reals.mod"
  42.   (pOt_x)
  43. #line 4 "reals.mod"
  44.   pOt_REAL pOt_x;
  45. #line 4 "reals.mod"
  46.  
  47. #line 4 "reals.mod"
  48. #endif
  49. #line 4 "reals.mod"
  50. {
  51. #line 4 "reals.mod"
  52.   pOt_INTEGER pOt__retval;
  53. #line 4 "reals.mod"
  54.   int pOt__gc_enabled_prev;
  55. #line 4 "reals.mod"
  56.   pOt__gc_enabled_prev=pOt__gc_enabled;
  57. #line 4 "reals.mod"
  58.   pOt__gc_enabled=0;
  59. #line 4 "reals.mod"
  60.  
  61. #line 4 "reals.mod"
  62.  
  63. #line 4 "reals.mod"
  64.   pOt__halt(__FILE__,__LINE__,0x11);
  65. #line 4 "reals.mod"
  66. pOt__Epilogue:;
  67. #line 4 "reals.mod"
  68.   pOt__gc_enabled=pOt__gc_enabled_prev;
  69. #line 4 "reals.mod"
  70.   return pOt__retval;
  71. #line 4 "reals.mod"
  72. }
  73. #line 4 "reals.mod"
  74.  
  75. #line 4 "reals.mod"
  76.  
  77. #line 7 "reals.mod"
  78.  
  79. #line 7 "reals.mod"
  80. extern pOt_INTEGER pOt_ExpoL_Reals
  81. #line 7 "reals.mod"
  82. #if pOt__ANSI_C
  83. #line 7 "reals.mod"
  84.   (pOt_LONGREAL pOt_x)
  85. #line 7 "reals.mod"
  86. #else
  87. #line 7 "reals.mod"
  88.   (pOt_x)
  89. #line 7 "reals.mod"
  90.   pOt_LONGREAL pOt_x;
  91. #line 7 "reals.mod"
  92.  
  93. #line 7 "reals.mod"
  94. #endif
  95. #line 7 "reals.mod"
  96. {
  97. #line 7 "reals.mod"
  98.   pOt_INTEGER pOt__retval;
  99. #line 7 "reals.mod"
  100.   int pOt__gc_enabled_prev;
  101. #line 7 "reals.mod"
  102.   pOt__gc_enabled_prev=pOt__gc_enabled;
  103. #line 7 "reals.mod"
  104.   pOt__gc_enabled=0;
  105. #line 7 "reals.mod"
  106.  
  107. #line 7 "reals.mod"
  108.  
  109. #line 7 "reals.mod"
  110.   pOt__halt(__FILE__,__LINE__,0x11);
  111. #line 7 "reals.mod"
  112. pOt__Epilogue:;
  113. #line 7 "reals.mod"
  114.   pOt__gc_enabled=pOt__gc_enabled_prev;
  115. #line 7 "reals.mod"
  116.   return pOt__retval;
  117. #line 7 "reals.mod"
  118. }
  119. #line 7 "reals.mod"
  120.  
  121. #line 7 "reals.mod"
  122.  
  123. #line 10 "reals.mod"
  124.  
  125. #line 10 "reals.mod"
  126. extern void pOt_SetExpo_Reals
  127. #line 10 "reals.mod"
  128. #if pOt__ANSI_C
  129. #line 10 "reals.mod"
  130.   (pOt_INTEGER pOt_e, pOt_REAL *pOt_x)
  131. #line 10 "reals.mod"
  132. #else
  133. #line 10 "reals.mod"
  134.   (pOt_e, pOt_x)
  135. #line 10 "reals.mod"
  136.   pOt_INTEGER pOt_e;
  137. #line 10 "reals.mod"
  138.   pOt_REAL *pOt_x;
  139. #line 10 "reals.mod"
  140.  
  141. #line 10 "reals.mod"
  142. #endif
  143. #line 10 "reals.mod"
  144. {
  145. #line 10 "reals.mod"
  146.   struct {void*next;} pOt__gc_ptrs;
  147. #line 10 "reals.mod"
  148.   pOt__gc_ptrs.next = pOt__gc_root;
  149. #line 10 "reals.mod"
  150.  
  151. #line 10 "reals.mod"
  152.  
  153. #line 10 "reals.mod"
  154. pOt__Epilogue:;
  155. #line 10 "reals.mod"
  156.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  157. #line 10 "reals.mod"
  158. }
  159. #line 10 "reals.mod"
  160.  
  161. #line 10 "reals.mod"
  162.  
  163. #line 13 "reals.mod"
  164.  
  165. #line 13 "reals.mod"
  166. extern void pOt_SetExpoL_Reals
  167. #line 13 "reals.mod"
  168. #if pOt__ANSI_C
  169. #line 13 "reals.mod"
  170.   (pOt_INTEGER pOt_e, pOt_LONGREAL *pOt_x)
  171. #line 13 "reals.mod"
  172. #else
  173. #line 13 "reals.mod"
  174.   (pOt_e, pOt_x)
  175. #line 13 "reals.mod"
  176.   pOt_INTEGER pOt_e;
  177. #line 13 "reals.mod"
  178.   pOt_LONGREAL *pOt_x;
  179. #line 13 "reals.mod"
  180.  
  181. #line 13 "reals.mod"
  182. #endif
  183. #line 13 "reals.mod"
  184. {
  185. #line 13 "reals.mod"
  186.   struct {void*next;} pOt__gc_ptrs;
  187. #line 13 "reals.mod"
  188.   pOt__gc_ptrs.next = pOt__gc_root;
  189. #line 13 "reals.mod"
  190.  
  191. #line 13 "reals.mod"
  192.  
  193. #line 13 "reals.mod"
  194. pOt__Epilogue:;
  195. #line 13 "reals.mod"
  196.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  197. #line 13 "reals.mod"
  198. }
  199. #line 13 "reals.mod"
  200.  
  201. #line 13 "reals.mod"
  202.  
  203. #line 16 "reals.mod"
  204.  
  205. #line 16 "reals.mod"
  206. extern pOt_REAL pOt_Ten_Reals
  207. #line 16 "reals.mod"
  208. #if pOt__ANSI_C
  209. #line 16 "reals.mod"
  210.   (pOt_INTEGER pOt_e)
  211. #line 16 "reals.mod"
  212. #else
  213. #line 16 "reals.mod"
  214.   (pOt_e)
  215. #line 16 "reals.mod"
  216.   pOt_INTEGER pOt_e;
  217. #line 16 "reals.mod"
  218.  
  219. #line 16 "reals.mod"
  220. #endif
  221. #line 16 "reals.mod"
  222. {
  223. #line 16 "reals.mod"
  224.   pOt_REAL pOt__retval;
  225. #line 16 "reals.mod"
  226.   int pOt__gc_enabled_prev;
  227. #line 16 "reals.mod"
  228.   pOt__gc_enabled_prev=pOt__gc_enabled;
  229. #line 16 "reals.mod"
  230.   pOt__gc_enabled=0;
  231. #line 16 "reals.mod"
  232.  
  233. #line 16 "reals.mod"
  234.  
  235. #line 16 "reals.mod"
  236.   pOt__halt(__FILE__,__LINE__,0x11);
  237. #line 16 "reals.mod"
  238. pOt__Epilogue:;
  239. #line 16 "reals.mod"
  240.   pOt__gc_enabled=pOt__gc_enabled_prev;
  241. #line 16 "reals.mod"
  242.   return pOt__retval;
  243. #line 16 "reals.mod"
  244. }
  245. #line 16 "reals.mod"
  246.  
  247. #line 16 "reals.mod"
  248.  
  249. #line 19 "reals.mod"
  250.  
  251. #line 19 "reals.mod"
  252. extern pOt_LONGREAL pOt_TenL_Reals
  253. #line 19 "reals.mod"
  254. #if pOt__ANSI_C
  255. #line 19 "reals.mod"
  256.   (pOt_INTEGER pOt_e)
  257. #line 19 "reals.mod"
  258. #else
  259. #line 19 "reals.mod"
  260.   (pOt_e)
  261. #line 19 "reals.mod"
  262.   pOt_INTEGER pOt_e;
  263. #line 19 "reals.mod"
  264.  
  265. #line 19 "reals.mod"
  266. #endif
  267. #line 19 "reals.mod"
  268. {
  269. #line 19 "reals.mod"
  270.   pOt_LONGREAL pOt__retval;
  271. #line 19 "reals.mod"
  272.   int pOt__gc_enabled_prev;
  273. #line 19 "reals.mod"
  274.   pOt__gc_enabled_prev=pOt__gc_enabled;
  275. #line 19 "reals.mod"
  276.   pOt__gc_enabled=0;
  277. #line 19 "reals.mod"
  278.  
  279. #line 19 "reals.mod"
  280.  
  281. #line 19 "reals.mod"
  282.   pOt__halt(__FILE__,__LINE__,0x11);
  283. #line 19 "reals.mod"
  284. pOt__Epilogue:;
  285. #line 19 "reals.mod"
  286.   pOt__gc_enabled=pOt__gc_enabled_prev;
  287. #line 19 "reals.mod"
  288.   return pOt__retval;
  289. #line 19 "reals.mod"
  290. }
  291. #line 19 "reals.mod"
  292.  
  293. #line 19 "reals.mod"
  294.  
  295. #line 22 "reals.mod"
  296.  
  297. #line 22 "reals.mod"
  298. extern void pOt_Convert_Reals
  299. #line 22 "reals.mod"
  300. #if pOt__ANSI_C
  301. #line 22 "reals.mod"
  302.   (pOt_REAL pOt_x, pOt_INTEGER pOt_n, pOt__DynArr *pOt_d)
  303. #line 22 "reals.mod"
  304. #else
  305. #line 22 "reals.mod"
  306.   (pOt_x, pOt_n, pOt_d)
  307. #line 22 "reals.mod"
  308.   pOt_REAL pOt_x;
  309. #line 22 "reals.mod"
  310.   pOt_INTEGER pOt_n;
  311. #line 22 "reals.mod"
  312.   pOt__DynArr *pOt_d;
  313. #line 22 "reals.mod"
  314.  
  315. #line 22 "reals.mod"
  316. #endif
  317. #line 22 "reals.mod"
  318. {
  319. #line 22 "reals.mod"
  320.   struct {void*next;} pOt__gc_ptrs;
  321. #line 22 "reals.mod"
  322.   pOt__gc_ptrs.next = pOt__gc_root;
  323. #line 22 "reals.mod"
  324.  
  325. #line 22 "reals.mod"
  326.  
  327. #line 22 "reals.mod"
  328. pOt__Epilogue:;
  329. #line 22 "reals.mod"
  330.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  331. #line 22 "reals.mod"
  332. }
  333. #line 22 "reals.mod"
  334.  
  335. #line 22 "reals.mod"
  336.  
  337. #line 25 "reals.mod"
  338.  
  339. #line 25 "reals.mod"
  340. extern void pOt_ConvertL_Reals
  341. #line 25 "reals.mod"
  342. #if pOt__ANSI_C
  343. #line 25 "reals.mod"
  344.   (pOt_LONGREAL pOt_x, pOt_INTEGER pOt_n, pOt__DynArr *pOt_d)
  345. #line 25 "reals.mod"
  346. #else
  347. #line 25 "reals.mod"
  348.   (pOt_x, pOt_n, pOt_d)
  349. #line 25 "reals.mod"
  350.   pOt_LONGREAL pOt_x;
  351. #line 25 "reals.mod"
  352.   pOt_INTEGER pOt_n;
  353. #line 25 "reals.mod"
  354.   pOt__DynArr *pOt_d;
  355. #line 25 "reals.mod"
  356.  
  357. #line 25 "reals.mod"
  358. #endif
  359. #line 25 "reals.mod"
  360. {
  361. #line 25 "reals.mod"
  362.   struct {void*next;} pOt__gc_ptrs;
  363. #line 25 "reals.mod"
  364.   pOt__gc_ptrs.next = pOt__gc_root;
  365. #line 25 "reals.mod"
  366.  
  367. #line 25 "reals.mod"
  368.  
  369. #line 25 "reals.mod"
  370. pOt__Epilogue:;
  371. #line 25 "reals.mod"
  372.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  373. #line 25 "reals.mod"
  374. }
  375. #line 25 "reals.mod"
  376.  
  377. #line 25 "reals.mod"
  378.  
  379. #line 28 "reals.mod"
  380.  
  381. #line 28 "reals.mod"
  382. extern void pOt_ConvertH_Reals
  383. #line 28 "reals.mod"
  384. #if pOt__ANSI_C
  385. #line 28 "reals.mod"
  386.   (pOt_REAL pOt_x, pOt__DynArr *pOt_d)
  387. #line 28 "reals.mod"
  388. #else
  389. #line 28 "reals.mod"
  390.   (pOt_x, pOt_d)
  391. #line 28 "reals.mod"
  392.   pOt_REAL pOt_x;
  393. #line 28 "reals.mod"
  394.   pOt__DynArr *pOt_d;
  395. #line 28 "reals.mod"
  396.  
  397. #line 28 "reals.mod"
  398. #endif
  399. #line 28 "reals.mod"
  400. {
  401. #line 28 "reals.mod"
  402.   struct {void*next;} pOt__gc_ptrs;
  403. #line 28 "reals.mod"
  404.   pOt__gc_ptrs.next = pOt__gc_root;
  405. #line 28 "reals.mod"
  406.  
  407. #line 28 "reals.mod"
  408.  
  409. #line 28 "reals.mod"
  410. pOt__Epilogue:;
  411. #line 28 "reals.mod"
  412.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  413. #line 28 "reals.mod"
  414. }
  415. #line 28 "reals.mod"
  416.  
  417. #line 28 "reals.mod"
  418.  
  419. #line 31 "reals.mod"
  420.  
  421. #line 31 "reals.mod"
  422. extern void pOt_ConvertHL_Reals
  423. #line 31 "reals.mod"
  424. #if pOt__ANSI_C
  425. #line 31 "reals.mod"
  426.   (pOt_LONGREAL pOt_x, pOt__DynArr *pOt_d)
  427. #line 31 "reals.mod"
  428. #else
  429. #line 31 "reals.mod"
  430.   (pOt_x, pOt_d)
  431. #line 31 "reals.mod"
  432.   pOt_LONGREAL pOt_x;
  433. #line 31 "reals.mod"
  434.   pOt__DynArr *pOt_d;
  435. #line 31 "reals.mod"
  436.  
  437. #line 31 "reals.mod"
  438. #endif
  439. #line 31 "reals.mod"
  440. {
  441. #line 31 "reals.mod"
  442.   struct {void*next;} pOt__gc_ptrs;
  443. #line 31 "reals.mod"
  444.   pOt__gc_ptrs.next = pOt__gc_root;
  445. #line 31 "reals.mod"
  446.  
  447. #line 31 "reals.mod"
  448.  
  449. #line 31 "reals.mod"
  450. pOt__Epilogue:;
  451. #line 31 "reals.mod"
  452.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  453. #line 31 "reals.mod"
  454. }
  455. #line 31 "reals.mod"
  456.  
  457. #line 31 "reals.mod"
  458.  
  459. #line 34 "reals.mod"
  460.  
  461. #line 34 "reals.mod"
  462. extern pOt_LONGINT pOt_FSR_Reals()
  463. #line 34 "reals.mod"
  464. {
  465. #line 34 "reals.mod"
  466.   pOt_LONGINT pOt__retval;
  467. #line 34 "reals.mod"
  468.   int pOt__gc_enabled_prev;
  469. #line 34 "reals.mod"
  470.   pOt__gc_enabled_prev=pOt__gc_enabled;
  471. #line 34 "reals.mod"
  472.   pOt__gc_enabled=0;
  473. #line 34 "reals.mod"
  474.  
  475. #line 34 "reals.mod"
  476.  
  477. #line 34 "reals.mod"
  478.   pOt__halt(__FILE__,__LINE__,0x11);
  479. #line 34 "reals.mod"
  480. pOt__Epilogue:;
  481. #line 34 "reals.mod"
  482.   pOt__gc_enabled=pOt__gc_enabled_prev;
  483. #line 34 "reals.mod"
  484.   return pOt__retval;
  485. #line 34 "reals.mod"
  486. }
  487. #line 34 "reals.mod"
  488.  
  489. #line 34 "reals.mod"
  490.  
  491. #line 37 "reals.mod"
  492.  
  493. #line 37 "reals.mod"
  494. extern void pOt_SetFSR_Reals
  495. #line 37 "reals.mod"
  496. #if pOt__ANSI_C
  497. #line 37 "reals.mod"
  498.   (pOt_LONGINT pOt_status)
  499. #line 37 "reals.mod"
  500. #else
  501. #line 37 "reals.mod"
  502.   (pOt_status)
  503. #line 37 "reals.mod"
  504.   pOt_LONGINT pOt_status;
  505. #line 37 "reals.mod"
  506.  
  507. #line 37 "reals.mod"
  508. #endif
  509. #line 37 "reals.mod"
  510. {
  511. #line 37 "reals.mod"
  512.   struct {void*next;} pOt__gc_ptrs;
  513. #line 37 "reals.mod"
  514.   pOt__gc_ptrs.next = pOt__gc_root;
  515. #line 37 "reals.mod"
  516.  
  517. #line 37 "reals.mod"
  518.  
  519. #line 37 "reals.mod"
  520. pOt__Epilogue:;
  521. #line 37 "reals.mod"
  522.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  523. #line 37 "reals.mod"
  524. }
  525. #line 37 "reals.mod"
  526.  
  527. #line 37 "reals.mod"
  528. void pOt_Reals__body()
  529. #line 39 "reals.mod"
  530. {
  531. #line 39 "reals.mod"
  532.   static int pOt_Reals__loaded=0;
  533. #line 39 "reals.mod"
  534.   if(!pOt_Reals__loaded){
  535. #line 39 "reals.mod"
  536.     pOt_Reals__loaded=1;
  537. #line 39 "reals.mod"
  538.  
  539. #line 39 "reals.mod"
  540.  
  541. #line 39 "reals.mod"
  542.     pOt__gc_ptrs.next=pOt__gc_root;
  543. #line 39 "reals.mod"
  544.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  545. #line 39 "reals.mod"
  546.  
  547. #line 39 "reals.mod"
  548.  
  549. #line 39 "reals.mod"
  550.  
  551. #line 39 "reals.mod"
  552.   pOt__Epilogue:;
  553. #line 39 "reals.mod"
  554.   }
  555. #line 39 "reals.mod"
  556. }
  557. #line 39 "reals.mod"
  558.