workbench/c/shellcommands/Execute.c

   1 /*
   2     Copyright © 1995-2001, 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         Workbench: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 #include <aros/shcommands.h>
  58
  59
  60
  61 AROS_SH1(Execute, 41.1,
  62 AROS_SHA(STRPTR, ,NAME,/A,NULL))
  63 {
  64     AROS_SHCOMMAND_INIT
  65
  66     BPTR from;
  67     struct CommandLineInterface *cli = Cli();
  68
  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[2+3+10+10+2+2+1];
  90         BPTR tmpfile;
  91         DateStamp(&ds);
  92
  93         __sprintf(tmpname, "T:Tmp%lu%lu%lu%lu",
  94                   ((struct Process *)FindTask(NULL))->pr_TaskNum,
  95                   ds.ds_Days, ds.ds_Minute, ds.ds_Tick);
  96
  97         tmpfile = Open(tmpname, FMF_WRITE|FMF_READ|FMF_CREATE|FMF_CLEAR);
  98
  99         if (tmpfile)
 100         {
 101             LONG c;
 102
 103             while((c = FGetC(from)) != -1 && FPutC(tmpfile, c) != -1);
 104
 105             c = IoErr();
 106             Close(from);
 107
 108             if (c)
 109             {
 110                 FPuts(Error(),
 111                       "EXECUTE: error while creating temporary file\n");
 112                 PrintFault(c, NULL);
 113                 Close(tmpfile);
 114                 DeleteFile(tmpname);
 115
 116                 return RETURN_FAIL;
 117             }
 118
 119             c = '\n';
 120             FPutC(tmpfile, c);
 121
 122             while((c = FGetC(cli->cli_CurrentInput)) != -1 && FPutC(tmpfile, c) != -1);
 123
 124             c = IoErr();
 125
 126             if (c)
 127             {
 128                 FPuts(Error(), "EXECUTE: error while creating temporary file\n");
 129                 PrintFault(c, NULL);
 130                 Close(tmpfile);
 131                 DeleteFile(tmpname);
 132
 133                 return RETURN_FAIL;
 134             }
 135
 136
 137             Close(cli->cli_CurrentInput);
 138             if (AROS_BSTR_strlen(cli->cli_CommandFile))
 139                 DeleteFile(BADDR(cli->cli_CommandFile));
 140
 141             {
 142                 LONG len = strlen(tmpname);
 143                 CopyMem(tmpname, BADDR(cli->cli_CommandFile), len);
 144                 AROS_BSTR_setstrlen(cli->cli_CommandFile, len);
 145             }
 146
 147             cli->cli_CurrentInput = tmpfile;
 148
 149             Seek(tmpfile, 0, OFFSET_BEGINNING);
 150         }
 151         else
 152         {
 153             /*
 154               we should try to open ":T", but since ":"
 155               is not handled correctly yet, we just give up
 156             */
 157             LONG c = IoErr();
 158             FPuts(Error(), "EXECUTE: error while creating temporary file\n");
 159             PrintFault(c, NULL);
 160             Close(from);
 161
 162             return RETURN_FAIL;
 163         }
 164     }
 165     else
 166     {
 167         cli->cli_Interactive  = FALSE;
 168         cli->cli_CurrentInput = from;
 169     }
 170
 171     return RETURN_OK;
 172
 173     AROS_SHCOMMAND_EXIT
 174 }