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 AQCPU 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_aqcpu = {UL_LOGL_MSG, "fra_aqcpu"};
  54
  55 static int aqcpu_initialized = 0;               /* initialization flag */
  56
  57 /*
  58  * Test whether Aquosa Cpu modue is initialized
  59  */
  60 static inline int aqcpu_is_initialized()
  61 {
  62         return (aqcpu_initialized == 1);
  63 }
  64
  65
  66
  67 static int aqcpu_create_vres(fres_vres_t *vres, void *priv)
  68 {
  69         aqcpu_params_t cpu_params;
  70         qres_sid_t sid;
  71         qos_rv rv;
  72
  73         /* get aqcpu params from contract */
  74         get_aqcpu_params(vres, &cpu_params);
  75         /* create cpu vres */
  76         rv = qres_create_server(&cpu_params, &sid);
  77         if (rv != QOS_OK) {
  78                 return qos_rv_int(rv);
  79         }
  80
  81         printf("Created AQCPU VRES(sid=%d period=%lld us, budget=%lld us)\n",
  82                         sid, cpu_params.P, cpu_params.Q);
  83         if ((vres->priv = malloc(sizeof(qres_sid_t)))) {
  84                 memcpy(vres->priv, &sid, sizeof(qres_sid_t));
  85         }
  86
  87         return 0;
  88 }
  89
  90 /*
  91  * aqcpu_cancel_vres(), cancels vres
  92  *
  93  * The thread bound to the vres are unbound, and so, detached from their
  94  * AQuoSA resource reservation servers and continue their execution according
  95  * to the standard Linux scheduler policies.
  96  *
  97  */
  98 static int aqcpu_cancel_vres(fres_vres_t *vres, void *priv)
  99 {
 100         qres_sid_t sid;
 101         qos_rv qrv;
 102
 103         if (vres->priv) {
 104                 errno = -EINVAL;
 105                 return -1;
 106         }
 107         memcpy(&sid, vres->priv, sizeof(qres_sid_t));
 108
 109         qrv = qres_destroy_server(sid);
 110         if (qrv != QOS_OK) {
 111                 return qos_rv_int(qrv);
 112         }
 113         printf("Canceled AQCPU VRES(sid=%d)\n",sid);
 114         free(vres->priv);
 115
 116         return 0;
 117 }
 118
 119 /* aqcpu_vres_change(), change some parameters of a vres
 120  *
 121  * In fact, since that AQuoSA call doesn't deal with _its_ Q_min (budget_min
 122  * for in FRSH semantic) parameter all the renegotiation will be accepted but
 123  * the new temporal behaviour is not guaranteed!
 124  * Obviously this is a bug and should/will be corrected in AQuoSA as soon as
 125  * possible.
 126  *
 127  */
 128 int aqcpu_change_vres(fres_vres_t *vres, void *priv)
 129 {
 130         aqcpu_params_t cpu_params;
 131         qres_sid_t sid;
 132         qos_rv qrv;
 133
 134         if (vres->priv) {
 135                 errno = -EINVAL;
 136                 return -1;
 137         }
 138         memcpy(&sid, vres->priv, sizeof(qres_sid_t));
 139
 140         /* get aqcpu params from contract */
 141         get_aqcpu_params(vres, &cpu_params);
 142
 143         /* set cpu params */
 144         qrv = qres_set_params(sid, &cpu_params);
 145
 146         ul_logmsg("AQCPU VRES(sid=%d) params changed(period=%lld us,"
 147                         "budget=%lld us)\n",sid, cpu_params.P,cpu_params.Q);
 148
 149         return 0;
 150 }
 151
 152 static struct fres_allocator aqcpu_allocator = {
 153         .res_type = FRSH_RT_PROCESSOR,
 154         .res_id = 0,  /* CPU ID 0 */
 155         .create_vres = aqcpu_create_vres,
 156         .cancel_vres = aqcpu_cancel_vres,
 157         .change_vres = aqcpu_change_vres,
 158         .priv = NULL
 159 };
 160
 161 /*
 162  * installed as an exit handler (with 'atexit()') by the initialization
 163  * code... For now it only calls the cleanup function of the AQuoSA
 164  * Framework
 165  */
 166 static inline void aqcpu_cleanup_wrapper() {
 167         qres_cleanup();
 168 }
 169
 170 /*
 171  * aqcpu_fra_init(), initialize FRSH for the calling process
 172  *
 173  * Must be called before starting using the framework.
 174  * No FRSH call will be successful if this routine is not invoked
 175  *
 176  * Note that no BACKGROUND is created and negotiated and the caller thread
 177  * is bound to no BACKGROUND vres, since no way is provided in order of
 178  * specifying the contract label and get back the vres id!
 179  *
 180  * Note also that, since in this implementation the threads/processes with
 181  * backgound contracts are left into the default Linux scheduler hands' and
 182  * not attached to any AQuoSA server, while we're violating what D-AC2v1
 183  * (pag. 14) says, we achieve exactly the same behaviour!!
 184  *
 185  * possible return values:
 186  *  FRSH_NO_ERROR
 187  *  FRSH_ERR_ALREADY_INITIALIZED
 188  *  FRSH_ERR_INTERNAL_ERROR (something, different from the previous case, gone wrong)
 189  */
 190 int aqcpu_fra_init(void)
 191 {
 192         qos_rv qrv;
 193         int rv;
 194
 195         if ((qrv = qres_init()) != QOS_OK) {
 196                 errno = -EPERM;
 197                 return -1;
 198         }
 199
 200         if ((rv = fra_register(&aqcpu_allocator))) {
 201                 qres_cleanup();
 202                 return rv;
 203         }
 204
 205         /* install the cleanup function of th AQuoSA framework as an exit
 206          * handler function (quite futile but, for now, it's sufficent) */
 207         if (atexit(aqcpu_cleanup_wrapper))
 208                 return(FRSH_ERR_INTERNAL_ERROR);
 209
 210         aqcpu_initialized = 1;
 211
 212         return 0;
 213 }
 214
 215 int aqcpu_fra_exit()
 216 {
 217         qos_rv rv;
 218
 219         rv = qres_cleanup();
 220         return qos_rv_int(rv);
 221 }