workbench/c/shellcommands/Skip.c

   1 /*
   2     Copyright © 1995-2016, 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         Jump to a new position in a script. If a label is specified, control
  26         goes to the first Lab command found that has the same label. If no
  27         label is specified, control goes to the first EndSkip command found.
  28
  29         If the BACK switch is given, the search for a matching Lab or
  30         EndSkip command starts at the beginning of the script; otherwise the
  31         search starts at the Skip command. If a matching Lab/EndSkip is not
  32         found, an error is returned.
  33
  34     INPUTS
  35
  36         LABEL  --  The label to skip to.
  37
  38         BACK   --  Specify this if the label appears before the Skip statement
  39                    in the script file.
  40
  41     RESULT
  42
  43     NOTES
  44         This command can only be used in scripts.
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51
  52        Lab, EndSkip
  53
  54     INTERNALS
  55
  56 ******************************************************************************/
  57
  58 #include <proto/dos.h>
  59 #include <dos/dos.h>
  60 #include <dos/dosextens.h>
  61 #include <dos/rdargs.h>
  62 #include "dos_commanderrors.h"
  63 #include <dos/stdio.h>
  64
  65 #include <aros/shcommands.h>
  66
  67 AROS_SH2(Skip, 41.2,
  68 AROS_SHA(STRPTR, , LABEL,  , NULL),
  69 AROS_SHA(BOOL,   , BACK, /S, FALSE))
  70 {
  71     AROS_SHCOMMAND_INIT
  72
  73     struct CommandLineInterface *cli = Cli();
  74     BOOL                  labelFound = FALSE;
  75
  76
  77     if (cli == NULL || cli->cli_CurrentInput == cli->cli_StandardInput)
  78     {
  79         PrintFault(ERROR_SCRIPT_ONLY, "Skip");
  80
  81         return RETURN_FAIL;
  82     }
  83
  84     {
  85         char  buffer[256];
  86         int   a = 0;
  87         LONG  status;
  88         BOOL  quit = FALSE;
  89
  90         SelectInput(cli->cli_CurrentInput);
  91
  92         if (SHArg(BACK))
  93         {
  94             Flush(Input());
  95             Seek(Input(), 0, OFFSET_BEGINNING);
  96         }
  97
  98         while (!quit)
  99         {
 100             status = ReadItem(buffer, sizeof(buffer), NULL);
 101
 102             if (status == ITEM_ERROR)
 103             {
 104                 break;
 105             }
 106
 107             if (status != ITEM_NOTHING)
 108             {
 109                 switch (FindArg("LAB,ENDSKIP", buffer))
 110                 {
 111                     case 0:
 112                         if (SHArg(LABEL) != NULL)
 113                         {
 114                             ReadItem(buffer, sizeof(buffer), NULL);
 115
 116                             if (FindArg(SHArg(LABEL), buffer) == 0)
 117                             {
 118                                 quit = TRUE;
 119                                 labelFound = TRUE;
 120                             }
 121                         }
 122                         break;
 123
 124                     case 1:
 125                         quit = TRUE;
 126                         break;
 127                 }
 128             }
 129
 130             /* Skip to the next line */
 131             do
 132             {
 133                 a = FGetC(Input());
 134             } while (a != '\n' && a != ENDSTREAMCH);
 135
 136             if (a == ENDSTREAMCH)
 137                 break;
 138         }
 139     }
 140
 141     if (!labelFound && SHArg(LABEL) != NULL)
 142     {
 143         SetIoErr(ERROR_OBJECT_NOT_FOUND);
 144         PrintFault(ERROR_OBJECT_NOT_FOUND, "Skip");
 145
 146         return RETURN_FAIL;
 147     }
 148
 149     return RETURN_OK;
 150
 151     AROS_SHCOMMAND_EXIT
 152 }