compiler/alib/timedelay.c

   1 /*
   2     Copyright � 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: TimeDelay() - wait a specified time.
   6     Lang: english
   7 */
   8
   9
  10 #include <exec/types.h>
  11 #include <aros/asmcall.h>
  12 #include <devices/timer.h>
  13 #include <exec/tasks.h>
  14 #include <proto/exec.h>
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19         LONG TimeDelay(
  20
  21 /*  SYNOPSIS */
  22         LONG Unit,
  23         ULONG Seconds,
  24         ULONG MicroSeconds)
  25
  26 /*  FUNCTION
  27         TimeDelay() waits for the specified period of time before returning
  28         to the caller.
  29
  30     INPUTS
  31         Unit         -  The timer.device unit to use for this command.
  32         Seconds      -  The number of seconds to wait.
  33         MicroSeconds -  The number of microseconds to wait.
  34
  35     RESULT
  36         Zero if everything went ok, non-zero if there was a problem.
  37
  38     NOTES
  39         If this function fails, the most likely reasons are:
  40         - invalid timer.device unit numbers
  41
  42         This function uses the SIGF_SINGLE signal, strange things can
  43         happen if you are waiting on this signal when you call this
  44         function. Basically: Don't use it and call this function.
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51         timer.device/TR_ADDREQUEST
  52
  53     INTERNALS
  54
  55     HISTORY
  56
  57 ******************************************************************************/
  58 {
  59     struct timerequest tr;
  60     struct MsgPort *mp;
  61     UBYTE error = 0;
  62
  63     /* Create a message port */
  64     if ((mp = CreateMsgPort()) != NULL)
  65     {
  66         FreeSignal(mp->mp_SigBit);
  67         mp->mp_SigBit = SIGB_SINGLE;
  68
  69         tr.tr_node.io_Message.mn_Node.ln_Type = NT_MESSAGE;
  70         tr.tr_node.io_Message.mn_Node.ln_Pri = 0;
  71         tr.tr_node.io_Message.mn_Node.ln_Name = NULL;
  72         tr.tr_node.io_Message.mn_ReplyPort = mp;
  73         tr.tr_node.io_Message.mn_Length = sizeof(struct timerequest);
  74
  75         SetSignal(0, SIGF_SINGLE);
  76
  77         if(OpenDevice("timer.device", Unit, (struct IORequest *)&tr, 0) == 0)
  78         {
  79             tr.tr_node.io_Command = TR_ADDREQUEST;
  80             tr.tr_node.io_Flags = 0;
  81             tr.tr_time.tv_secs = Seconds;
  82             tr.tr_time.tv_micro = MicroSeconds;
  83
  84             DoIO((struct IORequest *)&tr);
  85
  86             CloseDevice((struct IORequest *)&tr);
  87             error = 1;
  88         }
  89         mp->mp_SigBit = -1;
  90         DeleteMsgPort(mp);
  91     }
  92     return error;
  93
  94 } /* TimeDelay() */