Subversion Repositories shark

/*

 * Project: S.Ha.R.K.

 *

 * Coordinators:

 *   Giorgio Buttazzo    <giorgio@sssup.it>

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

 *

 * Authors     :

 *   Giacomo Guidi       <giacomo@gandalf.sssup.it>

 *

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

 *

 * http://www.sssup.it

 * http://retis.sssup.it

 * http://shark.sssup.it

 */

/* The tracer instrumentation ideas come from the York PWCET analisys tool

 *     

 *      Real-Time System Group

 *      University of York

 *

 */

#include <kernel/kern.h>

#include <tracer.h>

int num_aster = 0;

#define ASTER_LIM       67

#define ASTER_MAX       90

TASK asteroide(void)

{

  int i = 1;

  int y = 0;

  FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,1000,0);

  y = rand() % 20 + 1;

  while (i < ASTER_LIM) {

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,1001,0);

    puts_xy(i,y,WHITE,"*");

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,1002,0);

    task_endcycle();

    puts_xy(i,y,WHITE," ");

    i++;

  }

  FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,1003,0);

  num_aster--;

  FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,1004,0);

  return 0;

}

DWORD taskCreated = 0;

TASK aster(void)

{

  PID p;

  HARD_TASK_MODEL m;

  int r;

  FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,2000,0);

  hard_task_default_model(m);

  hard_task_def_wcet(m,500);

  while (1) {

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,2001,0);

    if (num_aster < ASTER_MAX) {

      FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,2002,0);

      r = (rand() % 50) - 25;

      hard_task_def_arg(m,(void *)((rand() % 7)+1));

      hard_task_def_mit(m, (50+r)*1000);

      p = task_create("aaa",asteroide,&m,NULL);

      taskCreated++;

      task_activate(p);

      num_aster++;

    }

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,2003,0);

    task_endcycle();

  }

  FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,2004,0);

}

TASK clock()

{

  int s = 0, m = 0;

  FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,3000,0);

  while(1) {

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,3001,0);

    printf_xy(70,1,WHITE,"%2d : %2d",m,s);

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,3002,0);

    task_endcycle();

    if (++s > 59) {

      FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,3003,0);

      s = 0;

      m++;

    }

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,3004,0);

    printf_xy(70,1,WHITE,"%2d : %2d",m,s);

    FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,3005,0);

    task_endcycle();

  }

  FAST_TRACER_LOGEVENT(FTrace_EVT_ipoint,3006,0);

}

void instrumented_routine() {

  PID p1,p2;

  HARD_TASK_MODEL m;

  struct timespec t;

  cprintf("Start\n");

  clear();

  hard_task_default_model(m);

  hard_task_def_mit(m,10000);

  hard_task_def_wcet(m,2000);

  hard_task_def_group(m,1);

  p1 = task_create("Aster",aster,&m,NULL);

  if (p1 == -1) {

    sys_shutdown_message("Aster.C(main): Could not create task <aster> ...");

    sys_end();

  }

  hard_task_def_mit(m,500000);

  p2 = task_create("Clock",clock,&m,NULL);

  if (p2 == -1) {

    sys_shutdown_message("Aster.C(main): Could not create task <Clock> ...");

    sys_end();

  }

  group_activate(1);

  do {

    sys_gettime(&t);

  } while (t.tv_sec < 10);

  cprintf("Done\n");

}

int main(int argc, char **argv)

{

  int a,b,c;

  struct timespec start,end,diff;

  srand(sys_gettime(NULL));

  a = FTrace_chunk_create(1000000, 1000000, FTRACE_CHUNK_FLAG_FREE | FTRACE_CHUNK_FLAG_CYC);

  b = FTrace_chunk_create(1000000, 1000000, FTRACE_CHUNK_FLAG_FREE | FTRACE_CHUNK_FLAG_JTN);

  c = FTrace_chunk_create(1000000, 1000000, FTRACE_CHUNK_FLAG_FREE | FTRACE_CHUNK_FLAG_CYC);

  FTrace_chunk_link(a,b);

  FTrace_chunk_link(b,c);

  kern_gettime(&start);

  FTrace_enable();

  TRACER_LOGEVENT(FTrace_EVT_trace_start,0,0);

    instrumented_routine();

  TRACER_LOGEVENT(FTrace_EVT_trace_stop,0,0);  

  FTrace_disable();

  kern_gettime(&end);

  SUBTIMESPEC(&end,&start,&diff);

  printf_xy(1,21,WHITE,"Logged Time %d s %d us",(int)diff.tv_sec,(int)diff.tv_nsec/1000);

  sys_end();

  return 0;

}