/*
** Copyright (C) 2000 by Kevin L. Mitchell <klmitch@mit.edu>
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2 of the License, or
** (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License
** along with this program; if not, write to the Free Software
** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
**
** @(#)$Id: timer_del.c,v 1.1 2000/12/10 05:17:15 klmitch Exp $
*/
#include "timer.h"
#include "timer_int.h"
#include "rcstag.h"

RCSTAG("@(#)$Id: timer_del.c,v 1.1 2000/12/10 05:17:15 klmitch Exp $");

_s_ul
timer_del(timer *atimer)
{
  if (!timer_verify(atimer)) /* check validity of arguments */
    return TIMER_ERR_BADARGS;

  if (!(atimer->t_flag & TIMER_ACTIVE)) /* not currently active */
    return TIMER_ERR_INACTIVE;

  /* deactivate timer... */
  atimer->t_flag = 0;

  /* clip it out of the list if necessary. */
  return atimer->t_prev_p ? _timer_del(atimer) : 0;
}

_s_ul
_timer_del(timer *atimer)
{
  if (atimer->t_next) /* clip it out of the list... */
    atimer->t_next->t_prev_p = atimer->t_prev_p;
  *atimer->t_prev_p = atimer->t_next;

  atimer->t_next = 0; /* zero the list elements... */
  atimer->t_prev_p = 0;

  return 0;
}