2 This file is part of GNUnet.
3 (C) 2009 Christian Grothoff (and other contributing authors)
5 GNUnet is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published
7 by the Free Software Foundation; either version 3, or (at your
8 option) any later version.
10 GNUnet is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GNUnet; see the file COPYING. If not, write to the
17 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA.
22 * @file experimentation/gnunet-daemon-experimentation_scheduler.c
23 * @brief experimentation daemon: execute experiments
24 * @author Christian Grothoff
25 * @author Matthias Wachs
28 #include "gnunet_getopt_lib.h"
29 #include "gnunet_util_lib.h"
30 #include "gnunet_core_service.h"
31 #include "gnunet_statistics_service.h"
32 #include "gnunet-daemon-experimentation.h"
35 * An experiment is added during startup as not running NOT_RUNNING
37 * The scheduler then decides to schedule it and sends a request to the
38 * remote peer, if core cannot send since it is busy we wait for some time
39 * and change state to BUSY, if we can send we change to REQUESTED and wait
40 * for remote peers ACK.
42 * When we receive an ACK we change to STARTED and when scheduler decides that
43 * the experiment is finished we change to STOPPED.
48 /* Experiment is added and waiting to be executed */
50 /* Cannot send request to remote peer, core is busy*/
52 /* We requested experiment and wait for remote peer to ACK */
54 /* Experiment is running */
56 /* Experiment is done */
60 struct ScheduledExperiment {
61 struct ScheduledExperiment *next;
62 struct ScheduledExperiment *prev;
67 GNUNET_SCHEDULER_TaskIdentifier task;
70 struct ScheduledExperiment *waiting_head;
71 struct ScheduledExperiment *waiting_tail;
73 struct ScheduledExperiment *running_head;
74 struct ScheduledExperiment *running_tail;
76 static unsigned int experiments_scheduled;
77 static unsigned int experiments_running;
78 static unsigned int experiments_requested;
81 request_timeout (void *cls,const struct GNUNET_SCHEDULER_TaskContext* tc)
83 struct ScheduledExperiment *se = cls;
84 se->task = GNUNET_SCHEDULER_NO_TASK;
86 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Peer `%s' did not respond to request for experiment `%s'\n",
87 GNUNET_i2s (&se->n->id), se->e->name);
89 GNUNET_CONTAINER_DLL_remove (waiting_head, waiting_tail, se);
92 /* Remove experiment */
94 GNUNET_assert (experiments_requested > 0);
95 experiments_requested --;
96 GNUNET_STATISTICS_set (GSE_stats, "# experiments requested", experiments_requested, GNUNET_NO);
99 static void start_experiment (void *cls,const struct GNUNET_SCHEDULER_TaskContext* tc)
101 struct ScheduledExperiment *se = cls;
102 struct GNUNET_TIME_Relative end;
103 struct GNUNET_TIME_Relative backoff;
105 se->task = GNUNET_SCHEDULER_NO_TASK;
107 if (GNUNET_NO == GNUNET_EXPERIMENTATION_nodes_rts (se->n))
110 backoff = GNUNET_TIME_UNIT_SECONDS;
111 backoff.rel_value += GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, 1000);
112 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Delaying start request to peer `%s' for `%s' for %llu ms\n",
113 GNUNET_i2s (&se->n->id), se->e->name, (unsigned long long) backoff.rel_value);
114 se->task = GNUNET_SCHEDULER_add_delayed (backoff, &start_experiment, se);
117 else if (BUSY == se->state)
118 se->state = NOT_RUNNING;
120 if (NOT_RUNNING == se->state)
122 /* Send start message */
123 GNUNET_EXPERIMENTATION_nodes_request_start (se->n, se->e);
124 se->state = REQUESTED;
125 se->task = GNUNET_SCHEDULER_add_delayed (EXP_RESPONSE_TIMEOUT, &request_timeout, se);
127 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Sending start request to peer `%s' for `%s'\n",
128 GNUNET_i2s (&se->n->id), se->e->name);
129 experiments_requested ++;
130 GNUNET_STATISTICS_set (GSE_stats, "# experiments requested", experiments_requested, GNUNET_NO);
133 else if (REQUESTED == se->state)
135 /* Already requested */
138 else if (STARTED == se->state)
140 /* Experiment is running */
141 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Running experiment `%s' peer for `%s'\n",
142 GNUNET_i2s (&se->n->id), se->e->name);
147 end = GNUNET_TIME_absolute_get_remaining(GNUNET_TIME_absolute_add (se->e->stop, se->e->frequency));
148 if (0 == end.rel_value)
151 return; /* End of experiment is reached */
154 se->task = GNUNET_SCHEDULER_add_delayed (se->e->frequency, &start_experiment, se);
157 else if (STOPPED == se->state)
159 /* Experiment expired */
164 * Start the scheduler component
167 GNUNET_EXPERIMENTATION_scheduler_handle_start (struct Node *n, struct Experiment *e)
174 * Start the scheduler component
177 GNUNET_EXPERIMENTATION_scheduler_handle_stop (struct Node *n, struct Experiment *e)
183 * Start the scheduler component
186 GNUNET_EXPERIMENTATION_scheduler_add (struct Node *n, struct Experiment *e)
188 struct ScheduledExperiment *se;
189 struct GNUNET_TIME_Relative start;
190 struct GNUNET_TIME_Relative end;
192 start = GNUNET_TIME_absolute_get_remaining(e->start);
193 end = GNUNET_TIME_absolute_get_remaining(e->stop);
194 if (0 == end.rel_value)
195 return; /* End of experiment is reached */
197 /* Add additional checks here if required */
199 se = GNUNET_malloc (sizeof (struct ScheduledExperiment));
200 se->state = NOT_RUNNING;
203 if (0 == start.rel_value)
204 se->task = GNUNET_SCHEDULER_add_now (&start_experiment, se);
206 se->task = GNUNET_SCHEDULER_add_delayed (start, &start_experiment, se);
208 GNUNET_CONTAINER_DLL_insert (waiting_head, waiting_tail, se);
209 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Added experiment `%s' for node to be scheduled\n",
210 e->name, GNUNET_i2s(&se->n->id));
211 experiments_scheduled ++;
212 GNUNET_STATISTICS_set (GSE_stats, "# experiments scheduled", experiments_scheduled, GNUNET_NO);
216 * Start the scheduler component
219 GNUNET_EXPERIMENTATION_scheduler_start ()
221 experiments_requested = 0;
222 experiments_scheduled = 0;
227 * Stop the scheduler component
230 GNUNET_EXPERIMENTATION_scheduler_stop ()
232 struct ScheduledExperiment *cur;
233 struct ScheduledExperiment *next;
236 while (NULL != (cur = next))
239 GNUNET_CONTAINER_DLL_remove (waiting_head, waiting_tail, cur);
240 if (GNUNET_SCHEDULER_NO_TASK != cur->task)
242 GNUNET_SCHEDULER_cancel (cur->task);
243 cur->task = GNUNET_SCHEDULER_NO_TASK;
246 GNUNET_assert (experiments_scheduled > 0);
247 experiments_scheduled --;
248 GNUNET_STATISTICS_set (GSE_stats, "# experiments scheduled", experiments_scheduled, GNUNET_NO);
252 while (NULL != (cur = next))
255 GNUNET_CONTAINER_DLL_remove (running_head, running_tail, cur);
256 if (GNUNET_SCHEDULER_NO_TASK != cur->task)
258 GNUNET_SCHEDULER_cancel (cur->task);
259 cur->task = GNUNET_SCHEDULER_NO_TASK;
262 GNUNET_assert (experiments_running > 0);
263 experiments_running --;
264 GNUNET_STATISTICS_set (GSE_stats, "# experiments running", experiments_running, GNUNET_NO);
268 /* end of gnunet-daemon-experimentation_scheduler.c */