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     14.01.2000  SDuvan   implemented
  52
  53 ******************************************************************************/
  54
  55 #include <proto/dos.h>
  56 #include <dos/dos.h>
  57 #include <dos/dosextens.h>
  58 #include <dos/rdargs.h>
  59 #include <dos_commanderrors.h>
  60 #include <dos/stdio.h>
  61
  62 #include <aros/shcommands.h>
  63
  64 AROS_SH2(Skip, 41.1,
  65 AROS_SHA(STRPTR, , LABEL,  , NULL),
  66 AROS_SHA(BOOL,   , BACK, /S, FALSE))
  67 {
  68     AROS_SHCOMMAND_INIT
  69
  70     struct CommandLineInterface *cli = Cli();
  71     BOOL                  labelFound = FALSE;
  72
  73
  74     if(cli == NULL || cli->cli_CurrentInput == cli->cli_StandardInput)
  75     {
  76         PrintFault(ERROR_SCRIPT_ONLY, "Skip");
  77
  78         return RETURN_FAIL;
  79     }
  80
  81     {
  82         char  buffer[256];
  83         LONG  status;
  84         BOOL  quit = FALSE;
  85
  86         SelectInput(cli->cli_CurrentInput);
  87
  88         if (SHArg(BACK))
  89         {
  90             Flush(Input());
  91             Seek(Input(), 0, OFFSET_BEGINNING);
  92         }
  93
  94         while (!quit)
  95         {
  96             status = ReadItem(buffer, sizeof(buffer), NULL);
  97
  98             if (status == ITEM_ERROR)
  99             {
 100                 break;
 101             }
 102
 103             if (status == ITEM_NOTHING)
 104             {
 105                 if(FGetC(Input()) == ENDSTREAMCH)
 106                     break;
 107             }
 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             /* Skip to the next line */
 130             {
 131                 char a;
 132
 133                 do
 134                 {
 135                     a = FGetC(Input());
 136                 } while (a != '\n' && a != ENDSTREAMCH);
 137             }
 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 }