workbench/c/shellcommands/Skip.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         Skip
  14
  15     SYNOPSIS
  16
  17         LABEL, BACK/S
  18
  19     LOCATION
  20
  21         Workbench:C
  22
  23     FUNCTION
  24
  25         Skip commands in a script file until a certain label (declared with
  26         Lab) or an EndSkip command is reached.
  27
  28     INPUTS
  29
  30         LABEL  --  The label to skip to.
  31
  32         BACK   --  Specify this if the label appears before the Skip statement
  33                    in the script file.
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45        Lab, EndSkip
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51     09.03.2009  OTigreat  41.2  Let's find Lab even after an empty line
  52     14.01.2000  SDuvan    41.1  Implemented
  53
  54 ******************************************************************************/
  55
  56 #include <proto/dos.h>
  57 #include <dos/dos.h>
  58 #include <dos/dosextens.h>
  59 #include <dos/rdargs.h>
  60 #include <dos_commanderrors.h>
  61 #include <dos/stdio.h>
  62
  63 #include <aros/shcommands.h>
  64
  65 AROS_SH2(Skip, 41.2,
  66 AROS_SHA(STRPTR, , LABEL,  , NULL),
  67 AROS_SHA(BOOL,   , BACK, /S, FALSE))
  68 {
  69     AROS_SHCOMMAND_INIT
  70
  71     struct CommandLineInterface *cli = Cli();
  72     BOOL                  labelFound = FALSE;
  73
  74
  75     if(cli == NULL || cli->cli_CurrentInput == cli->cli_StandardInput)
  76     {
  77         PrintFault(ERROR_SCRIPT_ONLY, "Skip");
  78
  79         return RETURN_FAIL;
  80     }
  81
  82     {
  83         char  buffer[256], a = 0;
  84         LONG  status;
  85         BOOL  quit = FALSE;
  86
  87         SelectInput(cli->cli_CurrentInput);
  88
  89         if (SHArg(BACK))
  90         {
  91             Flush(Input());
  92             Seek(Input(), 0, OFFSET_BEGINNING);
  93         }
  94
  95         while (!quit)
  96         {
  97             status = ReadItem(buffer, sizeof(buffer), NULL);
  98
  99             if (status == ITEM_ERROR)
 100             {
 101                 break;
 102             }
 103
 104             if (status == ITEM_NOTHING)
 105             {
 106                 if (a == ENDSTREAMCH)
 107                     break;
 108                 else
 109                     continue;
 110             }
 111
 112             switch (FindArg("LAB,ENDSKIP", buffer))
 113             {
 114                 case 0:
 115                     if (SHArg(LABEL) != NULL)
 116                     {
 117                         ReadItem(buffer, sizeof(buffer), NULL);
 118
 119                         if (FindArg(SHArg(LABEL), buffer) == 0)
 120                         {
 121                             quit = TRUE;
 122                             labelFound = TRUE;
 123                         }
 124                     }
 125                     break;
 126
 127                 case 1:
 128                     quit = TRUE;
 129                     break;
 130             }
 131
 132             /* Skip to the next line */
 133             do
 134             {
 135                 a = FGetC(Input());
 136             } while (a != '\n' && a != ENDSTREAMCH);
 137         }
 138     }
 139
 140     if (!labelFound && SHArg(LABEL) != NULL)
 141     {
 142         SetIoErr(ERROR_OBJECT_NOT_FOUND);
 143         PrintFault(ERROR_OBJECT_NOT_FOUND, "Skip");
 144
 145         return RETURN_FAIL;
 146     }
 147
 148     return RETURN_OK;
 149
 150     AROS_SHCOMMAND_EXIT
 151 }