workbench/c/shellcommands/Quit.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         Quit
  14
  15     SYNOPSIS
  16
  17         RC/N
  18
  19     LOCATION
  20
  21         C:
  22
  23     FUNCTION
  24
  25         Exits a script with the given return code. It's recommended that you
  26         use the standard return codes 5, 10 and 20.
  27
  28     INPUTS
  29
  30         RC   --  the return code. Defaults to 0.
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46     21.01.2000  SDuvan   implemented
  47
  48 ******************************************************************************/
  49
  50 #include <proto/dos.h>
  51 #include <dos/dos.h>
  52 #include <dos/dosextens.h>
  53 #include <dos/rdargs.h>
  54 #include "dos_commanderrors.h"
  55
  56 #include <aros/shcommands.h>
  57
  58 AROS_SH1(Quit, 41.1,
  59 AROS_SHA(LONG *, ,RC,/N,NULL))
  60 {
  61     AROS_SHCOMMAND_INIT
  62
  63     struct CommandLineInterface *cli = Cli();
  64     int retval = RETURN_OK;
  65
  66
  67     if(cli && !cli->cli_Interactive)
  68     {
  69         struct FileHandle *fh = BADDR(cli->cli_CurrentInput);
  70
  71         fh->fh_Pos = fh->fh_End + 1; /* Simulate an EOF */
  72
  73         if(SHArg(RC) != NULL)
  74             retval = (int)*SHArg(RC);
  75
  76     }
  77     else
  78     {
  79         PrintFault(ERROR_SCRIPT_ONLY, "Quit");
  80         retval = RETURN_FAIL;
  81     }
  82
  83     return retval;
  84
  85     AROS_SHCOMMAND_EXIT
  86 }