workbench/c/shellcommands/Echo.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         Echo [<string>] [NOLINE] [FIRST <n>] [LEN <n>] [TO <filename>]
  14
  15     SYNOPSIS
  16
  17         STRING/M,NOLINE/S,FIRST/K/N,LEN/K/N,TO/K
  18
  19     LOCATION
  20
  21         Workbench:C
  22
  23     FUNCTION
  24
  25         Displays string.
  26
  27     INPUTS
  28
  29         STRING -- the strings to display
  30         NOLINE -- no newline at end of string
  31         FIRST  -- first displayed character
  32         LEN    -- number of characters to display
  33         TO     -- file or device to output to
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49 ******************************************************************************/
  50
  51 #define DEBUG 0
  52
  53 #include <exec/execbase.h>
  54 #include <exec/libraries.h>
  55 #include <proto/exec.h>
  56 #include <dos/dos.h>
  57 #include <proto/dos.h>
  58 #include <string.h>
  59 #include <aros/shcommands.h>
  60
  61
  62 AROS_SH5(Echo, 41.1,
  63 AROS_SHA(STRPTR *, , , /M,   NULL),
  64 AROS_SHA(BOOL,     , NOLINE, /S,   FALSE),
  65 AROS_SHA(ULONG *,  , FIRST,  /K/N, NULL),
  66 AROS_SHA(ULONG *,  , LEN,    /K/N, NULL),
  67 AROS_SHA(STRPTR,   , TO,     /K,   NULL))
  68 {
  69     AROS_SHCOMMAND_INIT
  70
  71     STRPTR *a, b;
  72     ULONG l, max=~0ul;
  73     BPTR out=Output();
  74     LONG error=0;
  75
  76     #define ERROR(a) { error=a; goto end; }
  77
  78
  79     if (SHArg(LEN))
  80     {
  81         max = *SHArg(LEN);
  82     }
  83
  84     if (SHArg(TO))
  85     {
  86         out = Open(SHArg(TO),MODE_NEWFILE);
  87
  88         if (!out)
  89         {
  90             ERROR(RETURN_ERROR);
  91         }
  92     }
  93
  94     a = SHArg( );
  95
  96     if (a) while (*a != NULL)
  97     {
  98         b = *a;
  99
 100         while (*b++);
 101
 102         l = b - *a - 1;
 103         b = *a;
 104
 105         if (SHArg(FIRST) && *SHArg(FIRST))
 106         {
 107             if (*SHArg(FIRST) - 1 < l)
 108             {
 109                 b += *SHArg(FIRST)-1;
 110             }
 111             else
 112             {
 113                 b += l;
 114             }
 115         }
 116         else if(l > max)
 117         {
 118                 b += l - max;
 119         }
 120
 121         l = max;
 122
 123         while (l-- && *b)
 124         {
 125             if (FPutC(out, *b++) < 0)
 126             {
 127                 ERROR(RETURN_ERROR);
 128             }
 129         }
 130
 131         a++;
 132
 133         if(*a)
 134         {
 135             if (FPutC(out,' ') < 0)
 136             {
 137                 ERROR(RETURN_ERROR);
 138             }
 139         }
 140     }
 141
 142     if (!SHArg(NOLINE))
 143     {
 144         if (FPutC(out, '\n') < 0)
 145         {
 146             ERROR(RETURN_ERROR);
 147         }
 148     }
 149
 150     if (!Flush(out))
 151     {
 152         ERROR(RETURN_ERROR);
 153     }
 154
 155 end:
 156     if (SHArg(TO) && out)
 157     {
 158         Close(out);
 159     }
 160
 161     return error;
 162
 163     AROS_SHCOMMAND_EXIT
 164 }
 165
 166
 167
 168
 169