workbench/c/shellcommands/Else.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         Else
  14
  15     SYNOPSIS
  16
  17     LOCATION
  18
  19         Sys: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], a = 0;
  76
  77         SelectInput(cli->cli_CurrentInput);
  78
  79         while (!found)
  80         {
  81             LONG status;
  82             int temp;
  83
  84             status = ReadItem(buffer, sizeof(buffer), NULL);
  85
  86             if (status == ITEM_ERROR)
  87                 break;
  88
  89             if (status == ITEM_NOTHING)
  90             {
  91                 if (a == ENDSTREAMCH)
  92                     break;
  93                 else
  94                     continue;
  95             }
  96
  97             switch ((temp = FindArg("IF,ENDIF", buffer)))
  98             {
  99             case 0:
 100                 level++;
 101                 break;
 102
 103             case 1:
 104                 level--;
 105
 106                 if (level == 0)
 107                 {
 108                     found = TRUE;
 109                 }
 110
 111                 break;
 112             }
 113
 114             /* Take care of long lines */
 115             do
 116             {
 117                 a = FGetC(Input());
 118             } while(a != '\n' && a != ENDSTREAMCH);
 119
 120         }
 121
 122         if (!found)
 123         {
 124             PrintFault(ERROR_NO_MATCHING_ELSEENDIF, "Else");
 125
 126             return RETURN_FAIL;
 127         }
 128     }
 129     else
 130     {
 131         PrintFault(ERROR_SCRIPT_ONLY, "Else");
 132
 133         return RETURN_ERROR;
 134     }
 135
 136     return RETURN_OK;
 137
 138     AROS_SHCOMMAND_EXIT
 139 }