workbench/c/shellcommands/Stack.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Stack CLI command
   6     Lang: English
   7 */
   8
   9 /**************************************************************************
  10
  11     NAME
  12         Stack
  13
  14     FORMAT
  15         Stack [[SIZE] (stack size)]
  16
  17     SYNOPSIS
  18         SIZE/N
  19
  20     LOCATION
  21         C:
  22
  23     FUNCTION
  24         Stack sets the default stack size of the current Shell. This is the
  25         stack size of the commands run from the Shell. If you use Stack
  26         without arguments, the current stack size will be written out.
  27
  28     EXAMPLE
  29
  30     HISTORY
  31
  32         1.1.2000  SDuvan  implemented (yes, celebration is over -- time for
  33                           some hard work again -- but I might change to
  34                           everyday clothes first...)
  35
  36 **************************************************************************/
  37
  38 #include <exec/types.h>
  39 #include <dos/dosextens.h>
  40 #include <dos/rdargs.h>
  41 #include <proto/dos.h>
  42
  43 #include <aros/shcommands.h>
  44
  45 #define  MINIMUM_STACK_SIZE   2048     /* This is a wild guess and depends on
  46                                           (among other things) how much stack
  47                                           space AROS functions need. */
  48
  49 AROS_SH1(Stack, 41.1,
  50 AROS_SHA(LONG *, , SIZE,/N,NULL))
  51 {
  52     AROS_SHCOMMAND_INIT
  53
  54     int            retval = RETURN_OK;
  55     struct CommandLineInterface *cli = Cli();
  56
  57
  58     /* We must be a Shell to do this operation */
  59     if (cli == NULL)
  60     {
  61         return RETURN_FAIL;
  62     }
  63
  64     /* Write out current stack size */
  65     if (SHArg(SIZE) == NULL)
  66     {
  67         LONG currentstack = cli->cli_DefaultStack * CLI_DEFAULTSTACK_UNIT;
  68
  69         Printf("Current stack size is %ld bytes\n", currentstack);
  70     }
  71     /* Set new stack size */
  72     else
  73     {
  74         LONG  newSize = *SHArg(SIZE);
  75
  76         if (newSize > MINIMUM_STACK_SIZE)
  77         {
  78             cli->cli_DefaultStack = (newSize + CLI_DEFAULTSTACK_UNIT - 1) / CLI_DEFAULTSTACK_UNIT;
  79         }
  80         else
  81         {
  82             PutStr("Requested size is too small.\n");
  83             retval = RETURN_ERROR;
  84         }
  85     }
  86
  87     return retval;
  88
  89     AROS_SHCOMMAND_EXIT
  90 }