Subversion Repositories shark

/*

 * Project: S.Ha.R.K.

 *

 * Coordinators:

 *   Giorgio Buttazzo    <giorgio@sssup.it>

 *   Paolo Gai           <pj@gandalf.sssup.it>

 *

 * Authors     :

 *   Paolo Gai           <pj@gandalf.sssup.it>

 *   (see the web pages for full authors list)

 *

 * ReTiS Lab (Scuola Superiore S.Anna - Pisa - Italy)

 *

 * http://www.sssup.it

 * http://retis.sssup.it

 * http://shark.sssup.it

 */

/**

 ------------

 CVS :        $Id: static.c,v 1.4 2003-01-07 17:10:18 pj Exp $

 File:        $File$

 Revision:    $Revision: 1.4 $

 Last update: $Date: 2003-01-07 17:10:18 $

 ------------

**/

/*

 * Copyright (C) 2001 Paolo Gai

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

 *

 */

#include "static.h"

#include <ll/stdio.h>

#include <ll/string.h>

#include <kernel/model.h>

#include <kernel/descr.h>

#include <kernel/var.h>

#include <kernel/func.h>

#include <kernel/trace.h>

#define STATIC_printf kern_printf

//#define STATIC_printf printk

/*+ Status used in the level +*/

#define STATIC_READY         MODULE_STATUS_BASE    /*+ - Ready status        +*/

#define STATIC_IDLE          MODULE_STATUS_BASE+4  /*+ to wait the deadline  +*/

/*+ flags +*/

#define STATIC_FLAG_NORAISEEXC  2

/*+ the level redefinition for the Earliest Deadline First level +*/

typedef struct {

  level_des l;     /*+ the standard level descriptor          +*/

  IQUEUE mytable;

  PID currenttask;

  struct timespec hp;

  struct timespec ref;

} STATIC_level_des;

static void STATIC_offset_activate(void *par)

{

  PID p = (PID) par;

  STATIC_level_des *lev;

  lev = (STATIC_level_des *)level_table[proc_table[p].task_level];

  lev->currenttask = p;

  event_need_reschedule();

  //  STATIC_printf("(o p%d t%d)", p, (int)proc_table[p].timespec_priority.tv_sec);

}

static void STATIC_activateall(STATIC_level_des *lev)

{

  PID my_table_index;

  struct timespec x;

  STATIC_printf("(A ");

  for (my_table_index = iq_query_first(&lev->mytable);

       my_table_index != NIL;

       my_table_index = iq_query_next(my_table_index, &lev->mytable)) {

    ADDTIMESPEC(&lev->ref,iq_query_timespec(my_table_index, &lev->mytable),&x);

    kern_event_post(&x, STATIC_offset_activate,(void *)my_table_index);

    STATIC_printf("|p%d t%d ",

                  my_table_index,

                  (int)iq_query_timespec(my_table_index, &lev->mytable)->tv_sec);

  }

  STATIC_printf(")");

}

static void STATIC_hyperperiod(void *par)

{

  STATIC_level_des *lev;

  struct timespec x;

  lev = (STATIC_level_des *)level_table[(LEVEL)par];

  STATIC_printf("(hp %d)", (int)lev->ref.tv_sec);

  STATIC_activateall(lev);

  ADDTIMESPEC(&lev->ref, &lev->hp, &x);

  lev->ref = x;

  kern_event_post(&x, STATIC_hyperperiod, par);

}

/* The scheduler only gets the first task in the queue */

static PID STATIC_public_scheduler(LEVEL l)

{

  STATIC_level_des *lev = (STATIC_level_des *)(level_table[l]);

  return lev->currenttask;

}

static int STATIC_public_create(LEVEL l, PID p, TASK_MODEL *m)

{

  STATIC_level_des *lev = (STATIC_level_des *)(level_table[l]);

  /* if the STATIC_task_create is called, then the pclass must be a

     valid pclass. */

  STATIC_TASK_MODEL *h = (STATIC_TASK_MODEL *)m;

  if (m->pclass != STATIC_PCLASS) return -1;

  if (m->level != 0 && m->level != l) return -1;

  iq_query_timespec(p, &lev->mytable)->tv_sec = h->offset.tv_sec;

  iq_query_timespec(p, &lev->mytable)->tv_nsec = h->offset.tv_nsec;

  iq_timespec_insert(p,&lev->mytable);

  return 0; /* OK, also if the task cannot be guaranteed... */

}

static void STATIC_public_dispatch(LEVEL l, PID p, int nostop)

{

}

static void STATIC_public_epilogue(LEVEL l, PID p)

{

}

static void STATIC_public_activate(LEVEL l, PID p)

{

}

static void STATIC_public_unblock(LEVEL l, PID p)

{

}

static void STATIC_public_block(LEVEL l, PID p)

{

}

static int STATIC_public_message(LEVEL l, PID p, void *m)

{

  STATIC_level_des *lev = (STATIC_level_des *)(level_table[l]);

  lev->currenttask = NIL;

  jet_update_endcycle(); /* Update the Jet data... */

  trc_logevent(TRC_ENDCYCLE,&exec_shadow); /* tracer stuff */

  return 0;

}

static void STATIC_public_end(LEVEL l, PID p)

{

  STATIC_level_des *lev = (STATIC_level_des *)(level_table[l]);

  lev->currenttask = NIL;

  iq_extract(p,&lev->mytable);

  /* we finally put the task in the ready queue */

  proc_table[p].status = FREE;

  iq_insertfirst(p,&freedesc);

}

/* Registration functions */

/*+ Registration function:

    int flags                 the init flags ... see STATIC.h +*/

LEVEL STATIC_register_level()

{

  LEVEL l;            /* the level that we register */

  STATIC_level_des *lev;  /* for readableness only */

  printk("STATIC_register_level\n");

  /* request an entry in the level_table */

  l = level_alloc_descriptor(sizeof(STATIC_level_des));

  lev = (STATIC_level_des *)level_table[l];

  printk("    lev=%d\n",(int)lev);

  /* fill the standard descriptor */

  lev->l.public_scheduler = STATIC_public_scheduler;

  lev->l.public_create    = STATIC_public_create;

  lev->l.public_end       = STATIC_public_end;

  lev->l.public_dispatch  = STATIC_public_dispatch;

  lev->l.public_epilogue  = STATIC_public_epilogue;

  lev->l.public_activate  = STATIC_public_activate;

  lev->l.public_unblock   = STATIC_public_unblock;

  lev->l.public_block     = STATIC_public_block;

  lev->l.public_message   = STATIC_public_message;

  /* fill the STATIC descriptor part */

  iq_init(&lev->mytable, &freedesc, 0);

  lev->currenttask = NIL;

  NULL_TIMESPEC(&lev->hp);

  NULL_TIMESPEC(&lev->ref);

  return l;

}

void STATIC_start(LEVEL l, struct timespec *h, struct timespec *o)

{

  STATIC_level_des *lev = (STATIC_level_des *)(level_table[l]);

  struct timespec x;

  kern_cli();

  kern_gettime(&x);

  lev->hp = *h;

  ADDTIMESPEC(&x,o,&lev->ref);

  STATIC_printf("(ST: ref:%d.%d x:%d.%d)\n",

                (int)lev->ref.tv_sec, (int)lev->ref.tv_nsec,

                (int)x.tv_sec, (int)x.tv_nsec);

  kern_event_post(&x, STATIC_hyperperiod,(void *)l);

  kern_sti();

}