home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / languages / pot / potsrc / lib / c / Texts < prev   
Text File  |  1995-05-08  |  93KB  |  3,194 lines
  1. /* This code is generated by pOt. */
  2. #line 43 "texts.mod"
  3.  
  4. #line 43 "texts.mod"
  5. #include <pOtRTL.h>
  6. #line 43 "texts.mod"
  7. #include "Files.h"
  8. #line 43 "texts.mod"
  9. #include "Reals.h"
  10. #line 43 "texts.mod"
  11.  
  12. #line 43 "texts.mod"
  13. #include "hi.Texts"
  14. #line 43 "texts.mod"
  15.  
  16. #line 43 "texts.mod"
  17. typedef pOt_File_Files pOt_Text_Texts;
  18. #line 43 "texts.mod"
  19. typedef struct pOt__tag_1_Texts *pOt_Buffer_Texts;
  20. #line 43 "texts.mod"
  21. typedef struct pOt__tag_1_Texts pOt_BufDesc_Texts;
  22. #line 43 "texts.mod"
  23. typedef struct pOt__tag_2_Texts pOt_Reader_Texts;
  24. #line 43 "texts.mod"
  25. typedef struct pOt__tag_4_Texts pOt_Scanner_Texts;
  26. #line 43 "texts.mod"
  27. typedef struct pOt__tag_5_Texts pOt_Writer_Texts;
  28. #line 43 "texts.mod"
  29.  
  30. #line 43 "texts.mod"
  31. struct pOt__tag_0_Texts {
  32. #line 43 "texts.mod"
  33.   pOt__ArrTypDsc *td;
  34. #line 43 "texts.mod"
  35.   pOt_CHAR arr[0x200L];
  36. #line 43 "texts.mod"
  37. } ;
  38. #line 43 "texts.mod"
  39. pOt__ArrTypDsc pOt__td_0_Texts= {
  40. #line 43 "texts.mod"
  41.   1,
  42. #line 43 "texts.mod"
  43.   0x200L, sizeof(pOt_CHAR)
  44. #line 43 "texts.mod"
  45. };
  46. #line 43 "texts.mod"
  47. struct pOt__tag_1_Texts {
  48. #line 43 "texts.mod"
  49.   pOt__RecTypDsc *td;
  50. #line 43 "texts.mod"
  51.   pOt_Buffer_Texts pOt_next;
  52. #line 43 "texts.mod"
  53.   pOt_LONGINT pOt_len;
  54. #line 43 "texts.mod"
  55.   struct pOt__tag_0_Texts pOt_data;
  56. #line 43 "texts.mod"
  57. } ;
  58. #line 43 "texts.mod"
  59. struct {
  60. #line 43 "texts.mod"
  61.   pOt_INTEGER mode;
  62. #line 43 "texts.mod"
  63.   pOt_LONGINT size;
  64. #line 43 "texts.mod"
  65.   pOt_INTEGER extlev, nstr, nptr, npro;
  66. #line 43 "texts.mod"
  67.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  68. #line 43 "texts.mod"
  69.   struct {pOt_LONGINT poffs; pOt__TypDsc *fld_td;} tab[0x2];
  70. #line 43 "texts.mod"
  71. } pOt__td_1_Texts= {
  72. #line 43 "texts.mod"
  73.   0,
  74. #line 43 "texts.mod"
  75.   sizeof(struct pOt__tag_1_Texts),
  76. #line 43 "texts.mod"
  77.   0x0, 0x1, 0x1, 0x0,
  78. #line 43 "texts.mod"
  79.   {pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL},
  80. #line 43 "texts.mod"
  81.   {
  82. #line 43 "texts.mod"
  83.     {(pOt_LONGINT)&((struct pOt__tag_1_Texts*)0)->pOt_data, (pOt__TypDsc*)&pOt__td_0_Texts},
  84. #line 43 "texts.mod"
  85.     {(pOt_LONGINT)&((struct pOt__tag_1_Texts*)0)->pOt_next, pOt_NIL}
  86. #line 43 "texts.mod"
  87.   }
  88. #line 43 "texts.mod"
  89. };
  90. #line 43 "texts.mod"
  91. struct pOt__tag_2_Texts {
  92. #line 43 "texts.mod"
  93.   struct pOt__tag_2_Files base;
  94. #line 43 "texts.mod"
  95.   pOt_LONGINT pOt_org;
  96. #line 43 "texts.mod"
  97.   pOt_BOOLEAN pOt_eot;
  98. #line 43 "texts.mod"
  99. } ;
  100. #line 43 "texts.mod"
  101. struct {
  102. #line 43 "texts.mod"
  103.   pOt_INTEGER mode;
  104. #line 43 "texts.mod"
  105.   pOt_LONGINT size;
  106. #line 43 "texts.mod"
  107.   pOt_INTEGER extlev, nstr, nptr, npro;
  108. #line 43 "texts.mod"
  109.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  110. #line 43 "texts.mod"
  111. } pOt__td_2_Texts= {
  112. #line 43 "texts.mod"
  113.   0,
  114. #line 43 "texts.mod"
  115.   sizeof(struct pOt__tag_2_Texts),
  116. #line 43 "texts.mod"
  117.   0x1, 0x0, 0x0, 0x0,
  118. #line 43 "texts.mod"
  119.   {(pOt__RecTypDsc*)&pOt__td_2_Files, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL}
  120. #line 43 "texts.mod"
  121. };
  122. #line 43 "texts.mod"
  123. struct pOt__tag_3_Texts {
  124. #line 43 "texts.mod"
  125.   pOt__ArrTypDsc *td;
  126. #line 43 "texts.mod"
  127.   pOt_CHAR arr[0x20L];
  128. #line 43 "texts.mod"
  129. } ;
  130. #line 43 "texts.mod"
  131. pOt__ArrTypDsc pOt__td_3_Texts= {
  132. #line 43 "texts.mod"
  133.   1,
  134. #line 43 "texts.mod"
  135.   0x20L, sizeof(pOt_CHAR)
  136. #line 43 "texts.mod"
  137. };
  138. #line 43 "texts.mod"
  139. struct pOt__tag_4_Texts {
  140. #line 43 "texts.mod"
  141.   struct pOt__tag_2_Texts base;
  142. #line 43 "texts.mod"
  143.   pOt_CHAR pOt_nextCh;
  144. #line 43 "texts.mod"
  145.   pOt_INTEGER pOt_line, pOt_class;
  146. #line 43 "texts.mod"
  147.   pOt_LONGINT pOt_i;
  148. #line 43 "texts.mod"
  149.   pOt_REAL pOt_x;
  150. #line 43 "texts.mod"
  151.   pOt_LONGREAL pOt_y;
  152. #line 43 "texts.mod"
  153.   pOt_CHAR pOt_c;
  154. #line 43 "texts.mod"
  155.   pOt_SHORTINT pOt_len;
  156. #line 43 "texts.mod"
  157.   struct pOt__tag_3_Texts pOt_s;
  158. #line 43 "texts.mod"
  159. } ;
  160. #line 43 "texts.mod"
  161. struct {
  162. #line 43 "texts.mod"
  163.   pOt_INTEGER mode;
  164. #line 43 "texts.mod"
  165.   pOt_LONGINT size;
  166. #line 43 "texts.mod"
  167.   pOt_INTEGER extlev, nstr, nptr, npro;
  168. #line 43 "texts.mod"
  169.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  170. #line 43 "texts.mod"
  171.   struct {pOt_LONGINT poffs; pOt__TypDsc *fld_td;} tab[0x1];
  172. #line 43 "texts.mod"
  173. } pOt__td_4_Texts= {
  174. #line 43 "texts.mod"
  175.   0,
  176. #line 43 "texts.mod"
  177.   sizeof(struct pOt__tag_4_Texts),
  178. #line 43 "texts.mod"
  179.   0x2, 0x1, 0x0, 0x0,
  180. #line 43 "texts.mod"
  181.   {(pOt__RecTypDsc*)&pOt__td_2_Files, (pOt__RecTypDsc*)&pOt__td_2_Texts, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL},
  182. #line 43 "texts.mod"
  183.   {
  184. #line 43 "texts.mod"
  185.     {(pOt_LONGINT)&((struct pOt__tag_4_Texts*)0)->pOt_s, (pOt__TypDsc*)&pOt__td_3_Texts}
  186. #line 43 "texts.mod"
  187.   }
  188. #line 43 "texts.mod"
  189. };
  190. #line 43 "texts.mod"
  191. struct pOt__tag_5_Texts {
  192. #line 43 "texts.mod"
  193.   pOt__RecTypDsc *td;
  194. #line 43 "texts.mod"
  195.   pOt_Buffer_Texts pOt_buf;
  196. #line 43 "texts.mod"
  197. } ;
  198. #line 43 "texts.mod"
  199. struct {
  200. #line 43 "texts.mod"
  201.   pOt_INTEGER mode;
  202. #line 43 "texts.mod"
  203.   pOt_LONGINT size;
  204. #line 43 "texts.mod"
  205.   pOt_INTEGER extlev, nstr, nptr, npro;
  206. #line 43 "texts.mod"
  207.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  208. #line 43 "texts.mod"
  209.   struct {pOt_LONGINT poffs; pOt__TypDsc *fld_td;} tab[0x1];
  210. #line 43 "texts.mod"
  211. } pOt__td_5_Texts= {
  212. #line 43 "texts.mod"
  213.   0,
  214. #line 43 "texts.mod"
  215.   sizeof(struct pOt__tag_5_Texts),
  216. #line 43 "texts.mod"
  217.   0x0, 0x0, 0x1, 0x0,
  218. #line 43 "texts.mod"
  219.   {pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL},
  220. #line 43 "texts.mod"
  221.   {
  222. #line 43 "texts.mod"
  223.     {(pOt_LONGINT)&((struct pOt__tag_5_Texts*)0)->pOt_buf, pOt_NIL}
  224. #line 43 "texts.mod"
  225.   }
  226. #line 43 "texts.mod"
  227. };
  228. #line 43 "texts.mod"
  229.  
  230. #line 43 "texts.mod"
  231.  
  232. #line 43 "texts.mod"
  233. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  234. #line 43 "texts.mod"
  235.   pOt_NIL
  236. #line 43 "texts.mod"
  237. }};
  238. #line 43 "texts.mod"
  239. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  240. #line 43 "texts.mod"
  241.   pOt_NIL
  242. #line 43 "texts.mod"
  243. }};
  244. #line 43 "texts.mod"
  245.  
  246. #line 43 "texts.mod"
  247.  
  248. #line 45 "texts.mod"
  249.  
  250. #line 45 "texts.mod"
  251.  
  252. #line 45 "texts.mod"
  253. static void pOt_RdString_Texts
  254. #line 45 "texts.mod"
  255. #if pOt__ANSI_C
  256. #line 45 "texts.mod"
  257.   (struct pOt__tag_2_Files *pOt_r, pOt__DynArr *pOt_s)
  258. #line 45 "texts.mod"
  259. #else
  260. #line 45 "texts.mod"
  261.   (pOt_r, pOt_s)
  262. #line 45 "texts.mod"
  263.   struct pOt__tag_2_Files *pOt_r;
  264. #line 45 "texts.mod"
  265.   pOt__DynArr *pOt_s;
  266. #line 45 "texts.mod"
  267.  
  268. #line 45 "texts.mod"
  269. #endif
  270. #line 45 "texts.mod"
  271. {
  272. #line 45 "texts.mod"
  273.   pOt_INTEGER pOt_i;
  274. #line 45 "texts.mod"
  275.   pOt_CHAR pOt_ch;
  276. #line 45 "texts.mod"
  277.   struct {void*next;} pOt__gc_ptrs;
  278. #line 45 "texts.mod"
  279.   pOt__gc_ptrs.next = pOt__gc_root;
  280. #line 45 "texts.mod"
  281.  
  282. #line 45 "texts.mod"
  283.   pOt_i=(pOt_INTEGER)(0);
  284. #line 45 "texts.mod"
  285.   for(;;) {
  286.     pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_ch);
  287. #line 46 "texts.mod"
  288.     (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))))=pOt_ch;
  289. #line 46 "texts.mod"
  290.     pOt_i+=(1);
  291. #line 46 "texts.mod"
  292.     if(((((unsigned char)pOt_ch==(unsigned char)'\0'))||((((pOt_LONGINT)(pOt_i))==(*((pOt__ArrTypDsc**)&(*pOt_s)+0))->nofel)))) break;
  293. #line 46 "texts.mod"
  294.   }
  295. #line 46 "texts.mod"
  296.   for(;;) {
  297.     if((!(*pOt_r).pOt_eof&&(((unsigned char)pOt_ch!=(unsigned char)'\0')))); else break;
  298. #line 47 "texts.mod"
  299.     pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_ch);
  300. #line 47 "texts.mod"
  301.   }
  302. #line 47 "texts.mod"
  303.   (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))))='\0';
  304. #line 49 "texts.mod"
  305.  
  306. #line 49 "texts.mod"
  307. pOt__Epilogue:;
  308. #line 49 "texts.mod"
  309.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  310. #line 49 "texts.mod"
  311. }
  312. #line 49 "texts.mod"
  313.  
  314. #line 49 "texts.mod"
  315.  
  316. #line 53 "texts.mod"
  317.  
  318. #line 53 "texts.mod"
  319.  
  320. #line 53 "texts.mod"
  321. static void pOt_RdInt_Texts
  322. #line 53 "texts.mod"
  323. #if pOt__ANSI_C
  324. #line 53 "texts.mod"
  325.   (struct pOt__tag_2_Files *pOt_r, pOt_INTEGER *pOt_n)
  326. #line 53 "texts.mod"
  327. #else
  328. #line 53 "texts.mod"
  329.   (pOt_r, pOt_n)
  330. #line 53 "texts.mod"
  331.   struct pOt__tag_2_Files *pOt_r;
  332. #line 53 "texts.mod"
  333.   pOt_INTEGER *pOt_n;
  334. #line 53 "texts.mod"
  335.  
  336. #line 53 "texts.mod"
  337. #endif
  338. #line 53 "texts.mod"
  339. {
  340. #line 53 "texts.mod"
  341.   pOt_CHAR pOt_c0;
  342. #line 53 "texts.mod"
  343.   pOt_SHORTINT pOt_s1;
  344. #line 53 "texts.mod"
  345.   struct {void*next;} pOt__gc_ptrs;
  346. #line 53 "texts.mod"
  347.   pOt__gc_ptrs.next = pOt__gc_root;
  348. #line 53 "texts.mod"
  349.  
  350. #line 53 "texts.mod"
  351.   pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_c0);
  352. #line 53 "texts.mod"
  353.   pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_s1);
  354. #line 53 "texts.mod"
  355.   (*pOt_n)=(pOt_INTEGER)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_SHORTINT)(pOt_s1)),(pOt_LONGINT)(256),5)),(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_c0)),5));
  356. #line 55 "texts.mod"
  357.  
  358. #line 55 "texts.mod"
  359. pOt__Epilogue:;
  360. #line 55 "texts.mod"
  361.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  362. #line 55 "texts.mod"
  363. }
  364. #line 55 "texts.mod"
  365.  
  366. #line 55 "texts.mod"
  367.  
  368. #line 59 "texts.mod"
  369.  
  370. #line 59 "texts.mod"
  371.  
  372. #line 59 "texts.mod"
  373. static void pOt_RdLong_Texts
  374. #line 59 "texts.mod"
  375. #if pOt__ANSI_C
  376. #line 59 "texts.mod"
  377.   (struct pOt__tag_2_Files *pOt_r, pOt_LONGINT *pOt_n)
  378. #line 59 "texts.mod"
  379. #else
  380. #line 59 "texts.mod"
  381.   (pOt_r, pOt_n)
  382. #line 59 "texts.mod"
  383.   struct pOt__tag_2_Files *pOt_r;
  384. #line 59 "texts.mod"
  385.   pOt_LONGINT *pOt_n;
  386. #line 59 "texts.mod"
  387.  
  388. #line 59 "texts.mod"
  389. #endif
  390. #line 59 "texts.mod"
  391. {
  392. #line 59 "texts.mod"
  393.   pOt_CHAR pOt_c0, pOt_c1, pOt_c2;
  394. #line 59 "texts.mod"
  395.   pOt_SHORTINT pOt_s3;
  396. #line 59 "texts.mod"
  397.   struct {void*next;} pOt__gc_ptrs;
  398. #line 59 "texts.mod"
  399.   pOt__gc_ptrs.next = pOt__gc_root;
  400. #line 59 "texts.mod"
  401.  
  402. #line 59 "texts.mod"
  403.   pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_c0);
  404. #line 59 "texts.mod"
  405.   pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_c1);
  406. #line 59 "texts.mod"
  407.   pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_c2);
  408. #line 59 "texts.mod"
  409.   pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_BYTE_SYSTEM*)&pOt_s3);
  410. #line 59 "texts.mod"
  411.   (*pOt_n)=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_SHORTINT)(pOt_s3)),(pOt_LONGINT)(256),5)),(pOt_LONGINT)((pOt_INTEGER)((pOt_INTEGER)((unsigned char)pOt_c2))),6))),(pOt_LONGINT)(256),6)),(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_c1)),6))),(pOt_LONGINT)(256),6)),(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_c0)),6));
  412. #line 61 "texts.mod"
  413.  
  414. #line 61 "texts.mod"
  415. pOt__Epilogue:;
  416. #line 61 "texts.mod"
  417.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  418. #line 61 "texts.mod"
  419. }
  420. #line 61 "texts.mod"
  421.  
  422. #line 61 "texts.mod"
  423.  
  424. #line 66 "texts.mod"
  425.  
  426. #line 66 "texts.mod"
  427.  
  428. #line 66 "texts.mod"
  429. static void pOt_WrtString_Texts
  430. #line 66 "texts.mod"
  431. #if pOt__ANSI_C
  432. #line 66 "texts.mod"
  433.   (struct pOt__tag_2_Files *pOt_r, pOt__DynArr *pOt_s)
  434. #line 66 "texts.mod"
  435. #else
  436. #line 66 "texts.mod"
  437.   (pOt_r, pOt_s)
  438. #line 66 "texts.mod"
  439.   struct pOt__tag_2_Files *pOt_r;
  440. #line 66 "texts.mod"
  441.   pOt__DynArr *pOt_s;
  442. #line 66 "texts.mod"
  443.  
  444. #line 66 "texts.mod"
  445. #endif
  446. #line 66 "texts.mod"
  447. {
  448. #line 66 "texts.mod"
  449.   pOt_INTEGER pOt_i;
  450. #line 66 "texts.mod"
  451.   struct {void*next;} pOt__gc_ptrs;
  452. #line 66 "texts.mod"
  453.   pOt__gc_ptrs.next = pOt__gc_root;
  454. #line 66 "texts.mod"
  455.  
  456. #line 66 "texts.mod"
  457.   pOt_i=(pOt_INTEGER)(0);
  458. #line 66 "texts.mod"
  459.   for(;;) {
  460.     pOt_i+=(1);
  461. #line 67 "texts.mod"
  462.     if(((unsigned char) (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))))==(unsigned char)'\0')) break;
  463. #line 67 "texts.mod"
  464.   }
  465. #line 67 "texts.mod"
  466.   pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&(*pOt_r),pOt__make_byte_arr((void*)&(*pOt_s),1,0),(pOt_LONGINT)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5)));
  467. #line 69 "texts.mod"
  468.  
  469. #line 69 "texts.mod"
  470. pOt__Epilogue:;
  471. #line 69 "texts.mod"
  472.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  473. #line 69 "texts.mod"
  474. }
  475. #line 69 "texts.mod"
  476.  
  477. #line 69 "texts.mod"
  478.  
  479. #line 72 "texts.mod"
  480.  
  481. #line 72 "texts.mod"
  482.  
  483. #line 72 "texts.mod"
  484. static void pOt_WrtInt_Texts
  485. #line 72 "texts.mod"
  486. #if pOt__ANSI_C
  487. #line 72 "texts.mod"
  488.   (struct pOt__tag_2_Files *pOt_r, pOt_INTEGER pOt_n)
  489. #line 72 "texts.mod"
  490. #else
  491. #line 72 "texts.mod"
  492.   (pOt_r, pOt_n)
  493. #line 72 "texts.mod"
  494.   struct pOt__tag_2_Files *pOt_r;
  495. #line 72 "texts.mod"
  496.   pOt_INTEGER pOt_n;
  497. #line 72 "texts.mod"
  498.  
  499. #line 72 "texts.mod"
  500. #endif
  501. #line 72 "texts.mod"
  502. {
  503. #line 72 "texts.mod"
  504.   struct {void*next;} pOt__gc_ptrs;
  505. #line 72 "texts.mod"
  506.   pOt__gc_ptrs.next = pOt__gc_root;
  507. #line 72 "texts.mod"
  508.  
  509. #line 72 "texts.mod"
  510.   pOt_Write_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(256),5))));
  511. #line 72 "texts.mod"
  512.   pOt_Write_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_INTEGER)pOt__rngchk_si(__FILE__,__LINE__,(pOt_INTEGER)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(256),5)));
  513.  
  514. #line 73 "texts.mod"
  515. pOt__Epilogue:;
  516. #line 73 "texts.mod"
  517.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  518. #line 73 "texts.mod"
  519. }
  520. #line 73 "texts.mod"
  521.  
  522. #line 73 "texts.mod"
  523.  
  524. #line 76 "texts.mod"
  525.  
  526. #line 76 "texts.mod"
  527.  
  528. #line 76 "texts.mod"
  529. static void pOt_WrtLong_Texts
  530. #line 76 "texts.mod"
  531. #if pOt__ANSI_C
  532. #line 76 "texts.mod"
  533.   (struct pOt__tag_2_Files *pOt_r, pOt_LONGINT pOt_n)
  534. #line 76 "texts.mod"
  535. #else
  536. #line 76 "texts.mod"
  537.   (pOt_r, pOt_n)
  538. #line 76 "texts.mod"
  539.   struct pOt__tag_2_Files *pOt_r;
  540. #line 76 "texts.mod"
  541.   pOt_LONGINT pOt_n;
  542. #line 76 "texts.mod"
  543.  
  544. #line 76 "texts.mod"
  545. #endif
  546. #line 76 "texts.mod"
  547. {
  548. #line 76 "texts.mod"
  549.   struct {void*next;} pOt__gc_ptrs;
  550. #line 76 "texts.mod"
  551.   pOt__gc_ptrs.next = pOt__gc_root;
  552. #line 76 "texts.mod"
  553.  
  554. #line 76 "texts.mod"
  555.   pOt_Write_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(256),6))));
  556. #line 76 "texts.mod"
  557.   pOt_Write_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(256),6)),(pOt_LONGINT)(256),6))));
  558. #line 76 "texts.mod"
  559.   pOt_Write_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(65536L),6)),(pOt_LONGINT)(256),6))));
  560.   pOt_Write_Files((struct pOt__tag_2_Files*)&(*pOt_r),(pOt_INTEGER)pOt__rngchk_si(__FILE__,__LINE__,(pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(16777216L),6)))));
  561.  
  562. #line 78 "texts.mod"
  563. pOt__Epilogue:;
  564. #line 78 "texts.mod"
  565.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  566. #line 78 "texts.mod"
  567. }
  568. #line 78 "texts.mod"
  569.  
  570. #line 78 "texts.mod"
  571.  
  572. #line 83 "texts.mod"
  573.  
  574. #line 83 "texts.mod"
  575.  
  576. #line 83 "texts.mod"
  577. extern void pOt_OpenBuf_Texts
  578. #line 83 "texts.mod"
  579. #if pOt__ANSI_C
  580. #line 83 "texts.mod"
  581.   (pOt_Buffer_Texts *pOt_B)
  582. #line 83 "texts.mod"
  583. #else
  584. #line 83 "texts.mod"
  585.   (pOt_B)
  586. #line 83 "texts.mod"
  587.   pOt_Buffer_Texts *pOt_B;
  588. #line 83 "texts.mod"
  589.  
  590. #line 83 "texts.mod"
  591. #endif
  592. #line 83 "texts.mod"
  593. {
  594. #line 83 "texts.mod"
  595.   struct {void*next;} pOt__gc_ptrs;
  596. #line 83 "texts.mod"
  597.   pOt__gc_ptrs.next = pOt__gc_root;
  598. #line 83 "texts.mod"
  599.  
  600. #line 83 "texts.mod"
  601.   pOt__new(__FILE__,__LINE__,(pOt__TypDsc***)&(*pOt_B),(pOt__TypDsc*)&pOt__td_1_Texts);
  602. #line 83 "texts.mod"
  603.   (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_next=(struct pOt__tag_1_Texts*)(pOt_NIL);
  604. #line 83 "texts.mod"
  605.   (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_len=(pOt_LONGINT)(0);
  606.  
  607. #line 84 "texts.mod"
  608. pOt__Epilogue:;
  609. #line 84 "texts.mod"
  610.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  611. #line 84 "texts.mod"
  612. }
  613. #line 84 "texts.mod"
  614.  
  615. #line 84 "texts.mod"
  616.  
  617. #line 89 "texts.mod"
  618.  
  619. #line 89 "texts.mod"
  620. static pOt_File_Files (*pOt_T_Append_Texts);
  621. #line 89 "texts.mod"
  622. static pOt_Buffer_Texts *pOt_B_Append_Texts;
  623. #line 89 "texts.mod"
  624. static struct pOt__tag_2_Files (*pOt_R_Append_Texts);
  625. #line 89 "texts.mod"
  626.  
  627. #line 89 "texts.mod"
  628. extern void pOt_Append_Texts pOt__ARGS((pOt_File_Files , pOt_Buffer_Texts *));
  629. #line 89 "texts.mod"
  630.  
  631. #line 89 "texts.mod"
  632.  
  633. #line 91 "texts.mod"
  634.  
  635. #line 91 "texts.mod"
  636.  
  637. #line 91 "texts.mod"
  638. static void pOt_Invert_Append_Texts()
  639. #line 91 "texts.mod"
  640. {
  641. #line 91 "texts.mod"
  642.   pOt_Buffer_Texts pOt_b1, pOt_b2;
  643. #line 91 "texts.mod"
  644.   struct {void *next, *vars[0x3];} pOt__gc_ptrs;
  645. #line 91 "texts.mod"
  646.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  647. #line 91 "texts.mod"
  648.   pOt__gc_ptrs.next = pOt__gc_root;
  649. #line 91 "texts.mod"
  650.   pOt__gc_strs.next = &pOt__gc_ptrs;
  651. #line 91 "texts.mod"
  652.   pOt__gc_ptrs.vars[0x2]=pOt_NIL;
  653. #line 91 "texts.mod"
  654.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  655. #line 91 "texts.mod"
  656.   pOt__gc_ptrs.vars[0x1]=&pOt_b1;
  657. #line 91 "texts.mod"
  658.   pOt__gc_ptrs.vars[0x0]=&pOt_b2;
  659. #line 91 "texts.mod"
  660.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  661. #line 91 "texts.mod"
  662.   pOt_b1=pOt_NIL;
  663. #line 91 "texts.mod"
  664.   pOt_b2=pOt_NIL;
  665. #line 91 "texts.mod"
  666.  
  667. #line 91 "texts.mod"
  668.   pOt_b1=(struct pOt__tag_1_Texts*)(pOt_NIL);
  669. #line 91 "texts.mod"
  670.   for(;;) {
  671.     pOt_b2=(struct pOt__tag_1_Texts*)(pOt_b1);
  672. #line 92 "texts.mod"
  673.     pOt_b1=(struct pOt__tag_1_Texts*)((*pOt_B_Append_Texts));
  674. #line 92 "texts.mod"
  675.     (*pOt_B_Append_Texts)=(struct pOt__tag_1_Texts*)((*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B_Append_Texts)))).pOt_next);
  676. #line 92 "texts.mod"
  677.     (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,pOt_b1))).pOt_next=(struct pOt__tag_1_Texts*)(pOt_b2);
  678. #line 92 "texts.mod"
  679.     if(( (*pOt_B_Append_Texts)==pOt_NIL)) break;
  680. #line 92 "texts.mod"
  681.   }
  682. #line 92 "texts.mod"
  683.   (*pOt_B_Append_Texts)=(struct pOt__tag_1_Texts*)(pOt_b1);
  684. #line 94 "texts.mod"
  685.  
  686. #line 94 "texts.mod"
  687. pOt__Epilogue:;
  688. #line 94 "texts.mod"
  689.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  690. #line 94 "texts.mod"
  691. }
  692. #line 94 "texts.mod"
  693.  
  694. #line 94 "texts.mod"
  695. extern void pOt_Append_Texts
  696. #line 96 "texts.mod"
  697. #if pOt__ANSI_C
  698. #line 96 "texts.mod"
  699.   (pOt_File_Files pOt_T, pOt_Buffer_Texts *pOt_B)
  700. #line 96 "texts.mod"
  701. #else
  702. #line 96 "texts.mod"
  703.   (pOt_T, pOt_B)
  704. #line 96 "texts.mod"
  705.   pOt_File_Files pOt_T;
  706. #line 96 "texts.mod"
  707.   pOt_Buffer_Texts *pOt_B;
  708. #line 96 "texts.mod"
  709.  
  710. #line 96 "texts.mod"
  711. #endif
  712. #line 96 "texts.mod"
  713. {
  714. #line 96 "texts.mod"
  715.   pOt_File_Files (*pOt_T_);
  716. #line 96 "texts.mod"
  717.   pOt_Buffer_Texts *pOt_B_;
  718. #line 96 "texts.mod"
  719.   struct pOt__tag_2_Files pOt_R, (*pOt_R_);
  720. #line 96 "texts.mod"
  721.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  722. #line 96 "texts.mod"
  723.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  724. #line 96 "texts.mod"
  725.   pOt__gc_ptrs.next = pOt__gc_root;
  726. #line 96 "texts.mod"
  727.   pOt__gc_strs.next = &pOt__gc_ptrs;
  728. #line 96 "texts.mod"
  729.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  730. #line 96 "texts.mod"
  731.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  732. #line 96 "texts.mod"
  733.   pOt__gc_ptrs.vars[0x0]=&pOt_T;
  734. #line 96 "texts.mod"
  735.   pOt__gc_strs.vars[0x0]=&pOt_R;
  736. #line 96 "texts.mod"
  737.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  738. #line 96 "texts.mod"
  739.   pOt_T_=pOt_T_Append_Texts;
  740. #line 96 "texts.mod"
  741.   pOt_T_Append_Texts=&pOt_T;
  742. #line 96 "texts.mod"
  743.   pOt_B_=pOt_B_Append_Texts;
  744. #line 96 "texts.mod"
  745.   pOt_B_Append_Texts=pOt_B;
  746. #line 96 "texts.mod"
  747.   pOt_R_=pOt_R_Append_Texts;
  748. #line 96 "texts.mod"
  749.   pOt_R_Append_Texts=&pOt_R;
  750. #line 96 "texts.mod"
  751.   pOt__init_var((pOt__TypDsc**)&pOt_R,(pOt__TypDsc*)&pOt__td_2_Files);
  752. #line 96 "texts.mod"
  753.  
  754. #line 96 "texts.mod"
  755.   pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_R,(struct pOt__tag_1_Files*)(pOt_T),(pOt_LONGINT)(pOt_Length_Files((struct pOt__tag_1_Files*)(pOt_T))));
  756. #line 96 "texts.mod"
  757.   pOt_Invert_Append_Texts();
  758. #line 96 "texts.mod"
  759.   for(;;) {
  760.     if(( (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_len==((pOt_LONGINT)(0)))) {
  761. #line 97 "texts.mod"
  762.       goto pOt__LoopLabel_1;
  763. #line 97 "texts.mod"
  764.     }
  765. #line 97 "texts.mod"
  766.     pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_R,pOt__make_byte_arr((void*)&(*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_data,1,0),(pOt_LONGINT)((*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_len));
  767.     if(( (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_next==pOt_NIL)) {
  768.       (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_len=(pOt_LONGINT)(0);
  769. #line 99 "texts.mod"
  770.       goto pOt__LoopLabel_1;
  771. #line 99 "texts.mod"
  772.     }
  773. #line 99 "texts.mod"
  774.     (*pOt_B)=(struct pOt__tag_1_Texts*)((*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_B)))).pOt_next);
  775. #line 101 "texts.mod"
  776.   }
  777. #line 101 "texts.mod"
  778. pOt__LoopLabel_1:;
  779. #line 101 "texts.mod"
  780.   pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_R,(struct pOt__tag_1_Files*)(pOt_T),(pOt_LONGINT)(pOt_Pos_Files((struct pOt__tag_2_Files*)&pOt_R)));
  781. #line 103 "texts.mod"
  782.  
  783. #line 103 "texts.mod"
  784. pOt__Epilogue:;
  785. #line 103 "texts.mod"
  786.   pOt_T_Append_Texts=pOt_T_;
  787. #line 103 "texts.mod"
  788.   pOt_B_Append_Texts=pOt_B_;
  789. #line 103 "texts.mod"
  790.   pOt_R_Append_Texts=pOt_R_;
  791. #line 103 "texts.mod"
  792.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  793. #line 103 "texts.mod"
  794. }
  795. #line 103 "texts.mod"
  796.  
  797. #line 103 "texts.mod"
  798.  
  799. #line 108 "texts.mod"
  800.  
  801. #line 108 "texts.mod"
  802.  
  803. #line 108 "texts.mod"
  804. extern void pOt_OpenReader_Texts
  805. #line 108 "texts.mod"
  806. #if pOt__ANSI_C
  807. #line 108 "texts.mod"
  808.   (struct pOt__tag_2_Texts *pOt_R, pOt_File_Files pOt_T, pOt_LONGINT pOt_pos)
  809. #line 108 "texts.mod"
  810. #else
  811. #line 108 "texts.mod"
  812.   (pOt_R, pOt_T, pOt_pos)
  813. #line 108 "texts.mod"
  814.   struct pOt__tag_2_Texts *pOt_R;
  815. #line 108 "texts.mod"
  816.   pOt_File_Files pOt_T;
  817. #line 108 "texts.mod"
  818.   pOt_LONGINT pOt_pos;
  819. #line 108 "texts.mod"
  820.  
  821. #line 108 "texts.mod"
  822. #endif
  823. #line 108 "texts.mod"
  824. {
  825. #line 108 "texts.mod"
  826.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  827. #line 108 "texts.mod"
  828.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  829. #line 108 "texts.mod"
  830.   pOt__gc_ptrs.next = pOt__gc_root;
  831. #line 108 "texts.mod"
  832.   pOt__gc_strs.next = &pOt__gc_ptrs;
  833. #line 108 "texts.mod"
  834.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  835. #line 108 "texts.mod"
  836.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  837. #line 108 "texts.mod"
  838.   pOt__gc_ptrs.vars[0x0]=&pOt_T;
  839. #line 108 "texts.mod"
  840.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  841. #line 108 "texts.mod"
  842.  
  843. #line 108 "texts.mod"
  844.   pOt_Set_Files((struct pOt__tag_2_Files*)&(*pOt_R),(struct pOt__tag_1_Files*)(pOt_T),(pOt_LONGINT)(pOt_pos));
  845. #line 108 "texts.mod"
  846.   (*pOt_R).pOt_eot=(pOt_BOOLEAN)0;
  847. #line 108 "texts.mod"
  848.   (*pOt_R).pOt_org=(pOt_LONGINT)(pOt_pos);
  849.  
  850. #line 109 "texts.mod"
  851. pOt__Epilogue:;
  852. #line 109 "texts.mod"
  853.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  854. #line 109 "texts.mod"
  855. }
  856. #line 109 "texts.mod"
  857.  
  858. #line 109 "texts.mod"
  859.  
  860. #line 112 "texts.mod"
  861.  
  862. #line 112 "texts.mod"
  863.  
  864. #line 112 "texts.mod"
  865. extern void pOt_Read_Texts
  866. #line 112 "texts.mod"
  867. #if pOt__ANSI_C
  868. #line 112 "texts.mod"
  869.   (struct pOt__tag_2_Texts *pOt_R, pOt_CHAR *pOt_ch)
  870. #line 112 "texts.mod"
  871. #else
  872. #line 112 "texts.mod"
  873.   (pOt_R, pOt_ch)
  874. #line 112 "texts.mod"
  875.   struct pOt__tag_2_Texts *pOt_R;
  876. #line 112 "texts.mod"
  877.   pOt_CHAR *pOt_ch;
  878. #line 112 "texts.mod"
  879.  
  880. #line 112 "texts.mod"
  881. #endif
  882. #line 112 "texts.mod"
  883. {
  884. #line 112 "texts.mod"
  885.   struct {void*next;} pOt__gc_ptrs;
  886. #line 112 "texts.mod"
  887.   pOt__gc_ptrs.next = pOt__gc_root;
  888. #line 112 "texts.mod"
  889.  
  890. #line 112 "texts.mod"
  891.   pOt_Read_Files((struct pOt__tag_2_Files*)&(*pOt_R),(pOt_BYTE_SYSTEM*)&(*pOt_ch));
  892. #line 112 "texts.mod"
  893.   (*pOt_R).pOt_eot=((*pOt_R).base.pOt_eof||(((unsigned char)(*pOt_ch)==(unsigned char)'\0')));
  894.  
  895. #line 113 "texts.mod"
  896. pOt__Epilogue:;
  897. #line 113 "texts.mod"
  898.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  899. #line 113 "texts.mod"
  900. }
  901. #line 113 "texts.mod"
  902.  
  903. #line 113 "texts.mod"
  904.  
  905. #line 116 "texts.mod"
  906.  
  907. #line 116 "texts.mod"
  908.  
  909. #line 116 "texts.mod"
  910. extern pOt_LONGINT pOt_Pos_Texts
  911. #line 116 "texts.mod"
  912. #if pOt__ANSI_C
  913. #line 116 "texts.mod"
  914.   (struct pOt__tag_2_Texts *pOt_R)
  915. #line 116 "texts.mod"
  916. #else
  917. #line 116 "texts.mod"
  918.   (pOt_R)
  919. #line 116 "texts.mod"
  920.   struct pOt__tag_2_Texts *pOt_R;
  921. #line 116 "texts.mod"
  922.  
  923. #line 116 "texts.mod"
  924. #endif
  925. #line 116 "texts.mod"
  926. {
  927. #line 116 "texts.mod"
  928.   pOt_LONGINT pOt__retval;
  929. #line 116 "texts.mod"
  930.   int pOt__gc_enabled_prev;
  931. #line 116 "texts.mod"
  932.   pOt__gc_enabled_prev=pOt__gc_enabled;
  933. #line 116 "texts.mod"
  934.   pOt__gc_enabled=0;
  935. #line 116 "texts.mod"
  936.  
  937. #line 116 "texts.mod"
  938.   pOt__retval =(pOt_LONGINT)((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_Pos_Files((struct pOt__tag_2_Files*)&(*pOt_R))),(pOt_LONGINT)((*pOt_R).pOt_org),6));
  939.   goto pOt__Epilogue;
  940. #line 117 "texts.mod"
  941.  
  942. #line 117 "texts.mod"
  943.   pOt__halt(__FILE__,__LINE__,0x11);
  944. #line 117 "texts.mod"
  945. pOt__Epilogue:;
  946. #line 117 "texts.mod"
  947.   pOt__gc_enabled=pOt__gc_enabled_prev;
  948. #line 117 "texts.mod"
  949.   return pOt__retval;
  950. #line 117 "texts.mod"
  951. }
  952. #line 117 "texts.mod"
  953.  
  954. #line 117 "texts.mod"
  955.  
  956. #line 122 "texts.mod"
  957.  
  958. #line 122 "texts.mod"
  959.  
  960. #line 122 "texts.mod"
  961. extern void pOt_OpenScanner_Texts
  962. #line 122 "texts.mod"
  963. #if pOt__ANSI_C
  964. #line 122 "texts.mod"
  965.   (struct pOt__tag_4_Texts *pOt_S, pOt_File_Files pOt_T, pOt_LONGINT pOt_pos)
  966. #line 122 "texts.mod"
  967. #else
  968. #line 122 "texts.mod"
  969.   (pOt_S, pOt_T, pOt_pos)
  970. #line 122 "texts.mod"
  971.   struct pOt__tag_4_Texts *pOt_S;
  972. #line 122 "texts.mod"
  973.   pOt_File_Files pOt_T;
  974. #line 122 "texts.mod"
  975.   pOt_LONGINT pOt_pos;
  976. #line 122 "texts.mod"
  977.  
  978. #line 122 "texts.mod"
  979. #endif
  980. #line 122 "texts.mod"
  981. {
  982. #line 122 "texts.mod"
  983.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  984. #line 122 "texts.mod"
  985.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  986. #line 122 "texts.mod"
  987.   pOt__gc_ptrs.next = pOt__gc_root;
  988. #line 122 "texts.mod"
  989.   pOt__gc_strs.next = &pOt__gc_ptrs;
  990. #line 122 "texts.mod"
  991.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  992. #line 122 "texts.mod"
  993.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  994. #line 122 "texts.mod"
  995.   pOt__gc_ptrs.vars[0x0]=&pOt_T;
  996. #line 122 "texts.mod"
  997.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  998. #line 122 "texts.mod"
  999.  
  1000. #line 122 "texts.mod"
  1001.   pOt_OpenReader_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),(struct pOt__tag_1_Files*)(pOt_T),(pOt_LONGINT)(pOt_pos));
  1002. #line 122 "texts.mod"
  1003.   (*pOt_S).pOt_line=(pOt_INTEGER)(0);
  1004. #line 122 "texts.mod"
  1005.   (*pOt_S).pOt_nextCh=' ';
  1006.  
  1007. #line 123 "texts.mod"
  1008. pOt__Epilogue:;
  1009. #line 123 "texts.mod"
  1010.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1011. #line 123 "texts.mod"
  1012. }
  1013. #line 123 "texts.mod"
  1014.  
  1015. #line 123 "texts.mod"
  1016.  
  1017. #line 138 "texts.mod"
  1018. struct pOt__tag_6_Texts {
  1019. #line 138 "texts.mod"
  1020.   pOt__ArrTypDsc *td;
  1021. #line 138 "texts.mod"
  1022.   pOt_CHAR arr[0x20L];
  1023. #line 138 "texts.mod"
  1024. } ;
  1025. #line 138 "texts.mod"
  1026. static pOt__ArrTypDsc pOt__td_6_Texts= {
  1027. #line 138 "texts.mod"
  1028.   1,
  1029. #line 138 "texts.mod"
  1030.   0x20L, sizeof(pOt_CHAR)
  1031. #line 138 "texts.mod"
  1032. };
  1033. #line 138 "texts.mod"
  1034.  
  1035. #line 138 "texts.mod"
  1036. static struct pOt__tag_4_Texts *pOt_S_Scan_Texts;
  1037. #line 138 "texts.mod"
  1038. static pOt_CHAR (*pOt_ch_Scan_Texts), (*pOt_term_Scan_Texts);
  1039. #line 138 "texts.mod"
  1040. static pOt_BOOLEAN (*pOt_neg_Scan_Texts), (*pOt_negE_Scan_Texts), (*pOt_hex_Scan_Texts);
  1041. #line 138 "texts.mod"
  1042. static pOt_SHORTINT (*pOt_i_Scan_Texts), (*pOt_j_Scan_Texts), (*pOt_h_Scan_Texts);
  1043. #line 138 "texts.mod"
  1044. static pOt_INTEGER (*pOt_e_Scan_Texts);
  1045. #line 138 "texts.mod"
  1046. static pOt_LONGINT (*pOt_k_Scan_Texts);
  1047. #line 138 "texts.mod"
  1048. static pOt_REAL (*pOt_x_Scan_Texts), (*pOt_f_Scan_Texts);
  1049. #line 138 "texts.mod"
  1050. static pOt_LONGREAL (*pOt_y_Scan_Texts), (*pOt_g_Scan_Texts);
  1051. #line 138 "texts.mod"
  1052. static struct pOt__tag_6_Texts (*pOt_d_Scan_Texts);
  1053. #line 138 "texts.mod"
  1054.  
  1055. #line 138 "texts.mod"
  1056. extern void pOt_Scan_Texts pOt__ARGS((struct pOt__tag_4_Texts *));
  1057. #line 138 "texts.mod"
  1058.  
  1059. #line 138 "texts.mod"
  1060.  
  1061.  
  1062. #line 139 "texts.mod"
  1063.  
  1064. #line 139 "texts.mod"
  1065. static void pOt_ReadScaleFactor_Scan_Texts()
  1066. #line 139 "texts.mod"
  1067. {
  1068. #line 139 "texts.mod"
  1069.   struct {void*next;} pOt__gc_ptrs;
  1070. #line 139 "texts.mod"
  1071.   pOt__gc_ptrs.next = pOt__gc_root;
  1072. #line 139 "texts.mod"
  1073.  
  1074. #line 139 "texts.mod"
  1075.   pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S_Scan_Texts),&(*pOt_ch_Scan_Texts));
  1076. #line 139 "texts.mod"
  1077.   if(((unsigned char) (*pOt_ch_Scan_Texts)==(unsigned char)'-')) {
  1078.     (*pOt_negE_Scan_Texts)=(pOt_BOOLEAN)1;
  1079. #line 140 "texts.mod"
  1080.     pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S_Scan_Texts),&(*pOt_ch_Scan_Texts));
  1081.   } else {
  1082. #line 141 "texts.mod"
  1083.     (*pOt_negE_Scan_Texts)=(pOt_BOOLEAN)0;
  1084. #line 141 "texts.mod"
  1085.     if(((unsigned char) (*pOt_ch_Scan_Texts)==(unsigned char)'+')) {
  1086.       pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S_Scan_Texts),&(*pOt_ch_Scan_Texts));
  1087. #line 142 "texts.mod"
  1088.     }
  1089. #line 142 "texts.mod"
  1090.   }
  1091.   for(;;) {
  1092.     if(((((unsigned char)'0'<=(unsigned char)(*pOt_ch_Scan_Texts)))&&(((unsigned char)(*pOt_ch_Scan_Texts)<=(unsigned char)'9')))); else break;
  1093. #line 144 "texts.mod"
  1094.     (*pOt_e_Scan_Texts)=(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_e_Scan_Texts)),(pOt_LONGINT)(10),5)),(pOt_LONGINT)((pOt_INTEGER)((unsigned char)(*pOt_ch_Scan_Texts))),5)),(pOt_LONGINT)(48),5));
  1095.     pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S_Scan_Texts),&(*pOt_ch_Scan_Texts));
  1096.   }
  1097. #line 146 "texts.mod"
  1098.  
  1099. pOt__Epilogue:;
  1100. #line 147 "texts.mod"
  1101.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1102. #line 147 "texts.mod"
  1103. }
  1104. #line 147 "texts.mod"
  1105.  
  1106. #line 147 "texts.mod"
  1107. extern void pOt_Scan_Texts
  1108. #line 149 "texts.mod"
  1109. #if pOt__ANSI_C
  1110. #line 149 "texts.mod"
  1111.   (struct pOt__tag_4_Texts *pOt_S)
  1112. #line 149 "texts.mod"
  1113. #else
  1114. #line 149 "texts.mod"
  1115.   (pOt_S)
  1116. #line 149 "texts.mod"
  1117.   struct pOt__tag_4_Texts *pOt_S;
  1118. #line 149 "texts.mod"
  1119.  
  1120. #line 149 "texts.mod"
  1121. #endif
  1122. #line 149 "texts.mod"
  1123. {
  1124. #line 149 "texts.mod"
  1125.   struct pOt__tag_4_Texts *pOt_S_;
  1126. #line 149 "texts.mod"
  1127.   pOt_CHAR pOt_ch, (*pOt_ch_), pOt_term, (*pOt_term_);
  1128. #line 149 "texts.mod"
  1129.   pOt_BOOLEAN pOt_neg, (*pOt_neg_), pOt_negE, (*pOt_negE_), pOt_hex, (*pOt_hex_);
  1130. #line 149 "texts.mod"
  1131.   pOt_SHORTINT pOt_i, (*pOt_i_), pOt_j, (*pOt_j_), pOt_h, (*pOt_h_);
  1132. #line 149 "texts.mod"
  1133.   pOt_INTEGER pOt_e, (*pOt_e_);
  1134. #line 149 "texts.mod"
  1135.   pOt_LONGINT pOt_k, (*pOt_k_);
  1136. #line 149 "texts.mod"
  1137.   pOt_REAL pOt_x, (*pOt_x_), pOt_f, (*pOt_f_);
  1138. #line 149 "texts.mod"
  1139.   pOt_LONGREAL pOt_y, (*pOt_y_), pOt_g, (*pOt_g_);
  1140. #line 149 "texts.mod"
  1141.   struct pOt__tag_6_Texts pOt_d, (*pOt_d_);
  1142. #line 149 "texts.mod"
  1143.   struct {void*next;} pOt__gc_ptrs;
  1144. #line 149 "texts.mod"
  1145.   pOt__gc_ptrs.next = pOt__gc_root;
  1146. #line 149 "texts.mod"
  1147.   pOt_S_=pOt_S_Scan_Texts;
  1148. #line 149 "texts.mod"
  1149.   pOt_S_Scan_Texts=pOt_S;
  1150. #line 149 "texts.mod"
  1151.   pOt_ch_=pOt_ch_Scan_Texts;
  1152. #line 149 "texts.mod"
  1153.   pOt_ch_Scan_Texts=&pOt_ch;
  1154. #line 149 "texts.mod"
  1155.   pOt_term_=pOt_term_Scan_Texts;
  1156. #line 149 "texts.mod"
  1157.   pOt_term_Scan_Texts=&pOt_term;
  1158. #line 149 "texts.mod"
  1159.   pOt_neg_=pOt_neg_Scan_Texts;
  1160. #line 149 "texts.mod"
  1161.   pOt_neg_Scan_Texts=&pOt_neg;
  1162. #line 149 "texts.mod"
  1163.   pOt_negE_=pOt_negE_Scan_Texts;
  1164. #line 149 "texts.mod"
  1165.   pOt_negE_Scan_Texts=&pOt_negE;
  1166. #line 149 "texts.mod"
  1167.   pOt_hex_=pOt_hex_Scan_Texts;
  1168. #line 149 "texts.mod"
  1169.   pOt_hex_Scan_Texts=&pOt_hex;
  1170. #line 149 "texts.mod"
  1171.   pOt_i_=pOt_i_Scan_Texts;
  1172. #line 149 "texts.mod"
  1173.   pOt_i_Scan_Texts=&pOt_i;
  1174. #line 149 "texts.mod"
  1175.   pOt_j_=pOt_j_Scan_Texts;
  1176. #line 149 "texts.mod"
  1177.   pOt_j_Scan_Texts=&pOt_j;
  1178. #line 149 "texts.mod"
  1179.   pOt_h_=pOt_h_Scan_Texts;
  1180. #line 149 "texts.mod"
  1181.   pOt_h_Scan_Texts=&pOt_h;
  1182. #line 149 "texts.mod"
  1183.   pOt_e_=pOt_e_Scan_Texts;
  1184. #line 149 "texts.mod"
  1185.   pOt_e_Scan_Texts=&pOt_e;
  1186. #line 149 "texts.mod"
  1187.   pOt_k_=pOt_k_Scan_Texts;
  1188. #line 149 "texts.mod"
  1189.   pOt_k_Scan_Texts=&pOt_k;
  1190. #line 149 "texts.mod"
  1191.   pOt_x_=pOt_x_Scan_Texts;
  1192. #line 149 "texts.mod"
  1193.   pOt_x_Scan_Texts=&pOt_x;
  1194. #line 149 "texts.mod"
  1195.   pOt_f_=pOt_f_Scan_Texts;
  1196. #line 149 "texts.mod"
  1197.   pOt_f_Scan_Texts=&pOt_f;
  1198. #line 149 "texts.mod"
  1199.   pOt_y_=pOt_y_Scan_Texts;
  1200. #line 149 "texts.mod"
  1201.   pOt_y_Scan_Texts=&pOt_y;
  1202. #line 149 "texts.mod"
  1203.   pOt_g_=pOt_g_Scan_Texts;
  1204. #line 149 "texts.mod"
  1205.   pOt_g_Scan_Texts=&pOt_g;
  1206. #line 149 "texts.mod"
  1207.   pOt_d_=pOt_d_Scan_Texts;
  1208. #line 149 "texts.mod"
  1209.   pOt_d_Scan_Texts=&pOt_d;
  1210. #line 149 "texts.mod"
  1211.   pOt__init_var((pOt__TypDsc**)&pOt_d,(pOt__TypDsc*)&pOt__td_6_Texts);
  1212. #line 149 "texts.mod"
  1213.  
  1214. #line 149 "texts.mod"
  1215.   pOt_ch=(*pOt_S).pOt_nextCh;
  1216. #line 149 "texts.mod"
  1217.   pOt_i=0;
  1218. #line 149 "texts.mod"
  1219.   for(;;) {
  1220. #line 151 "texts.mod"
  1221.     if(((unsigned char) pOt_ch==(unsigned char)'\12')) {
  1222. #line 151 "texts.mod"
  1223.       (*pOt_S).pOt_line+=(1);
  1224.     } else if(((((unsigned char)pOt_ch!=(unsigned char)' '))&&(((unsigned char)pOt_ch!=(unsigned char)'\11')))) {
  1225. #line 152 "texts.mod"
  1226.       goto pOt__LoopLabel_1;
  1227.     }
  1228. #line 153 "texts.mod"
  1229.     pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1230. #line 155 "texts.mod"
  1231.   }
  1232. #line 155 "texts.mod"
  1233. pOt__LoopLabel_1:;
  1234. #line 155 "texts.mod"
  1235.   if(((((unsigned char)'A'<=(unsigned char)pOt__cap((unsigned char)pOt_ch)))&&(((unsigned char)pOt__cap((unsigned char)pOt_ch)<=(unsigned char)'Z')))) {
  1236. #line 157 "texts.mod"
  1237.     for(;;) {
  1238. #line 157 "texts.mod"
  1239.       (*pOt_S).pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]=pOt_ch;
  1240. #line 157 "texts.mod"
  1241.       pOt_i+=(1);
  1242. #line 157 "texts.mod"
  1243.       pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1244.       if(((((((unsigned char)pOt__cap((unsigned char)pOt_ch)>(unsigned char)'Z'))||((((unsigned char)'A'>(unsigned char)pOt__cap((unsigned char)pOt_ch)))&&(((unsigned char)pOt_ch>(unsigned char)'9'))))||((((unsigned char)'0'>(unsigned char)pOt_ch))&&(((unsigned char)pOt_ch!=(unsigned char)'.'))))||((pOt_i==31)))) break;
  1245. #line 161 "texts.mod"
  1246.     }
  1247. #line 161 "texts.mod"
  1248.     (*pOt_S).pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]='\0';
  1249.     (*pOt_S).pOt_len=pOt_i;
  1250. #line 162 "texts.mod"
  1251.     (*pOt_S).pOt_class=(pOt_INTEGER)(1);
  1252.   } else if(((unsigned char) pOt_ch==(unsigned char)'\"')) {
  1253.     pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1254. #line 164 "texts.mod"
  1255.     for(;;) {
  1256.       if((((((unsigned char)pOt_ch!=(unsigned char)'\"'))&&(((unsigned char)pOt_ch>=(unsigned char)' ')))&&((pOt_i!=31)))); else break;
  1257. #line 165 "texts.mod"
  1258.       (*pOt_S).pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]=pOt_ch;
  1259.       pOt_i+=(1);
  1260. #line 166 "texts.mod"
  1261.       pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1262.     }
  1263. #line 167 "texts.mod"
  1264.     (*pOt_S).pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]='\0';
  1265.     (*pOt_S).pOt_len=(pOt_SHORTINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),4);
  1266. #line 168 "texts.mod"
  1267.     pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1268. #line 168 "texts.mod"
  1269.     (*pOt_S).pOt_class=(pOt_INTEGER)(2);
  1270.   } else {
  1271.     if(((unsigned char) pOt_ch==(unsigned char)'-')) {
  1272. #line 170 "texts.mod"
  1273.       pOt_neg=(pOt_BOOLEAN)1;
  1274. #line 170 "texts.mod"
  1275.       pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1276. #line 170 "texts.mod"
  1277.     } else {
  1278. #line 170 "texts.mod"
  1279.       pOt_neg=(pOt_BOOLEAN)0;
  1280. #line 170 "texts.mod"
  1281.     }
  1282. #line 170 "texts.mod"
  1283.     if(((((unsigned char)'0'<=(unsigned char)pOt_ch))&&(((unsigned char)pOt_ch<=(unsigned char)'9')))) {
  1284. #line 172 "texts.mod"
  1285.       pOt_hex=(pOt_BOOLEAN)0;
  1286. #line 172 "texts.mod"
  1287.       pOt_j=0;
  1288. #line 172 "texts.mod"
  1289.       for(;;) {
  1290.         pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]=pOt_ch;
  1291. #line 173 "texts.mod"
  1292.         pOt_i+=(1);
  1293. #line 173 "texts.mod"
  1294.         pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1295. #line 173 "texts.mod"
  1296.         if(((unsigned char) pOt_ch<(unsigned char)'0')) {
  1297.           goto pOt__LoopLabel_2;
  1298. #line 174 "texts.mod"
  1299.         }
  1300. #line 174 "texts.mod"
  1301.         if(((unsigned char) '9'<(unsigned char)pOt_ch)) {
  1302. #line 176 "texts.mod"
  1303.           if(((((unsigned char)'A'<=(unsigned char)pOt_ch))&&(((unsigned char)pOt_ch<=(unsigned char)'F')))) {
  1304. #line 176 "texts.mod"
  1305.             pOt_hex=(pOt_BOOLEAN)1;
  1306. #line 176 "texts.mod"
  1307.             pOt_ch=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_ch)),(pOt_LONGINT)(7),5)));
  1308.           } else if(((((unsigned char)'a'<=(unsigned char)pOt_ch))&&(((unsigned char)pOt_ch<=(unsigned char)'f')))) {
  1309. #line 177 "texts.mod"
  1310.             pOt_hex=(pOt_BOOLEAN)1;
  1311. #line 177 "texts.mod"
  1312.             pOt_ch=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_ch)),(pOt_LONGINT)(39),5)));
  1313.           } else {
  1314. #line 178 "texts.mod"
  1315.             goto pOt__LoopLabel_2;
  1316.           }
  1317. #line 179 "texts.mod"
  1318.         }
  1319.       }
  1320.     pOt__LoopLabel_2:;
  1321. #line 181 "texts.mod"
  1322.       if(((unsigned char) pOt_ch==(unsigned char)'H')) {
  1323. #line 183 "texts.mod"
  1324.         pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1325. #line 183 "texts.mod"
  1326.         (*pOt_S).pOt_class=(pOt_INTEGER)(3);
  1327. #line 183 "texts.mod"
  1328.         if(( (pOt_SHORTINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(pOt_j),4)>8)) {
  1329.           pOt_j=(pOt_SHORTINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(8),4);
  1330. #line 184 "texts.mod"
  1331.         }
  1332. #line 184 "texts.mod"
  1333.         pOt_k=(pOt_LONGINT)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5));
  1334.         pOt_j+=(1);
  1335. #line 185 "texts.mod"
  1336.         if(((((pOt_SHORTINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(pOt_j),4)==7))&&((pOt_k>=((pOt_LONGINT)(8)))))) {
  1337.           pOt_k-=(16);
  1338. #line 186 "texts.mod"
  1339.         }
  1340. #line 186 "texts.mod"
  1341.         for(;;) {
  1342.           if(( pOt_j<pOt_i)); else break;
  1343. #line 187 "texts.mod"
  1344.           pOt_k=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(16),6)),(pOt_LONGINT)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5))),6));
  1345. #line 187 "texts.mod"
  1346.           pOt_j+=(1);
  1347. #line 187 "texts.mod"
  1348.         }
  1349. #line 187 "texts.mod"
  1350.         if(pOt_neg) {
  1351.           (*pOt_S).pOt_i=(pOt_LONGINT)(-pOt_k);
  1352. #line 188 "texts.mod"
  1353.         } else {
  1354. #line 188 "texts.mod"
  1355.           (*pOt_S).pOt_i=(pOt_LONGINT)(pOt_k);
  1356. #line 188 "texts.mod"
  1357.         }
  1358. #line 188 "texts.mod"
  1359.       } else if(((unsigned char) pOt_ch==(unsigned char)'.')) {
  1360. #line 190 "texts.mod"
  1361.         pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1362. #line 190 "texts.mod"
  1363.         pOt_h=pOt_i;
  1364. #line 190 "texts.mod"
  1365.         for(;;) {
  1366.           if(((((unsigned char)'0'<=(unsigned char)pOt_ch))&&(((unsigned char)pOt_ch<=(unsigned char)'9')))); else break;
  1367. #line 191 "texts.mod"
  1368.           pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]=pOt_ch;
  1369. #line 191 "texts.mod"
  1370.           pOt_i+=(1);
  1371. #line 191 "texts.mod"
  1372.           pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1373. #line 191 "texts.mod"
  1374.         }
  1375. #line 191 "texts.mod"
  1376.         if(((unsigned char) pOt_ch==(unsigned char)'D')) {
  1377. #line 193 "texts.mod"
  1378.           pOt_e=(pOt_INTEGER)(0);
  1379. #line 193 "texts.mod"
  1380.           pOt_y=(pOt_LONGREAL)(0);
  1381. #line 193 "texts.mod"
  1382.           pOt_g=(pOt_LONGREAL)(1);
  1383. #line 193 "texts.mod"
  1384.           for(;;) {
  1385.             pOt_y=(pOt_LONGREAL)(pOt_y*((pOt_LONGREAL)(10))+((pOt_LONGREAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5)))));
  1386. #line 194 "texts.mod"
  1387.             pOt_j+=(1);
  1388. #line 194 "texts.mod"
  1389.             if(( pOt_j==pOt_h)) break;
  1390. #line 194 "texts.mod"
  1391.           }
  1392. #line 194 "texts.mod"
  1393.           for(;;) {
  1394.             if(( pOt_j<pOt_i)); else break;
  1395. #line 195 "texts.mod"
  1396.             pOt_g=(pOt_LONGREAL)(pOt_g/((pOt_LONGREAL)(10)));
  1397. #line 195 "texts.mod"
  1398.             pOt_y=(pOt_LONGREAL)(((pOt_LONGREAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5))))*pOt_g+pOt_y);
  1399. #line 195 "texts.mod"
  1400.             pOt_j+=(1);
  1401. #line 195 "texts.mod"
  1402.           }
  1403. #line 195 "texts.mod"
  1404.           pOt_ReadScaleFactor_Scan_Texts();
  1405.           if(pOt_negE) {
  1406. #line 198 "texts.mod"
  1407.             if(( pOt_e<=308)) {
  1408. #line 198 "texts.mod"
  1409.               pOt_y=(pOt_LONGREAL)(pOt_y/pOt_TenL_Reals((pOt_INTEGER)(pOt_e)));
  1410. #line 198 "texts.mod"
  1411.             } else {
  1412. #line 198 "texts.mod"
  1413.               pOt_y=(pOt_LONGREAL)(0);
  1414. #line 198 "texts.mod"
  1415.             }
  1416. #line 198 "texts.mod"
  1417.           } else if(( pOt_e>((pOt_INTEGER)(0)))) {
  1418. #line 200 "texts.mod"
  1419.             if(( pOt_e<=308)) {
  1420. #line 200 "texts.mod"
  1421.               pOt_y=(pOt_LONGREAL)(pOt_TenL_Reals((pOt_INTEGER)(pOt_e))*pOt_y);
  1422. #line 200 "texts.mod"
  1423.             } else {
  1424. #line 200 "texts.mod"
  1425.               pOt__halt(__FILE__,__LINE__,40);
  1426. #line 200 "texts.mod"
  1427.             }
  1428. #line 200 "texts.mod"
  1429.           }
  1430.           if(pOt_neg) {
  1431.             pOt_y=(pOt_LONGREAL)(-pOt_y);
  1432. #line 202 "texts.mod"
  1433.           }
  1434. #line 202 "texts.mod"
  1435.           (*pOt_S).pOt_class=(pOt_INTEGER)(5);
  1436.           (*pOt_S).pOt_y=(pOt_LONGREAL)(pOt_y);
  1437.         } else {
  1438. #line 204 "texts.mod"
  1439.           pOt_e=(pOt_INTEGER)(0);
  1440. #line 204 "texts.mod"
  1441.           pOt_x=(pOt_REAL)(0);
  1442. #line 204 "texts.mod"
  1443.           pOt_f=(pOt_REAL)(1);
  1444. #line 204 "texts.mod"
  1445.           for(;;) {
  1446.             pOt_x=(pOt_REAL)(pOt_x*((pOt_REAL)(10))+((pOt_REAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5)))));
  1447. #line 205 "texts.mod"
  1448.             pOt_j+=(1);
  1449. #line 205 "texts.mod"
  1450.             if(( pOt_j==pOt_h)) break;
  1451. #line 205 "texts.mod"
  1452.           }
  1453. #line 205 "texts.mod"
  1454.           for(;;) {
  1455.             if(( pOt_j<pOt_i)); else break;
  1456. #line 206 "texts.mod"
  1457.             pOt_f=(pOt_REAL)(pOt_f/((pOt_REAL)(10)));
  1458. #line 206 "texts.mod"
  1459.             pOt_x=(pOt_REAL)(((pOt_REAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5))))*pOt_f+pOt_x);
  1460. #line 206 "texts.mod"
  1461.             pOt_j+=(1);
  1462. #line 206 "texts.mod"
  1463.           }
  1464. #line 206 "texts.mod"
  1465.           if(((unsigned char) pOt_ch==(unsigned char)'E')) {
  1466.             pOt_ReadScaleFactor_Scan_Texts();
  1467. #line 207 "texts.mod"
  1468.           }
  1469. #line 207 "texts.mod"
  1470.           if(pOt_negE) {
  1471. #line 209 "texts.mod"
  1472.             if(( pOt_e<=((pOt_INTEGER)(38)))) {
  1473. #line 209 "texts.mod"
  1474.               pOt_x=(pOt_REAL)(pOt_x/pOt_Ten_Reals((pOt_INTEGER)(pOt_e)));
  1475. #line 209 "texts.mod"
  1476.             } else {
  1477. #line 209 "texts.mod"
  1478.               pOt_x=(pOt_REAL)(0);
  1479. #line 209 "texts.mod"
  1480.             }
  1481. #line 209 "texts.mod"
  1482.           } else if(( pOt_e>((pOt_INTEGER)(0)))) {
  1483. #line 211 "texts.mod"
  1484.             if(( pOt_e<=((pOt_INTEGER)(38)))) {
  1485. #line 211 "texts.mod"
  1486.               pOt_x=(pOt_REAL)(pOt_Ten_Reals((pOt_INTEGER)(pOt_e))*pOt_x);
  1487. #line 211 "texts.mod"
  1488.             } else {
  1489. #line 211 "texts.mod"
  1490.               pOt__halt(__FILE__,__LINE__,40);
  1491. #line 211 "texts.mod"
  1492.             }
  1493. #line 211 "texts.mod"
  1494.           }
  1495.           if(pOt_neg) {
  1496.             pOt_x=(pOt_REAL)(-pOt_x);
  1497. #line 213 "texts.mod"
  1498.           }
  1499. #line 213 "texts.mod"
  1500.           (*pOt_S).pOt_class=(pOt_INTEGER)(4);
  1501.           (*pOt_S).pOt_x=(pOt_REAL)(pOt_x);
  1502.         }
  1503. #line 215 "texts.mod"
  1504.         if(pOt_hex) {
  1505.           (*pOt_S).pOt_class=(pOt_INTEGER)(0);
  1506. #line 216 "texts.mod"
  1507.         }
  1508. #line 216 "texts.mod"
  1509.       } else {
  1510. #line 218 "texts.mod"
  1511.         (*pOt_S).pOt_class=(pOt_INTEGER)(3);
  1512. #line 218 "texts.mod"
  1513.         pOt_k=(pOt_LONGINT)(0);
  1514. #line 218 "texts.mod"
  1515.         for(;;) {
  1516.           pOt_k=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(10),6)),(pOt_LONGINT)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5))),6));
  1517. #line 219 "texts.mod"
  1518.           pOt_j+=(1);
  1519. #line 219 "texts.mod"
  1520.           if(( pOt_j==pOt_i)) break;
  1521. #line 219 "texts.mod"
  1522.         }
  1523. #line 219 "texts.mod"
  1524.         if(pOt_neg) {
  1525.           (*pOt_S).pOt_i=(pOt_LONGINT)(-pOt_k);
  1526. #line 220 "texts.mod"
  1527.         } else {
  1528. #line 220 "texts.mod"
  1529.           (*pOt_S).pOt_i=(pOt_LONGINT)(pOt_k);
  1530. #line 220 "texts.mod"
  1531.         }
  1532. #line 220 "texts.mod"
  1533.         if(pOt_hex) {
  1534.           (*pOt_S).pOt_class=(pOt_INTEGER)(0);
  1535. #line 221 "texts.mod"
  1536.         } else {
  1537. #line 221 "texts.mod"
  1538.           (*pOt_S).pOt_class=(pOt_INTEGER)(3);
  1539. #line 221 "texts.mod"
  1540.         }
  1541. #line 221 "texts.mod"
  1542.       }
  1543.     } else {
  1544.       (*pOt_S).pOt_class=(pOt_INTEGER)(6);
  1545. #line 223 "texts.mod"
  1546.       if(pOt_neg) {
  1547.         (*pOt_S).pOt_c='-';
  1548. #line 224 "texts.mod"
  1549.       } else {
  1550. #line 224 "texts.mod"
  1551.         (*pOt_S).pOt_c=pOt_ch;
  1552. #line 224 "texts.mod"
  1553.         pOt_Read_Texts((struct pOt__tag_2_Texts*)&(*pOt_S),&pOt_ch);
  1554. #line 224 "texts.mod"
  1555.       }
  1556. #line 224 "texts.mod"
  1557.     }
  1558.   }
  1559.   (*pOt_S).pOt_nextCh=pOt_ch;
  1560. #line 228 "texts.mod"
  1561.  
  1562. #line 228 "texts.mod"
  1563. pOt__Epilogue:;
  1564. #line 228 "texts.mod"
  1565.   pOt_S_Scan_Texts=pOt_S_;
  1566. #line 228 "texts.mod"
  1567.   pOt_ch_Scan_Texts=pOt_ch_;
  1568. #line 228 "texts.mod"
  1569.   pOt_term_Scan_Texts=pOt_term_;
  1570. #line 228 "texts.mod"
  1571.   pOt_neg_Scan_Texts=pOt_neg_;
  1572. #line 228 "texts.mod"
  1573.   pOt_negE_Scan_Texts=pOt_negE_;
  1574. #line 228 "texts.mod"
  1575.   pOt_hex_Scan_Texts=pOt_hex_;
  1576. #line 228 "texts.mod"
  1577.   pOt_i_Scan_Texts=pOt_i_;
  1578. #line 228 "texts.mod"
  1579.   pOt_j_Scan_Texts=pOt_j_;
  1580. #line 228 "texts.mod"
  1581.   pOt_h_Scan_Texts=pOt_h_;
  1582. #line 228 "texts.mod"
  1583.   pOt_e_Scan_Texts=pOt_e_;
  1584. #line 228 "texts.mod"
  1585.   pOt_k_Scan_Texts=pOt_k_;
  1586. #line 228 "texts.mod"
  1587.   pOt_x_Scan_Texts=pOt_x_;
  1588. #line 228 "texts.mod"
  1589.   pOt_f_Scan_Texts=pOt_f_;
  1590. #line 228 "texts.mod"
  1591.   pOt_y_Scan_Texts=pOt_y_;
  1592. #line 228 "texts.mod"
  1593.   pOt_g_Scan_Texts=pOt_g_;
  1594. #line 228 "texts.mod"
  1595.   pOt_d_Scan_Texts=pOt_d_;
  1596. #line 228 "texts.mod"
  1597.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1598. #line 228 "texts.mod"
  1599. }
  1600. #line 228 "texts.mod"
  1601.  
  1602. #line 228 "texts.mod"
  1603.  
  1604. #line 233 "texts.mod"
  1605.  
  1606. #line 233 "texts.mod"
  1607.  
  1608. #line 233 "texts.mod"
  1609. extern void pOt_OpenWriter_Texts
  1610. #line 233 "texts.mod"
  1611. #if pOt__ANSI_C
  1612. #line 233 "texts.mod"
  1613.   (struct pOt__tag_5_Texts *pOt_W)
  1614. #line 233 "texts.mod"
  1615. #else
  1616. #line 233 "texts.mod"
  1617.   (pOt_W)
  1618. #line 233 "texts.mod"
  1619.   struct pOt__tag_5_Texts *pOt_W;
  1620. #line 233 "texts.mod"
  1621.  
  1622. #line 233 "texts.mod"
  1623. #endif
  1624. #line 233 "texts.mod"
  1625. {
  1626. #line 233 "texts.mod"
  1627.   struct {void*next;} pOt__gc_ptrs;
  1628. #line 233 "texts.mod"
  1629.   pOt__gc_ptrs.next = pOt__gc_root;
  1630. #line 233 "texts.mod"
  1631.  
  1632. #line 233 "texts.mod"
  1633.   pOt_OpenBuf_Texts(&(*pOt_W).pOt_buf);
  1634.  
  1635. #line 234 "texts.mod"
  1636. pOt__Epilogue:;
  1637. #line 234 "texts.mod"
  1638.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1639. #line 234 "texts.mod"
  1640. }
  1641. #line 234 "texts.mod"
  1642.  
  1643. #line 234 "texts.mod"
  1644.  
  1645. #line 238 "texts.mod"
  1646.  
  1647. #line 238 "texts.mod"
  1648.  
  1649. #line 238 "texts.mod"
  1650. extern void pOt_Write_Texts
  1651. #line 238 "texts.mod"
  1652. #if pOt__ANSI_C
  1653. #line 238 "texts.mod"
  1654.   (struct pOt__tag_5_Texts *pOt_W, pOt_CHAR pOt_ch)
  1655. #line 238 "texts.mod"
  1656. #else
  1657. #line 238 "texts.mod"
  1658.   (pOt_W, pOt_ch)
  1659. #line 238 "texts.mod"
  1660.   struct pOt__tag_5_Texts *pOt_W;
  1661. #line 238 "texts.mod"
  1662.   pOt_CHAR pOt_ch;
  1663. #line 238 "texts.mod"
  1664.  
  1665. #line 238 "texts.mod"
  1666. #endif
  1667. #line 238 "texts.mod"
  1668. {
  1669. #line 238 "texts.mod"
  1670.   pOt_Buffer_Texts pOt_B;
  1671. #line 238 "texts.mod"
  1672.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  1673. #line 238 "texts.mod"
  1674.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  1675. #line 238 "texts.mod"
  1676.   pOt__gc_ptrs.next = pOt__gc_root;
  1677. #line 238 "texts.mod"
  1678.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1679. #line 238 "texts.mod"
  1680.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  1681. #line 238 "texts.mod"
  1682.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  1683. #line 238 "texts.mod"
  1684.   pOt__gc_ptrs.vars[0x0]=&pOt_B;
  1685. #line 238 "texts.mod"
  1686.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1687. #line 238 "texts.mod"
  1688.   pOt_B=pOt_NIL;
  1689. #line 238 "texts.mod"
  1690.  
  1691. #line 238 "texts.mod"
  1692.   if(( (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_W).pOt_buf))).pOt_len==((pOt_LONGINT)(512)))) {
  1693. #line 238 "texts.mod"
  1694.     pOt_OpenBuf_Texts(&pOt_B);
  1695. #line 238 "texts.mod"
  1696.     (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,pOt_B))).pOt_next=(struct pOt__tag_1_Texts*)((*pOt_W).pOt_buf);
  1697. #line 238 "texts.mod"
  1698.     (*pOt_W).pOt_buf=(struct pOt__tag_1_Texts*)(pOt_B);
  1699. #line 238 "texts.mod"
  1700.   }
  1701. #line 238 "texts.mod"
  1702.   (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_W).pOt_buf))).pOt_data.arr[pOt__inxchk(__FILE__,__LINE__,0x200, (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_W).pOt_buf))).pOt_len)]=pOt_ch;
  1703.   (*((struct pOt__tag_1_Texts*)pOt__nilchk(__FILE__,__LINE__,(*pOt_W).pOt_buf))).pOt_len+=(1);
  1704.  
  1705. #line 240 "texts.mod"
  1706. pOt__Epilogue:;
  1707. #line 240 "texts.mod"
  1708.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1709. #line 240 "texts.mod"
  1710. }
  1711. #line 240 "texts.mod"
  1712.  
  1713. #line 240 "texts.mod"
  1714.  
  1715. #line 243 "texts.mod"
  1716.  
  1717. #line 243 "texts.mod"
  1718.  
  1719. #line 243 "texts.mod"
  1720. extern void pOt_WriteLn_Texts
  1721. #line 243 "texts.mod"
  1722. #if pOt__ANSI_C
  1723. #line 243 "texts.mod"
  1724.   (struct pOt__tag_5_Texts *pOt_W)
  1725. #line 243 "texts.mod"
  1726. #else
  1727. #line 243 "texts.mod"
  1728.   (pOt_W)
  1729. #line 243 "texts.mod"
  1730.   struct pOt__tag_5_Texts *pOt_W;
  1731. #line 243 "texts.mod"
  1732.  
  1733. #line 243 "texts.mod"
  1734. #endif
  1735. #line 243 "texts.mod"
  1736. {
  1737. #line 243 "texts.mod"
  1738.   struct {void*next;} pOt__gc_ptrs;
  1739. #line 243 "texts.mod"
  1740.   pOt__gc_ptrs.next = pOt__gc_root;
  1741. #line 243 "texts.mod"
  1742.  
  1743. #line 243 "texts.mod"
  1744.   pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'\12');
  1745.  
  1746. #line 244 "texts.mod"
  1747. pOt__Epilogue:;
  1748. #line 244 "texts.mod"
  1749.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1750. #line 244 "texts.mod"
  1751. }
  1752. #line 244 "texts.mod"
  1753.  
  1754. #line 244 "texts.mod"
  1755.  
  1756. #line 248 "texts.mod"
  1757.  
  1758. #line 248 "texts.mod"
  1759.  
  1760. #line 248 "texts.mod"
  1761. extern void pOt_WriteString_Texts
  1762. #line 248 "texts.mod"
  1763. #if pOt__ANSI_C
  1764. #line 248 "texts.mod"
  1765.   (struct pOt__tag_5_Texts *pOt_W, pOt__DynArr *pOt_s)
  1766. #line 248 "texts.mod"
  1767. #else
  1768. #line 248 "texts.mod"
  1769.   (pOt_W, pOt_s)
  1770. #line 248 "texts.mod"
  1771.   struct pOt__tag_5_Texts *pOt_W;
  1772. #line 248 "texts.mod"
  1773.   pOt__DynArr *pOt_s;
  1774. #line 248 "texts.mod"
  1775.  
  1776. #line 248 "texts.mod"
  1777. #endif
  1778. #line 248 "texts.mod"
  1779. {
  1780. #line 248 "texts.mod"
  1781.   pOt_INTEGER pOt_i;
  1782. #line 248 "texts.mod"
  1783.   struct {void*next;} pOt__gc_ptrs;
  1784. #line 248 "texts.mod"
  1785.   pOt__gc_ptrs.next = pOt__gc_root;
  1786. #line 248 "texts.mod"
  1787.  
  1788. #line 248 "texts.mod"
  1789.   pOt_i=(pOt_INTEGER)(0);
  1790. #line 248 "texts.mod"
  1791.   for(;;) {
  1792.     if(((unsigned char) (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))))>=(unsigned char)' ')); else break;
  1793. #line 249 "texts.mod"
  1794.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i))))));
  1795. #line 249 "texts.mod"
  1796.     pOt_i+=(1);
  1797. #line 249 "texts.mod"
  1798.   }
  1799. #line 249 "texts.mod"
  1800.  
  1801. pOt__Epilogue:;
  1802. #line 250 "texts.mod"
  1803.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1804. #line 250 "texts.mod"
  1805.   pOt__rm_par((pOt__TypDsc**)pOt_s);
  1806. #line 250 "texts.mod"
  1807. }
  1808. #line 250 "texts.mod"
  1809.  
  1810. #line 250 "texts.mod"
  1811.  
  1812. #line 255 "texts.mod"
  1813. struct pOt__tag_7_Texts {
  1814. #line 255 "texts.mod"
  1815.   pOt__ArrTypDsc *td;
  1816. #line 255 "texts.mod"
  1817.   pOt_CHAR arr[0xBL];
  1818. #line 255 "texts.mod"
  1819. } ;
  1820. #line 255 "texts.mod"
  1821. static pOt__ArrTypDsc pOt__td_7_Texts= {
  1822. #line 255 "texts.mod"
  1823.   1,
  1824. #line 255 "texts.mod"
  1825.   0xBL, sizeof(pOt_CHAR)
  1826. #line 255 "texts.mod"
  1827. };
  1828. #line 255 "texts.mod"
  1829.  
  1830. #line 255 "texts.mod"
  1831.  
  1832. #line 255 "texts.mod"
  1833. extern void pOt_WriteInt_Texts
  1834. #line 255 "texts.mod"
  1835. #if pOt__ANSI_C
  1836. #line 255 "texts.mod"
  1837.   (struct pOt__tag_5_Texts *pOt_W, pOt_LONGINT pOt_x, pOt_LONGINT pOt_n)
  1838. #line 255 "texts.mod"
  1839. #else
  1840. #line 255 "texts.mod"
  1841.   (pOt_W, pOt_x, pOt_n)
  1842. #line 255 "texts.mod"
  1843.   struct pOt__tag_5_Texts *pOt_W;
  1844. #line 255 "texts.mod"
  1845.   pOt_LONGINT pOt_x, pOt_n;
  1846. #line 255 "texts.mod"
  1847.  
  1848. #line 255 "texts.mod"
  1849. #endif
  1850. #line 255 "texts.mod"
  1851. {
  1852. #line 255 "texts.mod"
  1853.   pOt_INTEGER pOt_i;
  1854. #line 255 "texts.mod"
  1855.   pOt_LONGINT pOt_x0;
  1856. #line 255 "texts.mod"
  1857.   struct pOt__tag_7_Texts pOt_a;
  1858. #line 255 "texts.mod"
  1859.   struct {void*next;} pOt__gc_ptrs;
  1860. #line 255 "texts.mod"
  1861.   pOt__gc_ptrs.next = pOt__gc_root;
  1862. #line 255 "texts.mod"
  1863.   pOt__init_var((pOt__TypDsc**)&pOt_a,(pOt__TypDsc*)&pOt__td_7_Texts);
  1864. #line 255 "texts.mod"
  1865.  
  1866. #line 255 "texts.mod"
  1867.   pOt_i=(pOt_INTEGER)(0);
  1868. #line 255 "texts.mod"
  1869.   if(( pOt_x<((pOt_LONGINT)(0)))) {
  1870. #line 257 "texts.mod"
  1871.     if(( pOt_x==(pOt_LONGINT)0x80000000L)) {
  1872. #line 257 "texts.mod"
  1873.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0xC]))));
  1874. #line 257 "texts.mod"
  1875.       goto pOt__Epilogue;
  1876.     } else {
  1877. #line 258 "texts.mod"
  1878.       pOt_n-=(1);
  1879. #line 258 "texts.mod"
  1880.       pOt_x0=(pOt_LONGINT)(-pOt_x);
  1881.     }
  1882. #line 259 "texts.mod"
  1883.   } else {
  1884.     pOt_x0=(pOt_LONGINT)(pOt_x);
  1885.   }
  1886. #line 261 "texts.mod"
  1887.   for(;;) {
  1888. #line 263 "texts.mod"
  1889.     pOt_a.arr[pOt__inxchk(__FILE__,__LINE__,0xB, pOt_i)]=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_x0),(pOt_LONGINT)(10),6)),(pOt_LONGINT)(48),6)));
  1890. #line 263 "texts.mod"
  1891.     pOt_x0=(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_x0),(pOt_LONGINT)(10),6));
  1892. #line 263 "texts.mod"
  1893.     pOt_i+=(1);
  1894.     if(( pOt_x0==((pOt_LONGINT)(0)))) break;
  1895. #line 264 "texts.mod"
  1896.   }
  1897. #line 264 "texts.mod"
  1898.   for(;;) {
  1899.     if(( pOt_n>((pOt_LONGINT)(pOt_i)))); else break;
  1900. #line 265 "texts.mod"
  1901.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  1902. #line 265 "texts.mod"
  1903.     pOt_n-=(1);
  1904. #line 265 "texts.mod"
  1905.   }
  1906. #line 265 "texts.mod"
  1907.   if(( pOt_x<((pOt_LONGINT)(0)))) {
  1908.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'-');
  1909. #line 266 "texts.mod"
  1910.   }
  1911. #line 266 "texts.mod"
  1912.   for(;;) {
  1913.     pOt_i-=(1);
  1914. #line 267 "texts.mod"
  1915.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_a.arr[pOt__inxchk(__FILE__,__LINE__,0xB, pOt_i)]);
  1916. #line 267 "texts.mod"
  1917.     if(( pOt_i==((pOt_INTEGER)(0)))) break;
  1918.   }
  1919. #line 268 "texts.mod"
  1920.  
  1921. #line 268 "texts.mod"
  1922. pOt__Epilogue:;
  1923. #line 268 "texts.mod"
  1924.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1925. #line 268 "texts.mod"
  1926. }
  1927. #line 268 "texts.mod"
  1928.  
  1929. #line 268 "texts.mod"
  1930.  
  1931. #line 273 "texts.mod"
  1932. struct pOt__tag_8_Texts {
  1933. #line 273 "texts.mod"
  1934.   pOt__ArrTypDsc *td;
  1935. #line 273 "texts.mod"
  1936.   pOt_CHAR arr[0xAL];
  1937. #line 273 "texts.mod"
  1938. } ;
  1939. #line 273 "texts.mod"
  1940. static pOt__ArrTypDsc pOt__td_8_Texts= {
  1941. #line 273 "texts.mod"
  1942.   1,
  1943. #line 273 "texts.mod"
  1944.   0xAL, sizeof(pOt_CHAR)
  1945. #line 273 "texts.mod"
  1946. };
  1947. #line 273 "texts.mod"
  1948.  
  1949. #line 273 "texts.mod"
  1950.  
  1951. #line 273 "texts.mod"
  1952. extern void pOt_WriteHex_Texts
  1953. #line 273 "texts.mod"
  1954. #if pOt__ANSI_C
  1955. #line 273 "texts.mod"
  1956.   (struct pOt__tag_5_Texts *pOt_W, pOt_LONGINT pOt_x)
  1957. #line 273 "texts.mod"
  1958. #else
  1959. #line 273 "texts.mod"
  1960.   (pOt_W, pOt_x)
  1961. #line 273 "texts.mod"
  1962.   struct pOt__tag_5_Texts *pOt_W;
  1963. #line 273 "texts.mod"
  1964.   pOt_LONGINT pOt_x;
  1965. #line 273 "texts.mod"
  1966.  
  1967. #line 273 "texts.mod"
  1968. #endif
  1969. #line 273 "texts.mod"
  1970. {
  1971. #line 273 "texts.mod"
  1972.   pOt_INTEGER pOt_i;
  1973. #line 273 "texts.mod"
  1974.   pOt_LONGINT pOt_y;
  1975. #line 273 "texts.mod"
  1976.   struct pOt__tag_8_Texts pOt_a;
  1977. #line 273 "texts.mod"
  1978.   struct {void*next;} pOt__gc_ptrs;
  1979. #line 273 "texts.mod"
  1980.   pOt__gc_ptrs.next = pOt__gc_root;
  1981. #line 273 "texts.mod"
  1982.   pOt__init_var((pOt__TypDsc**)&pOt_a,(pOt__TypDsc*)&pOt__td_8_Texts);
  1983. #line 273 "texts.mod"
  1984.  
  1985. #line 273 "texts.mod"
  1986.   pOt_i=(pOt_INTEGER)(0);
  1987. #line 273 "texts.mod"
  1988.   pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  1989. #line 273 "texts.mod"
  1990.   for(;;) {
  1991.     pOt_y=(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_x),(pOt_LONGINT)(16),6));
  1992. #line 274 "texts.mod"
  1993.     if(( pOt_y<((pOt_LONGINT)(10)))) {
  1994.       pOt_a.arr[pOt__inxchk(__FILE__,__LINE__,0xA, pOt_i)]=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_y),(pOt_LONGINT)(48),6)));
  1995. #line 275 "texts.mod"
  1996.     } else {
  1997. #line 275 "texts.mod"
  1998.       pOt_a.arr[pOt__inxchk(__FILE__,__LINE__,0xA, pOt_i)]=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_y),(pOt_LONGINT)(55),6)));
  1999. #line 275 "texts.mod"
  2000.     }
  2001. #line 275 "texts.mod"
  2002.     pOt_x=(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_x),(pOt_LONGINT)(16),6));
  2003.     pOt_i+=(1);
  2004.     if(( pOt_i==((pOt_INTEGER)(8)))) break;
  2005. #line 277 "texts.mod"
  2006.   }
  2007. #line 277 "texts.mod"
  2008.   for(;;) {
  2009.     pOt_i-=(1);
  2010. #line 278 "texts.mod"
  2011.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_a.arr[pOt__inxchk(__FILE__,__LINE__,0xA, pOt_i)]);
  2012. #line 278 "texts.mod"
  2013.     if(( pOt_i==((pOt_INTEGER)(0)))) break;
  2014.   }
  2015. #line 279 "texts.mod"
  2016.  
  2017. #line 279 "texts.mod"
  2018. pOt__Epilogue:;
  2019. #line 279 "texts.mod"
  2020.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2021. #line 279 "texts.mod"
  2022. }
  2023. #line 279 "texts.mod"
  2024.  
  2025. #line 279 "texts.mod"
  2026.  
  2027. #line 284 "texts.mod"
  2028. struct pOt__tag_9_Texts {
  2029. #line 284 "texts.mod"
  2030.   pOt__ArrTypDsc *td;
  2031. #line 284 "texts.mod"
  2032.   pOt_CHAR arr[0x9L];
  2033. #line 284 "texts.mod"
  2034. } ;
  2035. #line 284 "texts.mod"
  2036. static pOt__ArrTypDsc pOt__td_9_Texts= {
  2037. #line 284 "texts.mod"
  2038.   1,
  2039. #line 284 "texts.mod"
  2040.   0x9L, sizeof(pOt_CHAR)
  2041. #line 284 "texts.mod"
  2042. };
  2043. #line 284 "texts.mod"
  2044.  
  2045. #line 284 "texts.mod"
  2046.  
  2047. #line 284 "texts.mod"
  2048. extern void pOt_WriteReal_Texts
  2049. #line 284 "texts.mod"
  2050. #if pOt__ANSI_C
  2051. #line 284 "texts.mod"
  2052.   (struct pOt__tag_5_Texts *pOt_W, pOt_REAL pOt_x, pOt_INTEGER pOt_n)
  2053. #line 284 "texts.mod"
  2054. #else
  2055. #line 284 "texts.mod"
  2056.   (pOt_W, pOt_x, pOt_n)
  2057. #line 284 "texts.mod"
  2058.   struct pOt__tag_5_Texts *pOt_W;
  2059. #line 284 "texts.mod"
  2060.   pOt_REAL pOt_x;
  2061. #line 284 "texts.mod"
  2062.   pOt_INTEGER pOt_n;
  2063. #line 284 "texts.mod"
  2064.  
  2065. #line 284 "texts.mod"
  2066. #endif
  2067. #line 284 "texts.mod"
  2068. {
  2069. #line 284 "texts.mod"
  2070.   pOt_INTEGER pOt_e;
  2071. #line 284 "texts.mod"
  2072.   pOt_REAL pOt_x0;
  2073. #line 284 "texts.mod"
  2074.   struct pOt__tag_9_Texts pOt_d;
  2075. #line 284 "texts.mod"
  2076.   struct {void*next;} pOt__gc_ptrs;
  2077. #line 284 "texts.mod"
  2078.   pOt__gc_ptrs.next = pOt__gc_root;
  2079. #line 284 "texts.mod"
  2080.   pOt__init_var((pOt__TypDsc**)&pOt_d,(pOt__TypDsc*)&pOt__td_9_Texts);
  2081. #line 284 "texts.mod"
  2082.  
  2083. #line 284 "texts.mod"
  2084.   pOt_e=(pOt_INTEGER)(pOt_Expo_Reals((pOt_REAL)(pOt_x)));
  2085. #line 284 "texts.mod"
  2086.   if(( pOt_e==((pOt_INTEGER)(0)))) {
  2087. #line 286 "texts.mod"
  2088.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x14L],&pOt__str_td[0x3]))));
  2089. #line 286 "texts.mod"
  2090.     for(;;) {
  2091.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2092. #line 287 "texts.mod"
  2093.       pOt_n-=(1);
  2094. #line 287 "texts.mod"
  2095.       if(( pOt_n<=((pOt_INTEGER)(3)))) break;
  2096.     }
  2097. #line 288 "texts.mod"
  2098.   } else if(( pOt_e==255)) {
  2099.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1CL],&pOt__str_td[0x4]))));
  2100. #line 289 "texts.mod"
  2101.     for(;;) {
  2102.       if(( pOt_n>((pOt_INTEGER)(4)))); else break;
  2103. #line 290 "texts.mod"
  2104.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2105. #line 290 "texts.mod"
  2106.       pOt_n-=(1);
  2107. #line 290 "texts.mod"
  2108.     }
  2109. #line 290 "texts.mod"
  2110.   } else {
  2111. #line 292 "texts.mod"
  2112.     if(( pOt_n<=((pOt_INTEGER)(9)))) {
  2113. #line 292 "texts.mod"
  2114.       pOt_n=(pOt_INTEGER)(3);
  2115. #line 292 "texts.mod"
  2116.     } else {
  2117. #line 292 "texts.mod"
  2118.       pOt_n-=(6);
  2119. #line 292 "texts.mod"
  2120.     }
  2121. #line 292 "texts.mod"
  2122.     for(;;) {
  2123.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2124. #line 293 "texts.mod"
  2125.       pOt_n-=(1);
  2126. #line 293 "texts.mod"
  2127.       if(( pOt_n<=((pOt_INTEGER)(8)))) break;
  2128. #line 293 "texts.mod"
  2129.     }
  2130. #line 293 "texts.mod"
  2131.     if(( pOt_x<(pOt_REAL)0.0)) {
  2132. #line 295 "texts.mod"
  2133.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'-');
  2134. #line 295 "texts.mod"
  2135.       pOt_x=(pOt_REAL)(-pOt_x);
  2136. #line 295 "texts.mod"
  2137.     } else {
  2138. #line 295 "texts.mod"
  2139.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2140. #line 295 "texts.mod"
  2141.     }
  2142. #line 295 "texts.mod"
  2143.     pOt_e=(pOt_INTEGER)((pOt_INTEGER)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(127),5))),(pOt_LONGINT)(77),5)),(pOt_LONGINT)(256),5));
  2144.     if(( pOt_e>=((pOt_INTEGER)(0)))) {
  2145.       pOt_x=(pOt_REAL)(pOt_x/pOt_Ten_Reals((pOt_INTEGER)(pOt_e)));
  2146. #line 297 "texts.mod"
  2147.     } else {
  2148. #line 297 "texts.mod"
  2149.       pOt_x=(pOt_REAL)(pOt_Ten_Reals((pOt_INTEGER)(-pOt_e))*pOt_x);
  2150. #line 297 "texts.mod"
  2151.     }
  2152. #line 297 "texts.mod"
  2153.     if(( pOt_x>=(pOt_REAL)1.0000000E1)) {
  2154.       pOt_x=(pOt_REAL)((pOt_REAL)1.0000000E-1*pOt_x);
  2155. #line 298 "texts.mod"
  2156.       pOt_e+=(1);
  2157. #line 298 "texts.mod"
  2158.     }
  2159. #line 298 "texts.mod"
  2160.     pOt_x0=(pOt_REAL)(pOt_Ten_Reals((pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(1),5))));
  2161.     pOt_x=(pOt_REAL)(pOt_x0*pOt_x+(pOt_REAL)5.0000000E-1);
  2162. #line 299 "texts.mod"
  2163.     if(( pOt_x>=(pOt_REAL)1.0000000E1*pOt_x0)) {
  2164.       pOt_x=(pOt_REAL)(pOt_x*(pOt_REAL)1.0000000E-1);
  2165. #line 300 "texts.mod"
  2166.       pOt_e+=(1);
  2167. #line 300 "texts.mod"
  2168.     }
  2169. #line 300 "texts.mod"
  2170.     pOt_Convert_Reals((pOt_REAL)(pOt_x),(pOt_INTEGER)(pOt_n),(pOt__ArrTypDsc**)&pOt_d);
  2171.     pOt_n-=(1);
  2172.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x9, pOt_n)]);
  2173. #line 302 "texts.mod"
  2174.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'.');
  2175. #line 302 "texts.mod"
  2176.     for(;;) {
  2177.       pOt_n-=(1);
  2178. #line 303 "texts.mod"
  2179.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x9, pOt_n)]);
  2180. #line 303 "texts.mod"
  2181.       if(( pOt_n==((pOt_INTEGER)(0)))) break;
  2182. #line 303 "texts.mod"
  2183.     }
  2184. #line 303 "texts.mod"
  2185.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'E');
  2186.     if(( pOt_e<((pOt_INTEGER)(0)))) {
  2187.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'-');
  2188. #line 305 "texts.mod"
  2189.       pOt_e=(pOt_INTEGER)(-pOt_e);
  2190. #line 305 "texts.mod"
  2191.     } else {
  2192. #line 305 "texts.mod"
  2193.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'+');
  2194. #line 305 "texts.mod"
  2195.     }
  2196. #line 305 "texts.mod"
  2197.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(10),5)),(pOt_LONGINT)(48),5))));
  2198.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(10),5)),(pOt_LONGINT)(48),5))));
  2199.   }
  2200. #line 307 "texts.mod"
  2201.  
  2202. pOt__Epilogue:;
  2203. #line 308 "texts.mod"
  2204.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2205. #line 308 "texts.mod"
  2206. }
  2207. #line 308 "texts.mod"
  2208.  
  2209. #line 308 "texts.mod"
  2210.  
  2211. #line 314 "texts.mod"
  2212. struct pOt__tag_A_Texts {
  2213. #line 314 "texts.mod"
  2214.   pOt__ArrTypDsc *td;
  2215. #line 314 "texts.mod"
  2216.   pOt_CHAR arr[0x9L];
  2217. #line 314 "texts.mod"
  2218. } ;
  2219. #line 314 "texts.mod"
  2220. static pOt__ArrTypDsc pOt__td_A_Texts= {
  2221. #line 314 "texts.mod"
  2222.   1,
  2223. #line 314 "texts.mod"
  2224.   0x9L, sizeof(pOt_CHAR)
  2225. #line 314 "texts.mod"
  2226. };
  2227. #line 314 "texts.mod"
  2228.  
  2229. #line 314 "texts.mod"
  2230. static struct pOt__tag_5_Texts *pOt_W_WriteRealFix_Texts;
  2231. #line 314 "texts.mod"
  2232. static pOt_REAL (*pOt_x_WriteRealFix_Texts);
  2233. #line 314 "texts.mod"
  2234. static pOt_INTEGER (*pOt_n_WriteRealFix_Texts), (*pOt_k_WriteRealFix_Texts), (*pOt_e_WriteRealFix_Texts), (*pOt_i_WriteRealFix_Texts);
  2235. #line 314 "texts.mod"
  2236. static pOt_CHAR (*pOt_sign_WriteRealFix_Texts);
  2237. #line 314 "texts.mod"
  2238. static pOt_REAL (*pOt_x0_WriteRealFix_Texts);
  2239. #line 314 "texts.mod"
  2240. static struct pOt__tag_A_Texts (*pOt_d_WriteRealFix_Texts);
  2241. #line 314 "texts.mod"
  2242.  
  2243. #line 314 "texts.mod"
  2244. extern void pOt_WriteRealFix_Texts pOt__ARGS((struct pOt__tag_5_Texts *, pOt_REAL , pOt_INTEGER , pOt_INTEGER ));
  2245. #line 314 "texts.mod"
  2246.  
  2247. #line 314 "texts.mod"
  2248.  
  2249.  
  2250. #line 315 "texts.mod"
  2251.  
  2252. #line 315 "texts.mod"
  2253. static void pOt_seq_WriteRealFix_Texts
  2254. #line 315 "texts.mod"
  2255. #if pOt__ANSI_C
  2256. #line 315 "texts.mod"
  2257.   (pOt_CHAR pOt_ch, pOt_INTEGER pOt_n)
  2258. #line 315 "texts.mod"
  2259. #else
  2260. #line 315 "texts.mod"
  2261.   (pOt_ch, pOt_n)
  2262. #line 315 "texts.mod"
  2263.   pOt_CHAR pOt_ch;
  2264. #line 315 "texts.mod"
  2265.   pOt_INTEGER pOt_n;
  2266. #line 315 "texts.mod"
  2267.  
  2268. #line 315 "texts.mod"
  2269. #endif
  2270. #line 315 "texts.mod"
  2271. {
  2272. #line 315 "texts.mod"
  2273.   struct {void*next;} pOt__gc_ptrs;
  2274. #line 315 "texts.mod"
  2275.   pOt__gc_ptrs.next = pOt__gc_root;
  2276. #line 315 "texts.mod"
  2277.  
  2278. #line 315 "texts.mod"
  2279.   for(;;) {
  2280. #line 315 "texts.mod"
  2281.     if(( pOt_n>((pOt_INTEGER)(0)))); else break;
  2282. #line 315 "texts.mod"
  2283.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W_WriteRealFix_Texts),pOt_ch);
  2284. #line 315 "texts.mod"
  2285.     pOt_n-=(1);
  2286. #line 315 "texts.mod"
  2287.   }
  2288. #line 315 "texts.mod"
  2289.  
  2290. pOt__Epilogue:;
  2291. #line 316 "texts.mod"
  2292.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2293. #line 316 "texts.mod"
  2294. }
  2295. #line 316 "texts.mod"
  2296.  
  2297. #line 316 "texts.mod"
  2298.  
  2299. #line 319 "texts.mod"
  2300.  
  2301. #line 319 "texts.mod"
  2302.  
  2303. #line 319 "texts.mod"
  2304. static void pOt_dig_WriteRealFix_Texts
  2305. #line 319 "texts.mod"
  2306. #if pOt__ANSI_C
  2307. #line 319 "texts.mod"
  2308.   (pOt_INTEGER pOt_n)
  2309. #line 319 "texts.mod"
  2310. #else
  2311. #line 319 "texts.mod"
  2312.   (pOt_n)
  2313. #line 319 "texts.mod"
  2314.   pOt_INTEGER pOt_n;
  2315. #line 319 "texts.mod"
  2316.  
  2317. #line 319 "texts.mod"
  2318. #endif
  2319. #line 319 "texts.mod"
  2320. {
  2321. #line 319 "texts.mod"
  2322.   struct {void*next;} pOt__gc_ptrs;
  2323. #line 319 "texts.mod"
  2324.   pOt__gc_ptrs.next = pOt__gc_root;
  2325. #line 319 "texts.mod"
  2326.  
  2327. #line 319 "texts.mod"
  2328.   for(;;) {
  2329.     if(( pOt_n>((pOt_INTEGER)(0)))); else break;
  2330. #line 320 "texts.mod"
  2331.     (*pOt_i_WriteRealFix_Texts)-=(1);
  2332.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W_WriteRealFix_Texts),(*pOt_d_WriteRealFix_Texts).arr[pOt__inxchk(__FILE__,__LINE__,0x9, (*pOt_i_WriteRealFix_Texts))]);
  2333. #line 321 "texts.mod"
  2334.     pOt_n-=(1);
  2335.   }
  2336. #line 322 "texts.mod"
  2337.  
  2338. pOt__Epilogue:;
  2339. #line 323 "texts.mod"
  2340.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2341. #line 323 "texts.mod"
  2342. }
  2343. #line 323 "texts.mod"
  2344.  
  2345. #line 323 "texts.mod"
  2346. extern void pOt_WriteRealFix_Texts
  2347. #line 325 "texts.mod"
  2348. #if pOt__ANSI_C
  2349. #line 325 "texts.mod"
  2350.   (struct pOt__tag_5_Texts *pOt_W, pOt_REAL pOt_x, pOt_INTEGER pOt_n, pOt_INTEGER pOt_k)
  2351. #line 325 "texts.mod"
  2352. #else
  2353. #line 325 "texts.mod"
  2354.   (pOt_W, pOt_x, pOt_n, pOt_k)
  2355. #line 325 "texts.mod"
  2356.   struct pOt__tag_5_Texts *pOt_W;
  2357. #line 325 "texts.mod"
  2358.   pOt_REAL pOt_x;
  2359. #line 325 "texts.mod"
  2360.   pOt_INTEGER pOt_n, pOt_k;
  2361. #line 325 "texts.mod"
  2362.  
  2363. #line 325 "texts.mod"
  2364. #endif
  2365. #line 325 "texts.mod"
  2366. {
  2367. #line 325 "texts.mod"
  2368.   struct pOt__tag_5_Texts *pOt_W_;
  2369. #line 325 "texts.mod"
  2370.   pOt_REAL (*pOt_x_);
  2371. #line 325 "texts.mod"
  2372.   pOt_INTEGER (*pOt_n_), (*pOt_k_), pOt_e, (*pOt_e_), pOt_i, (*pOt_i_);
  2373. #line 325 "texts.mod"
  2374.   pOt_CHAR pOt_sign, (*pOt_sign_);
  2375. #line 325 "texts.mod"
  2376.   pOt_REAL pOt_x0, (*pOt_x0_);
  2377. #line 325 "texts.mod"
  2378.   struct pOt__tag_A_Texts pOt_d, (*pOt_d_);
  2379. #line 325 "texts.mod"
  2380.   struct {void*next;} pOt__gc_ptrs;
  2381. #line 325 "texts.mod"
  2382.   pOt__gc_ptrs.next = pOt__gc_root;
  2383. #line 325 "texts.mod"
  2384.   pOt_W_=pOt_W_WriteRealFix_Texts;
  2385. #line 325 "texts.mod"
  2386.   pOt_W_WriteRealFix_Texts=pOt_W;
  2387. #line 325 "texts.mod"
  2388.   pOt_x_=pOt_x_WriteRealFix_Texts;
  2389. #line 325 "texts.mod"
  2390.   pOt_x_WriteRealFix_Texts=&pOt_x;
  2391. #line 325 "texts.mod"
  2392.   pOt_n_=pOt_n_WriteRealFix_Texts;
  2393. #line 325 "texts.mod"
  2394.   pOt_n_WriteRealFix_Texts=&pOt_n;
  2395. #line 325 "texts.mod"
  2396.   pOt_k_=pOt_k_WriteRealFix_Texts;
  2397. #line 325 "texts.mod"
  2398.   pOt_k_WriteRealFix_Texts=&pOt_k;
  2399. #line 325 "texts.mod"
  2400.   pOt_e_=pOt_e_WriteRealFix_Texts;
  2401. #line 325 "texts.mod"
  2402.   pOt_e_WriteRealFix_Texts=&pOt_e;
  2403. #line 325 "texts.mod"
  2404.   pOt_i_=pOt_i_WriteRealFix_Texts;
  2405. #line 325 "texts.mod"
  2406.   pOt_i_WriteRealFix_Texts=&pOt_i;
  2407. #line 325 "texts.mod"
  2408.   pOt_sign_=pOt_sign_WriteRealFix_Texts;
  2409. #line 325 "texts.mod"
  2410.   pOt_sign_WriteRealFix_Texts=&pOt_sign;
  2411. #line 325 "texts.mod"
  2412.   pOt_x0_=pOt_x0_WriteRealFix_Texts;
  2413. #line 325 "texts.mod"
  2414.   pOt_x0_WriteRealFix_Texts=&pOt_x0;
  2415. #line 325 "texts.mod"
  2416.   pOt_d_=pOt_d_WriteRealFix_Texts;
  2417. #line 325 "texts.mod"
  2418.   pOt_d_WriteRealFix_Texts=&pOt_d;
  2419. #line 325 "texts.mod"
  2420.   pOt__init_var((pOt__TypDsc**)&pOt_d,(pOt__TypDsc*)&pOt__td_A_Texts);
  2421. #line 325 "texts.mod"
  2422.  
  2423. #line 325 "texts.mod"
  2424.   pOt_e=(pOt_INTEGER)(pOt_Expo_Reals((pOt_REAL)(pOt_x)));
  2425. #line 325 "texts.mod"
  2426.   if(( pOt_k<((pOt_INTEGER)(0)))) {
  2427.     pOt_k=(pOt_INTEGER)(0);
  2428. #line 326 "texts.mod"
  2429.   }
  2430. #line 326 "texts.mod"
  2431.   if(( pOt_e==((pOt_INTEGER)(0)))) {
  2432.     pOt_seq_WriteRealFix_Texts(' ',(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(pOt_k),5)),(pOt_LONGINT)(2),5)));
  2433. #line 327 "texts.mod"
  2434.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'0');
  2435. #line 327 "texts.mod"
  2436.     pOt_seq_WriteRealFix_Texts(' ',(pOt_INTEGER)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(1),5)));
  2437.   } else if(( pOt_e==255)) {
  2438. #line 328 "texts.mod"
  2439.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1CL],&pOt__str_td[0x4]))));
  2440. #line 328 "texts.mod"
  2441.     pOt_seq_WriteRealFix_Texts(' ',(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(4),5)));
  2442.   } else {
  2443. #line 329 "texts.mod"
  2444.     pOt_e=(pOt_INTEGER)((pOt_INTEGER)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(127),5))),(pOt_LONGINT)(77),5)),(pOt_LONGINT)(256),5));
  2445. #line 329 "texts.mod"
  2446.     if(( pOt_x<((pOt_REAL)(0)))) {
  2447.       pOt_sign='-';
  2448. #line 330 "texts.mod"
  2449.       pOt_x=(pOt_REAL)(-pOt_x);
  2450. #line 330 "texts.mod"
  2451.     } else {
  2452. #line 330 "texts.mod"
  2453.       pOt_sign=' ';
  2454. #line 330 "texts.mod"
  2455.     }
  2456. #line 330 "texts.mod"
  2457.     if(( pOt_e>=((pOt_INTEGER)(0)))) {
  2458.       pOt_x=(pOt_REAL)(pOt_x/pOt_Ten_Reals((pOt_INTEGER)(pOt_e)));
  2459.     } else {
  2460. #line 332 "texts.mod"
  2461.       pOt_x=(pOt_REAL)(pOt_Ten_Reals((pOt_INTEGER)(-pOt_e))*pOt_x);
  2462.     }
  2463. #line 333 "texts.mod"
  2464.     if(( pOt_x>=(pOt_REAL)1.0000000E1)) {
  2465.       pOt_x=(pOt_REAL)((pOt_REAL)1.0000000E-1*pOt_x);
  2466. #line 334 "texts.mod"
  2467.       pOt_e+=(1);
  2468. #line 334 "texts.mod"
  2469.     }
  2470. #line 334 "texts.mod"
  2471.     if(( (pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(pOt_e),5)>=((pOt_INTEGER)(8)))) {
  2472. #line 336 "texts.mod"
  2473.       pOt_k=(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_SHORTINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(9),(pOt_LONGINT)(1),4)),(pOt_LONGINT)(pOt_e),5));
  2474.     } else if(( (pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(pOt_e),5)<((pOt_INTEGER)(0)))) {
  2475. #line 337 "texts.mod"
  2476.       pOt_k=(pOt_INTEGER)(-pOt_e);
  2477. #line 337 "texts.mod"
  2478.       pOt_x=(pOt_REAL)((pOt_REAL)0.0);
  2479.     }
  2480. #line 338 "texts.mod"
  2481.     pOt_x0=(pOt_REAL)(pOt_Ten_Reals((pOt_INTEGER)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(pOt_e),5))));
  2482.     pOt_x=(pOt_REAL)(pOt_x0*pOt_x+(pOt_REAL)5.0000000E-1);
  2483. #line 339 "texts.mod"
  2484.     if(( pOt_x>=(pOt_REAL)1.0000000E1*pOt_x0)) {
  2485.       pOt_e+=(1);
  2486. #line 340 "texts.mod"
  2487.     }
  2488. #line 340 "texts.mod"
  2489.     pOt_e+=(1);
  2490. #line 342 "texts.mod"
  2491.     pOt_i=(pOt_INTEGER)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(pOt_e),5));
  2492. #line 342 "texts.mod"
  2493.     pOt_Convert_Reals((pOt_REAL)(pOt_x),(pOt_INTEGER)(pOt_i),(pOt__ArrTypDsc**)&pOt_d);
  2494. #line 342 "texts.mod"
  2495.     if(( pOt_e>((pOt_INTEGER)(0)))) {
  2496. #line 344 "texts.mod"
  2497.       pOt_seq_WriteRealFix_Texts(' ',(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(pOt_e),5)),(pOt_LONGINT)(pOt_k),5)),(pOt_LONGINT)(2),5)));
  2498. #line 344 "texts.mod"
  2499.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_sign);
  2500. #line 344 "texts.mod"
  2501.       pOt_dig_WriteRealFix_Texts((pOt_INTEGER)(pOt_e));
  2502. #line 344 "texts.mod"
  2503.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'.');
  2504.       pOt_dig_WriteRealFix_Texts((pOt_INTEGER)(pOt_k));
  2505.     } else {
  2506. #line 346 "texts.mod"
  2507.       pOt_seq_WriteRealFix_Texts(' ',(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(pOt_k),5)),(pOt_LONGINT)(3),5)));
  2508. #line 346 "texts.mod"
  2509.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_sign);
  2510.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'0');
  2511. #line 347 "texts.mod"
  2512.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'.');
  2513. #line 347 "texts.mod"
  2514.       pOt_seq_WriteRealFix_Texts('0',(pOt_INTEGER)(-pOt_e));
  2515.       pOt_dig_WriteRealFix_Texts((pOt_INTEGER)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(pOt_e),5)));
  2516.     }
  2517. #line 349 "texts.mod"
  2518.   }
  2519.  
  2520. pOt__Epilogue:;
  2521. #line 351 "texts.mod"
  2522.   pOt_W_WriteRealFix_Texts=pOt_W_;
  2523. #line 351 "texts.mod"
  2524.   pOt_x_WriteRealFix_Texts=pOt_x_;
  2525. #line 351 "texts.mod"
  2526.   pOt_n_WriteRealFix_Texts=pOt_n_;
  2527. #line 351 "texts.mod"
  2528.   pOt_k_WriteRealFix_Texts=pOt_k_;
  2529. #line 351 "texts.mod"
  2530.   pOt_e_WriteRealFix_Texts=pOt_e_;
  2531. #line 351 "texts.mod"
  2532.   pOt_i_WriteRealFix_Texts=pOt_i_;
  2533. #line 351 "texts.mod"
  2534.   pOt_sign_WriteRealFix_Texts=pOt_sign_;
  2535. #line 351 "texts.mod"
  2536.   pOt_x0_WriteRealFix_Texts=pOt_x0_;
  2537. #line 351 "texts.mod"
  2538.   pOt_d_WriteRealFix_Texts=pOt_d_;
  2539. #line 351 "texts.mod"
  2540.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2541. #line 351 "texts.mod"
  2542. }
  2543. #line 351 "texts.mod"
  2544.  
  2545. #line 351 "texts.mod"
  2546.  
  2547. #line 356 "texts.mod"
  2548. struct pOt__tag_B_Texts {
  2549. #line 356 "texts.mod"
  2550.   pOt__ArrTypDsc *td;
  2551. #line 356 "texts.mod"
  2552.   pOt_CHAR arr[0x8L];
  2553. #line 356 "texts.mod"
  2554. } ;
  2555. #line 356 "texts.mod"
  2556. static pOt__ArrTypDsc pOt__td_B_Texts= {
  2557. #line 356 "texts.mod"
  2558.   1,
  2559. #line 356 "texts.mod"
  2560.   0x8L, sizeof(pOt_CHAR)
  2561. #line 356 "texts.mod"
  2562. };
  2563. #line 356 "texts.mod"
  2564.  
  2565. #line 356 "texts.mod"
  2566.  
  2567. #line 356 "texts.mod"
  2568. extern void pOt_WriteRealHex_Texts
  2569. #line 356 "texts.mod"
  2570. #if pOt__ANSI_C
  2571. #line 356 "texts.mod"
  2572.   (struct pOt__tag_5_Texts *pOt_W, pOt_REAL pOt_x)
  2573. #line 356 "texts.mod"
  2574. #else
  2575. #line 356 "texts.mod"
  2576.   (pOt_W, pOt_x)
  2577. #line 356 "texts.mod"
  2578.   struct pOt__tag_5_Texts *pOt_W;
  2579. #line 356 "texts.mod"
  2580.   pOt_REAL pOt_x;
  2581. #line 356 "texts.mod"
  2582.  
  2583. #line 356 "texts.mod"
  2584. #endif
  2585. #line 356 "texts.mod"
  2586. {
  2587. #line 356 "texts.mod"
  2588.   pOt_INTEGER pOt_i;
  2589. #line 356 "texts.mod"
  2590.   struct pOt__tag_B_Texts pOt_d;
  2591. #line 356 "texts.mod"
  2592.   struct {void*next;} pOt__gc_ptrs;
  2593. #line 356 "texts.mod"
  2594.   pOt__gc_ptrs.next = pOt__gc_root;
  2595. #line 356 "texts.mod"
  2596.   pOt__init_var((pOt__TypDsc**)&pOt_d,(pOt__TypDsc*)&pOt__td_B_Texts);
  2597. #line 356 "texts.mod"
  2598.  
  2599. #line 356 "texts.mod"
  2600.   pOt_ConvertH_Reals((pOt_REAL)(pOt_x),(pOt__ArrTypDsc**)&pOt_d);
  2601. #line 356 "texts.mod"
  2602.   pOt_i=(pOt_INTEGER)(0);
  2603. #line 356 "texts.mod"
  2604.   for(;;) {
  2605.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x8, pOt_i)]);
  2606. #line 357 "texts.mod"
  2607.     pOt_i+=(1);
  2608. #line 357 "texts.mod"
  2609.     if(( pOt_i==((pOt_INTEGER)(8)))) break;
  2610.   }
  2611. #line 358 "texts.mod"
  2612.  
  2613. #line 358 "texts.mod"
  2614. pOt__Epilogue:;
  2615. #line 358 "texts.mod"
  2616.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2617. #line 358 "texts.mod"
  2618. }
  2619. #line 358 "texts.mod"
  2620.  
  2621. #line 358 "texts.mod"
  2622.  
  2623. #line 364 "texts.mod"
  2624. struct pOt__tag_C_Texts {
  2625. #line 364 "texts.mod"
  2626.   pOt__ArrTypDsc *td;
  2627. #line 364 "texts.mod"
  2628.   pOt_CHAR arr[0x10L];
  2629. #line 364 "texts.mod"
  2630. } ;
  2631. #line 364 "texts.mod"
  2632. static pOt__ArrTypDsc pOt__td_C_Texts= {
  2633. #line 364 "texts.mod"
  2634.   1,
  2635. #line 364 "texts.mod"
  2636.   0x10L, sizeof(pOt_CHAR)
  2637. #line 364 "texts.mod"
  2638. };
  2639. #line 364 "texts.mod"
  2640.  
  2641. #line 364 "texts.mod"
  2642.  
  2643. #line 364 "texts.mod"
  2644. extern void pOt_WriteLongReal_Texts
  2645. #line 364 "texts.mod"
  2646. #if pOt__ANSI_C
  2647. #line 364 "texts.mod"
  2648.   (struct pOt__tag_5_Texts *pOt_W, pOt_LONGREAL pOt_x, pOt_INTEGER pOt_n)
  2649. #line 364 "texts.mod"
  2650. #else
  2651. #line 364 "texts.mod"
  2652.   (pOt_W, pOt_x, pOt_n)
  2653. #line 364 "texts.mod"
  2654.   struct pOt__tag_5_Texts *pOt_W;
  2655. #line 364 "texts.mod"
  2656.   pOt_LONGREAL pOt_x;
  2657. #line 364 "texts.mod"
  2658.   pOt_INTEGER pOt_n;
  2659. #line 364 "texts.mod"
  2660.  
  2661. #line 364 "texts.mod"
  2662. #endif
  2663. #line 364 "texts.mod"
  2664. {
  2665. #line 364 "texts.mod"
  2666.   pOt_INTEGER pOt_e;
  2667. #line 364 "texts.mod"
  2668.   pOt_LONGREAL pOt_x0;
  2669. #line 364 "texts.mod"
  2670.   struct pOt__tag_C_Texts pOt_d;
  2671. #line 364 "texts.mod"
  2672.   struct {void*next;} pOt__gc_ptrs;
  2673. #line 364 "texts.mod"
  2674.   pOt__gc_ptrs.next = pOt__gc_root;
  2675. #line 364 "texts.mod"
  2676.   pOt__init_var((pOt__TypDsc**)&pOt_d,(pOt__TypDsc*)&pOt__td_C_Texts);
  2677. #line 364 "texts.mod"
  2678.  
  2679. #line 364 "texts.mod"
  2680.   pOt_e=(pOt_INTEGER)(pOt_ExpoL_Reals((pOt_LONGREAL)(pOt_x)));
  2681. #line 364 "texts.mod"
  2682.   if(( pOt_e==((pOt_INTEGER)(0)))) {
  2683. #line 366 "texts.mod"
  2684.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x14L],&pOt__str_td[0x3]))));
  2685. #line 366 "texts.mod"
  2686.     for(;;) {
  2687.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2688. #line 367 "texts.mod"
  2689.       pOt_n-=(1);
  2690. #line 367 "texts.mod"
  2691.       if(( pOt_n<=((pOt_INTEGER)(3)))) break;
  2692.     }
  2693. #line 368 "texts.mod"
  2694.   } else if(( pOt_e==2047)) {
  2695.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1CL],&pOt__str_td[0x4]))));
  2696. #line 369 "texts.mod"
  2697.     for(;;) {
  2698.       if(( pOt_n>((pOt_INTEGER)(4)))); else break;
  2699. #line 370 "texts.mod"
  2700.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2701. #line 370 "texts.mod"
  2702.       pOt_n-=(1);
  2703. #line 370 "texts.mod"
  2704.     }
  2705. #line 370 "texts.mod"
  2706.   } else {
  2707. #line 372 "texts.mod"
  2708.     if(( pOt_n<=((pOt_INTEGER)(10)))) {
  2709. #line 372 "texts.mod"
  2710.       pOt_n=(pOt_INTEGER)(3);
  2711. #line 372 "texts.mod"
  2712.     } else {
  2713. #line 372 "texts.mod"
  2714.       pOt_n-=(7);
  2715. #line 372 "texts.mod"
  2716.     }
  2717. #line 372 "texts.mod"
  2718.     for(;;) {
  2719.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2720. #line 373 "texts.mod"
  2721.       pOt_n-=(1);
  2722. #line 373 "texts.mod"
  2723.       if(( pOt_n<=((pOt_INTEGER)(16)))) break;
  2724. #line 373 "texts.mod"
  2725.     }
  2726. #line 373 "texts.mod"
  2727.     if(( pOt_x<((pOt_LONGREAL)(0)))) {
  2728. #line 375 "texts.mod"
  2729.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'-');
  2730. #line 375 "texts.mod"
  2731.       pOt_x=(pOt_LONGREAL)(-pOt_x);
  2732. #line 375 "texts.mod"
  2733.     } else {
  2734. #line 375 "texts.mod"
  2735.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),' ');
  2736. #line 375 "texts.mod"
  2737.     }
  2738. #line 375 "texts.mod"
  2739.     pOt_e=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(1023),5))),(pOt_LONGINT)(77),6)),(pOt_LONGINT)(256),6)));
  2740.     if(( pOt_e>=((pOt_INTEGER)(0)))) {
  2741.       pOt_x=(pOt_LONGREAL)(pOt_x/pOt_TenL_Reals((pOt_INTEGER)(pOt_e)));
  2742. #line 377 "texts.mod"
  2743.     } else {
  2744. #line 377 "texts.mod"
  2745.       pOt_x=(pOt_LONGREAL)(pOt_TenL_Reals((pOt_INTEGER)(-pOt_e))*pOt_x);
  2746. #line 377 "texts.mod"
  2747.     }
  2748. #line 377 "texts.mod"
  2749.     if(( pOt_x>=1.000000000000000E1)) {
  2750.       pOt_x=(pOt_LONGREAL)(1.000000000000000E-1*pOt_x);
  2751. #line 378 "texts.mod"
  2752.       pOt_e+=(1);
  2753. #line 378 "texts.mod"
  2754.     }
  2755. #line 378 "texts.mod"
  2756.     pOt_x0=(pOt_LONGREAL)(pOt_TenL_Reals((pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_n),(pOt_LONGINT)(1),5))));
  2757.     pOt_x=(pOt_LONGREAL)(pOt_x0*pOt_x+5.000000000000000E-1);
  2758. #line 379 "texts.mod"
  2759.     if(( pOt_x>=1.000000000000000E1*pOt_x0)) {
  2760.       pOt_x=(pOt_LONGREAL)(1.000000000000000E-1*pOt_x);
  2761. #line 380 "texts.mod"
  2762.       pOt_e+=(1);
  2763. #line 380 "texts.mod"
  2764.     }
  2765. #line 380 "texts.mod"
  2766.     pOt_ConvertL_Reals((pOt_LONGREAL)(pOt_x),(pOt_INTEGER)(pOt_n),(pOt__ArrTypDsc**)&pOt_d);
  2767.     pOt_n-=(1);
  2768.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x10, pOt_n)]);
  2769. #line 382 "texts.mod"
  2770.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'.');
  2771. #line 382 "texts.mod"
  2772.     for(;;) {
  2773.       pOt_n-=(1);
  2774. #line 383 "texts.mod"
  2775.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x10, pOt_n)]);
  2776. #line 383 "texts.mod"
  2777.       if(( pOt_n==((pOt_INTEGER)(0)))) break;
  2778. #line 383 "texts.mod"
  2779.     }
  2780. #line 383 "texts.mod"
  2781.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'D');
  2782.     if(( pOt_e<((pOt_INTEGER)(0)))) {
  2783.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'-');
  2784. #line 385 "texts.mod"
  2785.       pOt_e=(pOt_INTEGER)(-pOt_e);
  2786. #line 385 "texts.mod"
  2787.     } else {
  2788. #line 385 "texts.mod"
  2789.       pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),'+');
  2790. #line 385 "texts.mod"
  2791.     }
  2792. #line 385 "texts.mod"
  2793.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(100),5)),(pOt_LONGINT)(48),5))));
  2794.     pOt_e=(pOt_INTEGER)((pOt_INTEGER)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(100),5));
  2795. #line 386 "texts.mod"
  2796.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(10),5)),(pOt_LONGINT)(48),5))));
  2797.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_e),(pOt_LONGINT)(10),5)),(pOt_LONGINT)(48),5))));
  2798. #line 389 "texts.mod"
  2799.   }
  2800. #line 389 "texts.mod"
  2801.  
  2802. pOt__Epilogue:;
  2803. #line 390 "texts.mod"
  2804.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2805. #line 390 "texts.mod"
  2806. }
  2807. #line 390 "texts.mod"
  2808.  
  2809. #line 390 "texts.mod"
  2810.  
  2811. #line 395 "texts.mod"
  2812. struct pOt__tag_D_Texts {
  2813. #line 395 "texts.mod"
  2814.   pOt__ArrTypDsc *td;
  2815. #line 395 "texts.mod"
  2816.   pOt_CHAR arr[0x10L];
  2817. #line 395 "texts.mod"
  2818. } ;
  2819. #line 395 "texts.mod"
  2820. static pOt__ArrTypDsc pOt__td_D_Texts= {
  2821. #line 395 "texts.mod"
  2822.   1,
  2823. #line 395 "texts.mod"
  2824.   0x10L, sizeof(pOt_CHAR)
  2825. #line 395 "texts.mod"
  2826. };
  2827. #line 395 "texts.mod"
  2828.  
  2829. #line 395 "texts.mod"
  2830.  
  2831. #line 395 "texts.mod"
  2832. extern void pOt_WriteLongRealHex_Texts
  2833. #line 395 "texts.mod"
  2834. #if pOt__ANSI_C
  2835. #line 395 "texts.mod"
  2836.   (struct pOt__tag_5_Texts *pOt_W, pOt_LONGREAL pOt_x)
  2837. #line 395 "texts.mod"
  2838. #else
  2839. #line 395 "texts.mod"
  2840.   (pOt_W, pOt_x)
  2841. #line 395 "texts.mod"
  2842.   struct pOt__tag_5_Texts *pOt_W;
  2843. #line 395 "texts.mod"
  2844.   pOt_LONGREAL pOt_x;
  2845. #line 395 "texts.mod"
  2846.  
  2847. #line 395 "texts.mod"
  2848. #endif
  2849. #line 395 "texts.mod"
  2850. {
  2851. #line 395 "texts.mod"
  2852.   pOt_INTEGER pOt_i;
  2853. #line 395 "texts.mod"
  2854.   struct pOt__tag_D_Texts pOt_d;
  2855. #line 395 "texts.mod"
  2856.   struct {void*next;} pOt__gc_ptrs;
  2857. #line 395 "texts.mod"
  2858.   pOt__gc_ptrs.next = pOt__gc_root;
  2859. #line 395 "texts.mod"
  2860.   pOt__init_var((pOt__TypDsc**)&pOt_d,(pOt__TypDsc*)&pOt__td_D_Texts);
  2861. #line 395 "texts.mod"
  2862.  
  2863. #line 395 "texts.mod"
  2864.   pOt_ConvertHL_Reals((pOt_LONGREAL)(pOt_x),(pOt__ArrTypDsc**)&pOt_d);
  2865. #line 395 "texts.mod"
  2866.   pOt_i=(pOt_INTEGER)(0);
  2867. #line 395 "texts.mod"
  2868.   for(;;) {
  2869.     pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W),pOt_d.arr[pOt__inxchk(__FILE__,__LINE__,0x10, pOt_i)]);
  2870. #line 396 "texts.mod"
  2871.     pOt_i+=(1);
  2872. #line 396 "texts.mod"
  2873.     if(( pOt_i==((pOt_INTEGER)(16)))) break;
  2874.   }
  2875. #line 397 "texts.mod"
  2876.  
  2877. #line 397 "texts.mod"
  2878. pOt__Epilogue:;
  2879. #line 397 "texts.mod"
  2880.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2881. #line 397 "texts.mod"
  2882. }
  2883. #line 397 "texts.mod"
  2884.  
  2885. #line 397 "texts.mod"
  2886.  
  2887. #line 401 "texts.mod"
  2888.  
  2889. #line 401 "texts.mod"
  2890. static struct pOt__tag_5_Texts *pOt_W_WriteDate_Texts;
  2891. #line 401 "texts.mod"
  2892. static pOt_LONGINT (*pOt_t_WriteDate_Texts), (*pOt_d_WriteDate_Texts);
  2893. #line 401 "texts.mod"
  2894.  
  2895. #line 401 "texts.mod"
  2896. extern void pOt_WriteDate_Texts pOt__ARGS((struct pOt__tag_5_Texts *, pOt_LONGINT , pOt_LONGINT ));
  2897. #line 401 "texts.mod"
  2898.  
  2899. #line 401 "texts.mod"
  2900.  
  2901.  
  2902. #line 402 "texts.mod"
  2903.  
  2904. #line 402 "texts.mod"
  2905. static void pOt_WritePair_WriteDate_Texts
  2906. #line 402 "texts.mod"
  2907. #if pOt__ANSI_C
  2908. #line 402 "texts.mod"
  2909.   (pOt_CHAR pOt_ch, pOt_LONGINT pOt_x)
  2910. #line 402 "texts.mod"
  2911. #else
  2912. #line 402 "texts.mod"
  2913.   (pOt_ch, pOt_x)
  2914. #line 402 "texts.mod"
  2915.   pOt_CHAR pOt_ch;
  2916. #line 402 "texts.mod"
  2917.   pOt_LONGINT pOt_x;
  2918. #line 402 "texts.mod"
  2919.  
  2920. #line 402 "texts.mod"
  2921. #endif
  2922. #line 402 "texts.mod"
  2923. {
  2924. #line 402 "texts.mod"
  2925.   struct {void*next;} pOt__gc_ptrs;
  2926. #line 402 "texts.mod"
  2927.   pOt__gc_ptrs.next = pOt__gc_root;
  2928. #line 402 "texts.mod"
  2929.  
  2930. #line 402 "texts.mod"
  2931.   pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W_WriteDate_Texts),pOt_ch);
  2932. #line 402 "texts.mod"
  2933.   pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W_WriteDate_Texts),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_x),(pOt_LONGINT)(10),6)),(pOt_LONGINT)(48),6))));
  2934.   pOt_Write_Texts((struct pOt__tag_5_Texts*)&(*pOt_W_WriteDate_Texts),(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_x),(pOt_LONGINT)(10),6)),(pOt_LONGINT)(48),6))));
  2935.  
  2936. #line 404 "texts.mod"
  2937. pOt__Epilogue:;
  2938. #line 404 "texts.mod"
  2939.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2940. #line 404 "texts.mod"
  2941. }
  2942. #line 404 "texts.mod"
  2943.  
  2944. #line 404 "texts.mod"
  2945. extern void pOt_WriteDate_Texts
  2946. #line 406 "texts.mod"
  2947. #if pOt__ANSI_C
  2948. #line 406 "texts.mod"
  2949.   (struct pOt__tag_5_Texts *pOt_W, pOt_LONGINT pOt_t, pOt_LONGINT pOt_d)
  2950. #line 406 "texts.mod"
  2951. #else
  2952. #line 406 "texts.mod"
  2953.   (pOt_W, pOt_t, pOt_d)
  2954. #line 406 "texts.mod"
  2955.   struct pOt__tag_5_Texts *pOt_W;
  2956. #line 406 "texts.mod"
  2957.   pOt_LONGINT pOt_t, pOt_d;
  2958. #line 406 "texts.mod"
  2959.  
  2960. #line 406 "texts.mod"
  2961. #endif
  2962. #line 406 "texts.mod"
  2963. {
  2964. #line 406 "texts.mod"
  2965.   struct pOt__tag_5_Texts *pOt_W_;
  2966. #line 406 "texts.mod"
  2967.   pOt_LONGINT (*pOt_t_), (*pOt_d_);
  2968. #line 406 "texts.mod"
  2969.   struct {void*next;} pOt__gc_ptrs;
  2970. #line 406 "texts.mod"
  2971.   pOt__gc_ptrs.next = pOt__gc_root;
  2972. #line 406 "texts.mod"
  2973.   pOt_W_=pOt_W_WriteDate_Texts;
  2974. #line 406 "texts.mod"
  2975.   pOt_W_WriteDate_Texts=pOt_W;
  2976. #line 406 "texts.mod"
  2977.   pOt_t_=pOt_t_WriteDate_Texts;
  2978. #line 406 "texts.mod"
  2979.   pOt_t_WriteDate_Texts=&pOt_t;
  2980. #line 406 "texts.mod"
  2981.   pOt_d_=pOt_d_WriteDate_Texts;
  2982. #line 406 "texts.mod"
  2983.   pOt_d_WriteDate_Texts=&pOt_d;
  2984. #line 406 "texts.mod"
  2985.  
  2986. #line 406 "texts.mod"
  2987.   pOt_WritePair_WriteDate_Texts(' ',(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_d),(pOt_LONGINT)(32),6)));
  2988.   pOt_WritePair_WriteDate_Texts('.',(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_d),(pOt_LONGINT)(32),6)),(pOt_LONGINT)(16),6)));
  2989. #line 407 "texts.mod"
  2990.   pOt_WritePair_WriteDate_Texts('.',(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_d),(pOt_LONGINT)(512),6)),(pOt_LONGINT)(128),6)));
  2991. #line 407 "texts.mod"
  2992.   pOt_WritePair_WriteDate_Texts(' ',(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_t),(pOt_LONGINT)(4096),6)),(pOt_LONGINT)(32),6)));
  2993.   pOt_WritePair_WriteDate_Texts(':',(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_t),(pOt_LONGINT)(64),6)),(pOt_LONGINT)(64),6)));
  2994. #line 408 "texts.mod"
  2995.   pOt_WritePair_WriteDate_Texts(':',(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_t),(pOt_LONGINT)(64),6)));
  2996.  
  2997. #line 409 "texts.mod"
  2998. pOt__Epilogue:;
  2999. #line 409 "texts.mod"
  3000.   pOt_W_WriteDate_Texts=pOt_W_;
  3001. #line 409 "texts.mod"
  3002.   pOt_t_WriteDate_Texts=pOt_t_;
  3003. #line 409 "texts.mod"
  3004.   pOt_d_WriteDate_Texts=pOt_d_;
  3005. #line 409 "texts.mod"
  3006.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  3007. #line 409 "texts.mod"
  3008. }
  3009. #line 409 "texts.mod"
  3010.  
  3011. #line 409 "texts.mod"
  3012.  
  3013. #line 412 "texts.mod"
  3014.  
  3015. #line 412 "texts.mod"
  3016.  
  3017. #line 412 "texts.mod"
  3018. extern void pOt_Open_Texts
  3019. #line 412 "texts.mod"
  3020. #if pOt__ANSI_C
  3021. #line 412 "texts.mod"
  3022.   (pOt_File_Files *pOt_T, pOt__DynArr *pOt_name)
  3023. #line 412 "texts.mod"
  3024. #else
  3025. #line 412 "texts.mod"
  3026.   (pOt_T, pOt_name)
  3027. #line 412 "texts.mod"
  3028.   pOt_File_Files *pOt_T;
  3029. #line 412 "texts.mod"
  3030.   pOt__DynArr *pOt_name;
  3031. #line 412 "texts.mod"
  3032.  
  3033. #line 412 "texts.mod"
  3034. #endif
  3035. #line 412 "texts.mod"
  3036. {
  3037. #line 412 "texts.mod"
  3038.   struct {void*next;} pOt__gc_ptrs;
  3039. #line 412 "texts.mod"
  3040.   pOt__gc_ptrs.next = pOt__gc_root;
  3041. #line 412 "texts.mod"
  3042.  
  3043. #line 412 "texts.mod"
  3044.   (*pOt_T)=(struct pOt__tag_1_Files*)(pOt_Old_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_name))));
  3045. #line 412 "texts.mod"
  3046.   if(( (*pOt_T)==pOt_NIL)) {
  3047.     (*pOt_T)=(struct pOt__tag_1_Files*)(pOt_New_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_name))));
  3048. #line 413 "texts.mod"
  3049.   }
  3050. #line 413 "texts.mod"
  3051.  
  3052. pOt__Epilogue:;
  3053. #line 414 "texts.mod"
  3054.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  3055. #line 414 "texts.mod"
  3056.   pOt__rm_par((pOt__TypDsc**)pOt_name);
  3057. #line 414 "texts.mod"
  3058. }
  3059. #line 414 "texts.mod"
  3060.  
  3061. #line 414 "texts.mod"
  3062.  
  3063. #line 417 "texts.mod"
  3064.  
  3065. #line 417 "texts.mod"
  3066.  
  3067. #line 417 "texts.mod"
  3068. extern void pOt_Create_Texts
  3069. #line 417 "texts.mod"
  3070. #if pOt__ANSI_C
  3071. #line 417 "texts.mod"
  3072.   (pOt_File_Files *pOt_T, pOt__DynArr *pOt_name)
  3073. #line 417 "texts.mod"
  3074. #else
  3075. #line 417 "texts.mod"
  3076.   (pOt_T, pOt_name)
  3077. #line 417 "texts.mod"
  3078.   pOt_File_Files *pOt_T;
  3079. #line 417 "texts.mod"
  3080.   pOt__DynArr *pOt_name;
  3081. #line 417 "texts.mod"
  3082.  
  3083. #line 417 "texts.mod"
  3084. #endif
  3085. #line 417 "texts.mod"
  3086. {
  3087. #line 417 "texts.mod"
  3088.   struct {void*next;} pOt__gc_ptrs;
  3089. #line 417 "texts.mod"
  3090.   pOt__gc_ptrs.next = pOt__gc_root;
  3091. #line 417 "texts.mod"
  3092.  
  3093. #line 417 "texts.mod"
  3094.   (*pOt_T)=(struct pOt__tag_1_Files*)(pOt_New_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_name))));
  3095.  
  3096. #line 418 "texts.mod"
  3097. pOt__Epilogue:;
  3098. #line 418 "texts.mod"
  3099.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  3100. #line 418 "texts.mod"
  3101.   pOt__rm_par((pOt__TypDsc**)pOt_name);
  3102. #line 418 "texts.mod"
  3103. }
  3104. #line 418 "texts.mod"
  3105.  
  3106. #line 418 "texts.mod"
  3107.  
  3108. #line 421 "texts.mod"
  3109.  
  3110. #line 421 "texts.mod"
  3111.  
  3112. #line 421 "texts.mod"
  3113. extern void pOt_Close_Texts
  3114. #line 421 "texts.mod"
  3115. #if pOt__ANSI_C
  3116. #line 421 "texts.mod"
  3117.   (pOt_File_Files pOt_T)
  3118. #line 421 "texts.mod"
  3119. #else
  3120. #line 421 "texts.mod"
  3121.   (pOt_T)
  3122. #line 421 "texts.mod"
  3123.   pOt_File_Files pOt_T;
  3124. #line 421 "texts.mod"
  3125.  
  3126. #line 421 "texts.mod"
  3127. #endif
  3128. #line 421 "texts.mod"
  3129. {
  3130. #line 421 "texts.mod"
  3131.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  3132. #line 421 "texts.mod"
  3133.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  3134. #line 421 "texts.mod"
  3135.   pOt__gc_ptrs.next = pOt__gc_root;
  3136. #line 421 "texts.mod"
  3137.   pOt__gc_strs.next = &pOt__gc_ptrs;
  3138. #line 421 "texts.mod"
  3139.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  3140. #line 421 "texts.mod"
  3141.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  3142. #line 421 "texts.mod"
  3143.   pOt__gc_ptrs.vars[0x0]=&pOt_T;
  3144. #line 421 "texts.mod"
  3145.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  3146. #line 421 "texts.mod"
  3147.  
  3148. #line 421 "texts.mod"
  3149.   pOt_Close_Files((struct pOt__tag_1_Files*)(pOt_T));
  3150.  
  3151. #line 422 "texts.mod"
  3152. pOt__Epilogue:;
  3153. #line 422 "texts.mod"
  3154.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  3155. #line 422 "texts.mod"
  3156. }
  3157. #line 422 "texts.mod"
  3158.  
  3159. #line 422 "texts.mod"
  3160. void pOt_Texts__body()
  3161. #line 424 "texts.mod"
  3162. {
  3163. #line 424 "texts.mod"
  3164.   static int pOt_Texts__loaded=0;
  3165. #line 424 "texts.mod"
  3166.   if(!pOt_Texts__loaded){
  3167. #line 424 "texts.mod"
  3168.     pOt_Texts__loaded=1;
  3169. #line 424 "texts.mod"
  3170.  
  3171. #line 424 "texts.mod"
  3172.     pOt_Files__body();
  3173. #line 424 "texts.mod"
  3174.     pOt_Reals__body();
  3175. #line 424 "texts.mod"
  3176.  
  3177. #line 424 "texts.mod"
  3178.     pOt__gc_ptrs.next=pOt__gc_root;
  3179. #line 424 "texts.mod"
  3180.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  3181. #line 424 "texts.mod"
  3182.  
  3183. #line 424 "texts.mod"
  3184.  
  3185. #line 424 "texts.mod"
  3186.  
  3187. #line 424 "texts.mod"
  3188.   pOt__Epilogue:;
  3189. #line 424 "texts.mod"
  3190.   }
  3191. #line 424 "texts.mod"
  3192. }
  3193. #line 424 "texts.mod"
  3194.