-/* $Id$ */
-
-/* timed_thread.c: Abstraction layer for timed threads
+/* -*- mode: c; c-basic-offset: 4; tab-width: 4; indent-tabs-mode: t -*-
+ * vim: ts=4 sw=4 noet ai cindent syntax=c
+ *
+ * timed_thread.c: Abstraction layer for timed threads
*
* Copyright (C) 2006-2007 Philip Kovacs pkovacs@users.sourceforge.net
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
- * USA. */
+ * USA.
+ *
+ */
#ifdef HAVE_CONFIG_H
#include <config.h>
#include <pthread.h>
#include <assert.h>
#include <errno.h>
-#include <stdlib.h>
-#include <stdio.h>
#include <time.h>
+#include <unistd.h>
#ifndef HAVE_CLOCK_GETTIME
#include <sys/time.h>
#endif
void *(*start_routine)(void *); /* thread function to run */
void *arg; /* thread function argument */
struct timespec interval_time; /* interval_usecs as a struct timespec */
+ struct timespec wait_time; /* absolute future time next timed_thread_test will wait until */
+ int pipefd[2];
+ int die;
};
/* linked list of created threads */
static timed_thread_list *p_timed_thread_list_head = NULL;
static timed_thread_list *p_timed_thread_list_tail = NULL;
+int timed_thread_readfd(timed_thread *p_timed_thread)
+{
+ return p_timed_thread->pipefd[0];
+}
+
static int now(struct timespec *abstime)
{
+#ifndef HAVE_CLOCK_GETTIME
+ struct timeval tv;
+#endif
+
if (!abstime) {
return -1;
}
return clock_gettime(CLOCK_REALTIME, abstime);
#else
/* fallback to gettimeofday () */
- struct timeval tv;
-
if (gettimeofday(&tv, NULL) != 0) {
return -1;
}
return NULL;
}
+ /* create thread pipe (used to tell threads to die) */
+ if (pipe(p_timed_thread->pipefd)) {
+ return NULL;
+ }
+
/* init attributes, e.g. joinable thread */
pthread_attr_init(&p_timed_thread->thread_attr);
pthread_attr_setdetachstate(&p_timed_thread->thread_attr,
- PTHREAD_CREATE_JOINABLE);
+ PTHREAD_CREATE_JOINABLE);
/* init mutexes */
pthread_mutex_init(&p_timed_thread->cs_mutex, NULL);
pthread_mutex_init(&p_timed_thread->runnable_mutex, NULL);
p_timed_thread->start_routine = start_routine;
p_timed_thread->arg = arg;
+ /* set wait time to current time */
+ if (now(&p_timed_thread->wait_time)) {
+ return NULL;
+ }
+
/* seconds portion of the microseconds interval */
p_timed_thread->interval_time.tv_sec = (time_t) (interval_usecs / 1000000);
/* remaining microseconds convert to nanoseconds */
(long) ((interval_usecs % 1000000) * 1000);
/* printf("interval_time.tv_sec = %li, .tv_nsec = %li\n",
- p_timed_thread->interval_time.tv_sec,
- p_timed_thread->interval_time.tv_nsec); */
+ p_timed_thread->interval_time.tv_sec,
+ p_timed_thread->interval_time.tv_nsec); */
return p_timed_thread;
}
int timed_thread_run(timed_thread *p_timed_thread)
{
return pthread_create(&p_timed_thread->thread, &p_timed_thread->thread_attr,
- p_timed_thread->start_routine, p_timed_thread->arg);
+ p_timed_thread->start_routine, p_timed_thread->arg);
}
/* destroy a timed thread.
{
assert(p_timed_thread != NULL);
assert((addr_of_p_timed_thread == NULL)
- || (*addr_of_p_timed_thread == p_timed_thread));
+ || (*addr_of_p_timed_thread == p_timed_thread));
/* signal thread to stop */
pthread_mutex_lock(&p_timed_thread->runnable_mutex);
pthread_cond_signal(&p_timed_thread->runnable_cond);
+ p_timed_thread->die = 1;
pthread_mutex_unlock(&p_timed_thread->runnable_mutex);
+ write(p_timed_thread->pipefd[1], "die", 3);
/* join the terminating thread */
if (p_timed_thread->thread) {
/* thread waits interval_usecs for runnable_cond to be signaled.
* returns 1 if signaled, -1 on error, and 0 otherwise.
* caller should call timed_thread_exit() on any non-zero return value. */
-int timed_thread_test(timed_thread *p_timed_thread)
+int timed_thread_test(timed_thread *p_timed_thread, int override_wait_time)
{
- struct timespec wait_time;
+ struct timespec now_time;
int rc;
assert(p_timed_thread != NULL);
- if (now(&wait_time)) {
- return -1;
- }
- /* printf("PRE:wait_time.tv_secs = %li, .tv_nsecs = %li\n",
- wait_time.tv_sec, wait_time.tv_nsec); */
-
- /* add in the wait interval */
- if (1000000000 - wait_time.tv_nsec
- <= p_timed_thread->interval_time.tv_nsec) {
- /* perform nsec->sec carry operation */
- wait_time.tv_sec += p_timed_thread->interval_time.tv_sec + 1;
- wait_time.tv_nsec -= 1000000000 - p_timed_thread->interval_time.tv_nsec;
- /* printf("001:wait_time.tv_secs = %li, .tv_nsecs = %li\n",
- wait_time.tv_sec, wait_time.tv_nsec); */
- } else {
- /* no carry needed, just add respective components */
- wait_time.tv_sec += p_timed_thread->interval_time.tv_sec;
- wait_time.tv_nsec += p_timed_thread->interval_time.tv_nsec;
- /* printf("002:wait_time.tv_secs = %li, .tv_nsecs = %li\n",
- wait_time.tv_sec, wait_time.tv_nsec); */
- }
-
/* acquire runnable_cond mutex */
if (pthread_mutex_lock(&p_timed_thread->runnable_mutex)) {
/* could not acquire runnable_cond mutex,
return -1;
}
+ if (p_timed_thread->die) {
+ /* if we were kindly asked to die, then die */
+ return 1;
+ }
+
+ if (override_wait_time && now(&p_timed_thread->wait_time)) {
+ return -1;
+ }
+
/* release mutex and wait until future time for runnable_cond to signal */
rc = pthread_cond_timedwait(&p_timed_thread->runnable_cond,
- &p_timed_thread->runnable_mutex, &wait_time);
+ &p_timed_thread->runnable_mutex, &p_timed_thread->wait_time);
/* mutex re-acquired, so release it */
pthread_mutex_unlock(&p_timed_thread->runnable_mutex);
+
+ if (now(&now_time)) {
+ return -1;
+ }
if (rc == 0) {
/* runnable_cond was signaled, so tell caller to exit thread */
return 1;
}
+ /* absolute future time for next pass */
+ p_timed_thread->wait_time.tv_sec += p_timed_thread->interval_time.tv_sec;
+ p_timed_thread->wait_time.tv_nsec += p_timed_thread->interval_time.tv_nsec;
+ p_timed_thread->wait_time.tv_sec += p_timed_thread->wait_time.tv_nsec / 1000000000;
+ p_timed_thread->wait_time.tv_nsec = p_timed_thread->wait_time.tv_nsec % 1000000000;
+
+ /* ensure our future wait time is sane */
+ if (p_timed_thread->wait_time.tv_sec > (now_time.tv_sec + p_timed_thread->interval_time.tv_sec) || p_timed_thread->wait_time.tv_sec < now_time.tv_sec) {
+ p_timed_thread->wait_time.tv_sec = now_time.tv_sec + p_timed_thread->interval_time.tv_sec;
+ p_timed_thread->wait_time.tv_nsec = now_time.tv_nsec + p_timed_thread->interval_time.tv_nsec;
+ p_timed_thread->wait_time.tv_sec += p_timed_thread->wait_time.tv_nsec / 1000000000;
+ p_timed_thread->wait_time.tv_nsec = p_timed_thread->wait_time.tv_nsec % 1000000000;
+ }
+
/* tell caller not to exit yet */
return 0;
}
{
assert(p_timed_thread != NULL);
+ close(p_timed_thread->pipefd[0]);
+ close(p_timed_thread->pipefd[1]);
+
pthread_exit(NULL);
}
timed_thread_node *p_node;
assert((addr_of_p_timed_thread == NULL)
- || (*addr_of_p_timed_thread == p_timed_thread));
+ || (*addr_of_p_timed_thread == p_timed_thread));
if ((p_node = calloc(sizeof(timed_thread_node), 1)) == 0) {
return 0;
for (p_node = p_timed_thread_list_head; p_node; p_node = p_next) {
p_next = p_node->next;
timed_thread_destroy(p_node->p_timed_thread,
- p_node->addr_of_p_timed_thread);
+ p_node->addr_of_p_timed_thread);
free(p_node);
p_node = NULL;
}