static void
thread_cleanup (void *val)
{
if (val != NULL)
{
struct thread_node *thread = val;
/* How did the signal thread get killed? */
assert (thread != &__timer_signal_thread_rclk);
#ifdef _POSIX_CPUTIME
assert (thread != &__timer_signal_thread_pclk);
#endif
#ifdef _POSIX_THREAD_CPUTIME
assert (thread != &__timer_signal_thread_tclk);
#endif
pthread_mutex_lock (&__timer_mutex);
thread->exists = 0;
/* We are no longer processing a timer event. */
thread->current_timer = 0;
if (list_isempty (&thread->timer_queue))
__timer_thread_dealloc (thread);
else
(void) __timer_thread_start (thread);
pthread_mutex_unlock (&__timer_mutex);
/* Unblock potentially blocked timer_delete(). */
pthread_cond_broadcast (&thread->cond);
}
}
/* Create new per-process timer using CLOCK. */
int
timer_create (
clockid_t clock_id,
struct sigevent *evp,
timer_t *timerid)
{
int retval = -1;
struct timer_node *newtimer = NULL;
struct thread_node *thread = NULL;
if (0
#if defined _POSIX_CPUTIME && _POSIX_CPUTIME >= 0
|| clock_id == CLOCK_PROCESS_CPUTIME_ID
#endif
#if defined _POSIX_THREAD_CPUTIME && _POSIX_THREAD_CPUTIME >= 0
|| clock_id == CLOCK_THREAD_CPUTIME_ID
#endif
)
{
/* We don't allow timers for CPU clocks. At least not in the
moment. */
__set_errno (ENOTSUP);
return -1;
}
if (clock_id != CLOCK_REALTIME)
{
__set_errno (EINVAL);
return -1;
}
pthread_once (&__timer_init_once_control, __timer_init_once);
if (__timer_init_failed)
{
__set_errno (ENOMEM);
return -1;
}
pthread_mutex_lock (&__timer_mutex);
newtimer = __timer_alloc ();
if (__builtin_expect (newtimer == NULL, 0))
{
__set_errno (EAGAIN);
goto unlock_bail;
}
if (evp != NULL)
newtimer->event = *evp;
else
{
newtimer->event.sigev_notify = SIGEV_SIGNAL;
newtimer->event.sigev_signo = SIGALRM;
newtimer->event.sigev_value.sival_ptr = timer_ptr2id (newtimer);
newtimer->event.sigev_notify_function = 0;
}
newtimer->event.sigev_notify_attributes = &newtimer->attr;
newtimer->creator_pid = getpid ();
switch (__builtin_expect (newtimer->event.sigev_notify, SIGEV_SIGNAL))
{
case SIGEV_NONE:
case SIGEV_SIGNAL:
/* We have a global thread for delivering timed signals.
If it is not running, try to start it up. */
thread = &__timer_signal_thread_rclk;
if (! thread->exists)
{
if (__builtin_expect (__timer_thread_start (thread),
1) < 0)
{
__set_errno (EAGAIN);
goto unlock_bail;
}
}
break;
case SIGEV_THREAD:
/* Copy over thread attributes or set up default ones. */
if (evp->sigev_notify_attributes)
newtimer->attr = *(pthread_attr_t *) evp->sigev_notify_attributes;
else
pthread_attr_init (&newtimer->attr);
/* Ensure thread attributes call for deatched thread. */
pthread_attr_setdetachstate (&newtimer->attr, PTHREAD_CREATE_DETACHED);
/* Try to find existing thread having the right attributes. */
thread = __timer_thread_find_matching (&newtimer->attr, clock_id);
/* If no existing thread has these attributes, try to allocate one. */
if (thread == NULL)
thread = __timer_thread_alloc (&newtimer->attr, clock_id);
/* Out of luck; no threads are available. */
if (__builtin_expect (thread == NULL, 0))
{
__set_errno (EAGAIN);
goto unlock_bail;
}
/* If the thread is not running already, try to start it. */
if (! thread->exists
&& __builtin_expect (! __timer_thread_start (thread), 0))
{
__set_errno (EAGAIN);
goto unlock_bail;
}
break;
default:
__set_errno (EINVAL);
goto unlock_bail;
}
newtimer->clock = clock_id;
newtimer->abstime = 0;
newtimer->armed = 0;
newtimer->thread = thread;
*timerid = timer_ptr2id (newtimer);
retval = 0;
if (__builtin_expect (retval, 0) == -1)
{
unlock_bail:
if (thread != NULL)
__timer_thread_dealloc (thread);
if (newtimer != NULL)
{
timer_delref (newtimer);
__timer_dealloc (newtimer);
}
}
pthread_mutex_unlock (&__timer_mutex);
return retval;
}
