compiler/clib/system.c

   1 /*
   2     Copyright © 1995-2011, 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 <proto/dos.h>
  12 //#include <utility/tagitem.h>
  13 #include <unistd.h>
  14 //#include <sys/types.h>
  15 #include <sys/wait.h>
  16
  17 #include "__errno.h"
  18 #include "__fdesc.h"
  19 #include "__upath.h"
  20
  21 #define DEBUG 0
  22 #include <aros/debug.h>
  23
  24 static int system_sh(const char *string);
  25 static int system_no_sh(const char *string);
  26
  27 /*****************************************************************************
  28
  29     NAME */
  30 #include <stdlib.h>
  31
  32         int system (
  33
  34 /*  SYNOPSIS */
  35         const char *string)
  36
  37 /*  FUNCTION
  38
  39     INPUTS
  40
  41     RESULT
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     INTERNALS
  52
  53 ******************************************************************************/
  54 {
  55     BPTR lock;
  56     APTR old_proc_window;
  57     struct Process *me;
  58
  59     if (!__doupath)
  60         return system_no_sh(string);
  61
  62     if (string == NULL || string[0] == '\0')
  63     {
  64         D(bug("system(cmd=, args=)=1\n"));
  65         return 1;
  66     }
  67
  68     me = (struct Process*) FindTask(NULL);
  69     old_proc_window = me->pr_WindowPtr;
  70     me->pr_WindowPtr = (APTR) -1;
  71     lock = Lock((STRPTR) "bin:sh", SHARED_LOCK);
  72     me->pr_WindowPtr = old_proc_window;
  73
  74     if (lock)
  75     {
  76         UnLock(lock);
  77         return system_sh(string);
  78     }
  79
  80     return system_no_sh(string);
  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     const char *apath;
 111     char *args, *cmd, *fullcmd;
 112     fdesc *in, *out, *err;
 113     int ret;
 114
 115     D(bug("system_no_sh(%s)\n", string));
 116
 117     args = strdup(string);
 118     cmd = strsep(&args, " \t\n");
 119     if (!args)
 120         args = "";
 121
 122     D(bug("system(cmd=%s, args=%s)\n", cmd, args));
 123
 124     apath = __path_u2a(cmd);
 125
 126     fullcmd = malloc(strlen(apath) + strlen(args) + 2);
 127     strcpy(fullcmd, apath);
 128     strcat(fullcmd, " ");
 129     strcat(fullcmd, args);
 130
 131     free(cmd);
 132
 133     in = __getfdesc(STDIN_FILENO);
 134     out = __getfdesc(STDOUT_FILENO);
 135     err = __getfdesc(STDERR_FILENO);
 136
 137     ret = (int)SystemTags
 138     (
 139          fullcmd,
 140          SYS_Input, (IPTR)(in ? in->fcb->fh : BNULL),
 141          SYS_Output, (IPTR)(out ? out->fcb->fh : BNULL),
 142          SYS_Error, (IPTR)(err ? err->fcb->fh : BNULL),
 143          NULL
 144     );
 145
 146     free(fullcmd);
 147
 148     if (ret == -1)
 149         errno = IoErr2errno(IoErr());
 150
 151     return ret;
 152 } /* system */
 153