[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[GNUnet-SVN] r30797 - gnunet/src/ats
From: |
gnunet |
Subject: |
[GNUnet-SVN] r30797 - gnunet/src/ats |
Date: |
Tue, 19 Nov 2013 15:06:32 +0100 |
Author: wachs
Date: 2013-11-19 15:06:32 +0100 (Tue, 19 Nov 2013)
New Revision: 30797
Added:
gnunet/src/ats/test_ats_solver_preferences.c
Modified:
gnunet/src/ats/Makefile.am
gnunet/src/ats/gnunet-service-ats_addresses.c
gnunet/src/ats/libgnunet_plugin_ats_mlp.c
Log:
preference client management and test
Modified: gnunet/src/ats/Makefile.am
===================================================================
--- gnunet/src/ats/Makefile.am 2013-11-19 13:34:29 UTC (rev 30796)
+++ gnunet/src/ats/Makefile.am 2013-11-19 14:06:32 UTC (rev 30797)
@@ -25,6 +25,7 @@
GN_MLP_ADD_REQUEST_ADDRESS = test_ats_solver_add_address_and_request_mlp
GN_MLP_REQUEST_ADD_ADDRESS = test_ats_solver_request_and_add_address_mlp
GN_MLP_REQUEST_DELETE_ADDRESS =
test_ats_solver_request_and_delete_address_mlp
+ GN_MLP_PREFERENCES_ADDRESS = test_ats_solver_preferences_mlp
GN_MLP_ALTERNATIVE_DELETE_ADDRESS =
test_ats_solver_alternative_after_delete_address_mlp
GN_MLP_SOLVER_PERF = perf_ats_solver_mlp
endif
@@ -123,11 +124,14 @@
test_ats_solver_request_and_add_address_proportional \
test_ats_solver_request_and_delete_address_proportional \
test_ats_solver_alternative_after_delete_address_proportional \
+ test_ats_solver_preferences_proportional \
+ test_ats_solver_preferences_ril \
$(GN_MLP_ADD_ADDRESS) \
$(GN_MLP_ADD_REQUEST_ADDRESS) \
$(GN_MLP_REQUEST_ADD_ADDRESS) \
$(GN_MLP_REQUEST_DELETE_ADDRESS) \
$(GN_MLP_ALTERNATIVE_DELETE_ADDRESS) \
+ $(GN_MLP_PREFERENCES_ADDRESS) \
test_ats_solver_add_address_ril \
test_ats_solver_add_address_and_request_ril \
test_ats_solver_request_and_add_address_ril \
@@ -405,6 +409,16 @@
$(top_builddir)/src/hello/libgnunethello.la \
$(top_builddir)/src/ats/libgnunetats.la \
$(top_builddir)/src/statistics/libgnunetstatistics.la
+
+test_ats_solver_preferences_proportional_SOURCES = \
+ test_ats_solver_preferences.c \
+ test_ats_api_common.c test_ats_api_common.h
+test_ats_solver_preferences_proportional_LDADD = \
+ $(top_builddir)/src/util/libgnunetutil.la \
+ $(top_builddir)/src/testing/libgnunettesting.la \
+ $(top_builddir)/src/hello/libgnunethello.la \
+ $(top_builddir)/src/ats/libgnunetats.la \
+ $(top_builddir)/src/statistics/libgnunetstatistics.la
if HAVE_LIBGLPK
test_ats_solver_alternative_after_delete_address_mlp_SOURCES = \
@@ -416,6 +430,16 @@
$(top_builddir)/src/hello/libgnunethello.la \
$(top_builddir)/src/ats/libgnunetats.la \
$(top_builddir)/src/statistics/libgnunetstatistics.la
+
+test_ats_solver_preferences_mlp_SOURCES = \
+ test_ats_solver_preferences.c \
+ test_ats_api_common.c test_ats_api_common.h
+test_ats_solver_preferences_mlp_LDADD = \
+ $(top_builddir)/src/util/libgnunetutil.la \
+ $(top_builddir)/src/testing/libgnunettesting.la \
+ $(top_builddir)/src/hello/libgnunethello.la \
+ $(top_builddir)/src/ats/libgnunetats.la \
+ $(top_builddir)/src/statistics/libgnunetstatistics.la
endif
test_ats_solver_alternative_after_delete_address_ril_SOURCES = \
@@ -460,6 +484,15 @@
$(top_builddir)/src/statistics/libgnunetstatistics.la \
$(top_builddir)/src/ats/libgnunetats.la
+test_ats_solver_preferences_ril_SOURCES = \
+ test_ats_solver_preferences.c \
+ test_ats_api_common.c test_ats_api_common.h
+test_ats_solver_preferences_ril_LDADD = \
+ $(top_builddir)/src/util/libgnunetutil.la \
+ $(top_builddir)/src/testing/libgnunettesting.la \
+ $(top_builddir)/src/hello/libgnunethello.la \
+ $(top_builddir)/src/ats/libgnunetats.la \
+ $(top_builddir)/src/statistics/libgnunetstatistics.la
EXTRA_DIST = \
ats.h \
Modified: gnunet/src/ats/gnunet-service-ats_addresses.c
===================================================================
--- gnunet/src/ats/gnunet-service-ats_addresses.c 2013-11-19 13:34:29 UTC
(rev 30796)
+++ gnunet/src/ats/gnunet-service-ats_addresses.c 2013-11-19 14:06:32 UTC
(rev 30797)
@@ -291,6 +291,11 @@
int running;
/**
+ * Preferences clients
+ */
+ int pref_clients;
+
+ /**
* Configured ATS solver
*/
int ats_mode;
@@ -1721,8 +1726,10 @@
GNUNET_CONTAINER_DLL_remove (handle->preference_clients_head,
handle->preference_clients_tail, pc);
GNUNET_free (pc);
+ GNUNET_assert (handle->pref_clients > 0);
+ handle->pref_clients --;
+ GNUNET_STATISTICS_set (handle->stat, "# active performance clients",
handle->pref_clients, GNUNET_NO);
}
-
GAS_normalization_preference_client_disconnect (client);
}
@@ -1764,6 +1771,8 @@
pc->client = client;
GNUNET_CONTAINER_DLL_insert (handle->preference_clients_head,
handle->preference_clients_tail, pc);
+ handle->pref_clients ++;
+ GNUNET_STATISTICS_set (handle->stat, "# active performance clients",
handle->pref_clients, GNUNET_NO);
}
handle->env.sf.s_bulk_start (handle->solver);
@@ -2019,6 +2028,7 @@
ah->stat = (struct GNUNET_STATISTICS_Handle *) stats;
/* Initialize the addresses database */
ah->addresses = GNUNET_CONTAINER_multipeermap_create (128, GNUNET_NO);
+ ah->pref_clients = 0;
GNUNET_assert(NULL != ah->addresses);
/* Figure out configured solution method */
@@ -2205,6 +2215,9 @@
{
GNUNET_CONTAINER_DLL_remove (handle->preference_clients_head,
handle->preference_clients_tail, pcur);
+ GNUNET_assert (handle->pref_clients > 0);
+ handle->pref_clients --;
+ GNUNET_STATISTICS_set (handle->stat, "# active performance clients",
handle->pref_clients, GNUNET_NO);
GNUNET_free (pcur);
}
Modified: gnunet/src/ats/libgnunet_plugin_ats_mlp.c
===================================================================
--- gnunet/src/ats/libgnunet_plugin_ats_mlp.c 2013-11-19 13:34:29 UTC (rev
30796)
+++ gnunet/src/ats/libgnunet_plugin_ats_mlp.c 2013-11-19 14:06:32 UTC (rev
30797)
@@ -1800,8 +1800,9 @@
return;
}
p->f = get_peer_pref_value (mlp, peer);
+ /*
LOG (GNUNET_ERROR_TYPE_ERROR, "PEER PREF: %s %.2f\n",
- GNUNET_i2s(peer), p->f);
+ GNUNET_i2s(peer), p->f);*/
mlp_create_problem_update_value (&mlp->p, p->r_c9, mlp->p.c_r, -p->f,
__LINE__);
/* Problem size changed: new address for peer with pending request */
Added: gnunet/src/ats/test_ats_solver_preferences.c
===================================================================
--- gnunet/src/ats/test_ats_solver_preferences.c
(rev 0)
+++ gnunet/src/ats/test_ats_solver_preferences.c 2013-11-19 14:06:32 UTC
(rev 30797)
@@ -0,0 +1,313 @@
+/*
+ if (NULL == (perf_ats = GNUNET_ATS_performance_init (cfg, &ats_perf_cb,
NULL)))
+ {
+ GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+ "Failed to connect to performance API\n");
+ GNUNET_SCHEDULER_add_now (end_badly, NULL);
+ }
+ This file is part of GNUnet.
+ (C) 2010-2013 Christian Grothoff (and other contributing authors)
+
+ GNUnet is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published
+ by the Free Software Foundation; either version 3, or (at your
+ option) any later version.
+
+ GNUnet is distributed in the hope that it will be useful, but
+ WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNUnet; see the file COPYING. If not, write to the
+ Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.
+ */
+/**
+ * @file ats/test_ats_solver_preferences.c
+ * @brief solver test: preference client handling
+ * @author Christian Grothoff
+ * @author Matthias Wachs
+ */
+#include "platform.h"
+#include "gnunet_util_lib.h"
+#include "gnunet_testbed_service.h"
+#include "gnunet_ats_service.h"
+#include "test_ats_api_common.h"
+
+/**
+ * Timeout task
+ */
+static GNUNET_SCHEDULER_TaskIdentifier die_task;
+
+/**
+ * Statistics handle
+ */
+struct GNUNET_STATISTICS_Handle *stats;
+
+/**
+ * Scheduling handle
+ */
+static struct GNUNET_ATS_SchedulingHandle *sched_ats;
+
+/**
+ * Scheduling handle
+ */
+static struct GNUNET_ATS_PerformanceHandle *perf_ats;
+
+/**
+ * Return value
+ */
+static int ret;
+
+/**
+ * Test address
+ */
+static struct Test_Address test_addr;
+
+/**
+ * Test peer
+ */
+static struct PeerContext p;
+
+/**
+ * HELLO address
+ */
+struct GNUNET_HELLO_Address test_hello_address;
+
+/**
+ * Session
+ */
+static void *test_session;
+
+/**
+ * Test ats info
+ */
+struct GNUNET_ATS_Information test_ats_info[2];
+
+/**
+ * Test ats count
+ */
+uint32_t test_ats_count;
+
+static int
+stat_cb (void *cls, const char *subsystem, const char *name, uint64_t value,
+ int is_persistent);
+
+static void
+end (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
+{
+ GNUNET_log(GNUNET_ERROR_TYPE_INFO, "Done!\n");
+
+ if (die_task != GNUNET_SCHEDULER_NO_TASK )
+ {
+ GNUNET_SCHEDULER_cancel (die_task);
+ die_task = GNUNET_SCHEDULER_NO_TASK;
+ }
+
+ if (NULL != sched_ats)
+ {
+ GNUNET_ATS_scheduling_done (sched_ats);
+ sched_ats = NULL;
+ }
+
+ if (NULL != perf_ats)
+ {
+ GNUNET_ATS_performance_done (perf_ats);
+ perf_ats = NULL;
+ }
+
+ GNUNET_STATISTICS_watch_cancel (stats, "ats", "# active performance
clients", &stat_cb, NULL );
+ if (NULL != stats)
+ {
+ GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
+ stats = NULL;
+ }
+
+ free_test_address (&test_addr);
+
+ ret = 0;
+}
+
+static void
+end_badly (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
+{
+ die_task = GNUNET_SCHEDULER_NO_TASK;
+ end (NULL, NULL );
+ ret = GNUNET_SYSERR;
+}
+
+
+static void
+perf_info_cb (void *cls,
+ const struct GNUNET_HELLO_Address *address, int address_active,
+ struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
+ struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in,
+ const struct GNUNET_ATS_Information *ats, uint32_t ats_count)
+{
+ GNUNET_log(GNUNET_ERROR_TYPE_INFO, "ATS performance info: `%s'\n",
+ GNUNET_i2s (&address->peer));
+}
+
+static void
+address_suggest_cb (void *cls, const struct GNUNET_HELLO_Address *address,
+ struct Session *session, struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
+ struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in,
+ const struct GNUNET_ATS_Information *atsi, uint32_t ats_count)
+{
+ int c;
+ double pref_val;
+ int prefs[GNUNET_ATS_PreferenceCount] = GNUNET_ATS_PreferenceType;
+
+ if (NULL == perf_ats)
+ return;
+ for (c = 1; c < GNUNET_ATS_PreferenceCount; c++)
+ {
+ pref_val = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, 10);
+ GNUNET_ATS_performance_change_preference (perf_ats,
+ &test_hello_address.peer, prefs[c], pref_val,
+ GNUNET_ATS_PREFERENCE_END);
+ }
+}
+
+static int
+stat_cb (void *cls, const char *subsystem, const char *name, uint64_t value,
+ int is_persistent)
+{
+ static int last_value = 0;
+ GNUNET_log(GNUNET_ERROR_TYPE_INFO, "ATS statistics: `%s' `%s' %llu\n",
+ subsystem, name, value);
+
+ if ((0 == last_value) && (1 == value))
+ {
+ if (perf_ats != NULL)
+ {
+ GNUNET_log(GNUNET_ERROR_TYPE_INFO, "Disconnecting performance client\n");
+ GNUNET_ATS_performance_done(perf_ats);
+ perf_ats = NULL;
+ }
+ }
+ if ((1 == last_value) && (0 == value))
+ {
+ GNUNET_SCHEDULER_add_now (&end, NULL);
+ }
+ last_value = value;
+
+ return GNUNET_OK;
+}
+
+static void
+run (void *cls, const struct GNUNET_CONFIGURATION_Handle *mycfg,
+ struct GNUNET_TESTING_Peer *peer)
+{
+
+ die_task = GNUNET_SCHEDULER_add_delayed (TIMEOUT, &end_badly, NULL );
+ stats = GNUNET_STATISTICS_create ("ats", mycfg);
+ GNUNET_STATISTICS_watch (stats, "ats", "# active performance clients",
&stat_cb, NULL );
+
+ /* Connect to ATS scheduling */
+ sched_ats = GNUNET_ATS_scheduling_init (mycfg, &address_suggest_cb, NULL );
+ if (sched_ats == NULL )
+ {
+ GNUNET_log(GNUNET_ERROR_TYPE_ERROR,
+ "Could not connect to ATS scheduling!\n");
+ GNUNET_SCHEDULER_add_now (&end_badly, NULL );
+ return;
+ }
+
+ perf_ats = GNUNET_ATS_performance_init (mycfg, &perf_info_cb, NULL );
+ if (perf_ats == NULL )
+ {
+ GNUNET_log(GNUNET_ERROR_TYPE_ERROR,
+ "Could not connect to ATS performance!\n");
+ GNUNET_SCHEDULER_add_now (&end_badly, NULL );
+ return;
+ }
+
+ /* Set up peer */
+ memset (&p.id, '1', sizeof(p.id));
+
+ GNUNET_log(GNUNET_ERROR_TYPE_DEBUG, "Created peer `%s'\n",
+ GNUNET_i2s_full (&p.id));
+
+ /* Prepare ATS Information */
+ test_ats_info[0].type = htonl (GNUNET_ATS_NETWORK_TYPE);
+ test_ats_info[0].value = htonl (GNUNET_ATS_NET_WAN);
+ test_ats_info[1].type = htonl (GNUNET_ATS_QUALITY_NET_DISTANCE);
+ test_ats_info[1].value = htonl (1);
+ test_ats_count = 2;
+
+ /* Adding address without session */
+ test_session = NULL;
+ create_test_address (&test_addr, "test", test_session, "test",
+ strlen ("test") + 1);
+ test_hello_address.peer = p.id;
+ test_hello_address.transport_name = test_addr.plugin;
+ test_hello_address.address = test_addr.addr;
+ test_hello_address.address_length = test_addr.addr_len;
+
+ /* Adding address */
+ GNUNET_ATS_address_add (sched_ats, &test_hello_address, test_session,
+ test_ats_info, test_ats_count);
+ GNUNET_ATS_suggest_address(sched_ats, &test_hello_address.peer);
+}
+
+int
+main (int argc, char *argv[])
+{
+ char *sep;
+ char *src_filename = GNUNET_strdup (__FILE__);
+ char *test_filename = GNUNET_strdup (argv[0]);
+ char *config_file;
+ char *solver;
+
+ ret = 0;
+
+ if (NULL == (sep = (strstr (src_filename, ".c"))))
+ {
+ GNUNET_break(0);
+ return -1;
+ }
+ sep[0] = '\0';
+
+ if (NULL != (sep = strstr (test_filename, ".exe")))
+ sep[0] = '\0';
+
+ if (NULL == (solver = strstr (test_filename, src_filename)))
+ {
+ GNUNET_break(0);
+ return -1;
+ }
+ solver += strlen (src_filename) + 1;
+
+ if (0 == strcmp (solver, "proportional"))
+ {
+ config_file = "test_ats_solver_proportional.conf";
+ }
+ else if (0 == strcmp (solver, "mlp"))
+ {
+ config_file = "test_ats_solver_mlp.conf";
+ }
+ else if ((0 == strcmp (solver, "ril")))
+ {
+ config_file = "test_ats_solver_ril.conf";
+ }
+ else
+ {
+ GNUNET_break(0);
+ GNUNET_free(src_filename);
+ GNUNET_free(test_filename);
+ return 1;
+ }
+
+ GNUNET_free(src_filename);
+ GNUNET_free(test_filename);
+
+ if (0
+ != GNUNET_TESTING_peer_run ("test-ats-solver", config_file, &run, NULL ))
+ return GNUNET_SYSERR;
+
+ return ret;
+}
+
+/* end of file test_ats_solver_preferences.c */
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [GNUnet-SVN] r30797 - gnunet/src/ats,
gnunet <=