workbench/tools/debug/kecho/KEcho.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang:
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         KEcho [<string>] [NOLINE]
  14
  15     SYNOPSIS
  16
  17         STRINGS/M,NOLINE/S
  18
  19     LOCATION
  20
  21        SYS:tests
  22
  23     FUNCTION
  24
  25         Appends one or more strings to the debug output.
  26
  27     INPUTS
  28
  29         STRINGS -- the strings to display
  30         NOLINE -- no newline after the last string
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 ******************************************************************************/
  45
  46 #define DEBUG 0
  47 #include <aros/debug.h>
  48
  49 #include <exec/execbase.h>
  50 #include <exec/libraries.h>
  51 #include <proto/exec.h>
  52 #include <dos/dos.h>
  53 #include <proto/dos.h>
  54 #include <string.h>
  55
  56 #define SH_GLOBAL_SYSBASE       1       /* for kprintf() */
  57 #include <aros/shcommands.h>
  58
  59 AROS_SH2(KEcho, 41.1,
  60 AROS_SHA(STRPTR *, , STRINGS, /M,   NULL),
  61 AROS_SHA(BOOL,     , NOLINE, /S,   FALSE))
  62 {
  63     AROS_SHCOMMAND_INIT
  64
  65     LONG error = 0;
  66     STRPTR *a;
  67
  68     a = SHArg(STRINGS);
  69
  70     if (a) while (*a != NULL)
  71     {
  72         kprintf("%s", *a);
  73         a++;
  74         if (*a)
  75             kprintf(" ");
  76     }
  77
  78     if (!SHArg(NOLINE))
  79         kprintf("\n");
  80
  81     return error;
  82
  83     AROS_SHCOMMAND_EXIT
  84 }
  85