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 #include <aros/shcommands.h>
  58
  59 AROS_SH1(Execute, 41.1,
  60 AROS_SHA(STRPTR, ,NAME,/A,NULL))
  61 {
  62     AROS_SHCOMMAND_INIT
  63
  64     BPTR from;
  65     struct CommandLineInterface *cli = Cli();
  66
  67     if (!cli)
  68     {
  69         return RETURN_ERROR;
  70     }
  71
  72     from = Open(SHArg(NAME), FMF_READ);
  73
  74     if (!from)
  75     {
  76         IPTR data[] = { (IPTR)SHArg(NAME) };
  77         VFPrintf(Error(), "EXECUTE: can't open %s\n", data);
  78         PrintFault(IoErr(), NULL);
  79
  80         return RETURN_FAIL;
  81     }
  82
  83     if (!cli->cli_Interactive)
  84     {
  85         struct DateStamp ds;
  86         BYTE tmpname[256];
  87         BPTR tmpfile = NULL;
  88         int count = 0;
  89
  90         DateStamp(&ds);
  91
  92         do {
  93             count++;
  94             __sprintf(tmpname, "T:Tmp%lu%lu%lu%lu%d",
  95                       ((struct Process *)FindTask(NULL))->pr_TaskNum,
  96                       ds.ds_Days, ds.ds_Minute, ds.ds_Tick, count);
  97             tmpfile = Open(tmpname, MODE_NEWFILE);
  98         } while (tmpfile == NULL && IoErr() == ERROR_OBJECT_IN_USE);
  99
 100         if (tmpfile)
 101         {
 102             LONG c;
 103
 104             while((c = FGetC(from)) != -1 && FPutC(tmpfile, c) != -1);
 105
 106             c = IoErr();
 107             Close(from);
 108
 109             if (c)
 110             {
 111                 FPuts(Error(),
 112                       "EXECUTE: error while creating temporary file\n");
 113                 PrintFault(c, NULL);
 114                 Close(tmpfile);
 115                 DeleteFile(tmpname);
 116
 117                 return RETURN_FAIL;
 118             }
 119
 120             c = '\n';
 121             FPutC(tmpfile, c);
 122
 123             while((c = FGetC(cli->cli_CurrentInput)) != -1 && FPutC(tmpfile, c) != -1);
 124
 125             c = IoErr();
 126
 127             if (c)
 128             {
 129                 FPuts(Error(), "EXECUTE: error while creating temporary file\n");
 130                 PrintFault(c, NULL);
 131                 Close(tmpfile);
 132                 DeleteFile(tmpname);
 133
 134                 return RETURN_FAIL;
 135             }
 136
 137             Close(cli->cli_CurrentInput);
 138             if (AROS_BSTR_strlen(cli->cli_CommandFile))
 139                 DeleteFile(AROS_BSTR_ADDR(cli->cli_CommandFile));
 140
 141             {
 142                 LONG len = strlen(tmpname);
 143                 CopyMem(tmpname, AROS_BSTR_ADDR(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 }