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>

#define IPOINT(a) TRACER_LOGEVENT(FTrace_EVT_ipoint,(a),0);

int num_aster = 0;
#define ASTER_LIM       67
#define ASTER_MAX       90

TASK asteroide(void)
{
  int i = 1;
  int y = 0;

  IPOINT(1000);

  y = rand() % 20 + 1;

  while (i < ASTER_LIM) {

    IPOINT(1001);

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

    IPOINT(1002);
    task_testcancel();
    task_endcycle();

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

  IPOINT(1003);
  num_aster--;

  IPOINT(1004);
  return 0;

}

DWORD taskCreated = 0;

TASK aster(void)
{
  PID p;

  HARD_TASK_MODEL m;
  int r;

  IPOINT(2000);

  hard_task_default_model(m);
  hard_task_def_wcet(m,500);
  hard_task_def_group(m,3);

  while (1) {
 
    IPOINT(2001);

    if (num_aster < ASTER_MAX) {

      IPOINT(2002);

      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++;
    }

    IPOINT(2003);
    task_testcancel();
    task_endcycle();

  }

  IPOINT(2004);

}

TASK clock()
{
  int s = 0, m = 0;

  IPOINT(3000);

  while(1) {

    IPOINT(3001);

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

    if (++s > 59) {

      IPOINT(3003);
      s = 0;
      m++;

    }
    IPOINT(3004);

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

    IPOINT(3005);
    task_testcancel();
    task_endcycle();

  }
  IPOINT(3006);

}

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,2);

  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(2);

  do {
    sys_gettime(&t);
  } while (t.tv_sec < 10);

  cprintf("Done\n");

}

int main(int argc, char **argv)
{

  int a,b,c;
  struct timespec t,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);

  FTrace_actual_chunk_select(a);

  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);

  group_kill(2);
  group_kill(3);

  do {
    sys_gettime(&t);
  } while (t.tv_sec < 12);

  FTrace_OSD_init_udp(1, "192.168.82.43", "192.168.82.20");
                                                                                                                             
  FTrace_send_chunk(a, 0, FTRACE_CHUNK_FLAG_FREE | FTRACE_CHUNK_FLAG_CYC);

  return 0;

}