+/**
+ * \brief Blocks on a set of semaphore
+ *
+ * If any of the semaphores has some more capacity, it gets decreased.
+ * If not, blocks until the capacity of one of the semaphores becomes more friendly.
+ *
+ * \return the rank in the dynar of the semaphore which just got locked from the set
+ */
+unsigned int SIMIX_sem_acquire_any(xbt_dynar_t sems)
+{
+ smx_sem_t sem;
+ unsigned int counter, result = -1;
+ smx_action_t act_sleep;
+ smx_process_t self = SIMIX_process_self();
+
+ xbt_assert0(xbt_dynar_length(sems),
+ "I refuse to commit sucide by locking on an **empty** set of semaphores!!");
+ DEBUG2("Wait on semaphore set %p (containing %ld semaphores)", sems,
+ xbt_dynar_length(sems));
+
+ xbt_dynar_foreach(sems, counter, sem) {
+ if (!SIMIX_sem_would_block(sem)) {
+ DEBUG1("Semaphore %p wouldn't block; get it without waiting", sem);
+ SIMIX_sem_acquire(sem);
+ return counter;
+ }
+ }
+
+ /* Always create an action null in case there is a host failure */
+ act_sleep = SIMIX_action_sleep(SIMIX_host_self(), -1);
+ SIMIX_action_set_name(act_sleep, bprintf("Locked in semaphore %p", sem));
+ self->waiting_action = act_sleep;
+ SIMIX_register_action_to_semaphore(act_sleep,
+ xbt_dynar_get_as(sems, 0, smx_sem_t));
+
+ /* Get listed as member of all the provided semaphores */
+ self->sem = (smx_sem_t) sems; /* FIXME: we pass a pointer to dynar where a pointer to sem is expected... */
+ xbt_dynar_foreach(sems, counter, sem) {
+ xbt_fifo_push(sem->sleeping, self);
+ }
+ SIMIX_process_yield();
+ self->sem = NULL;
+ while (self->suspended)
+ SIMIX_process_yield();
+
+ /* at least one of the semaphore unsuspended us -- great, let's search the first one (and get out of the others) */
+ xbt_dynar_foreach(sems, counter, sem) {
+ if (!xbt_fifo_remove(sem->sleeping, self) && result == -1) {
+ if (sem->capacity != SMX_SEM_NOLIMIT) {
+ /* Take the released token */
+ sem->capacity--;
+ }
+ result = counter;
+ }
+ }
+ xbt_assert0(result != -1, "Cannot find which semaphore unlocked me!");
+
+ /* Destroy the waiting action */
+ self->waiting_action = NULL;
+ SIMIX_unregister_action_to_semaphore(act_sleep,
+ xbt_dynar_get_as(sems, 0,
+ smx_sem_t));
+ SIMIX_action_destroy(act_sleep);
+ return result;
+}