Changeset c675b39 for select.c

Timestamp:

Dec 17, 2008, 3:24:25 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

1631825

Parents:

e0096b7

git-author:

Nelson Elhage <nelhage@mit.edu> (12/15/08 21:26:36)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/17/08 15:24:25)

Message:

Give timers a destructor field.

Perl timers are going to need this in order to free the SV* callback
we're holding onto.

File:

• select.c (modified) (5 diffs)

select.c

@@ -11 +11 @@
 }
 
-owl_timer *owl_select_add_timer(int after, int interval, void (*cb)(struct _owl_timer *, void *), void *data)
+owl_timer *owl_select_add_timer(int after, int interval, void (*cb)(owl_timer *, void *), void (*destroy)(owl_timer*), void *data)
 {
   owl_timer *t = owl_malloc(sizeof(owl_timer));
@@ -19 +19 @@
   t->interval = interval;
   t->callback = cb;
+  t->destroy = destroy;
   t->data = data;
 
@@ -31 +32 @@
   if (t && g_list_find(*timers, t)) {
     *timers = g_list_remove(*timers, t);
+    if(t->destroy) {
+      t->destroy(t);
+    }
     owl_free(t);
   }
@@ -42 +46 @@
   while(*timers) {
     owl_timer *t = (*timers)->data;
-    void (*cb)(struct _owl_timer *, void *);
-    void *data;
+    int remove = 0;
 
     if(t->time > now)
       break;
-
-    cb = t->callback;
-    data = t->data;
 
     /* Reschedule if appropriate */
@@ -58 +58 @@
                                      (GCompareFunc)_owl_select_timer_cmp);
     } else {
+      remove = 1;
+    }
+
+    /* Do the callback */
+    t->callback(t, t->data);
+    if(remove) {
       owl_select_remove_timer(t);
-      t = NULL;
-    }
-
-    /* Do the callback */
-    cb(t, data);
+    }
   }