src/executor.c

   1 /**************************************************************************/
   2 /* ---------------------------------------------------------------------- */
   3 /* Copyright (C) 2006 - 2008 FRESCOR consortium partners:                 */
   4 /*                                                                        */
   5 /*   Universidad de Cantabria,              SPAIN                         */
   6 /*   University of York,                    UK                            */
   7 /*   Scuola Superiore Sant'Anna,            ITALY                         */
   8 /*   Kaiserslautern University,             GERMANY                       */
   9 /*   Univ. Politécnica  Valencia,           SPAIN                        */
  10 /*   Czech Technical University in Prague,  CZECH REPUBLIC                */
  11 /*   ENEA                                   SWEDEN                        */
  12 /*   Thales Communication S.A.              FRANCE                        */
  13 /*   Visual Tools S.A.                      SPAIN                         */
  14 /*   Rapita Systems Ltd                     UK                            */
  15 /*   Evidence                               ITALY                         */
  16 /*                                                                        */
  17 /*   See http://www.frescor.org for a link to partners' websites          */
  18 /*                                                                        */
  19 /*          FRESCOR project (FP6/2005/IST/5-034026) is funded             */
  20 /*       in part by the European Union Sixth Framework Programme          */
  21 /*       The European Union is not liable of any use that may be          */
  22 /*       made of this code.                                               */
  23 /*                                                                        */
  24 /*                                                                        */
  25 /*  This file is part of FORB (Frescor Object Request Broker)             */
  26 /*                                                                        */
  27 /* FORB is free software; you can redistribute it and/or modify it        */
  28 /* under terms of the GNU General Public License as published by the      */
  29 /* Free Software Foundation; either version 2, or (at your option) any    */
  30 /* later version.  FORB is distributed in the hope that it will be        */
  31 /* useful, but WITHOUT ANY WARRANTY; without even the implied warranty    */
  32 /* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU    */
  33 /* General Public License for more details. You should have received a    */
  34 /* copy of the GNU General Public License along with FORB; see file       */
  35 /* COPYING. If not, write to the Free Software Foundation, 675 Mass Ave,  */
  36 /* Cambridge, MA 02139, USA.                                              */
  37 /*                                                                        */
  38 /* As a special exception, including FORB header files in a file,         */
  39 /* instantiating FORB generics or templates, or linking other files       */
  40 /* with FORB objects to produce an executable application, does not       */
  41 /* by itself cause the resulting executable application to be covered     */
  42 /* by the GNU General Public License. This exception does not             */
  43 /* however invalidate any other reasons why the executable file might be  */
  44 /* covered by the GNU Public License.                                     */
  45 /**************************************************************************/
  46
  47 /**
  48  * @file   executor.c
  49  * @author Michal Sojka <sojkam1@fel.cvut.cz>
  50  * @date   Sun Oct 12 16:18:04 2008
  51  *
  52  * @brief  Implementation of executors.
  53  */
  54
  55
  56 #include "executor.h"
  57 #include "exec_req.h"
  58 #include "object.h"
  59 #include <ul_log.h>
  60 #include <stdio.h>
  61 #include <pthread.h>
  62
  63 extern UL_LOG_CUST(ulogd_forb_executor);
  64
  65 static pthread_key_t forb_executor_key = -1;
  66
  67 int forb_executor_prepare()
  68 {
  69         return pthread_key_create(&forb_executor_key, NULL);
  70 }
  71
  72 /**
  73  * Initializes executor.
  74  *
  75  * @param executor
  76  *
  77  * @return Zero on success, FOSA error code on error.
  78  */
  79 int forb_executor_init(forb_executor_t *executor)
  80 {
  81         int ret;
  82         ret = fosa_mutex_init(&executor->mutex, 0);
  83         if (ret) return ret;
  84
  85         ret = fosa_cond_init(&executor->new_request_in_empty_list);
  86         if (ret) return ret;
  87
  88         forb_exec_req_nolock_init_head(executor);
  89
  90         forb_syncobj_init(&executor->reply_processed, 0);
  91
  92         executor->finish = false;
  93         fosa_cond_init(&executor->finished);
  94         return 0;
  95 }
  96
  97 void forb_executor_destroy(forb_executor_t *executor)
  98 {
  99         /* TODO: */
 100 }
 101
 102 /**
 103  * Waits for the executor to finish processing requests.
 104  *
 105  * @param executor
 106  */
 107 void forb_executor_synchronize(forb_executor_t *executor)
 108 {
 109         fosa_mutex_lock(&executor->mutex);
 110         executor->finish = true;
 111         fosa_cond_signal(&executor->new_request_in_empty_list);
 112         fosa_cond_wait(&executor->finished, &executor->mutex);
 113         fosa_mutex_unlock(&executor->mutex);
 114
 115 }
 116
 117 /**
 118  * Setup the object @a obj so that requests to it are executed within
 119  * the thread of the @a executor.
 120  *
 121  * @param executor
 122  * @param obj
 123  *
 124  * @return Zero on success, non-zero on error.
 125  */
 126 int forb_executor_register_object(forb_executor_t *executor, forb_object obj)
 127 {
 128         if (!obj || obj->executor)
 129                 return -1;
 130
 131         obj->executor = executor;
 132         return 0;
 133 }
 134
 135 /**
 136  * Unregisteres the object @a obj from @a executor.
 137  *
 138  * @param executor
 139  * @param obj
 140  */
 141 void forb_executor_unregister_object(forb_executor_t *executor, forb_object obj)
 142 {
 143         if (obj) {
 144                 obj->executor = NULL;
 145         }
 146 }
 147
 148 /**
 149  * Executor's main loop which executes object implementation methods
 150  * upon request.
 151  *
 152  * The requests are represented by ::forb_exec_req_t and are enqueued
 153  * to the executor's request queue by receiver threads of individual
 154  * ports (forb_iop_receiver_thread()).
 155  *
 156  * @param executor
 157  *
 158  * @return Zero on normal termination, non-zero error codes will be
 159  * defined later.
 160  */
 161 int forb_executor_run(forb_executor_t *executor)
 162 {
 163         int ret;
 164
 165         // setting pointer to executor as thread specific data
 166         if ((ret = pthread_setspecific(forb_executor_key, executor)))
 167                 goto ret;
 168
 169         fosa_mutex_lock(&executor->mutex);
 170         while (1) {
 171                 while (!forb_exec_req_nolock_is_empty(executor)) {
 172                         forb_exec_req_t *exec_req;
 173                         exec_req = forb_exec_req_nolock_cut_first(executor);
 174                         fosa_mutex_unlock(&executor->mutex);
 175
 176                         forb_exec_req_process(exec_req);
 177
 178                         fosa_mutex_lock(&executor->mutex);
 179                 }
 180                 if (executor->finish) {
 181                         fosa_cond_broadcast(&executor->finished);
 182                         executor->finish = false;
 183                 }
 184
 185
 186                 fosa_cond_wait(&executor->new_request_in_empty_list,
 187                                &executor->mutex);
 188         }
 189         fosa_mutex_unlock(&executor->mutex);
 190 ret:
 191         return ret;
 192 }
 193
 194 /**
 195  * Convenience function for executing only one object in one executor.
 196  * This function calls forb_signal_server_ready() at the appropriate
 197  * place.
 198  *
 199  * @param obj The object to execute.
 200  *
 201  * @return Zero in case of success, error code on error.
 202  */
 203 int forb_execute_object(forb_object obj)
 204 {
 205         forb_executor_t executor;
 206         int ret;
 207
 208         ret = forb_executor_init(&executor);
 209         if (ret) goto error;
 210         ret = forb_executor_register_object(&executor, obj);
 211         if (ret) goto destroy_and_error;
 212
 213         ret = forb_signal_server_ready(obj->orb);
 214         if (ret) goto destroy_and_error;
 215
 216         ret = forb_executor_run(&executor);
 217
 218 destroy_and_error:
 219         forb_executor_destroy(&executor);
 220 error:
 221         return ret;
 222 }
 223
 224
 225 /**
 226  * Determines the executor we are currently in.
 227  *
 228  * @return Pointer to the current executor or NULL if not called
 229  * within executor.
 230  */
 231 forb_executor_t *forb_get_current_executor(void)
 232 {
 233         return pthread_getspecific(forb_executor_key);
 234 }