improving ARM API
[oweals/gnunet.git] / src / arm / arm_api.c
index f0ab8d1898a947068bd35be520f9fe28da1222bd..7f2274958813678988bd84da56755c44be58eab0 100644 (file)
 #include "gnunet_server_lib.h"
 #include "arm.h"
 
+/**
+ * How often do we re-try tranmsitting requests to ARM before
+ * giving up?  Note that if we succeeded transmitting a request
+ * but failed to read a response, we do NOT re-try (since that
+ * might result in ARM getting a request twice).
+ */
+#define MAX_ATTEMPTS 4
 
 /**
- * FIXME: document.
+ * Minimum delay between attempts to talk to ARM.
  */
-struct ArmContext
+#define MIN_RETRY_DELAY  GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MILLISECONDS, 100)
+
+
+/**
+ * How long are we willing to wait for a service operation during the multi-operation
+ * request processing?
+ */
+#define MULTI_TIMEOUT  GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 5)
+
+
+/**
+ * Handle for interacting with ARM.
+ */ 
+struct GNUNET_ARM_Handle
 {
 
   /**
-   * FIXME: document.
+   * Our connection to the ARM service.
+   */
+  struct GNUNET_CLIENT_Connection *client;
+
+  /**
+   * The configuration that we are using.
+   */
+  const struct GNUNET_CONFIGURATION_Handle *cfg;
+
+  /**
+   * Scheduler to use.
+   */
+  struct GNUNET_SCHEDULER_Handle *sched;
+
+};
+
+
+/**
+ * Setup a context for communicating with ARM.  Note that this
+ * can be done even if the ARM service is not yet running.
+ *
+ * @param cfg configuration to use (needed to contact ARM;
+ *        the ARM service may internally use a different
+ *        configuration to determine how to start the service).
+ * @param sched scheduler to use
+ * @param service service that *this* process is implementing/providing, can be NULL
+ * @return context to use for further ARM operations, NULL on error
+ */
+struct GNUNET_ARM_Handle *
+GNUNET_ARM_connect (const struct GNUNET_CONFIGURATION_Handle *cfg,
+                   struct GNUNET_SCHEDULER_Handle *sched,
+                   const char *service)
+{
+  struct GNUNET_ARM_Handle *ret;
+  struct GNUNET_CLIENT_Connection *client;
+
+  client = GNUNET_CLIENT_connect (sched, "arm", cfg);
+  if (client == NULL)
+    return NULL;
+  ret = GNUNET_malloc (sizeof (struct GNUNET_ARM_Handle));
+  ret->cfg = cfg;
+  ret->sched = sched;
+  ret->client = client;
+  return ret;
+}
+
+
+/**
+ * Disconnect from the ARM service.
+ *
+ * @param h the handle that was being used
+ */
+void
+GNUNET_ARM_disconnect (struct GNUNET_ARM_Handle *h)
+{
+  if (h->client != NULL)
+    GNUNET_CLIENT_disconnect (h->client);
+  GNUNET_free (h);
+}
+
+
+/**
+ * Internal state for a request with ARM.
+ */
+struct RequestContext
+{
+
+  /**
+   * Pointer to our handle with ARM.
+   */
+  struct GNUNET_ARM_Handle *h;
+
+  /**
+   * Function to call with a status code for the requested operation.
    */
   GNUNET_ARM_Callback callback;
 
   /**
-   * FIXME: document.
+   * Closure for "callback".
    */
   void *cls;
 
   /**
-   * FIXME: document.
+   * The service that is being manipulated.  Do not free.
    */
-  char *service_name;
+  const char *service_name;
 
   /**
-   * FIXME: document.
+   * Timeout for the operation.
    */
-  struct GNUNET_CLIENT_Connection *client;
+  struct GNUNET_TIME_Absolute timeout;
 
   /**
-   * FIXME: document.
+   * Length of service_name plus one.
    */
-  const struct GNUNET_CONFIGURATION_Handle *cfg;
+  size_t slen;
 
   /**
-   * FIXME: document.
+   * Number of attempts left for transmitting the request to ARM.
+   * We may fail the first time (say because ARM is not yet up),
+   * in which case we wait a bit and re-try (timeout permitting).
    */
-  struct GNUNET_TIME_Absolute timeout;
+  unsigned int attempts_left;
 
   /**
-   * FIXME: document.
+   * Type of the request expressed as a message type (start or stop).
    */
   uint16_t type;
+
 };
 
 
 /**
- * FIXME: document.
+ * A client specifically requested starting of ARM itself.
+ * This function is called with information about whether
+ * or not ARM is running; if it is, report success.  If
+ * it is not, start the ARM process.
+ *
+ * @param cls the context for the request that we will report on (struct RequestContext*)
+ * @param tc why were we called (reason says if ARM is running)
  */
 static void
-arm_service_report (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
+arm_service_report (void *cls,
+                   const struct GNUNET_SCHEDULER_TaskContext *tc)
 {
-  struct ArmContext *pos = cls;
+  struct RequestContext *pos = cls;
   pid_t pid;
   char *binary;
   char *config;
 
   if (0 != (tc->reason & GNUNET_SCHEDULER_REASON_PREREQ_DONE))
     {
+      /* arm is running! */
       if (pos->callback != NULL)
         pos->callback (pos->cls, GNUNET_YES);
       GNUNET_free (pos);
       return;
     }
-  binary = NULL;
-  config = NULL;
+  /* FIXME: should we check that HOSTNAME for 'arm' is localhost? */
   /* start service */
-  if ((GNUNET_OK !=
-       GNUNET_CONFIGURATION_get_value_string (pos->cfg,
-                                             "arm",
-                                             "BINARY",
-                                             &binary)) ||
-      (GNUNET_OK !=
-       GNUNET_CONFIGURATION_get_value_filename (pos->cfg,
-                                                "arm", "CONFIG", &config)))
+  if (GNUNET_OK !=
+      GNUNET_CONFIGURATION_get_value_string (pos->h->cfg,
+                                            "arm",
+                                            "BINARY",
+                                            &binary))
+    {
+      GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
+                  _("Configuration failes to specify option `%s' in section `%s'!\n"),
+                 "BINARY",
+                 "arm");
+      if (pos->callback != NULL)
+        pos->callback (pos->cls, GNUNET_SYSERR);
+      GNUNET_free (pos);
+      return;
+    }
+  if (GNUNET_OK !=
+      GNUNET_CONFIGURATION_get_value_filename (pos->h->cfg,
+                                              "arm", "CONFIG", &config))
     {
       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
-                  _("Configuration file or binary for ARM not known!\n"));
+                  _("Configuration fails to specify option `%s' in section `%s'!\n"),
+                 "CONFIG",
+                 "arm");
       if (pos->callback != NULL)
         pos->callback (pos->cls, GNUNET_SYSERR);
-      GNUNET_free_non_null (binary);
+      GNUNET_free (binary);
       GNUNET_free (pos);
       return;
     }
@@ -128,24 +243,34 @@ arm_service_report (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
       GNUNET_free (pos);
       return;
     }
-  /* FIXME: consider checking again to see if it worked!? */
   if (pos->callback != NULL)
     pos->callback (pos->cls, GNUNET_YES);
   GNUNET_free (pos);
 }
 
 
+/**
+ * Process a response from ARM to a request for a change in service
+ * status.
+ *
+ * @param cls the request context 
+ * @param msg the response
+ */
 static void
 handle_response (void *cls, const struct GNUNET_MessageHeader *msg)
 {
-  struct ArmContext *sc = cls;
+  struct RequestContext *sc = cls;
   int ret;
 
   if (msg == NULL)
     {
       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
                   _("Error receiving response from ARM service\n"));
-      GNUNET_CLIENT_disconnect (sc->client);
+      GNUNET_CLIENT_disconnect (sc->h->client);
+      sc->h->client = GNUNET_CLIENT_connect (sc->h->sched, 
+                                            "arm", 
+                                            sc->h->cfg);
+      GNUNET_assert (NULL != sc->h->client);
       if (sc->callback != NULL)
         sc->callback (sc->cls, GNUNET_SYSERR);
       GNUNET_free (sc);
@@ -170,73 +295,144 @@ handle_response (void *cls, const struct GNUNET_MessageHeader *msg)
       GNUNET_break (0);
       ret = GNUNET_SYSERR;
     }
-  GNUNET_CLIENT_disconnect (sc->client);
   if (sc->callback != NULL)
     sc->callback (sc->cls, ret);
   GNUNET_free (sc);
 }
 
 
+/**
+ * We've failed to transmit the request to the ARM service.
+ * Report our failure and clean up the state.
+ *
+ * @param sctx the state of the (now failed) request
+ */
+static void
+report_transmit_failure (struct RequestContext *sctx)
+{
+  GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
+             _("Error while trying to transmit to ARM service\n"));
+  if (sctx->callback != NULL)
+    sctx->callback (sctx->cls, GNUNET_SYSERR);
+  GNUNET_free (sctx);
+}
+
+
+/**
+ * Transmit a request for a service status change to the
+ * ARM service.
+ *
+ * @param cls the "struct RequestContext" identifying the request
+ * @param size how many bytes are available in buf
+ * @param buf where to write the request, NULL on error
+ * @return number of bytes written to buf
+ */
+static size_t
+send_service_msg (void *cls, size_t size, void *buf);
+
+
+/**
+ * We've failed to transmit the request to the ARM service but
+ * are now going to try again.
+ * 
+ * @param cls state of the request
+ * @param tc task context (unused)
+ */
+static void
+retry_request (void *cls,
+              const struct GNUNET_SCHEDULER_TaskContext *tc)
+{
+  struct RequestContext *sctx = cls;
+
+  if (NULL ==
+      GNUNET_CLIENT_notify_transmit_ready (sctx->h->client,
+                                          sctx->slen +
+                                          sizeof (struct
+                                                  GNUNET_MessageHeader),
+                                          GNUNET_TIME_absolute_get_remaining (sctx->timeout),
+                                          &send_service_msg, 
+                                          sctx))
+    {
+      report_transmit_failure (sctx);    
+      return;
+    }
+}
+
+
+/**
+ * Transmit a request for a service status change to the
+ * ARM service.
+ *
+ * @param cls the "struct RequestContext" identifying the request
+ * @param size how many bytes are available in buf
+ * @param buf where to write the request, NULL on error
+ * @return number of bytes written to buf
+ */
 static size_t
 send_service_msg (void *cls, size_t size, void *buf)
 {
-  struct ArmContext *sctx = cls;
+  struct RequestContext *sctx = cls;
   struct GNUNET_MessageHeader *msg;
-  size_t slen;
+  struct GNUNET_TIME_Relative rem;
 
   if (buf == NULL)
     {
-      GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
-                  _("Error while trying to transmit to ARM service\n"));
-      GNUNET_CLIENT_disconnect (sctx->client);
-      if (sctx->callback != NULL)
-        sctx->callback (sctx->cls, GNUNET_SYSERR);
-      GNUNET_free (sctx->service_name);
-      GNUNET_free (sctx);
+      GNUNET_CLIENT_disconnect (sctx->h->client);
+      sctx->h->client = GNUNET_CLIENT_connect (sctx->h->sched, 
+                                              "arm", 
+                                              sctx->h->cfg);
+      GNUNET_assert (sctx->h->client != NULL);
+      rem = GNUNET_TIME_absolute_get_remaining (sctx->timeout);
+      if ( (sctx->attempts_left-- > 0) &&
+          (rem.value > 0) )
+       {
+         GNUNET_SCHEDULER_add_delayed (sctx->h->sched,
+                                       GNUNET_NO,
+                                       GNUNET_SCHEDULER_PRIORITY_KEEP,
+                                       GNUNET_SCHEDULER_NO_TASK,
+                                       GNUNET_TIME_relative_min (MIN_RETRY_DELAY,
+                                                                 rem),
+                                       &retry_request,
+                                       sctx);
+         return 0;
+       }
+      report_transmit_failure (sctx);
       return 0;
     }
 #if DEBUG_ARM
   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
               _("Transmitting service request to ARM.\n"));
 #endif
-  slen = strlen (sctx->service_name) + 1;
-  GNUNET_assert (size >= slen);
+  GNUNET_assert (size >= sctx->slen);
   msg = buf;
-  msg->size = htons (sizeof (struct GNUNET_MessageHeader) + slen);
+  msg->size = htons (sizeof (struct GNUNET_MessageHeader) + sctx->slen);
   msg->type = htons (sctx->type);
-  memcpy (&msg[1], sctx->service_name, slen);
-  GNUNET_free (sctx->service_name);
-  sctx->service_name = NULL;
-  GNUNET_CLIENT_receive (sctx->client,
+  memcpy (&msg[1], sctx->service_name, sctx->slen);
+  GNUNET_CLIENT_receive (sctx->h->client,
                          &handle_response,
                          sctx,
                          GNUNET_TIME_absolute_get_remaining (sctx->timeout));
-  return slen + sizeof (struct GNUNET_MessageHeader);
+  return sctx->slen + sizeof (struct GNUNET_MessageHeader);
 }
 
 
 /**
  * Start or stop a service.
  *
+ * @param h handle to ARM
  * @param service_name name of the service
- * @param cfg configuration to use (needed to contact ARM;
- *        the ARM service may internally use a different
- *        configuration to determine how to start the service).
- * @param sched scheduler to use
  * @param timeout how long to wait before failing for good
  * @param cb callback to invoke when service is ready
  * @param cb_cls closure for callback
  * @param type type of the request 
  */
 static void
-change_service (const char *service_name,
-                const struct GNUNET_CONFIGURATION_Handle *cfg,
-                struct GNUNET_SCHEDULER_Handle *sched,
+change_service (struct GNUNET_ARM_Handle *h,
+               const char *service_name,
                 struct GNUNET_TIME_Relative timeout,
                 GNUNET_ARM_Callback cb, void *cb_cls, uint16_t type)
 {
-  struct GNUNET_CLIENT_Connection *client;
-  struct ArmContext *sctx;
+  struct RequestContext *sctx;
   size_t slen;
 
   slen = strlen (service_name) + 1;
@@ -248,128 +444,248 @@ change_service (const char *service_name,
         cb (cb_cls, GNUNET_NO);
       return;
     }
-  client = GNUNET_CLIENT_connect (sched, "arm", cfg);
-  if (client == NULL)
-    {
-      GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
-                  _("Failed to connect to ARM service\n"));
-      if (cb != NULL)
-        cb (cb_cls, GNUNET_SYSERR);
-      return;
-    }
 #if DEBUG_ARM
   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
               _("ARM requests starting of service `%s'.\n"), service_name);
 #endif
-  sctx = GNUNET_malloc (sizeof (struct ArmContext));
+  sctx = GNUNET_malloc (sizeof (struct RequestContext) + slen);
+  sctx->h = h;
   sctx->callback = cb;
   sctx->cls = cb_cls;
-  sctx->client = client;
-  sctx->service_name = GNUNET_strdup (service_name);
+  sctx->service_name = (const char*) &sctx[1];
+  memcpy (&sctx[1],
+         service_name,
+         slen);
   sctx->timeout = GNUNET_TIME_relative_to_absolute (timeout);
+  sctx->slen = slen;
+  sctx->attempts_left = MAX_ATTEMPTS;
   sctx->type = type;
-  if (NULL ==
-      GNUNET_CLIENT_notify_transmit_ready (client,
-                                           slen +
-                                           sizeof (struct
-                                                   GNUNET_MessageHeader),
-                                           timeout, &send_service_msg, sctx))
-    {
-      GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
-                  _("Failed to transmit request to ARM service\n"));
-      GNUNET_free (sctx->service_name);
-      GNUNET_free (sctx);
-      if (cb != NULL)
-        cb (cb_cls, GNUNET_SYSERR);
-      GNUNET_CLIENT_disconnect (client);
-      return;
-    }
+  retry_request (sctx, NULL);
 }
 
 
 /**
  * Start a service.
  *
+ * @param h handle to ARM
  * @param service_name name of the service
- * @param cfg configuration to use (needed to contact ARM;
- *        the ARM service may internally use a different
- *        configuration to determine how to start the service).
- * @param sched scheduler to use
  * @param timeout how long to wait before failing for good
  * @param cb callback to invoke when service is ready
  * @param cb_cls closure for callback
  */
 void
-GNUNET_ARM_start_service (const char *service_name,
-                          const struct GNUNET_CONFIGURATION_Handle *cfg,
-                          struct GNUNET_SCHEDULER_Handle *sched,
+GNUNET_ARM_start_service (struct GNUNET_ARM_Handle *h,
+                         const char *service_name,
                           struct GNUNET_TIME_Relative timeout,
                           GNUNET_ARM_Callback cb, void *cb_cls)
 {
-  struct ArmContext *sctx;
+  struct RequestContext *sctx;
 
   GNUNET_log (GNUNET_ERROR_TYPE_INFO,
               _("Starting service `%s'\n"), service_name);
   if (0 == strcmp ("arm", service_name))
     {
-      sctx = GNUNET_malloc (sizeof (struct ArmContext));
+      sctx = GNUNET_malloc (sizeof (struct RequestContext));
+      sctx->h = h;
       sctx->callback = cb;
       sctx->cls = cb_cls;
-      sctx->cfg = cfg;
-      GNUNET_CLIENT_service_test (sched,
+      sctx->timeout = GNUNET_TIME_relative_to_absolute (timeout);
+      GNUNET_CLIENT_service_test (h->sched,
                                   "arm",
-                                  cfg, timeout, &arm_service_report, sctx);
+                                  h->cfg, timeout, &arm_service_report, sctx);
       return;
     }
-  change_service (service_name,
-                  cfg,
-                  sched, timeout, cb, cb_cls, GNUNET_MESSAGE_TYPE_ARM_START);
+  change_service (h, service_name, timeout, cb, cb_cls, GNUNET_MESSAGE_TYPE_ARM_START);
 }
 
 
-
-
 /**
  * Stop a service.
  *
+ * @param h handle to ARM
  * @param service_name name of the service
- * @param cfg configuration to use (needed to contact ARM;
- *        the ARM service may internally use a different
- *        configuration to determine how to start the service).
- * @param sched scheduler to use
  * @param timeout how long to wait before failing for good
  * @param cb callback to invoke when service is ready
  * @param cb_cls closure for callback
  */
 void
-GNUNET_ARM_stop_service (const char *service_name,
-                         const struct GNUNET_CONFIGURATION_Handle *cfg,
-                         struct GNUNET_SCHEDULER_Handle *sched,
+GNUNET_ARM_stop_service (struct GNUNET_ARM_Handle *h,
+                        const char *service_name,
                          struct GNUNET_TIME_Relative timeout,
                          GNUNET_ARM_Callback cb, void *cb_cls)
 {
-  struct GNUNET_CLIENT_Connection *client;
-
   GNUNET_log (GNUNET_ERROR_TYPE_INFO,
               _("Stopping service `%s'\n"), service_name);
   if (0 == strcmp ("arm", service_name))
     {
-      client = GNUNET_CLIENT_connect (sched, "arm", cfg);
-      if (client == NULL)
-        {
-          if (cb != NULL)
-            cb (cb_cls, GNUNET_SYSERR);
-          return;
-        }
-      GNUNET_CLIENT_service_shutdown (client);
-      GNUNET_CLIENT_disconnect (client);
+      GNUNET_CLIENT_service_shutdown (h->client);
       if (cb != NULL)
         cb (cb_cls, GNUNET_NO);
       return;
     }
-  change_service (service_name,
-                  cfg,
-                  sched, timeout, cb, cb_cls, GNUNET_MESSAGE_TYPE_ARM_STOP);
+  change_service (h, service_name, timeout, cb, cb_cls, GNUNET_MESSAGE_TYPE_ARM_STOP);
 }
 
+
+/**
+ * Function to call for each service.
+ *
+ * @param h handle to ARM
+ * @param service_name name of the service
+ * @param timeout how long to wait before failing for good
+ * @param cb callback to invoke when service is ready
+ * @param cb_cls closure for callback
+ */
+typedef void (*ServiceOperation) (struct GNUNET_ARM_Handle *h,
+                                 const char *service_name,
+                                 struct GNUNET_TIME_Relative timeout,
+                                 GNUNET_ARM_Callback cb, void *cb_cls);
+
+
+/**
+ * Context for starting or stopping multiple services.
+ */
+struct MultiContext
+{
+  /**
+   * NULL-terminated array of services to start or stop.
+   */
+  char **services;
+
+  /**
+   * Our handle to ARM.
+   */
+  struct GNUNET_ARM_Handle *h;
+
+  /**
+   * Identifies the operation (start or stop).
+   */
+  ServiceOperation op;
+
+  /**
+   * Current position in "services".
+   */
+  unsigned int pos;
+};
+
+
+/**
+ * Run the operation for the next service in the multi-service
+ * request.
+ *
+ * @param cls the "struct MultiContext" that is being processed
+ * @param success status of the previous operation (ignored)
+ */
+static void
+next_operation (void *cls,
+               int success)
+{
+  struct MultiContext *mc = cls;
+  char *pos;
+  
+  if (NULL == (pos = mc->services[mc->pos]))
+    {
+      GNUNET_free (mc->services);
+      GNUNET_ARM_disconnect (mc->h);
+      GNUNET_free (mc);
+      return;
+    }
+  mc->pos++;
+  mc->op (mc->h, pos, MULTI_TIMEOUT, &next_operation, mc);
+  GNUNET_free (pos);
+}
+
+
+/**
+ * Run a multi-service request.
+ *
+ * @param cfg configuration to use (needed to contact ARM;
+ *        the ARM service may internally use a different
+ *        configuration to determine how to start the service).
+ * @param sched scheduler to use
+ * @param op the operation to perform for each service
+ * @param va NULL-terminated list of services
+ */
+static void
+run_multi_request (const struct GNUNET_CONFIGURATION_Handle *cfg,
+                  struct GNUNET_SCHEDULER_Handle *sched,                   
+                  ServiceOperation op,
+                  va_list va)
+{
+  va_list cp;
+  unsigned int total;
+  struct MultiContext *mc;
+  struct GNUNET_ARM_Handle *h;
+  const char *c;
+  
+  h = GNUNET_ARM_connect (cfg, sched, NULL);
+  if (NULL == h)
+    {
+      GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
+                 _("Error while trying to transmit to ARM service\n"));
+      return; 
+    }
+  total = 1;
+  va_copy (cp, va);
+  while (NULL != (va_arg (cp, const char*))) total++;
+  va_end (cp);
+  mc = GNUNET_malloc (sizeof(struct MultiContext));
+  mc->services = GNUNET_malloc (total * sizeof (char*));
+  mc->h = h;
+  mc->op = op;
+  total = 0;
+  va_copy (cp, va);
+  while (NULL != (c = va_arg (cp, const char*))) 
+    mc->services[total++] = GNUNET_strdup (c);
+  va_end (cp);
+  next_operation (mc, GNUNET_YES);
+}
+
+
+/**
+ * Start multiple services in the specified order.  Convenience
+ * function.  Works asynchronously, failures are not reported.
+ *
+ * @param cfg configuration to use (needed to contact ARM;
+ *        the ARM service may internally use a different
+ *        configuration to determine how to start the service).
+ * @param sched scheduler to use
+ * @param ... NULL-terminated list of service names (const char*)
+ */
+void
+GNUNET_ARM_start_services (const struct GNUNET_CONFIGURATION_Handle *cfg,
+                          struct GNUNET_SCHEDULER_Handle *sched,
+                          ...)
+{
+  va_list ap;
+
+  va_start (ap, sched);
+  run_multi_request (cfg, sched, &GNUNET_ARM_start_service, ap);
+  va_end (ap);
+}
+
+
+/**
+ * Stop multiple services in the specified order.  Convenience
+ * function.  Works asynchronously, failures are not reported.
+ *
+ * @param cfg configuration to use (needed to contact ARM;
+ *        the ARM service may internally use a different
+ *        configuration to determine how to start the service).
+ * @param sched scheduler to use
+ * @param ... NULL-terminated list of service names (const char*)
+ */
+void
+GNUNET_ARM_stop_services (const struct GNUNET_CONFIGURATION_Handle *cfg,
+                         struct GNUNET_SCHEDULER_Handle *sched,
+                         ...)
+{
+  va_list ap;
+
+  va_start (ap, sched);
+  run_multi_request (cfg, sched, &GNUNET_ARM_stop_service, ap);
+  va_end (ap);
+}
+
+
 /* end of arm_api.c */