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"
42 struct ScheduledExperiment {
43 struct ScheduledExperiment *next;
44 struct ScheduledExperiment *prev;
49 GNUNET_SCHEDULER_TaskIdentifier task;
52 struct ScheduledExperiment *list_head;
53 struct ScheduledExperiment *list_tail;
55 static unsigned int experiments_scheduled;
56 static unsigned int experiments_requested;
59 request_timeout (void *cls,const struct GNUNET_SCHEDULER_TaskContext* tc)
61 struct ScheduledExperiment *se = cls;
62 se->task = GNUNET_SCHEDULER_NO_TASK;
64 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Peer `%s' did not respond to request for experiment `%s'\n",
65 GNUNET_i2s (&se->n->id), se->e->name);
67 GNUNET_CONTAINER_DLL_remove (list_head, list_tail, se);
70 /* Remove experiment */
72 GNUNET_assert (experiments_requested > 0);
73 experiments_requested --;
74 GNUNET_STATISTICS_set (GSE_stats, "# experiments requested", experiments_requested, GNUNET_NO);
77 static void run (void *cls,const struct GNUNET_SCHEDULER_TaskContext* tc)
79 struct ScheduledExperiment *se = cls;
80 struct GNUNET_TIME_Relative end;
81 se->task = GNUNET_SCHEDULER_NO_TASK;
84 if (NOT_RUNNING == se->state)
86 /* Send start message */
87 GNUNET_EXPERIMENT_nodes_request_start (se->n, se->e);
88 se->state = REQUESTED;
89 se->task = GNUNET_SCHEDULER_add_delayed (EXP_RESPONSE_TIMEOUT, &request_timeout, se);
91 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Sending start request to peer `%s' for `%s'\n",
92 GNUNET_i2s (&se->n->id), se->e->name);
93 experiments_requested ++;
94 GNUNET_STATISTICS_set (GSE_stats, "# experiments requested", experiments_requested, GNUNET_NO);
97 else if (REQUESTED == se->state)
99 /* Already requested */
102 else if (STARTED == se->state)
104 /* Experiment is running */
105 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Running experiment `%s' peer for `%s'\n",
106 GNUNET_i2s (&se->n->id), se->e->name);
111 end = GNUNET_TIME_absolute_get_remaining(GNUNET_TIME_absolute_add (se->e->stop, se->e->frequency));
112 if (0 == end.rel_value)
115 return; /* End of experiment is reached */
117 se->task = GNUNET_SCHEDULER_add_delayed (se->e->frequency, &run, se);
120 else if (STOPPED == se->state)
122 /* Experiment expired */
127 * Start the scheduler component
130 GNUNET_EXPERIMENTATION_scheduler_add (struct Node *n, struct Experiment *e)
132 struct ScheduledExperiment *se;
133 struct GNUNET_TIME_Relative start;
134 struct GNUNET_TIME_Relative end;
136 start = GNUNET_TIME_absolute_get_remaining(e->start);
137 end = GNUNET_TIME_absolute_get_remaining(e->stop);
138 if (0 == end.rel_value)
139 return; /* End of experiment is reached */
141 /* Add additional checks here if required */
143 se = GNUNET_malloc (sizeof (struct ScheduledExperiment));
144 se->state = NOT_RUNNING;
147 if (0 == start.rel_value)
148 se->task = GNUNET_SCHEDULER_add_now (&run, se);
150 se->task = GNUNET_SCHEDULER_add_delayed (start, &run, se);
152 GNUNET_CONTAINER_DLL_insert (list_head, list_tail, se);
153 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Added experiment `%s' for node to be scheduled\n",
154 e->name, GNUNET_i2s(&se->n->id));
155 experiments_scheduled ++;
156 GNUNET_STATISTICS_set (GSE_stats, "# experiments scheduled", experiments_scheduled, GNUNET_NO);
160 * Start the scheduler component
163 GNUNET_EXPERIMENTATION_scheduler_start ()
165 experiments_requested = 0;
166 experiments_scheduled = 0;
171 * Stop the scheduler component
174 GNUNET_EXPERIMENTATION_scheduler_stop ()
176 struct ScheduledExperiment *cur;
177 struct ScheduledExperiment *next;
180 while (NULL != (cur = next))
183 GNUNET_CONTAINER_DLL_remove (list_head, list_tail, cur);
184 if (GNUNET_SCHEDULER_NO_TASK != cur->task)
186 GNUNET_SCHEDULER_cancel (cur->task);
187 cur->task = GNUNET_SCHEDULER_NO_TASK;
190 GNUNET_assert (experiments_scheduled > 0);
191 experiments_scheduled --;
192 GNUNET_STATISTICS_set (GSE_stats, "# experiments scheduled", experiments_scheduled, GNUNET_NO);
196 /* end of gnunet-daemon-experimentation_scheduler.c */