workbench/c/shellcommands/Lab.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         Lab
  14
  15     SYNOPSIS
  16
  17     LOCATION
  18
  19         C:
  20
  21     FUNCTION
  22
  23         Declares a label in a script file. This label may be referred to in a
  24         Skip command.
  25
  26     INPUTS
  27
  28     RESULT
  29
  30     NOTES
  31
  32     EXAMPLE
  33
  34        If NOT EXISTS S:User-Startup
  35            Skip NoUserSeq
  36        EndIf
  37
  38        FailAt 20
  39        Execute S:User-Startup
  40        Quit
  41
  42        Lab NoUserSeq
  43        Echo "No User-Startup found"
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49        Skip
  50
  51     INTERNALS
  52
  53     HISTORY
  54
  55     09.03.2000  SDuvan   implemented
  56
  57 ******************************************************************************/
  58
  59 #include <proto/dos.h>
  60 #include <dos/dos.h>
  61 #include <dos/dosextens.h>
  62 #include "dos_commanderrors.h"
  63
  64 #include <aros/shcommands.h>
  65
  66 AROS_SH0(Lab,41.1)
  67 {
  68     AROS_SHCOMMAND_INIT
  69
  70     struct CommandLineInterface *cli = Cli();
  71
  72
  73     if((cli != NULL) && (cli->cli_CurrentInput != cli->cli_StandardInput))
  74     {
  75         return RETURN_OK;       /* Normal operation: do nothing! */
  76     }
  77     else
  78     {
  79         PrintFault(ERROR_SCRIPT_ONLY, "Lab");
  80
  81         return RETURN_ERROR;
  82     }
  83
  84     AROS_SHCOMMAND_EXIT
  85 }