workbench/c/shellcommands/EndSkip.c

   1 /*
   2     Copyright © 1995-2016, 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         C:
  20
  21     FUNCTION
  22
  23         Ends a skip block in a script.
  24
  25     INPUTS
  26
  27     RESULT
  28
  29     NOTES
  30
  31     EXAMPLE
  32
  33     BUGS
  34
  35     SEE ALSO
  36
  37         Skip, Lab
  38
  39     INTERNALS
  40
  41         This command is quite similar to EndIf.
  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 }