feslow.cxx File Reference

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <stdint.h>
#include <sys/time.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <errno.h>
#include <math.h>
#include <ctype.h>
#include <assert.h>
#include "midas.h"

Include dependency graph for feslow.cxx:

Go to the source code of this file.

Macros
#define	FE_NAME   "feslow"
#define	EQ_NAME   "Slow"
#define	EQ_EVID   1

Functions
INT	frontend_init ()
	Frontend initialization.
INT	frontend_exit ()
	Frontend exit.
INT	begin_of_run (INT run_number, char *error)
	Begin of Run.
INT	end_of_run (INT run_number, char *error)
	End of Run.
INT	pause_run (INT run_number, char *error)
	Pause Run.
INT	resume_run (INT run_number, char *error)
	Resume Run.
INT	frontend_loop ()
	Frontend loop.
int	read_slow_event (char *pevent, int off)
static int	configure ()
INT	poll_event (INT source, INT count, BOOL test)
INT	interrupt_configure (INT cmd, INT source, PTYPE adr)
double	get_time ()

Variables
char *	frontend_name = FE_NAME
char *	frontend_file_name = __FILE__
BOOL	frontend_call_loop = TRUE
INT	display_period = 0
INT	max_event_size = 2000
INT	max_event_size_frag = 0
INT	event_buffer_size = 10*2000
HNDLE	hDB
	main ODB handle
INT	gbl_run_number
EQUIPMENT	equipment []
int	count_slow = 0

Macro Definition Documentation

EQ_EVID

#define EQ_EVID   1

Definition at line 27 of file feslow.cxx.

EQ_NAME

#define EQ_NAME   "Slow"

Definition at line 26 of file feslow.cxx.

FE_NAME

#define FE_NAME   "feslow"

Definition at line 25 of file feslow.cxx.

Function Documentation

begin_of_run()

INT begin_of_run	(	INT	run_number,
		char *	error
	)

Begin of Run.

Called every run start transition. Set equipment status in ODB, start acquisition on the modules.

Parameters

[in]	run_number	Number of the run being started
[out]	error	Can be used to write a message string to midas.log

Definition at line 158 of file feslow.cxx.

{
  printf("Begin run %d\n", run_number);
  gbl_run_number = run_number;
 
  configure();
 
  count_slow = 0;
 
  return SUCCESS;
}

Here is the call graph for this function:

configure()

static int configure ( )

static

Definition at line 127 of file feslow.cxx.

{
   int size, status;
 
   //size = sizeof(int);
   //status = db_get_value(hDB, 0, "/Equipment/" EQ_NAME "/Settings/event_size", &event_size, &size, TID_INT, TRUE);
   //printf("Event size set to %d bytes\n", event_size);
   
   return SUCCESS;
}

end_of_run()

INT end_of_run	(	INT	run_number,
		char *	error
	)

End of Run.

Called every stop run transition. Set equipment status in ODB, stop acquisition on the modules.

Parameters

[in]	run_number	Number of the run being ended
[out]	error	Can be used to write a message string to midas.log

Definition at line 172 of file feslow.cxx.

{
  printf("End run %d!\n", run_number);
 
  cm_msg(MINFO, frontend_name, "read %d slow events", count_slow);
 
  return SUCCESS;
}

Here is the call graph for this function:

frontend_exit()

INT frontend_exit

(

void

)

Frontend exit.

Runs at frontend shutdown. Disconnect hardware and set equipment status in ODB

Returns

Midas status code

Definition at line 151 of file feslow.cxx.

{
  return SUCCESS;
}

frontend_init()

INT frontend_init

(

void

)

Frontend initialization.

Runs once at application startup. We initialize the hardware and optical interfaces and set the equipment status in ODB. We also lock the frontend to once physical cpu core.

Returns

Midas status code

Definition at line 140 of file feslow.cxx.

{
   //cm_set_watchdog_params (FALSE, 0);
 
   configure();
 
   return SUCCESS;
}

Here is the call graph for this function:

frontend_loop()

INT frontend_loop

(

void

)

Frontend loop.

If frontend_call_loop is true, this routine gets called when the frontend is idle or once between every event.

Returns

Midas status code

Definition at line 197 of file feslow.cxx.

{
  /* if frontend_call_loop is true, this routine gets called when
     the frontend is idle or once between every event */
  //printf("frontend_loop!\n");
  ss_sleep(10);
  return SUCCESS;
}

Here is the call graph for this function:

get_time()

double get_time

(

)

Definition at line 245 of file feslow.cxx.

{
  struct timeval tv;
  gettimeofday(&tv, NULL);
  return tv.tv_sec + 0.000001*tv.tv_usec;
}

Here is the call graph for this function:

interrupt_configure()

INT interrupt_configure	(	INT	cmd,
		INT	source,
		PTYPE	adr
	)

Definition at line 227 of file feslow.cxx.

{
  switch(cmd)
    {
    case CMD_INTERRUPT_ENABLE:
      break;
    case CMD_INTERRUPT_DISABLE:
      break;
    case CMD_INTERRUPT_ATTACH:
      break;
    case CMD_INTERRUPT_DETACH:
      break;
    }
  return SUCCESS;
}

pause_run()

INT pause_run	(	INT	run_number,
		char *	error
	)

Pause Run.

Called every pause run transition.

Parameters

[in]	run_number	Number of the run being ended
[out]	error	Can be used to write a message string to midas.log

Returns

Midas status code

Definition at line 183 of file feslow.cxx.

{
  return SUCCESS;
}

poll_event()

INT poll_event	(	INT	source,
		INT	count,
		BOOL	test
	)

Definition at line 214 of file feslow.cxx.

{
  if (test) {
    ss_sleep (count);
  }
  return (0);
}

Here is the call graph for this function:

read_slow_event()

int read_slow_event	(	char *	pevent,
		int	off
	)

Definition at line 252 of file feslow.cxx.

{
  bk_init32(pevent);
 
  count_slow++;
 
  if ((count_slow%2) == 0) {
     double* pdatad;
     bk_create(pevent, "SIN2", TID_DOUBLE, &pdatad);
     
     time_t t = time(NULL);
     pdatad[0] = count_slow;
     pdatad[1] = t;
     pdatad[2] = 100.0*sin(M_PI*t/60);
     printf("time %d, data %f\n", (int)t, pdatad[2]);
     
     bk_close(pevent, pdatad + 3);
  }
 
  if ((count_slow%3) == 0) {
     double* pdatad;
     bk_create(pevent, "COS3", TID_DOUBLE, &pdatad);
     
     time_t t = time(NULL);
     pdatad[0] = count_slow;
     pdatad[1] = t;
     pdatad[2] = 100.0*cos(M_PI*t/60);
     printf("time %d, data %f\n", (int)t, pdatad[2]);
     
     bk_close(pevent, pdatad + 3);
  }
 
  return bk_size(pevent);
}

Here is the call graph for this function:

resume_run()

INT resume_run	(	INT	run_number,
		char *	error
	)

Resume Run.

Called every resume run transition.

Parameters

[in]	run_number	Number of the run being ended
[out]	error	Can be used to write a message string to midas.log

Returns

Midas status code

Definition at line 190 of file feslow.cxx.

{
  return SUCCESS;
}

Variable Documentation

count_slow

int count_slow = 0

Definition at line 125 of file feslow.cxx.

display_period

INT display_period = 0

Definition at line 47 of file feslow.cxx.

equipment

EQUIPMENT equipment[]

Initial value:

= {
 
  { EQ_NAME,         
    {
      EQ_EVID, (1<<EQ_EVID), 
      "SYSTEM",              
      EQ_PERIODIC,          
      0,                    
      "MIDAS",              
      TRUE,                 
      RO_RUNNING|RO_STOPPED|RO_PAUSED|RO_ODB, 
      1000,                 
      0,                    
      0,                    
      1,                    
      "", "", ""
    },
    read_slow_event, 
  },
  { "" }
}

Definition at line 73 of file feslow.cxx.

                        {
 
  { EQ_NAME,         /* equipment name */
    {
      EQ_EVID, (1<<EQ_EVID), /* event ID, trigger mask */
      "SYSTEM",              /* event buffer */
      EQ_PERIODIC,          /* equipment type */
      0,                    /* event source */
      "MIDAS",              /* format */
      TRUE,                 /* enabled */
      RO_RUNNING|RO_STOPPED|RO_PAUSED|RO_ODB, /* When to read */
      1000,                 /* poll every so milliseconds */
      0,                    /* stop run after this event limit */
      0,                    /* number of sub events */
      1,                    /* history period*/
      "", "", ""
    },
    read_slow_event, /* readout routine */
  },
  { "" }
};

event_buffer_size

INT event_buffer_size = 10*2000

Definition at line 54 of file feslow.cxx.

frontend_call_loop

BOOL frontend_call_loop = TRUE

Definition at line 43 of file feslow.cxx.

frontend_file_name

char* frontend_file_name = __FILE__

Definition at line 40 of file feslow.cxx.

frontend_name

char* frontend_name = FE_NAME

Definition at line 37 of file feslow.cxx.

gbl_run_number

INT gbl_run_number

Definition at line 67 of file feslow.cxx.

hDB

HNDLE hDB

main ODB handle

Definition at line 66 of file feslow.cxx.

max_event_size

INT max_event_size = 2000

Definition at line 50 of file feslow.cxx.

max_event_size_frag

INT max_event_size_frag = 0

Definition at line 51 of file feslow.cxx.