workbench/c/shellcommands/EndSkip.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         EndSkip
  14
  15     SYNOPSIS
  16
  17     LOCATION
  18
  19         Workbench:C
  20
  21     FUNCTION
  22
  23     INPUTS
  24
  25     RESULT
  26
  27     NOTES
  28
  29     EXAMPLE
  30
  31     BUGS
  32
  33     SEE ALSO
  34
  35     INTERNALS
  36
  37         This command is quite similar to EndIf...
  38
  39     HISTORY
  40
  41     14.01.2000  SDuvan   implemented
  42
  43 ******************************************************************************/
  44
  45 #include <proto/dos.h>
  46 #include <dos/dos.h>
  47 #include <dos/dosextens.h>
  48 #include <dos_commanderrors.h>
  49
  50 #include <aros/shcommands.h>
  51
  52 AROS_SH0(EndSkip,41.1)
  53 {
  54     AROS_SHCOMMAND_INIT
  55
  56     struct CommandLineInterface *cli = Cli();
  57
  58
  59     if ((cli != NULL) && (cli->cli_CurrentInput != cli->cli_StandardInput))
  60     {
  61         return RETURN_OK;       /* Normal operation: do nothing! */
  62     }
  63     else
  64     {
  65         PrintFault(ERROR_SCRIPT_ONLY, "EndSkip");
  66
  67         return RETURN_ERROR;
  68     }
  69
  70     AROS_SHCOMMAND_EXIT
  71 }