workbench/c/shellcommands/Execute.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang:
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         Execute <script> [{<arguments>}]
  14
  15     SYNOPSIS
  16
  17         FILE/A
  18
  19     LOCATION
  20
  21         Sys:C
  22
  23     FUNCTION
  24
  25         Executes a script with DOS commands.
  26
  27     INPUTS
  28
  29         FILE -- file to execute
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45 ******************************************************************************/
  46
  47 #include <proto/exec.h>
  48 #include <dos/filesystem.h>
  49 #include <dos/dos.h>
  50 #include <dos/bptr.h>
  51 #include <proto/dos.h>
  52 #include <proto/alib.h>
  53 #include <string.h>
  54
  55 #define SH_GLOBAL_SYSBASE 1
  56
  57 #define DEBUG 0
  58 #include <aros/debug.h>
  59 #include <aros/shcommands.h>
  60
  61 AROS_SH2(Execute, 41.1,
  62 AROS_SHA(STRPTR, ,NAME     , /A, NULL),
  63 AROS_SHA(STRPTR, ,ARGUMENTS, /F, NULL))
  64 {
  65     AROS_SHCOMMAND_INIT
  66
  67     BPTR from;
  68     struct CommandLineInterface *cli = Cli();
  69
  70     if (!cli)
  71     {
  72         return RETURN_ERROR;
  73     }
  74
  75     from = Open(SHArg(NAME), FMF_READ);
  76
  77     if (!from)
  78     {
  79         IPTR data[] = { (IPTR)SHArg(NAME) };
  80         VFPrintf(Error(), "EXECUTE: can't open %s\n", data);
  81         PrintFault(IoErr(), NULL);
  82
  83         return RETURN_FAIL;
  84     }
  85
  86     if (!cli->cli_Interactive)
  87     {
  88         struct DateStamp ds;
  89         BYTE tmpname[256];
  90         BPTR tmpfile = NULL;
  91         int count = 0;
  92
  93         DateStamp(&ds);
  94
  95         do {
  96             count++;
  97             __sprintf(tmpname, "T:Tmp%lu%lu%lu%lu%d",
  98                       ((struct Process *)FindTask(NULL))->pr_TaskNum,
  99                       ds.ds_Days, ds.ds_Minute, ds.ds_Tick, count);
 100             tmpfile = Open(tmpname, MODE_NEWFILE);
 101         } while (tmpfile == NULL && IoErr() == ERROR_OBJECT_IN_USE);
 102
 103         if (tmpfile)
 104         {
 105             LONG c, len;
 106             STRPTR arguments, s;
 107
 108             if (FPuts(tmpfile, ".pushis\n") != -1)
 109                 while((c = FGetC(from)) != -1 && FPutC(tmpfile, c) != -1);
 110
 111             c = IoErr();
 112             Close(from);
 113
 114             if (c)
 115             {
 116                 FPuts(Error(),
 117                       "EXECUTE: error while creating temporary file\n");
 118                 PrintFault(c, NULL);
 119                 Close(tmpfile);
 120                 DeleteFile(tmpname);
 121
 122                 return RETURN_FAIL;
 123             }
 124
 125             c = '\n';
 126             FPutC(tmpfile, c);
 127
 128             FPuts(tmpfile, ".popis\n");
 129
 130             while((c = FGetC(cli->cli_CurrentInput)) != -1 && FPutC(tmpfile, c) != -1);
 131
 132             c = IoErr();
 133
 134             if (c)
 135             {
 136                 FPuts(Error(), "EXECUTE: error while creating temporary file\n");
 137                 PrintFault(c, NULL);
 138                 Close(tmpfile);
 139                 DeleteFile(tmpname);
 140
 141                 return RETURN_FAIL;
 142             }
 143
 144             Close(cli->cli_CurrentInput);
 145             if (AROS_BSTR_strlen(cli->cli_CommandFile))
 146                 DeleteFile(AROS_BSTR_ADDR(cli->cli_CommandFile));
 147
 148             {
 149                 LONG len = strlen(tmpname);
 150                 CopyMem(tmpname, AROS_BSTR_ADDR(cli->cli_CommandFile), len);
 151                 AROS_BSTR_setstrlen(cli->cli_CommandFile, len);
 152             }
 153
 154             arguments = SHArg(ARGUMENTS);
 155             if (arguments)
 156             {
 157                 s = AROS_BSTR_ADDR(cli->cli_CommandName);
 158                 len = strlen(arguments);
 159
 160                 AROS_BSTR_setstrlen(cli->cli_CommandName, len + 1);
 161                 CopyMem((APTR)arguments, s, len);
 162                 s[len] = '\n';
 163             }
 164             else
 165                 AROS_BSTR_setstrlen(cli->cli_CommandName, 0);
 166
 167             cli->cli_CurrentInput = tmpfile;
 168
 169             Seek(tmpfile, 0, OFFSET_BEGINNING);
 170         }
 171         else
 172         {
 173             /*
 174               we should try to open ":T", but since ":"
 175               is not handled correctly yet, we just give up
 176             */
 177             LONG c = IoErr();
 178             FPuts(Error(), "EXECUTE: error while creating temporary file\n");
 179             PrintFault(c, NULL);
 180             Close(from);
 181
 182             return RETURN_FAIL;
 183         }
 184     }
 185     else
 186     {
 187         STRPTR arguments = SHArg(ARGUMENTS), s;
 188         LONG len;
 189
 190         if (arguments)
 191         {
 192 kprintf("[Execute] args: %s\n", arguments);
 193             s = AROS_BSTR_ADDR(cli->cli_CommandName);
 194             len = strlen(arguments);
 195
 196             AROS_BSTR_setstrlen(cli->cli_CommandName, len + 1);
 197             CopyMem((APTR)arguments, s, len);
 198             s[len] = '\n';
 199         }
 200         else
 201             AROS_BSTR_setstrlen(cli->cli_CommandName, 0);
 202
 203         cli->cli_Interactive  = FALSE;
 204         cli->cli_CurrentInput = from;
 205     }
 206
 207     return RETURN_OK;
 208
 209     AROS_SHCOMMAND_EXIT
 210 }