workbench/c/Shell/convertRedir.c

   1 /*
   2     Copyright (C) 1995-2016, The AROS Development Team. All rights reserved.
   3     $Id$
   4  */
   5
   6 #include <proto/dos.h>
   7
   8 #include "buffer.h"
   9 #include "Shell.h"
  10
  11 LONG convertRedir(ShellState *ss, Buffer *in, Buffer *out)
  12 {
  13     STRPTR s = in->buf + in->cur;
  14     BOOL newIn = FALSE, newOut = FALSE;
  15     BOOL append = FALSE;
  16     TEXT file[FILE_MAX];
  17
  18     if (*s == '<')
  19     {
  20         if (ss->newIn) /* multiple < not allowed */
  21             return ERROR_TOO_MANY_LEVELS;
  22
  23         newIn = TRUE; /* new input */
  24         ++s;
  25     }
  26
  27     if (*s == '>')
  28     {
  29         if (ss->newOut) /* multiple > or >> not allowed */
  30             return ERROR_TOO_MANY_LEVELS;
  31
  32         if (*++s == '>')
  33         {
  34             append = TRUE;
  35             ++s;
  36         }
  37
  38         newOut = TRUE; /* new output */
  39     }
  40
  41     in->cur = s - in->buf;
  42
  43     switch (bufferReadItem(file, FILE_MAX, in, DOSBase))
  44     {
  45     case ITEM_QUOTED:
  46     case ITEM_UNQUOTED:
  47         break;
  48     default:
  49         return ERROR_LINE_TOO_LONG;
  50     }
  51
  52     if (newIn)
  53     {
  54         if (!(ss->newIn = Open(file, MODE_OLDFILE)))
  55             return IoErr();
  56
  57         ss->oldIn = SelectInput(ss->newIn);
  58     }
  59
  60     if (newOut)
  61     {
  62         LONG mode = append ? MODE_READWRITE : MODE_NEWFILE;
  63
  64         if (!(ss->newOut = Open(file, mode)))
  65             return IoErr();
  66
  67         if (append && Seek(ss->newOut, 0, OFFSET_END) == -1)
  68             return IoErr();
  69
  70         ss->oldOut = SelectOutput(ss->newOut);
  71     }
  72
  73     return 0;
  74 }