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         Workbench:C
  22
  23     FUNCTION
  24
  25     INPUTS
  26
  27         RC   --  the return code
  28
  29     RESULT
  30
  31     NOTES
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41     HISTORY
  42
  43     21.01.2000  SDuvan   implemented
  44
  45 ******************************************************************************/
  46
  47 #include <proto/dos.h>
  48 #include <dos/dos.h>
  49 #include <dos/dosextens.h>
  50 #include <dos/rdargs.h>
  51 #include <dos_commanderrors.h>
  52
  53 #include <aros/shcommands.h>
  54
  55 AROS_SH1(Quit, 41.1,
  56 AROS_SHA(LONG *, ,RC,/N,NULL))
  57 {
  58     AROS_SHCOMMAND_INIT
  59
  60     struct CommandLineInterface *cli = Cli();
  61     int retval = RETURN_OK;
  62
  63
  64     if(cli && !cli->cli_Interactive)
  65     {
  66         struct FileHandle *fh = BADDR(cli->cli_CurrentInput);
  67
  68         fh->fh_Pos = fh->fh_End + 1; /* Simulate an EOF */
  69
  70         if(SHArg(RC) != NULL)
  71             retval = (int)*SHArg(RC);
  72
  73     }
  74     else
  75     {
  76         PrintFault(ERROR_SCRIPT_ONLY, "Quit");
  77         retval = RETURN_FAIL;
  78     }
  79
  80     return retval;
  81
  82     AROS_SHCOMMAND_EXIT
  83 }