workbench/c/shellcommands/Run.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         Run
  14
  15     SYNOPSIS
  16
  17         COMMAND/F
  18
  19     LOCATION
  20
  21         Workbench:C
  22
  23     FUNCTION
  24
  25         Run a program, that is start a program as a background process.
  26         That means it doesn't take over the parent shell.
  27
  28     INPUTS
  29
  30         COMMAND  --  the program to run together with its arguments
  31
  32     RESULT
  33
  34     NOTES
  35
  36         To make it possible to close the current shell, redirect the output
  37         using
  38
  39              Run >NIL: program arguments
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 ******************************************************************************/
  52
  53 #include <exec/memory.h>
  54 #include <proto/exec.h>
  55 #include <dos/filesystem.h>
  56 #include <dos/dosextens.h>
  57 #include <dos/dostags.h>
  58 #include <proto/dos.h>
  59 #include <utility/tagitem.h>
  60
  61 #include <aros/shcommands.h>
  62
  63 AROS_SH1(Run, 41.2,
  64 AROS_SHA(STRPTR, ,COMMAND,/F,NULL))
  65 {
  66     AROS_SHCOMMAND_INIT
  67
  68     struct CommandLineInterface *cli = Cli();
  69     BPTR cis = NULL, cos = NULL, ces = NULL;
  70     LONG CliNum;
  71
  72
  73     if (cli)
  74     {
  75         BPTR toclone, olddir;
  76
  77         if (IsInteractive(Input()))
  78             toclone = Input();
  79         else
  80             toclone = cli->cli_StandardInput;
  81
  82         olddir = CurrentDir(toclone);
  83         cis = Open("", FMF_READ);
  84         CurrentDir(olddir);
  85
  86         if (IsInteractive(Output()))
  87             toclone = Output();
  88         else
  89             toclone = cli->cli_StandardOutput;
  90
  91         olddir = CurrentDir(toclone);
  92         cos = Open("", FMF_WRITE);
  93         CurrentDir(olddir);
  94
  95         /* This is sort of a hack, needed because the original AmigaOS shell didn't allow
  96            Error() redirection, so all the scripts written so far assume that only Input() and
  97            Output() require to be redirected in order to not block the parent console */
  98         if (Error() != cli->cli_StandardError && IsInteractive(Error()))
  99         {
 100             toclone = Error();
 101
 102             olddir = CurrentDir(toclone);
 103             ces = Open("", FMF_WRITE);
 104             CurrentDir(olddir);
 105         }
 106     }
 107
 108     {
 109         struct TagItem tags[] =
 110         {
 111             { SYS_Input,      (IPTR)cis     },
 112             { SYS_Output,     (IPTR)cos     },
 113             { SYS_Error,      (IPTR)ces     },
 114             { SYS_Background, TRUE          },
 115             { SYS_Asynch,     TRUE          },
 116             { SYS_CliNumPtr,  (IPTR)&CliNum },
 117             { SYS_UserShell,  TRUE          },
 118             { TAG_DONE,       0             }
 119         };
 120
 121
 122         if (SystemTagList(SHArg(COMMAND), tags) == -1)
 123         {
 124             PrintFault(IoErr(), "Run");
 125             Close(cis);
 126             Close(cos);
 127             Close(ces);
 128
 129             return RETURN_FAIL;
 130         }
 131     }
 132
 133     {
 134         IPTR data[1] = { (IPTR)CliNum };
 135         VPrintf("[CLI %ld]\n", data);
 136     }
 137
 138     return RETURN_OK;
 139
 140     AROS_SHCOMMAND_EXIT
 141 }
 142