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