home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / perldispatch.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-30  |  3.1 KB  |  203 lines  |  [TEXT/MPS ]
  1. /* DISPATCH_START */
  2. #define MAC_CONTEXT
  3. #define MP_EXT
  4. #define MP_INIT(x) = x
  5.  
  6. #include <time.h>
  7. #include <stdio.h>
  8. #include <Folders.h>
  9. #include <Events.h>
  10. #include <OSUtils.h>
  11. #include <LowMem.h>
  12. #include <GUSI.h>
  13. #include <TFileSpec.h>
  14. #include <TFileGlob.h>
  15. #include <fp.h>
  16. #include <LowMem.h>
  17.  
  18. #define MEM_SIZE    Size_t
  19.  
  20. #include "config.h"
  21. #include "handy.h"
  22. #include "macish.h"
  23. #include "SubLaunch.h"
  24. /* DISPATCH_END */
  25. /* DISPATCH_START */
  26. #define ROOT_UID    0
  27. #define ROOT_GID    0
  28. int
  29. (getuid)(void)
  30. {
  31.     return ROOT_UID;
  32. }
  33.  
  34. int
  35. (geteuid)(void)
  36. {
  37.     return ROOT_UID;
  38. }
  39.  
  40. int
  41. (getgid)(void)
  42. {
  43.     return ROOT_GID;
  44. }
  45.  
  46. int
  47. (getegid)(void)
  48. {
  49.     return ROOT_GID;
  50. }
  51.  
  52. int
  53. (setuid)(int uid)
  54. { 
  55.     return (uid==ROOT_UID?0:-1);
  56. }
  57.  
  58. int
  59. setgid(int gid)
  60. { 
  61.     return (gid==ROOT_GID?0:-1); 
  62. }
  63.  
  64. #undef execv
  65.  
  66. (execv)()
  67. {
  68.     croak("execv() not implemented on the Macintosh");
  69. }
  70.  
  71. #undef execvp
  72.  
  73. (execvp)()
  74. {
  75.     croak("execvp() not implemented on the Macintosh");
  76. }
  77.  
  78. kill()
  79. {
  80.     croak("kill() not implemented on the Macintosh");
  81. }
  82. /* DISPATCH_END */
  83. /* DISPATCH_START */
  84. struct tm * gmtime(const time_t * timer)
  85. {
  86.     MachineLocation     loc;
  87.     struct tm *            swatch;
  88.     long                delta;
  89.     time_t                rolex;
  90.     
  91.     ReadLocation(&loc);
  92.     
  93.     if (!loc.latitude && !loc.longitude)
  94.         return localtime(timer);    /* This is incorrect unless you live in Greenwich */
  95.     
  96.     delta = loc.u.gmtDelta & 0xFFFFFF;
  97.     
  98.     if (delta & 0x800000)
  99.         delta = (long) ((unsigned long) delta | 0xFF000000);
  100.         
  101.     rolex = (unsigned long) ((long) *timer - delta);
  102.     
  103.     swatch = localtime(&rolex);
  104.     
  105.     swatch->tm_isdst = (loc.u.dlsDelta & 0x80) != 0;
  106.     
  107.     return swatch;
  108.  }
  109. /* DISPATCH_END */
  110. /* DISPATCH_START */
  111. pid_t (getpid)()
  112. {
  113.     return 1;
  114. }
  115. /* DISPATCH_END */
  116. /* DISPATCH_START */
  117. #include <Types.h>
  118. #include <Memory.h>
  119. #include <Files.h>
  120.  
  121. #include <stdarg.h>
  122.  
  123. #include "icemalloc.h"
  124.  
  125. #define mNEWPTR(size)            ( NewPtr ( (size) ) )
  126. #define mDISPOSPTR(ptr)            ( DisposPtr ( (ptr) ) )
  127.  
  128. _mem_pool    _mem_system_pool = {
  129.     0,                        /* id */
  130.     SUGGESTED_BLK_SIZE,        /* pref_blk_size */
  131.     0,                        /* blk_list */
  132.     0,                        /* next */
  133. #ifdef _PM_STATS
  134.     0,                        /* total_memory */
  135.     0,                        /* total_storage */
  136.     0,                        /* total_malloc */
  137.     0,                        /* max_blk_size */
  138.     0.0,                    /* ave_req_size */
  139.     0,                        /* ave_req_total */
  140.     0.0,                    /* ave_blk_size */
  141.     0,                        /* ave_blk_total */
  142. #endif
  143.     };
  144. _mem_pool_ptr                _mem_pool_forest = & _mem_system_pool;
  145.  
  146. #define DEBUG
  147. /* DISPATCH_END */
  148. /* DISPATCH_START */
  149. void    *
  150. malloc (size_t size )
  151. {
  152.     _mem_pool_ptr    pool;
  153.     char *            mem;
  154.  
  155.     pool = _default_mem_pool;
  156.     if (pool == (_mem_pool_ptr)0)
  157.         return (char *)0;
  158.     
  159.     mem = pool_malloc(pool, size);
  160.     
  161. #ifdef MALLOC_LOG
  162.     MallocLog("%d %d\n", (int) mem, (int) size); 
  163. #endif
  164.  
  165.     return mem;
  166. }
  167. /* DISPATCH_END */
  168. /* DISPATCH_START */
  169. void free(void * ptr)
  170. {
  171.     
  172. #ifdef MALLOC_LOG
  173.     MallocLog("%d\n", (int) ptr); 
  174. #endif
  175.     
  176.     pool_free((char *) ptr);
  177. }
  178. /* DISPATCH_END */
  179. /* DISPATCH_START */
  180. void * realloc(void * old, u_long size)
  181. {
  182.     void *            nu;
  183.     
  184.     nu = malloc(size);
  185.     
  186.     if (!old || !nu)
  187.         return nu;
  188.     
  189.     memcpy(nu, old, size);
  190.     
  191.     free(old);
  192.     
  193.     return nu;
  194. }
  195. /* DISPATCH_END */
  196. /* DISPATCH_START */
  197. void *
  198. calloc(u_long nmemb, u_long size)
  199. {
  200.     return malloc(nmemb*size);
  201. }
  202. /* DISPATCH_END */
  203.