rom/timer/abortio.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: AbortIO() - abort a running timer request.
   6     Lang: english
   7 */
   8 #include "timer_intern.h"
   9 #include <exec/io.h>
  10 #include <exec/errors.h>
  11
  12 /*****i***********************************************************************
  13
  14     NAME */
  15 #include <devices/timer.h>
  16 #include <proto/exec.h>
  17 #include <proto/timer.h>
  18
  19         AROS_LH1(LONG, AbortIO,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct timerequest *, timereq, A1),
  23
  24 /*  LOCATION */
  25         struct TimerBase *, TimerBase, 6,Timer)
  26
  27 /*  FUNCTION
  28         Abort a running timer.device request.
  29
  30     INPUTS
  31         timereq     -   The request you wish to abort.
  32
  33     RESULT
  34         0   if the request was aborted, io_Error will also be set
  35             to the value IOERR_ABORTED.
  36
  37         -1  otherwise (most likely that the request isn't working).
  38
  39         If the request is successfully aborted, you should WaitIO() on
  40         the message before you try and reuse it.
  41
  42     NOTES
  43         This function may be called from interrupts.
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50         exec/AbortIO(), exec/WaitIO()
  51
  52     INTERNALS
  53
  54     HISTORY
  55         18-02-1997  iaint   Implemented.
  56
  57 ******************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     LONG ret = -1;
  62
  63     /*
  64         As the timer.device runs as an interrupt, we had better protect
  65         the "waiting timers" list from being corrupted.
  66     */
  67
  68     Disable();
  69     if(timereq->tr_node.io_Message.mn_Node.ln_Type != NT_REPLYMSG)
  70     {
  71         timereq->tr_node.io_Error = IOERR_ABORTED;
  72
  73         /*  We have to fix up the following request if it exists.
  74             What we do is add the time remaining for the first request
  75             to the second request.
  76         */
  77
  78         #if 0 /* stegerg: ??? */
  79         tr = (struct timerequest *)timereq->tr_node.io_Message.mn_Node.ln_Succ;
  80         if( tr && tr->tr_node.io_Message.mn_Node.ln_Succ != 0 )
  81         {
  82                 tr->tr_time.tv_secs += timereq->tr_time.tv_secs;
  83                 tr->tr_time.tv_micro += timereq->tr_time.tv_micro;
  84         }
  85         #endif
  86
  87         /*
  88             XXX: If this is the first in the list, we have to resend
  89             XXX  the wait request. I can't do that from here yet.
  90
  91         */
  92         if( timereq->tr_node.io_Message.mn_Node.ln_Pred == NULL )
  93         {
  94         }
  95         Remove((struct Node *)timereq);
  96         ReplyMsg((struct Message *)timereq);
  97         ret = 0;
  98     }
  99     Enable();
 100
 101
 102     return ret;
 103
 104     AROS_LIBFUNC_EXIT
 105 } /* AbortIO */