resources/cpu_aquosa/lib/aqcpu_fra.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 AQCPU (Aquosa CPU)                               */
  26 /*                                                                        */
  27 /* FWP 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.  FWP 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 FWP; 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 FWP header files in a file,          */
  39 /* instantiating FWP generics or templates, or linking other files        */
  40 /* with FWP 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 #include <ul_log.h>
  47 #include <fra_generic.h>
  48
  49 #include "aquosa/qres_lib.h"
  50 #include "aqcpu_contract.h"
  51
  52 UL_LOG_CUST(ulogd_fra_aqcpu);
  53 ul_log_domain_t ulogd_fra_fwp = {UL_LOGL_DEB, "fra_aqcpu"};
  54
  55 static int aqcpu_create_vres(fres_vres_t *vres, void *priv)
  56 {
  57         cpu_params_t cpu_params;
  58         qres_sid_t sid;
  59         qos_rv rv;
  60
  61         /* get aqcpu params from contract */
  62         get_aqcpu_params(vres, cpu_params);
  63         /* create cpu vres */
  64         rv = qres_create_server(&cpu_params, &sid);
  65         if (rv != QOS_OK) {
  66                 return qos_rv_int(rv);
  67         }
  68
  69         ul_logdeb("Created AQCPU VRES(sid=%d period=%ld us, budget=%ld us)\n",
  70                         sid, cpu_params->P, cpu_params->Q_min);
  71         if (vres->priv = malloc(sizeof(qres_sid_t))) {
  72                 memcpy(vres->priv, &sid, sizeof(qres_sid_t));
  73         }
  74
  75         return 0;
  76 }
  77
  78 /*
  79  * aqcpu_cancel_vres(), cancels vres
  80  *
  81  * The thread bound to the vres are unbound, and so, detached from their
  82  * AQuoSA resource reservation servers and continue their execution according
  83  * to the standard Linux scheduler policies.
  84  *
  85  */
  86 static int aqcpu_cancel_vres(fres_vres_t *vres, void *priv)
  87 {
  88         qres_sid_t sid;
  89         qos_rv qrv;
  90
  91         if (vres->priv) {
  92                 errno = -EINVAL;
  93                 return -1;
  94         }
  95         memcpy(&sid, vres->priv, sizeof(qres_sid_t));
  96
  97         qrv = qres_destroy_server(sid);
  98         if (qrv != QOS_OK) {
  99                 return qos_rv_int(qrv);
 100         }
 101         ul_logdeb("Canceled AQCPU VRES(sid=%d)\n",sid);
 102         return 0;
 103 }
 104
 105 /* aqcpu_vres_change(), change some parameters of a vres
 106  *
 107  * In fact, since that AQuoSA call doesn't deal with _its_ Q_min (budget_min
 108  * for in FRSH semantic) parameter all the renegotiation will be accepted but
 109  * the new temporal behaviour is not guaranteed!
 110  * Obviously this is a bug and should/will be corrected in AQuoSA as soon as
 111  * possible.
 112  *
 113  */
 114 int aqcpu_change_vres(fres_vres_t *vres, void *priv)
 115 {
 116         cpu_params_t cpu_params;
 117         qres_sid_t sid;
 118         qos_rv qrv;
 119
 120         if (vres->priv) {
 121                 errno = -EINVAL;
 122                 return -1;
 123         }
 124         memcpy(&sid, vres->priv, sizeof(qres_sid_t));
 125
 126         /* get aqcpu params from contract */
 127         get_aqcpu_params(vres, cpu_params);
 128
 129         /* set cpu params */
 130         qrv = qres_set_params(sid, &cpu_params);
 131
 132         ul_logdeb("AQCPU VRES(sid=%d) params changed(period=%ld us,"
 133                         "budget=%ld us)\n",sid, cpu_params->P,cpu_params->Q_min);
 134
 135         return 0;
 136 }
 137
 138 static struct fres_allocator aqcpu_allocator = {
 139         .res_type = FRSH_RT_CPU,
 140         .res_id = 0,  /* CPU ID 0 */
 141         .create_vres = aqcpu_create_vres,
 142         .cancel_vres = aqcpu_cancel_vres,
 143         .change_vres = aqcpu_change_vres,
 144         .priv = NULL
 145 };
 146
 147 int fra_aqcpu_init(forb_orb orb, fres_contract_broker fcb, forb_executor_t *executor)
 148 {
 149         if (qres_init() != QOS_OK) {
 150                 return -1;
 151         }
 152
 153         return fra_register(orb, fcb, executor, &fwp_allocator);
 154 }
 155
 156 int fra_aqcpu_exit()
 157 {
 158         qos_rv rv;
 159
 160         rv = qres_cleanup();
 161         return qos_rv_int(rv);
 162 }