[GNUnet-SVN] r32309 - in gnunet/src/ats: . experiments

[gnunet]

Author: wachs
Date: 2014-02-11 15:07:59 +0100 (Tue, 11 Feb 2014)
New Revision: 32309

Added:
   gnunet/src/ats/experiments/set_preference.exp
Modified:
   gnunet/src/ats/experiments/example.exp
   gnunet/src/ats/gnunet-ats-solver-eval.c
   gnunet/src/ats/gnunet-ats-solver-eval.h
Log:
+ setting preference
+ set preference example
+ adding client_id to suport multiple applications


Modified: gnunet/src/ats/experiments/example.exp
===================================================================
--- gnunet/src/ats/experiments/example.exp      2014-02-11 13:28:06 UTC (rev 
32308)
+++ gnunet/src/ats/experiments/example.exp      2014-02-11 14:07:59 UTC (rev 
32309)
@@ -101,13 +101,3 @@
 op-2-address = 1_1_test
 op-2-plugin = test
 
-#op-1-operation = start_set_preference
-#op-1-address-id = 1
-#op-1-peer-id = 1
-# constant, linear, sinus, random
-#op-1-gen-type = constant
-#op-1-base-rate= 10000
-#op-1-max-rate = 100000
-#op-1-frequency = 500 ms
-# BANDWIDTH, LATENCY
-#op-1-pref = BANDWIDTH  
\ No newline at end of file

Added: gnunet/src/ats/experiments/set_preference.exp
===================================================================
--- gnunet/src/ats/experiments/set_preference.exp                               
(rev 0)
+++ gnunet/src/ats/experiments/set_preference.exp       2014-02-11 14:07:59 UTC 
(rev 32309)
@@ -0,0 +1,93 @@
+# Example setting up two peers 
+
+[experiment]
+ name = test
+ max_duration = 15 s
+ log_freq = 1000 ms
+ cfg_file = experiments/gnunet_ats_sim_default.conf
+ 
+ 
+[episode-0]
+# Setup addresses
+
+# operations = address_add, address_del, start_set_property, 
stop_set_property, 
+# start_set_preference, stop_preference, start_request, stop_request
+duration = 5 s
+op-0-operation = address_add
+op-0-address-id = 0
+op-0-peer-id = 0
+op-0-address-session = 0
+op-0-address-network = 0
+op-0-address = 0_0_test
+op-0-plugin = test
+
+op-1-operation = address_add
+op-1-address-id = 1
+op-1-peer-id = 1
+op-1-address-session = 0
+op-1-address-network = 0
+op-1-address = 1_1_test
+op-1-plugin = test
+
+op-2-operation = start_request
+op-2-peer-id = 0
+
+op-3-operation = start_request
+op-3-peer-id = 1
+
+[episode-1]
+# Set delay
+duration = 5 s
+
+op-0-operation = start_set_preference
+op-0-address-id = 0
+op-0-peer-id = 0
+op-0-client-id = 1
+# constant, linear, sinus, random
+op-0-gen-type = constant
+op-0-base-rate= 10000
+op-0-max-rate = 10000
+op-0-period = 1000 ms
+op-0-frequency = 1000 ms
+# BANDWIDTH, LATENCY
+op-0-pref = BANDWIDTH  
+
+
+op-1-operation = start_set_preference
+op-1-address-id = 1
+op-1-peer-id = 1
+op-1-client-id = 1
+# constant, linear, sinus, random
+op-1-gen-type = linear
+op-1-base-rate= 10000
+op-1-max-rate = 20000
+op-1-period = 1000 ms
+op-1-frequency = 100 ms
+# BANDWIDTH, LATENCY
+op-1-pref = BANDWIDTH  
+
+[episode-2]
+# Shutdown
+duration = 2 s
+
+op-0-operation = stop_request
+op-0-peer-id = 0  
+
+op-1-operation = stop_request
+op-1-peer-id = 1
+
+op-2-operation = address_del
+op-2-address-id = 0
+op-2-peer-id = 0
+op-2-address-session = 0
+op-2-address-network = 0
+op-2-address = 0_0_test
+op-2-plugin = test
+
+op-3-operation = address_del
+op-3-address-id = 1
+op-3-peer-id = 1
+op-3-address-session = 0
+op-3-address-network = 0
+op-3-address = 1_1_test
+op-3-plugin = test

Modified: gnunet/src/ats/gnunet-ats-solver-eval.c
===================================================================
--- gnunet/src/ats/gnunet-ats-solver-eval.c     2014-02-11 13:28:06 UTC (rev 
32308)
+++ gnunet/src/ats/gnunet-ats-solver-eval.c     2014-02-11 14:07:59 UTC (rev 
32309)
@@ -296,7 +296,6 @@
       pg->test_address->ats_addr, &atsi, 1);
   sh->env.sf.s_bulk_stop (sh->solver);
 
-
   switch (pg->ats_property) {
     case GNUNET_ATS_PREFERENCE_BANDWIDTH:
       //p->pref_bandwidth = pref_value;
@@ -515,20 +514,29 @@
                     const struct GNUNET_SCHEDULER_TaskContext *tc)
 {
   struct PreferenceGenerator *pg = cls;
+  struct TestPeer *p;
   double pref_value;
   pg->set_task = GNUNET_SCHEDULER_NO_TASK;
 
+  if (NULL == (p = find_peer_by_id (pg->peer)))
+  {
+    GNUNET_break (0);
+    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+        "Setting preference for unknown peer %u\n", pg->peer);
+    return;
+  }
+
   pref_value = get_preference (pg);
 
   GNUNET_log(GNUNET_ERROR_TYPE_INFO,
-      "Setting preference for peer [%u] address [%u] for %s to %f\n",
-      pg->peer, pg->address_id,
+      "Setting preference for peer [%u] address [%u] for client %p pref %s to 
%f\n",
+      pg->peer, pg->address_id, NULL + (pg->client_id),
       GNUNET_ATS_print_preference_type (pg->kind), pref_value);
 
-  /* set performance here!
-  GNUNET_ATS_performance_change_preference(p->me->ats_perf_handle,
-      &p->dest->id, p->pg->kind, pref_value, GNUNET_ATS_PREFERENCE_END);
-*/
+  sh->env.sf.s_bulk_start (sh->solver);
+  GAS_normalization_normalize_preference (NULL + (pg->client_id), &p->peer_id,
+      pg->kind, pref_value);
+  sh->env.sf.s_bulk_stop (sh->solver);
 
   switch (pg->kind) {
     case GNUNET_ATS_PREFERENCE_BANDWIDTH:
@@ -591,6 +599,7 @@
 struct PreferenceGenerator *
 GNUNET_ATS_solver_generate_preferences_start (unsigned int peer,
     unsigned int address_id,
+    unsigned int client_id,
     enum GeneratorType type,
     long int base_value,
     long int value_rate,
@@ -605,6 +614,7 @@
   pg->type = type;
   pg->peer = peer;
   pg->address_id = address_id;
+  pg->client_id = client_id;
   pg->kind = kind;
   pg->base_value = base_value;
   pg->max_value = value_rate;
@@ -960,6 +970,18 @@
   }
   GNUNET_free (op_name);
 
+  /* address id */
+  GNUNET_asprintf(&op_name, "op-%u-client-id", op_counter);
+  if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
+      sec_name, op_name, &o->client_id))
+  {
+    fprintf (stderr, "Missing client-id in operation %u `%s' in episode 
`%s'\n",
+        op_counter, "START_SET_PREFERENCE", op_name);
+    GNUNET_free (op_name);
+    return GNUNET_SYSERR;
+  }
+  GNUNET_free (op_name);
+
   /* generator */
   GNUNET_asprintf(&op_name, "op-%u-gen-type", op_counter);
   if ( (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg,
@@ -1483,7 +1505,6 @@
       o->type = SOLVER_OP_START_SET_PREFERENCE;
       res =  load_op_start_set_preference (o, cur,
           op_counter, sec_name, cfg);
-        break;
     }
     else if (0 == strcmp (op, "stop_set_preference"))
     {
@@ -1733,7 +1754,7 @@
   {
     GNUNET_break (0);
     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
-        "Setting proprterty for unknown address %u\n", op->peer_id);
+        "Setting property for unknown address %u\n", op->peer_id);
     return;
   }
 
@@ -1761,14 +1782,24 @@
 enforce_start_preference (struct GNUNET_ATS_TEST_Operation *op)
 {
   struct PreferenceGenerator *pg;
+  struct TestPeer *p;
   if (NULL != (pg = find_pref_gen (op->peer_id, op->address_id, 
op->pref_type)))
   {
     GNUNET_ATS_solver_generate_preferences_stop (pg);
     GNUNET_free (pg);
   }
 
+  if (NULL == (p = find_peer_by_id (op->peer_id)))
+  {
+    GNUNET_break (0);
+    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
+        "Starting preference generation for unknown peer %u\n", op->peer_id);
+    return;
+  }
+
   GNUNET_ATS_solver_generate_preferences_start (op->peer_id,
     op->address_id,
+    op->client_id,
     op->gen_type,
     op->base_rate,
     op->max_rate,
@@ -2335,6 +2366,21 @@
 }
 
 
+static void
+normalized_preference_changed_cb (void *cls,
+    const struct GNUNET_PeerIdentity *peer,
+    enum GNUNET_ATS_PreferenceKind kind,
+    double pref_rel)
+{
+  GNUNET_log(GNUNET_ERROR_TYPE_INFO,
+      "Normalized preference %s for peer `%s' changed to %.3f \n",
+      GNUNET_ATS_print_preference_type (kind), GNUNET_i2s (peer),
+      pref_rel);
+
+  sh->env.sf.s_pref (sh->solver, peer, kind, pref_rel);
+}
+
+
 struct SolverHandle *
 GNUNET_ATS_solvers_solver_start (enum GNUNET_ATS_Solvers type)
 {
@@ -2374,7 +2420,8 @@
 
 
   /* start normalization */
-  GAS_normalization_start (NULL, NULL, &normalized_property_changed_cb, NULL );
+  GAS_normalization_start (&normalized_preference_changed_cb, NULL,
+      &normalized_property_changed_cb, NULL );
 
   /* load quotas */
   if (GNUNET_ATS_NetworkTypeCount != GNUNET_ATS_solvers_load_quotas (e->cfg,

Modified: gnunet/src/ats/gnunet-ats-solver-eval.h
===================================================================
--- gnunet/src/ats/gnunet-ats-solver-eval.h     2014-02-11 13:28:06 UTC (rev 
32308)
+++ gnunet/src/ats/gnunet-ats-solver-eval.h     2014-02-11 14:07:59 UTC (rev 
32309)
@@ -125,6 +125,7 @@
 
   long long unsigned int address_id;
   long long unsigned int peer_id;
+  long long unsigned int client_id;
   long long unsigned int address_session;
   long long unsigned int address_network;
   char*address;
@@ -188,6 +189,7 @@
 
   unsigned int peer;
   unsigned int address_id;
+  unsigned int client_id;
 
   enum GNUNET_ATS_PreferenceKind kind;