workbench/c/shellcommands/Else.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME
  12
  13         Else
  14
  15     SYNOPSIS
  16
  17     LOCATION
  18
  19         C:
  20
  21     FUNCTION
  22
  23         Separate the 'true' and 'false' blocks of an If statement. The block
  24         following an Else command is executed if the condition in the previous
  25         If statement was false.
  26
  27     INPUTS
  28
  29     RESULT
  30
  31     NOTES
  32
  33     EXAMPLE
  34
  35         If EXISTS Sys:Devs
  36             Copy random.device Sys:Devs/
  37         Else
  38             Echo "Cannot find Sys:Devs"
  39         EndIf
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45         If, EndIf
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51     12.01.2000  SDuvan   implemented
  52
  53 ******************************************************************************/
  54
  55 #include <dos/dos.h>
  56 #include <dos/dosextens.h>
  57 #include <dos/rdargs.h>
  58 #include <dos/stdio.h>
  59 #include <proto/dos.h>
  60 #include "dos_commanderrors.h"
  61
  62 #include <aros/shcommands.h>
  63
  64 AROS_SH0(Else,41.1)
  65 {
  66     AROS_SHCOMMAND_INIT
  67
  68     struct CommandLineInterface *cli = Cli();
  69
  70
  71     if ((cli != NULL) && (cli->cli_CurrentInput != cli->cli_StandardInput))
  72     {
  73         BOOL found = FALSE;
  74         int  level = 1;
  75         char buffer[256];
  76         int a = 0;
  77
  78         SelectInput(cli->cli_CurrentInput);
  79
  80         while (!found)
  81         {
  82             LONG status;
  83             int temp;
  84
  85             status = ReadItem(buffer, sizeof(buffer), NULL);
  86
  87             if (status == ITEM_ERROR)
  88                 break;
  89
  90             if (status == ITEM_NOTHING)
  91             {
  92                 if (a == ENDSTREAMCH)
  93                     break;
  94                 else
  95                     goto next;
  96             }
  97
  98             switch ((temp = FindArg("IF,ENDIF", buffer)))
  99             {
 100             case 0:
 101                 level++;
 102                 break;
 103
 104             case 1:
 105                 level--;
 106
 107                 if (level == 0)
 108                 {
 109                     found = TRUE;
 110                 }
 111
 112                 break;
 113             }
 114
 115 next:
 116             /* Take care of long and empty lines */
 117             do
 118             {
 119                 a = FGetC(Input());
 120             } while(a != '\n' && a != ENDSTREAMCH);
 121
 122         }
 123
 124         if (!found)
 125         {
 126             PrintFault(ERROR_NO_MATCHING_ELSEENDIF, "Else");
 127
 128             return RETURN_FAIL;
 129         }
 130     }
 131     else
 132     {
 133         PrintFault(ERROR_SCRIPT_ONLY, "Else");
 134
 135         return RETURN_ERROR;
 136     }
 137
 138     return RETURN_OK;
 139
 140     AROS_SHCOMMAND_EXIT
 141 }