compiler/alib/timedelay.c

   1 /*
   2     Copyright © 1995-2001, 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         AROS_UFH3(ULONG, TimeDelay,
  20
  21 /*  SYNOPSIS */
  22         AROS_UFHA(LONG, Unit, D0),
  23         AROS_UFHA(ULONG, Seconds, D1),
  24         AROS_UFHA(ULONG, MicroSeconds, D2))
  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/TR_ADDREQUEST
  52
  53     INTERNALS
  54
  55     HISTORY
  56
  57 ******************************************************************************/
  58 {
  59     AROS_USERFUNC_INIT
  60     AROS_GET_SYSBASE_OK
  61
  62     struct timerequest tr;
  63     struct MsgPort mp;
  64     UBYTE error = 0;
  65
  66     /* Create a message port */
  67     mp.mp_Node.ln_Type = NT_MSGPORT;
  68     mp.mp_Node.ln_Pri = 0;
  69     mp.mp_Node.ln_Name = NULL;
  70     mp.mp_Flags = PA_SIGNAL;
  71     mp.mp_SigTask = FindTask(NULL);
  72     mp.mp_SigBit = SIGB_SINGLE;
  73     NEWLIST(&mp.mp_MsgList);
  74
  75     tr.tr_node.io_Message.mn_Node.ln_Type = NT_MESSAGE;
  76     tr.tr_node.io_Message.mn_Node.ln_Pri = 0;
  77     tr.tr_node.io_Message.mn_Node.ln_Name = NULL;
  78     tr.tr_node.io_Message.mn_ReplyPort = &mp;
  79     tr.tr_node.io_Message.mn_Length = sizeof(struct timerequest);
  80
  81     SetSignal(0, SIGF_SINGLE);
  82
  83     if(OpenDevice("timer.device", Unit, (struct IORequest *)&tr, 0) == 0)
  84     {
  85         tr.tr_node.io_Command = TR_ADDREQUEST;
  86         tr.tr_node.io_Flags = 0;
  87         tr.tr_time.tv_secs = Seconds;
  88         tr.tr_time.tv_micro = MicroSeconds;
  89
  90         DoIO((struct IORequest *)&tr);
  91
  92         CloseDevice((struct IORequest *)&tr);
  93         error = 1;
  94     }
  95
  96     return error;
  97
  98     AROS_USERFUNC_EXIT
  99
 100 } /* TimeDelay() */