1 /* xbt_synchro -- advanced multithreaded features */
2 /* Working on top of real threads in RL and of simulated processes in SG */
4 /* Copyright (c) 2009, 2010. The SimGrid Team.
5 * All rights reserved. */
7 /* This program is free software; you can redistribute it and/or modify it
8 * under the terms of the license (GNU LGPL) which comes with this package. */
10 #include "xbt/sysdep.h"
11 #include "xbt/dynar.h"
12 #include "xbt/synchro.h"
13 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(xbt_sync);
18 void_f_int_pvoid_t function;
20 } s_worker_data_t, *worker_data_t;
22 static void worker_wait_n_free(void *w)
24 worker_data_t worker = *(worker_data_t *) w;
25 xbt_thread_join(worker->worker);
29 static void worker_wrapper(void *w)
31 worker_data_t me = (worker_data_t) w;
32 (*me->function) (me->rank, xbt_dynar_get_ptr(me->data, me->rank));
35 void xbt_dynar_dopar(xbt_dynar_t datas, void_f_int_pvoid_t function)
38 xbt_dynar_new(sizeof(worker_data_t), worker_wait_n_free);
41 if (xbt_dynar_length(datas) == 0)
42 return; /* nothing to do */
43 if (xbt_dynar_length(datas) == 1) {
44 /* don't start any new thread, do it directly */
45 (*function) (0, xbt_dynar_get_ptr(datas, 0));
48 /* Start all workers */
49 XBT_INFO("Dopar for %ld elements", xbt_dynar_length(datas));
50 xbt_dynar_foreach(datas, cursor, data) {
51 worker_data_t w = xbt_new0(s_worker_data_t, 1);
53 w->function = function;
55 xbt_dynar_push(workers, &w);
57 xbt_thread_create("dopar worker", worker_wrapper, w,
61 xbt_dynar_free(&workers);
66 #include "xbt/synchro.h"
68 XBT_TEST_SUITE("synchro", "Advanced synchronization mecanisms");
69 XBT_LOG_EXTERNAL_CATEGORY(xbt_dyn);
70 XBT_LOG_DEFAULT_CATEGORY(xbt_dyn);
72 static void add100(int rank, void *data)
74 //XBT_INFO("Thread%d: Add 100 to %d",rank,*(int*)data);
78 XBT_TEST_UNIT("dopar", test_dynar_dopar, "do parallel on dynars of integers")
85 ("==== Push %d int, add 100 to each of them in parallel and check the results",
87 d = xbt_dynar_new(sizeof(int), NULL);
88 for (cpt = 0; cpt < NB_ELEM; cpt++) {
89 xbt_dynar_push_as(d, int, cpt); /* This is faster (and possible only with scalars) */
90 xbt_test_log("Push %d, length=%lu", cpt, xbt_dynar_length(d));
92 xbt_dynar_dopar(d, add100);
94 xbt_dynar_foreach(d, cursor, i) {
95 xbt_test_assert(i == cpt,
96 "The retrieved value is not the expected one (%d!=%d)",
103 #endif /* SIMGRID_TEST */