workbench/c/Delay.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Delay CLI command.
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         Delay (n) [TICK | TICKS]
  15
  16     SYNOPSIS
  17
  18         TIME/N,TICK=TICKS/S
  19
  20     LOCATION
  21
  22        C:
  23
  24     FUNCTION
  25
  26         Wait a certain amount of ticks clock (1/50 of a second).
  27
  28     INPUTS
  29
  30         TICK=TICKS  --  time unit in ticks to wait for.
  31     RESULT
  32
  33     NOTES
  34         An arbitrary limit is set to 15000 ticks to wait for.
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 ******************************************************************************/
  45
  46 #include <dos/dos.h>
  47 #include <proto/dos.h>
  48 #include <proto/exec.h>
  49
  50 int __nocommandline;
  51
  52 int main(void)
  53 {
  54     IPTR args[1] = { 0 };
  55     struct RDArgs *rda = ReadArgs("TIME/N,TICK=TICKS/S", args, NULL);
  56
  57     if (rda)
  58     {
  59         LONG ticks = *((LONG *)args[0]);
  60
  61         if (ticks >= 0 && ticks <= TICKS_PER_SECOND * 300)
  62         {
  63             Delay(ticks);
  64             FreeArgs(rda);
  65             return RETURN_OK;
  66         }
  67         FreeArgs(rda);
  68     }
  69     return RETURN_FAIL;
  70 }
  71