home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / COCO < prev    next >
Encoding:
Text File  |  1995-05-06  |  13.0 KB  |  400 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Files.h"
  5. #include "Strings.h"
  6. #include "COCS.h"
  7.  
  8. #include "hi.COCO"
  9.  
  10.  
  11. struct pOt__tag_0_COCO {
  12.   pOt__ArrTypDsc *td;
  13.   pOt_CHAR arr[0x2L];
  14. } ;
  15. pOt__ArrTypDsc pOt__td_0_COCO= {
  16.   1,
  17.   0x2L, sizeof(pOt_CHAR)
  18. };
  19.  
  20. pOt_BOOLEAN pOt_fold_COCO, pOt_linenum_COCO, pOt_macwrap_COCO, pOt_unxwrap_COCO;
  21. static struct pOt__tag_0_COCO pOt_NL_COCO;
  22. static pOt_INTEGER pOt_NLlen_COCO;
  23. static pOt_File_Files pOt_ofile_COCO;
  24. static struct pOt__tag_2_Files pOt_Output_COCO;
  25. static pOt_INTEGER pOt_indlevel_COCO;
  26. static pOt_BOOLEAN pOt_newline_COCO;
  27. static pOt_LONGINT pOt_txtline_COCO;
  28. static pOt_INTEGER pOt_cpos_COCO;
  29.  
  30. static struct {void *next, *vars[0x2];} pOt__gc_ptrs = {pOt_NIL,{
  31.   &pOt_ofile_COCO,
  32.   pOt_NIL
  33. }};
  34. static struct {void *next, *vars[0x2];} pOt__gc_strs = {&pOt__gc_ptrs,{
  35.   &pOt_Output_COCO,
  36.   pOt_NIL
  37. }};
  38.  
  39.  
  40.  
  41.  
  42. extern pOt_LONGINT pOt_Size_COCO()
  43. {
  44.   pOt_LONGINT pOt__retval;
  45.   int pOt__gc_enabled_prev;
  46.   pOt__gc_enabled_prev=pOt__gc_enabled;
  47.   pOt__gc_enabled=0;
  48.  
  49.   pOt__retval =(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_Pos_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO)),(pOt_LONGINT)(1),6));
  50.   goto pOt__Epilogue;
  51.  
  52.   pOt__halt(__FILE__,__LINE__,0x11);
  53. pOt__Epilogue:;
  54.   pOt__gc_enabled=pOt__gc_enabled_prev;
  55.   return pOt__retval;
  56. }
  57.  
  58.  
  59.  
  60.  
  61. extern void pOt_Open_COCO
  62. #if pOt__ANSI_C
  63.   (pOt__DynArr *pOt_name)
  64. #else
  65.   (pOt_name)
  66.   pOt__DynArr *pOt_name;
  67.  
  68. #endif
  69. {
  70.   struct {void*next;} pOt__gc_ptrs;
  71.   pOt__gc_ptrs.next = pOt__gc_root;
  72.  
  73.   pOt_ofile_COCO=(struct pOt__tag_1_Files*)(pOt_New_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_name))));
  74.   if(( pOt_ofile_COCO==pOt_NIL)) {
  75.     pOt__halt(__FILE__,__LINE__,33);
  76.   }
  77.   pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,(struct pOt__tag_1_Files*)(pOt_ofile_COCO),(pOt_LONGINT)(0));
  78.   pOt_indlevel_COCO=(pOt_INTEGER)(0);
  79.   pOt_txtline_COCO=(pOt_LONGINT)(1);
  80.   pOt_newline_COCO=(pOt_BOOLEAN)1;
  81.   pOt_cpos_COCO=(pOt_INTEGER)(0);
  82.   pOt_NLlen_COCO=(pOt_INTEGER)(0);
  83.   if(pOt_macwrap_COCO) {
  84.     pOt_NL_COCO.arr[pOt__inxchk(__FILE__,__LINE__,0x2, pOt_NLlen_COCO)]='\15';
  85.     pOt_NLlen_COCO+=(1);
  86.   }
  87.   if(pOt_unxwrap_COCO) {
  88.     pOt_NL_COCO.arr[pOt__inxchk(__FILE__,__LINE__,0x2, pOt_NLlen_COCO)]='\12';
  89.     pOt_NLlen_COCO+=(1);
  90.   }
  91.   if(( pOt_NLlen_COCO==((pOt_INTEGER)(0)))) {
  92.     pOt_NL_COCO.arr[pOt__inxchk(__FILE__,__LINE__,0x2, pOt_NLlen_COCO)]='\12';
  93.     pOt_NLlen_COCO+=(1);
  94.   }
  95.  
  96. pOt__Epilogue:;
  97.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  98. }
  99.  
  100.  
  101.  
  102.  
  103. extern void pOt_Close_COCO()
  104. {
  105.   struct {void*next;} pOt__gc_ptrs;
  106.   pOt__gc_ptrs.next = pOt__gc_root;
  107.  
  108.   pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,(struct pOt__tag_1_Files*)(pOt_NIL),(pOt_LONGINT)(0));
  109.   pOt_Close_Files((struct pOt__tag_1_Files*)(pOt_ofile_COCO));
  110.  
  111. pOt__Epilogue:;
  112.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  113. }
  114.  
  115.  
  116.  
  117.  
  118. extern void pOt_Purge_COCO()
  119. {
  120.   struct {void*next;} pOt__gc_ptrs;
  121.   pOt__gc_ptrs.next = pOt__gc_root;
  122.  
  123.   pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,(struct pOt__tag_1_Files*)(pOt_NIL),(pOt_LONGINT)(0));
  124.   pOt_Purge_Files((struct pOt__tag_1_Files*)(pOt_ofile_COCO));
  125.  
  126. pOt__Epilogue:;
  127.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  128. }
  129.  
  130.  
  131.  
  132.  
  133. extern void pOt_Indent_COCO()
  134. {
  135.   struct {void*next;} pOt__gc_ptrs;
  136.   pOt__gc_ptrs.next = pOt__gc_root;
  137.  
  138.   pOt_indlevel_COCO+=(2);
  139.  
  140. pOt__Epilogue:;
  141.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  142. }
  143.  
  144.  
  145.  
  146.  
  147. extern void pOt_Undent_COCO()
  148. {
  149.   struct {void*next;} pOt__gc_ptrs;
  150.   pOt__gc_ptrs.next = pOt__gc_root;
  151.  
  152.   if(( pOt_indlevel_COCO>=((pOt_INTEGER)(2)))) {
  153.     pOt_indlevel_COCO-=(2);
  154.   }
  155.  
  156. pOt__Epilogue:;
  157.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  158. }
  159.  
  160.  
  161.  
  162.  
  163. extern void pOt_Separate_COCO()
  164. {
  165.   struct {void*next;} pOt__gc_ptrs;
  166.   pOt__gc_ptrs.next = pOt__gc_root;
  167.  
  168.   pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,' ');
  169.  
  170. pOt__Epilogue:;
  171.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  172. }
  173.  
  174.  
  175. struct pOt__tag_1_COCO {
  176.   pOt__ArrTypDsc *td;
  177.   pOt_CHAR arr[0x7L];
  178. } ;
  179. static pOt__ArrTypDsc pOt__td_1_COCO= {
  180.   1,
  181.   0x7L, sizeof(pOt_CHAR)
  182. };
  183. struct pOt__tag_2_COCO {
  184.   pOt__ArrTypDsc *td;
  185.   pOt_CHAR arr[0xBL];
  186. } ;
  187. static pOt__ArrTypDsc pOt__td_2_COCO= {
  188.   1,
  189.   0xBL, sizeof(pOt_CHAR)
  190. };
  191.  
  192.  
  193. extern void pOt_Wrap_COCO()
  194. {
  195.   pOt_INTEGER pOt_i;
  196.   struct pOt__tag_1_COCO pOt_linepgm;
  197.   struct pOt__tag_2_COCO pOt_lineno;
  198.   struct {void*next;} pOt__gc_ptrs;
  199.   pOt__gc_ptrs.next = pOt__gc_root;
  200.   pOt__init_var((pOt__TypDsc**)&pOt_linepgm,(pOt__TypDsc*)&pOt__td_1_COCO);
  201.   pOt__init_var((pOt__TypDsc**)&pOt_lineno,(pOt__TypDsc*)&pOt__td_2_COCO);
  202.  
  203.   pOt_newline_COCO=(pOt_BOOLEAN)1;
  204.   pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_NL_COCO,1,0),(pOt_LONGINT)(pOt_NLlen_COCO));
  205.   if((pOt_linenum_COCO&&((pOt_txtline_COCO!=pOt_txtpos_COCS.pOt_line)))) {
  206.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_linepgm,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__td_1_COCO)));
  207.     pOt_FromLInt_Strings((pOt_LONGINT)(pOt_txtpos_COCS.pOt_line),10,(pOt__ArrTypDsc**)&pOt_lineno);
  208.     pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_linepgm,1,0),(pOt_LONGINT)(pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_linepgm))));
  209.     pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_lineno,1,0),(pOt_LONGINT)(pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_lineno))));
  210.     pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,' ');
  211.     pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,'\"');
  212.     pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_txtpos_COCS.pOt_name,1,0),(pOt_LONGINT)(pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_txtpos_COCS.pOt_name))));
  213.     pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,'\"');
  214.     pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_NL_COCO,1,0),(pOt_LONGINT)(pOt_NLlen_COCO));
  215.     pOt_txtline_COCO=(pOt_LONGINT)(pOt_txtpos_COCS.pOt_line);
  216.   }
  217.   pOt_txtline_COCO+=(1);
  218.  
  219. pOt__Epilogue:;
  220.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  221. }
  222.  
  223.  
  224.  
  225.  
  226. extern void pOt_PutSeq_COCO
  227. #if pOt__ANSI_C
  228.   (pOt__DynArr *pOt_s)
  229. #else
  230.   (pOt_s)
  231.   pOt__DynArr *pOt_s;
  232.  
  233. #endif
  234. {
  235.   pOt_INTEGER pOt_i, pOt_j;
  236.   struct {void*next;} pOt__gc_ptrs;
  237.   pOt__gc_ptrs.next = pOt__gc_root;
  238.  
  239.   if(pOt_newline_COCO) {
  240.     pOt_newline_COCO=(pOt_BOOLEAN)0;
  241.     pOt_i=(pOt_INTEGER)(0);
  242.     for(;;) {
  243.       if(( pOt_i!=pOt_indlevel_COCO)); else break;
  244.       pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,' ');
  245.       pOt_i+=(1);
  246.     }
  247.     pOt_cpos_COCO=(pOt_INTEGER)(pOt_i);
  248.   }
  249.   pOt_i=(pOt_INTEGER)(0);
  250.   pOt_j=(pOt_INTEGER)(0);
  251.   for(;;) {
  252.     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;
  253.     pOt_i+=(1);
  254.   }
  255.   if(pOt_fold_COCO) {
  256.     for(;;) {
  257.       if(( pOt_i!=pOt_j)) {
  258.         (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_j)))))=(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))));
  259.       }
  260.       if(((unsigned char) (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_j)))))==(unsigned char)'\0')) {
  261.         goto pOt__LoopLabel_1;
  262.       }
  263.       pOt_i+=(1);
  264.       pOt_j+=(1);
  265.       if((((pOt_cpos_COCO>=((pOt_INTEGER)(80))))&&(((((unsigned char)(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))))==(unsigned char)'('))||(((unsigned char)(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))))==(unsigned char)')')))))) {
  266.         pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&(*pOt_s),1,0),(pOt_LONGINT)(pOt_j));
  267.         pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,'\\');
  268.         pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_NL_COCO,1,0),(pOt_LONGINT)(pOt_NLlen_COCO));
  269.         pOt_j=(pOt_INTEGER)(0);
  270.         pOt_cpos_COCO=(pOt_INTEGER)(0);
  271.       } else {
  272.         pOt_cpos_COCO+=(1);
  273.       }
  274.     }
  275.   pOt__LoopLabel_1:;
  276.   } else if(( pOt_i!=pOt_j)) {
  277.     for(;;) {
  278.       (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_j)))))=(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))));
  279.       if(((unsigned char) (*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_j)))))==(unsigned char)'\0')) {
  280.         goto pOt__LoopLabel_2;
  281.       }
  282.       pOt_i+=(1);
  283.       pOt_j+=(1);
  284.     }
  285.   pOt__LoopLabel_2:;
  286.   } else {
  287.     pOt_j=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_s)))));
  288.   }
  289.   pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&(*pOt_s),1,0),(pOt_LONGINT)(pOt_j));
  290.  
  291. pOt__Epilogue:;
  292.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  293.   pOt__rm_par((pOt__TypDsc**)pOt_s);
  294. }
  295.  
  296.  
  297.  
  298.  
  299. extern void pOt_PutPP_COCO
  300. #if pOt__ANSI_C
  301.   (pOt__DynArr *pOt_s)
  302. #else
  303.   (pOt_s)
  304.   pOt__DynArr *pOt_s;
  305.  
  306. #endif
  307. {
  308.   pOt_INTEGER pOt_i, pOt_j;
  309.   struct {void*next;} pOt__gc_ptrs;
  310.   pOt__gc_ptrs.next = pOt__gc_root;
  311.  
  312.   pOt_Wrap_COCO();
  313.   pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,'#');
  314.   if(( pOt_indlevel_COCO!=((pOt_INTEGER)(0)))) {
  315.     pOt_i=(pOt_INTEGER)(2);
  316.   }
  317.   for(;;) {
  318.     if(( pOt_i!=pOt_indlevel_COCO)); else break;
  319.     pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,' ');
  320.     pOt_i+=(1);
  321.   }
  322.   pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&(*pOt_s),1,0),(pOt_LONGINT)(pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_s)))));
  323.   pOt_Wrap_COCO();
  324.  
  325. pOt__Epilogue:;
  326.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  327.   pOt__rm_par((pOt__TypDsc**)pOt_s);
  328. }
  329.  
  330.  
  331. struct pOt__tag_3_COCO {
  332.   pOt__ArrTypDsc *td;
  333.   pOt_CHAR arr[0x4L];
  334. } ;
  335. static pOt__ArrTypDsc pOt__td_3_COCO= {
  336.   1,
  337.   0x4L, sizeof(pOt_CHAR)
  338. };
  339.  
  340.  
  341. extern void pOt_PutComment_COCO
  342. #if pOt__ANSI_C
  343.   (pOt__DynArr *pOt_s)
  344. #else
  345.   (pOt_s)
  346.   pOt__DynArr *pOt_s;
  347.  
  348. #endif
  349. {
  350.   pOt_INTEGER pOt_i;
  351.   struct pOt__tag_3_COCO pOt_str;
  352.   struct {void*next;} pOt__gc_ptrs;
  353.   pOt__gc_ptrs.next = pOt__gc_root;
  354.   pOt__init_var((pOt__TypDsc**)&pOt_str,(pOt__TypDsc*)&pOt__td_3_COCO);
  355.  
  356.   pOt_i=(pOt_INTEGER)(0);
  357.   pOt__arr_assign((pOt__ArrTypDsc**)& pOt_str,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xCL],&pOt__td_3_COCO)));
  358.   pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_str,1,0),(pOt_LONGINT)(pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_str))));
  359.   for(;;) {
  360.     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')); else break;
  361.     pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i))))));
  362.     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)'*'))&&(((unsigned char)(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,(pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5))))))==(unsigned char)'/')))) {
  363.       pOt_Write_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,'@');
  364.     }
  365.     pOt_i+=(1);
  366.   }
  367.   pOt__arr_assign((pOt__ArrTypDsc**)& pOt_str,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x14L],&pOt__td_3_COCO)));
  368.   pOt_WriteBytes_Files((struct pOt__tag_2_Files*)&pOt_Output_COCO,pOt__make_byte_arr((void*)&pOt_str,1,0),(pOt_LONGINT)(pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_str))));
  369.  
  370. pOt__Epilogue:;
  371.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  372.   pOt__rm_par((pOt__TypDsc**)pOt_s);
  373. }
  374.  
  375. void pOt_COCO__body()
  376. {
  377.   static int pOt_COCO__loaded=0;
  378.   if(!pOt_COCO__loaded){
  379.     pOt_COCO__loaded=1;
  380.  
  381.     pOt_Files__body();
  382.     pOt_Strings__body();
  383.     pOt_COCS__body();
  384.  
  385.     pOt__gc_ptrs.next=pOt__gc_root;
  386.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  387.  
  388.     pOt__init_var((pOt__TypDsc**)&pOt_NL_COCO,(pOt__TypDsc*)&pOt__td_0_COCO);
  389.     pOt_ofile_COCO=pOt_NIL;
  390.     pOt__init_var((pOt__TypDsc**)&pOt_Output_COCO,(pOt__TypDsc*)&pOt__td_2_Files);
  391.  
  392.     pOt_fold_COCO=(pOt_BOOLEAN)0;
  393.     pOt_linenum_COCO=(pOt_BOOLEAN)0;
  394.     pOt_macwrap_COCO=(pOt_BOOLEAN)0;
  395.     pOt_unxwrap_COCO=(pOt_BOOLEAN)1;
  396.  
  397.   pOt__Epilogue:;
  398.   }
  399. }
  400.