src/event.c

   1 /*
   2     event.c -- event queue
   3     Copyright (C) 2002-2009 Guus Sliepen <guus@tinc-vpn.org>,
   4                   2002-2005 Ivo Timmermans
   5
   6     This program is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License along
  17     with this program; if not, write to the Free Software Foundation, Inc.,
  18     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  19 */
  20
  21 #include "system.h"
  22
  23 #include "avl_tree.h"
  24 #include "event.h"
  25 #include "utils.h"
  26 #include "xalloc.h"
  27
  28 avl_tree_t *event_tree;
  29 extern time_t now;
  30
  31 int id;
  32
  33 static int event_compare(const event_t *a, const event_t *b)
  34 {
  35         if(a->time > b->time)
  36                 return 1;
  37
  38         if(a->time < b->time)
  39                 return -1;
  40
  41         return a->id - b->id;
  42 }
  43
  44 void init_events(void)
  45 {
  46         cp();
  47
  48         event_tree = avl_alloc_tree((avl_compare_t) event_compare, (avl_action_t) free_event);
  49 }
  50
  51 void exit_events(void)
  52 {
  53         cp();
  54
  55         avl_delete_tree(event_tree);
  56 }
  57
  58 void expire_events(void)
  59 {
  60         avl_node_t *node;
  61         event_t *event;
  62         time_t diff;
  63
  64         /*
  65          * Make all events appear expired by substracting the difference between
  66          * the expiration time of the last event and the current time.
  67          */
  68
  69         cp();
  70
  71         if(!event_tree->tail)
  72                 return;
  73
  74         event = event_tree->tail->data;
  75         if(event->time < now)
  76                 return;
  77
  78         diff = 1 + event->time - now;
  79
  80         for(node = event_tree->head; node; node = node->next) {
  81                 event = node->data;
  82                 event->time -= diff;
  83         }
  84 }
  85
  86 event_t *new_event(void)
  87 {
  88         cp();
  89
  90         return xmalloc_and_zero(sizeof(event_t));
  91 }
  92
  93 void free_event(event_t *event)
  94 {
  95         cp();
  96
  97         free(event);
  98 }
  99
 100 void event_add(event_t *event)
 101 {
 102         cp();
 103
 104         event->id = ++id;
 105         avl_insert(event_tree, event);
 106 }
 107
 108 void event_del(event_t *event)
 109 {
 110         cp();
 111
 112         avl_delete(event_tree, event);
 113 }
 114
 115 event_t *get_expired_event(void)
 116 {
 117         event_t *event;
 118
 119         cp();
 120
 121         if(event_tree->head) {
 122                 event = event_tree->head->data;
 123
 124                 if(event->time < now) {
 125                         avl_node_t *node = event_tree->head;
 126                         avl_unlink_node(event_tree, node);
 127                         free(node);
 128                         return event;
 129                 }
 130         }
 131
 132         return NULL;
 133 }