home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / mntlib16 / spawn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-29  |  3.8 KB  |  161 lines
  1. /*
  2.    89/03/02: ERS: added the "mode" argument for MS-DOS/Unix
  3.    compatibility. Added prototypes for GNU C.
  4.  
  5.    fixed spawnve: the original didn't pass the command tail
  6.    correctly, nor did it handle errno right. Also, this version
  7.    passes args in the environment as well as the command line,
  8.    using the ARGV= mechanism supported by crt0.s
  9.  
  10.    Written 89/01/10 by ERS. Original version Copyright (c) 1988 by
  11.    Memorial University of Newfoundland. This version is based upon
  12.    that original, but is substantially different. (In fact, there
  13.    probably isn't a single line of the original left.)
  14.  
  15.    Adapted 90/06/25 by ERS to MiNT.
  16. */
  17.  
  18. #include    <stdarg.h>
  19. #include    <process.h>
  20. #include    <param.h>
  21. #include    <errno.h>
  22. #include    <osbind.h>
  23. #include    <mintbind.h>
  24. #include    <stdlib.h>
  25. #include    <time.h>
  26. #include    <string.h>
  27. #include    "lib.h"
  28.  
  29. #define TOS_ARGS 126
  30.  
  31. extern char **environ;
  32. extern int __mint;
  33.  
  34. static    char    cmd[TOS_ARGS+1];
  35.  
  36. int
  37. _spawnve(mode, _path, argv, envp)
  38.     int    mode;
  39.     char    *_path;
  40.     char    **argv;
  41.     char    **envp;
  42. {
  43.     extern void _exit();
  44.     static char    path[MAXPATHLEN];
  45.     int        cmlen = 0;
  46.     int        enlen = 0;
  47.     char        *p;
  48.     char        *s, *t;
  49.     char        *env;
  50.     long        rval;
  51.  
  52.     if (mode != P_WAIT && mode != P_OVERLAY && mode != P_NOWAIT) {
  53.         errno = EINVAL;
  54.         return -1;
  55.     }
  56.     (void)_unx2dos(_path, path);    /* convert filename, if necessary */
  57.     if (!envp)
  58.         envp = environ;
  59.  
  60. /* count up space needed for environment */
  61.     for(cmlen = 0; argv[cmlen]; cmlen++)
  62.         enlen += strlen(argv[cmlen]) + 1;
  63.     for(cmlen = 0; envp[cmlen]; cmlen++)
  64.         enlen += strlen(envp[cmlen]) + 1;
  65.     enlen += 32;    /* filler for stuff like ARGV= and zeros */
  66.  
  67.     if (!(env = (char *)Malloc((long)enlen))) {
  68.         errno = ENOMEM;
  69.         return -1;
  70.     }
  71.     s = env;
  72.     while ((p = *envp) != 0) {
  73. /*
  74.  * NOTE: in main.c, we converted the PATH environment variable into
  75.  * POSIX form. Here, we convert back into gulam form. Note that the
  76.  * new variable will be shorter than the old, so space is not a problem.
  77.  */
  78.         if (!strncmp(p, "PATH=", 5)) {
  79.             strncpy(s, p, 5); s += 5; p += 5;
  80.             while (*p) {
  81.                 if (!strncmp(p, "/dev/", 5) && p[5]) {
  82.                     *s++ = p[5];
  83.                     *s++ = ':';
  84.                     p += 6;
  85.                 } else if (*p == ':') {
  86.                     *s++ = ','; p++;
  87.                 } else if (*p == '/') {
  88.                     *s++ = '\\'; p++;
  89.                 } else {
  90.                     *s++ = *p++;
  91.                 }
  92.             }
  93.         } else {
  94.             while(*p)
  95.                 *s++ = *p++;
  96.         }
  97.         *s++ = '\0';
  98.         envp++;
  99.     }
  100.     
  101.     strcpy(s, "ARGV=");
  102.     s += 6; /* s+=sizeof("ARGV=") */
  103.  
  104. /* copy argv[0] first (because it doesn't go into the command line */
  105.     if (argv && *argv) {
  106.         for (p = *argv; *p; )
  107.             *s++ = *p++;
  108.         *s++ = '\0';
  109.     }
  110.  
  111.     bzero(t = cmd, sizeof(cmd));
  112.  
  113. /* s points at the environment's copy of the args */
  114. /* t points at the command line copy to be put in the basepage */
  115.  
  116.     if (argv && *argv) {
  117.         t++;
  118.         while (*++argv) {
  119.             p = *argv;
  120.             while (*p) {
  121.                               if (cmlen <= TOS_ARGS) {
  122.                                       *t++ = *p; cmlen++;
  123.                               }
  124.                 *s++ = *p++;
  125.             }
  126.                         if (cmlen <= TOS_ARGS && *(argv+1)) {
  127.                                 *t++ = ' '; cmlen++;
  128.                         }
  129.             *s++ = '\0';
  130.         }
  131. /*                *cmd = (char) cmlen;  NOT ANY MORE */
  132.     }
  133.  
  134.     /* tie off environment */
  135.     *s++ = '\0';
  136.     *s = '\0';
  137.  
  138.     /* signal Extended Argument Passing */
  139.     *cmd = 0x7f;
  140.  
  141. /* MiNT and MicroRTX support background processes with Pexec(100,...) */
  142. /* MiNT supports overlays with Pexec(200,...) */
  143.  
  144.     if (mode == P_NOWAIT) cmlen = 100;
  145.     else if (mode == P_OVERLAY && __mint) cmlen = 200;
  146.     else cmlen = 0;
  147.  
  148.     rval = Pexec(cmlen, path, cmd, env);
  149.  
  150.     if (rval < 0)
  151.     {
  152.         errno = -rval;
  153.         rval = -1;
  154.     }
  155.     else if (mode == P_OVERLAY)
  156.     /* note that we get here only if MiNT is not active! */
  157.         _exit((int)rval);
  158.     (void)Mfree(env);
  159.     return rval;
  160. }
  161.