home *** CD-ROM | disk | FTP | other *** search
/ ftp.uni-stuttgart.de/pub/systems/acorn/ / Acorn.tar / Acorn / acornet / dev / oberon / potsrc.spk / lib / Core / c / OS < prev    next >
Text File  |  1995-01-22  |  3KB  |  192 lines
  1. /* This code is generated by pOt. */
  2. #line 3 "os.mod"
  3.  
  4. #line 3 "os.mod"
  5. #include <pOtRTL.h>
  6. #line 3 "os.mod"
  7.  
  8. #line 3 "os.mod"
  9. #include "OS.hi"
  10. #line 3 "os.mod"
  11.  
  12. #line 3 "os.mod"
  13.  
  14. #line 3 "os.mod"
  15.  
  16. #line 3 "os.mod"
  17. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  18. #line 3 "os.mod"
  19.   pOt_NIL
  20. #line 3 "os.mod"
  21. }};
  22. #line 3 "os.mod"
  23. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  24. #line 3 "os.mod"
  25.   pOt_NIL
  26. #line 3 "os.mod"
  27. }};
  28. #line 3 "os.mod"
  29.  
  30. #line 3 "os.mod"
  31.  
  32.  
  33. #line 4 "os.mod"
  34. extern pOt_LONGINT pOt_Time_OS()
  35. #line 4 "os.mod"
  36. {
  37. #line 4 "os.mod"
  38.   pOt_LONGINT pOt__retval;
  39. #line 4 "os.mod"
  40.   int pOt__gc_enabled_prev;
  41. #line 4 "os.mod"
  42.   pOt__gc_enabled_prev=pOt__gc_enabled;
  43. #line 4 "os.mod"
  44.   pOt__gc_enabled=0;
  45. #line 4 "os.mod"
  46.  
  47. #line 4 "os.mod"
  48.  
  49. #line 4 "os.mod"
  50.   pOt__halt(__FILE__,__LINE__,0x11);
  51. #line 4 "os.mod"
  52. pOt__Epilogue:;
  53. #line 4 "os.mod"
  54.   pOt__gc_enabled=pOt__gc_enabled_prev;
  55. #line 4 "os.mod"
  56.   return pOt__retval;
  57. #line 4 "os.mod"
  58. }
  59. #line 4 "os.mod"
  60.  
  61. #line 4 "os.mod"
  62.  
  63. #line 7 "os.mod"
  64.  
  65. #line 7 "os.mod"
  66. extern void pOt_GetClock_OS
  67. #line 7 "os.mod"
  68. #if pOt__ANSI_C
  69. #line 7 "os.mod"
  70.   (pOt_LONGINT *pOt_date, pOt_LONGINT *pOt_time)
  71. #line 7 "os.mod"
  72. #else
  73. #line 7 "os.mod"
  74.   (pOt_date, pOt_time)
  75. #line 7 "os.mod"
  76.   pOt_LONGINT *pOt_date, *pOt_time;
  77. #line 7 "os.mod"
  78.  
  79. #line 7 "os.mod"
  80. #endif
  81. #line 7 "os.mod"
  82. {
  83. #line 7 "os.mod"
  84.   struct {void*next;} pOt__gc_ptrs;
  85. #line 7 "os.mod"
  86.   pOt__gc_ptrs.next = pOt__gc_root;
  87. #line 7 "os.mod"
  88.  
  89. #line 7 "os.mod"
  90.  
  91. #line 7 "os.mod"
  92. pOt__Epilogue:;
  93. #line 7 "os.mod"
  94.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  95. #line 7 "os.mod"
  96. }
  97. #line 7 "os.mod"
  98.  
  99. #line 7 "os.mod"
  100.  
  101. #line 10 "os.mod"
  102.  
  103. #line 10 "os.mod"
  104. extern void pOt_GetParFile_OS
  105. #line 10 "os.mod"
  106. #if pOt__ANSI_C
  107. #line 10 "os.mod"
  108.   (pOt__DynArr *pOt_fname)
  109. #line 10 "os.mod"
  110. #else
  111. #line 10 "os.mod"
  112.   (pOt_fname)
  113. #line 10 "os.mod"
  114.   pOt__DynArr *pOt_fname;
  115. #line 10 "os.mod"
  116.  
  117. #line 10 "os.mod"
  118. #endif
  119. #line 10 "os.mod"
  120. {
  121. #line 10 "os.mod"
  122.   struct {void*next;} pOt__gc_ptrs;
  123. #line 10 "os.mod"
  124.   pOt__gc_ptrs.next = pOt__gc_root;
  125. #line 10 "os.mod"
  126.  
  127. #line 10 "os.mod"
  128.  
  129. #line 10 "os.mod"
  130. pOt__Epilogue:;
  131. #line 10 "os.mod"
  132.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  133. #line 10 "os.mod"
  134. }
  135. #line 10 "os.mod"
  136.  
  137. #line 10 "os.mod"
  138.  
  139. #line 13 "os.mod"
  140.  
  141. #line 13 "os.mod"
  142. extern void pOt_GC_OS()
  143. #line 13 "os.mod"
  144. {
  145. #line 13 "os.mod"
  146.   struct {void*next;} pOt__gc_ptrs;
  147. #line 13 "os.mod"
  148.   pOt__gc_ptrs.next = pOt__gc_root;
  149. #line 13 "os.mod"
  150.  
  151. #line 13 "os.mod"
  152.  
  153. #line 13 "os.mod"
  154. pOt__Epilogue:;
  155. #line 13 "os.mod"
  156.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  157. #line 13 "os.mod"
  158. }
  159. #line 13 "os.mod"
  160.  
  161. #line 13 "os.mod"
  162. void pOt_OS__body()
  163. #line 15 "os.mod"
  164. {
  165. #line 15 "os.mod"
  166.   static int pOt_OS__loaded=0;
  167. #line 15 "os.mod"
  168.   if(!pOt_OS__loaded){
  169. #line 15 "os.mod"
  170.     pOt_OS__loaded=1;
  171. #line 15 "os.mod"
  172.  
  173. #line 15 "os.mod"
  174.  
  175. #line 15 "os.mod"
  176.     pOt__gc_ptrs.next=pOt__gc_root;
  177. #line 15 "os.mod"
  178.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  179. #line 15 "os.mod"
  180.  
  181. #line 15 "os.mod"
  182.  
  183. #line 15 "os.mod"
  184.  
  185. #line 15 "os.mod"
  186.   pOt__Epilogue:;
  187. #line 15 "os.mod"
  188.   }
  189. #line 15 "os.mod"
  190. }
  191. #line 15 "os.mod"
  192.