home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / Perl / missing.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-04  |  5.1 KB  |  300 lines  |  [TEXT/MPS ]
  1. /* $Header: tyrathect:Development:Perl::RCS:missing.c,v 1.2 1994/05/04 02:12:43 neeri Exp $
  2.  *
  3.  *    Copyright (c) 1991, 1992 Matthias Neeracher
  4.  *
  5.  *    You may distribute under the terms of the Perl Artistic License,
  6.  *    as specified in the README file.
  7.  *
  8.  * $Log: missing.c,v $
  9.  * Revision 1.2  1994/05/04  02:12:43  neeri
  10.  * Added gmtime(), enabled utime(), reduced spinning.
  11.  *
  12.  * Revision 1.1  1994/03/01  23:38:17  neeri
  13.  * Initial revision
  14.  *
  15.  */
  16.  
  17. #define RESOLVE_MAC_CONFLICTS
  18.  
  19. #include "EXTERN.h"
  20. #include "perl.h"
  21.  
  22. #include <time.h>
  23.  
  24. #include <Folders.h>
  25. #include <Events.h>
  26. #include <OSUtils.h>
  27. #include <GUSI.h>
  28.  
  29. /* Allocate more stdio buffers */
  30.  
  31. FILE _iob[64] = {
  32.     0, nil, nil, nil, 0, _IOREAD,         0,
  33.     0, nil, nil, nil, 0, _IOWRT,          1,
  34.     0, nil, nil, nil, 0, _IOWRT+_IOLBF,    2
  35. };
  36.     
  37. FILE * _lastbuf = _iob + 64;
  38.  
  39. /* Calls that don't exist on the mac */
  40.  
  41. /* Borrowed from msdos.c
  42.  * Just pretend that everyone is a superuser
  43.  */
  44. #define ROOT_UID    0
  45. #define ROOT_GID    0
  46. int
  47. getuid(void)
  48. {
  49.     return ROOT_UID;
  50. }
  51.  
  52. int
  53. geteuid(void)
  54. {
  55.     return ROOT_UID;
  56. }
  57.  
  58. int
  59. getgid(void)
  60. {
  61.     return ROOT_GID;
  62. }
  63.  
  64. int
  65. getegid(void)
  66. {
  67.     return ROOT_GID;
  68. }
  69.  
  70. int
  71. setuid(int uid)
  72. { 
  73.     return (uid==ROOT_UID?0:-1);
  74. }
  75.  
  76. int
  77. setgid(int gid)
  78. { 
  79.     return (gid==ROOT_GID?0:-1); 
  80. }
  81.  
  82. execv()
  83. {
  84.     fatal("execv() not implemented on the Macintosh");
  85. }
  86.  
  87. execvp()
  88. {
  89.     fatal("execvp() not implemented on the Macintosh");
  90. }
  91.  
  92. chmod()
  93. {
  94. }
  95.  
  96. kill()
  97. {
  98.     fatal("kill() not implemented on the Macintosh");
  99. }
  100.  
  101. sleep(int seconds)
  102. {
  103.     long    ticks    =    TickCount() + seconds*60;
  104.     
  105.     while (TickCount() < ticks)
  106.         SpinMacCursor();
  107. }
  108.  
  109. do_aspawn()
  110. {
  111.     fatal("do_aspawn() not implemented on the Macintosh");
  112. }
  113.  
  114. do_spawn()
  115. {
  116.     fatal("do_spawn() not implemented on the Macintosh");
  117. }
  118.  
  119. char **environ;
  120. extern int StandAlone;
  121.  
  122. char ** init_env(char ** env)
  123. {
  124.     int        envcnt    =    0;
  125.     int        envsize    =    0;
  126.     int        varlen;
  127.     char *    envpool;
  128.     FILE *    envfile    =    0;
  129.     
  130.     for (envcnt = 0; env[envcnt]; envcnt++)    {
  131.         varlen    = strlen(env[envcnt]);
  132.         envsize    +=    varlen+strlen(env[envcnt]+varlen+1)+2;
  133.     }
  134.     
  135.     environ = (char **)     malloc((envcnt+1)*sizeof(char *));
  136.     envpool = (char *)     malloc(envsize);
  137.     
  138.     for (envcnt = 0; env[envcnt]; envcnt++)    {
  139.         environ[envcnt]     = envpool;
  140.         varlen                = strlen(env[envcnt]);
  141.         strcpy(envpool, env[envcnt]);
  142.         envpool              += varlen+1;
  143.         envpool[-1]            = '=';
  144.         strcpy(envpool, env[envcnt]+varlen+1);
  145.         envpool              += strlen(env[envcnt]+varlen+1)+1;
  146.     }
  147.  
  148.     environ[envcnt] = 0;
  149.     
  150.     return environ;
  151. }    
  152.  
  153. typedef struct PD {
  154.     struct PD *    next;
  155.     FILE *        tempFile;
  156.     FSSpec        pipeFile;
  157.     char *        execute;
  158. } PipeDescr, *PipeDescrPtr;
  159.  
  160. static PipeDescrPtr    pipes        =    nil;
  161. static Boolean            sweeper    =    false;
  162.  
  163. void sweep()
  164. {
  165.     while (pipes)
  166.         mypclose(pipes->tempFile);
  167. }
  168.  
  169. FILE * mypopen(char * command, char * mode)
  170. {
  171.     PipeDescrPtr    pipe;
  172.     
  173.     New(666, pipe, 1, PipeDescr);
  174.     
  175.     if (!pipe)
  176.         return NULL;
  177.         
  178.     if (FSpMakeTempFile(&pipe->pipeFile))
  179.         goto failed;
  180.     pipe->execute    =    nil;
  181.     
  182.     switch(*mode)    {
  183.     case 'r':
  184.         /* Ugh ! A hardcoded command  ! */
  185.         
  186.         if (!strcmp(command, "pwd") || !strcmp(command, "Directory")) {
  187.             char curdir[256];
  188.             
  189.             if (!(pipe->tempFile    = fopen(FSp2FullPath(&pipe->pipeFile), "w")))
  190.                 goto delete;
  191.             if (!getcwd(curdir, 256)) 
  192.                 goto delete;
  193.             
  194.             fprintf(pipe->tempFile, "%s\n", curdir);
  195.             fclose(pipe->tempFile);
  196.         } else if (SubLaunch(command, nil, &pipe->pipeFile, nil))
  197.             goto delete;
  198.             
  199.         if (!(pipe->tempFile    = fopen(FSp2FullPath(&pipe->pipeFile), "r")))
  200.             goto delete;
  201.         break;
  202.     case 'w':
  203.         New(667, pipe->execute, strlen(command)+1, char);
  204.         if (!pipe->execute || !(pipe->tempFile    = fopen(FSp2FullPath(&pipe->pipeFile), "w")))
  205.             goto delete;
  206.         strcpy(pipe->execute, command);
  207.         break;
  208.     }
  209.     
  210.     pipe->next    =    pipes;
  211.     pipes            =    pipe;
  212.     
  213.     if (!sweeper)    {
  214.         atexit(sweep);
  215.         sweeper    =    true;
  216.     }
  217.  
  218.     return pipe->tempFile;
  219. delete:
  220.     if (pipe->execute)
  221.         Safefree(pipe->execute);
  222.     HDelete(pipe->pipeFile.vRefNum, pipe->pipeFile.parID, pipe->pipeFile.name);
  223. failed:
  224.     Safefree(pipe);
  225.     
  226.     return NULL;
  227. }
  228.  
  229. int mypclose(FILE *    f)
  230. {
  231.     OSErr                err;
  232.     PipeDescrPtr *    prev;
  233.     PipeDescrPtr    pipe;
  234.     
  235.     for (prev = (PipeDescrPtr *) &pipes; pipe = *prev; prev = &pipe->next)
  236.         if (pipe->tempFile == f)
  237.             break;
  238.     
  239.     if (!pipe)
  240.         return -1;
  241.     
  242.     *prev = pipe->next;
  243.     
  244.     fclose(f);
  245.     
  246.     if (pipe->execute)
  247.         err = SubLaunch(pipe->execute, &pipe->pipeFile, nil, nil);
  248.     else
  249.         err = noErr;
  250.         
  251.     HDelete(pipe->pipeFile.vRefNum, pipe->pipeFile.parID, pipe->pipeFile.name);
  252.     if (pipe->execute)
  253.         Safefree(pipe->execute);
  254.     Safefree(pipe);
  255.     
  256.     return err?-1:0;    
  257. }
  258.  
  259. void SpinMacCursor()
  260. {
  261.     static int delay = 0;
  262.     
  263.     if (StandAlone && ++delay & 31)
  264.         return;
  265.         
  266.     (GUSIGetSpin())(SP_AUTO_SPIN, 1);
  267. }
  268.  
  269. struct tm * gmtime(const time_t * timer)
  270. {
  271.     MachineLocation     loc;
  272.     struct tm *            swatch;
  273.     long                    delta;
  274.     time_t                rolex;
  275.     
  276.     ReadLocation(&loc);
  277.     
  278.     if (!loc.latitude && !loc.longitude)
  279.         return localtime(timer);    /* This is incorrect unless you live in Greenwich */
  280.     
  281.     delta = loc.gmtFlags.gmtDelta & 0xFFFFFF;
  282.     
  283.     if (delta & 0x800000)
  284.         delta = (long) ((unsigned long) delta | 0xFF000000);
  285.         
  286.     rolex = (unsigned long) ((long) *timer - delta);
  287.     
  288.     swatch = localtime(&rolex);
  289.     
  290.     swatch->tm_isdst = (loc.gmtFlags.dlsDelta & 0x80) != 0;
  291.     
  292.     return swatch;
  293.  }
  294.  
  295. void init_missing()
  296. {
  297.     environ         =    nil;
  298.     pipes            =    nil;
  299. }
  300.