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         Workbench: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
  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 || ITEM_NOTHING)
  87             {
  88                 break;
  89             }
  90
  91             switch ((temp = FindArg("IF,ENDIF", buffer)))
  92             {
  93             case 0:
  94                 level++;
  95                 break;
  96
  97             case 1:
  98                 level--;
  99
 100                 if (level == 0)
 101                 {
 102                     found = TRUE;
 103                 }
 104
 105                 break;
 106             }
 107
 108             /* Take care of long lines */
 109             {
 110                 char a;
 111
 112                 do
 113                 {
 114                     a = FGetC(Input());
 115                 } while(a != '\n' && a != ENDSTREAMCH);
 116             }
 117         }
 118
 119         if (!found)
 120         {
 121             PrintFault(ERROR_NO_MATCHING_ELSEENDIF, "Else");
 122
 123             return RETURN_FAIL;
 124         }
 125     }
 126     else
 127     {
 128         PrintFault(ERROR_SCRIPT_ONLY, "Else");
 129
 130         return RETURN_ERROR;
 131     }
 132
 133     return RETURN_OK;
 134
 135     AROS_SHCOMMAND_EXIT
 136 }