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         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];
  84         int   a = 0;
  85         LONG  status;
  86         BOOL  quit = FALSE;
  87
  88         SelectInput(cli->cli_CurrentInput);
  89
  90         if (SHArg(BACK))
  91         {
  92             Flush(Input());
  93             Seek(Input(), 0, OFFSET_BEGINNING);
  94         }
  95
  96         while (!quit)
  97         {
  98             status = ReadItem(buffer, sizeof(buffer), NULL);
  99
 100             if (status == ITEM_ERROR)
 101             {
 102                 break;
 103             }
 104
 105             if (status != ITEM_NOTHING) {
 106                 switch (FindArg("LAB,ENDSKIP", buffer))
 107                 {
 108                     case 0:
 109                         if (SHArg(LABEL) != NULL)
 110                         {
 111                             ReadItem(buffer, sizeof(buffer), NULL);
 112
 113                             if (FindArg(SHArg(LABEL), buffer) == 0)
 114                             {
 115                                 quit = TRUE;
 116                                 labelFound = TRUE;
 117                             }
 118                         }
 119                         break;
 120
 121                     case 1:
 122                         quit = TRUE;
 123                         break;
 124                 }
 125             }
 126
 127             /* Skip to the next line */
 128             do
 129             {
 130                 a = FGetC(Input());
 131             } while (a != '\n' && a != ENDSTREAMCH);
 132         }
 133     }
 134
 135     if (!labelFound && SHArg(LABEL) != NULL)
 136     {
 137         SetIoErr(ERROR_OBJECT_NOT_FOUND);
 138         PrintFault(ERROR_OBJECT_NOT_FOUND, "Skip");
 139
 140         return RETURN_FAIL;
 141     }
 142
 143     return RETURN_OK;
 144
 145     AROS_SHCOMMAND_EXIT
 146 }