compiler/clib/system.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C function system().
   6 */
   7
   8 #include "__arosc_privdata.h"
   9
  10 #include <dos/dos.h>
  11 //#include <dos/filesystem.h>
  12 #include <proto/dos.h>
  13 //#include <utility/tagitem.h>
  14 #include <unistd.h>
  15 //#include <sys/types.h>
  16 #include <sys/wait.h>
  17
  18 #include "__errno.h"
  19 #include "__open.h"
  20 #include "__upath.h"
  21
  22 #define DEBUG 0
  23 #include <aros/debug.h>
  24
  25 static int system_sh(const char *string);
  26 static int system_no_sh(const char *string);
  27
  28 /*****************************************************************************
  29
  30     NAME */
  31 #include <stdlib.h>
  32
  33         int system (
  34
  35 /*  SYNOPSIS */
  36         const char *string)
  37
  38 /*  FUNCTION
  39
  40     INPUTS
  41
  42     RESULT
  43
  44     NOTES
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51
  52     INTERNALS
  53
  54 ******************************************************************************/
  55 {
  56     BPTR lock;
  57     APTR old_proc_window;
  58     struct Process *me;
  59
  60     if (string == NULL || string[0] == '\0')
  61     {
  62         D(bug("system(cmd=, args=)=1\n"));
  63         return 1;
  64     }
  65
  66     me = (struct Process*) FindTask(NULL);
  67     old_proc_window = me->pr_WindowPtr;
  68     me->pr_WindowPtr = (APTR) -1;
  69     lock = Lock((STRPTR) "bin:sh", SHARED_LOCK);
  70     me->pr_WindowPtr = old_proc_window;
  71
  72     if(lock)
  73     {
  74         UnLock(lock);
  75         return system_sh(string);
  76     }
  77     else
  78     {
  79         return system_no_sh(string);
  80     }
  81 } /* system */
  82
  83
  84 static int system_sh(const char *string)
  85 {
  86     pid_t pid = vfork();
  87     int status;
  88
  89     D(bug("system_sh(%s)\n", string));
  90
  91     if(pid > 0)
  92     {
  93         if(waitpid(pid, &status, 0) == -1)
  94             return -1;
  95         return status;
  96     }
  97     else if(pid == 0)
  98     {
  99         execl((__doupath ? "/bin/sh" : "bin:sh"), "sh", "-c", string, (char *) NULL);
 100         _exit(127);
 101     }
 102     else
 103     {
 104         return -1;
 105     }
 106 }
 107
 108 static int system_no_sh(const char *string)
 109 {
 110     struct arosc_privdata *pdata = __get_arosc_privdata();
 111     const char *apath;
 112     char *args, *cmd, *fullcmd;
 113     fdesc *in, *out, *err;
 114     int ret;
 115
 116     D(bug("system_no_sh(%s)\n", string));
 117
 118     args = strdup(string);
 119     cmd = strsep(&args, " \t\n");
 120     if (!args)
 121         args = "";
 122
 123     D(bug("system(cmd=%s, args=%s)\n", cmd, args));
 124
 125     apath = __path_u2a(cmd);
 126
 127     fullcmd = malloc(strlen(apath) + strlen(args) + 2);
 128     strcpy(fullcmd, apath);
 129     strcat(fullcmd, " ");
 130     strcat(fullcmd, args);
 131
 132     free(cmd);
 133
 134     in = pdata->acpd_fd_array[STDIN_FILENO];
 135     out = pdata->acpd_fd_array[STDOUT_FILENO];
 136     err = pdata->acpd_fd_array[STDERR_FILENO];
 137
 138     ret = (int)SystemTags
 139     (
 140          fullcmd,
 141          SYS_Input, (IPTR)(in ? in->fcb->fh : NULL),
 142          SYS_Output, (IPTR)(out ? out->fcb->fh : NULL),
 143          SYS_Error, (IPTR)(err ? err->fcb->fh : NULL),
 144          NULL
 145     );
 146
 147     free(fullcmd);
 148
 149     if (ret == -1)
 150         errno = IoErr2errno(IoErr());
 151
 152     return ret;
 153 } /* system */
 154