--- /dev/null
+/* Copyright (c) 2012-2015. The SimGrid Team.
+ * All rights reserved. */
+
+/* This program is free software; you can redistribute it and/or modify it
+ * under the terms of the license (GNU LGPL) which comes with this package. */
+
+#include "tracker.h"
+#include <simgrid/msg.h>
+#include <xbt/RngStream.h>
+
+static void task_free(void *data);
+
+XBT_LOG_NEW_DEFAULT_CATEGORY(msg_tracker, "Messages specific for the tracker");
+/**
+ * Tracker main function
+ * @param argc number of arguments
+ * @param argv arguments
+ */
+int tracker(int argc, char *argv[])
+{
+ int i;
+
+ RngStream stream = (RngStream) MSG_host_get_property_value(MSG_host_self(), "stream");
+ //Checking arguments
+ xbt_assert(argc == 2, "Wrong number of arguments for the tracker.");
+ //Retrieving end time
+ double deadline = xbt_str_parse_double(argv[1],"Invalid deadline: %s");
+ xbt_assert(deadline > 0, "Wrong deadline supplied");
+ //Building peers array
+ xbt_dynar_t peers_list = xbt_dynar_new(sizeof(int), NULL);
+
+ XBT_INFO("Tracker launched.");
+
+ msg_comm_t comm_received = NULL;
+ msg_task_t task_received = NULL;
+
+ while (MSG_get_clock() < deadline) {
+ if (comm_received == NULL) {
+ comm_received = MSG_task_irecv(&task_received, TRACKER_MAILBOX);
+ }
+ if (MSG_comm_test(comm_received)) {
+ //Check for correct status
+ if (MSG_comm_get_status(comm_received) == MSG_OK) {
+ //Retrieve the data sent by the peer.
+ tracker_task_data_t data = MSG_task_get_data(task_received);
+ //Add the peer to our peer list.
+ if (!is_in_list(peers_list, data->peer_id)) {
+ xbt_dynar_push_as(peers_list, int, data->peer_id);
+ }
+ //Sending peers to the peer
+ int next_peer;
+ int peers_length = xbt_dynar_length(peers_list);
+ for (i = 0; i < MAXIMUM_PAIRS && i < peers_length; i++) {
+ do {
+ next_peer =
+ xbt_dynar_get_as(peers_list,
+ RngStream_RandInt(stream, 0, peers_length - 1),
+ int);
+ } while (is_in_list(data->peers, next_peer));
+ xbt_dynar_push_as(data->peers, int, next_peer);
+ }
+ //setting the interval
+ data->interval = TRACKER_QUERY_INTERVAL;
+ //sending the task back to the peer.
+ MSG_task_dsend(task_received, data->mailbox, task_free);
+ //destroy the communication.
+ }
+ MSG_comm_destroy(comm_received);
+ comm_received = NULL;
+ task_received = NULL;
+ } else {
+ MSG_process_sleep(1);
+ }
+ }
+ //Free the remaining communication if any
+ if (comm_received) {
+ MSG_comm_destroy(comm_received);
+ }
+ //Free the peers list
+ xbt_dynar_free(&peers_list);
+
+ XBT_INFO("Tracker is leaving");
+
+ return 0;
+}
+
+/**
+ * Build a new task for the tracker.
+ * @param issuer_host_name Hostname of the issuer. For debugging purposes
+ */
+tracker_task_data_t tracker_task_data_new(const char *issuer_host_name,
+ const char *mailbox, int peer_id,
+ int uploaded, int downloaded,
+ int left)
+{
+ tracker_task_data_t task = xbt_new(s_tracker_task_data_t, 1);
+
+ task->type = TRACKER_TASK_QUERY;
+ task->issuer_host_name = issuer_host_name;
+ task->mailbox = mailbox;
+ task->peer_id = peer_id;
+ task->uploaded = uploaded;
+ task->downloaded = downloaded;
+ task->left = left;
+
+ task->peers = xbt_dynar_new(sizeof(int), NULL);
+
+ return task;
+}
+
+/**
+ * Free a tracker task that has not succefully been sent.
+ * @param data Task to free
+ */
+static void task_free(void *data)
+{
+ tracker_task_data_t task_data = MSG_task_get_data(data);
+ tracker_task_data_free(task_data);
+ MSG_task_destroy(data);
+}
+
+/**
+ * Free the data structure of a tracker task.
+ * @param task data to free
+ */
+void tracker_task_data_free(tracker_task_data_t task)
+{
+ xbt_dynar_free(&task->peers);
+ xbt_free(task);
+}
+
+/**
+ * Returns if the given id is in the peers lsit
+ * @param peers dynar containing the peers
+ * @param id identifier of the peer to test
+ */
+int is_in_list(xbt_dynar_t peers, int id)
+{
+ unsigned i;
+ int elm;
+ xbt_dynar_foreach(peers, i, elm) {
+ if (elm == id) {
+ return 1;
+ }
+ }
+ return 0;
+}