home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / potland / pot / tests / c / Hello next >
Encoding:
Text File  |  1995-05-07  |  3.7 KB  |  159 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Files.h"
  5. #include "Texts.h"
  6.  
  7. #include "hi.Hello"
  8.  
  9. typedef void (*pOt_prtyp_Hello) pOt__ARGS((pOt__DynArr *));
  10. typedef pOt_INTEGER (*pOt_prtypa_Hello) pOt__ARGS((pOt_CHAR ));
  11.  
  12. struct pOt__tag_0_Hello {
  13.   pOt__PtrArrTypDsc *td;
  14.   pOt_CHAR (*arr[0x4L]) pOt__ARGS((pOt_INTEGER ));
  15. } ;
  16. pOt__PtrArrTypDsc pOt__td_0_Hello= {
  17.   3,
  18.   0x4L, sizeof(pOt_CHAR(*)())
  19. };
  20.  
  21. static struct pOt__tag_5_Texts pOt_W_Hello;
  22. static pOt_prtyp_Hello pOt_a_Hello;
  23. static pOt_prtypa_Hello pOt_b_Hello;
  24. static pOt_CHAR (*pOt_c_Hello) pOt__ARGS((pOt__DynArr *));
  25. static struct pOt__tag_0_Hello pOt_d_Hello;
  26.  
  27. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  28.   pOt_NIL
  29. }};
  30. static struct {void *next, *vars[0x2];} pOt__gc_strs = {&pOt__gc_ptrs,{
  31.   &pOt_W_Hello,
  32.   pOt_NIL
  33. }};
  34.  
  35.  
  36.  
  37.  
  38. extern void pOt_p0_Hello
  39. #if pOt__ANSI_C
  40.   (pOt__DynArr *pOt_a)
  41. #else
  42.   (pOt_a)
  43.   pOt__DynArr *pOt_a;
  44.  
  45. #endif
  46. {
  47.   struct {void*next;} pOt__gc_ptrs;
  48.   pOt__gc_ptrs.next = pOt__gc_root;
  49.  
  50.   pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_Hello,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_a)));
  51.   pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_W_Hello);
  52.  
  53. pOt__Epilogue:;
  54.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  55.   pOt__rm_par((pOt__TypDsc**)pOt_a);
  56. }
  57.  
  58.  
  59.  
  60.  
  61. extern pOt_INTEGER pOt_p1_Hello
  62. #if pOt__ANSI_C
  63.   (pOt_CHAR pOt_a)
  64. #else
  65.   (pOt_a)
  66.   pOt_CHAR pOt_a;
  67.  
  68. #endif
  69. {
  70.   pOt_INTEGER pOt__retval;
  71.   int pOt__gc_enabled_prev;
  72.   pOt__gc_enabled_prev=pOt__gc_enabled;
  73.   pOt__gc_enabled=0;
  74.  
  75.   pOt__retval =(pOt_INTEGER)((pOt_INTEGER)((unsigned char)pOt_a));
  76.   goto pOt__Epilogue;
  77.  
  78.   pOt__halt(__FILE__,__LINE__,0x11);
  79. pOt__Epilogue:;
  80.   pOt__gc_enabled=pOt__gc_enabled_prev;
  81.   return pOt__retval;
  82. }
  83.  
  84.  
  85.  
  86.  
  87. extern pOt_CHAR pOt_p2_Hello
  88. #if pOt__ANSI_C
  89.   (pOt__DynArr *pOt_a)
  90. #else
  91.   (pOt_a)
  92.   pOt__DynArr *pOt_a;
  93.  
  94. #endif
  95. {
  96.   pOt_CHAR pOt__retval;
  97.   int pOt__gc_enabled_prev;
  98.   pOt__gc_enabled_prev=pOt__gc_enabled;
  99.   pOt__gc_enabled=0;
  100.  
  101.   pOt_p0_Hello(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_a)));
  102.   pOt__retval ='a';
  103.   goto pOt__Epilogue;
  104.  
  105.   pOt__halt(__FILE__,__LINE__,0x11);
  106. pOt__Epilogue:;
  107.   pOt__gc_enabled=pOt__gc_enabled_prev;
  108.   pOt__rm_par((pOt__TypDsc**)pOt_a);
  109.   return pOt__retval;
  110. }
  111.  
  112.  
  113.  
  114.  
  115. extern void pOt_Say_Hello()
  116. {
  117.   pOt_CHAR pOt_ch;
  118.   pOt_INTEGER pOt_ii;
  119.   struct {void*next;} pOt__gc_ptrs;
  120.   pOt__gc_ptrs.next = pOt__gc_root;
  121.  
  122.   pOt_a_Hello(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x5]))));
  123.   pOt_ch=pOt_c_Hello(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xCL],&pOt__str_td[0x3]))));
  124.   pOt_ii=(pOt_INTEGER)(pOt_b_Hello('a'));
  125.   pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_Hello,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x14L],&pOt__str_td[0xC]))));
  126.   pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_W_Hello);
  127.   pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_Hello.pOt_buf);
  128.  
  129. pOt__Epilogue:;
  130.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  131. }
  132.  
  133. void pOt_Hello__body()
  134. {
  135.   static int pOt_Hello__loaded=0;
  136.   if(!pOt_Hello__loaded){
  137.     pOt_Hello__loaded=1;
  138.  
  139.     pOt_Files__body();
  140.     pOt_Texts__body();
  141.  
  142.     pOt__gc_ptrs.next=pOt__gc_root;
  143.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  144.  
  145.     pOt__init_var((pOt__TypDsc**)&pOt_W_Hello,(pOt__TypDsc*)&pOt__td_5_Texts);
  146.     pOt_a_Hello=pOt_NIL;
  147.     pOt_b_Hello=pOt_NIL;
  148.     pOt_c_Hello=pOt_NIL;
  149.     pOt__init_var((pOt__TypDsc**)&pOt_d_Hello,(pOt__TypDsc*)&pOt__td_0_Hello);
  150.  
  151.     pOt_OpenWriter_Texts((struct pOt__tag_5_Texts*)&pOt_W_Hello);
  152.     pOt_a_Hello=pOt_p0_Hello;
  153.     pOt_b_Hello=pOt_p1_Hello;
  154.     pOt_c_Hello=pOt_p2_Hello;
  155.  
  156.   pOt__Epilogue:;
  157.   }
  158. }
  159.