ybos_simfe.c File Reference

#include <stdio.h>
#include "midas.h"
#include "msystem.h"
#include "ybos.h"
#include "mcstd.h"
#include "esone.h"

Include dependency graph for ybos_simfe.c:

Go to the source code of this file.

Macros
#define	CRATE   1
#define	LAM_SLOT   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_trigger_event (char *pevent, INT off)
INT	read_scaler_event (char *pevent, INT off)
	Scaler event readout.
INT	files_dump (char *pevent, INT off)
INT	poll_event (INT source, INT count, BOOL test)
	Polling routine for events.
INT	interrupt_configure (INT cmd, INT source[], PTYPE adr)

Variables
INT	poll_val = 10
INT	tr1 = 16
INT	tr2 = 200
char *	frontend_name = "YbosFE"
	The frontend name (client name) as seen by other MIDAS clients.
char *	frontend_file_name = __FILE__
	The frontend file name, don't change it.
BOOL	frontend_call_loop = FALSE
	frontend_loop is called periodically if this variable is TRUE
INT	display_period = 3000
	a frontend status page is displayed with this frequency in ms
INT	max_event_size = 10000
	maximum event size produced by this frontend
INT	event_buffer_size = 10 * 10000
	buffer size to hold events
INT	gbl_run_number
EQUIPMENT	equipment []
	Main structure for midas equipment.

Macro Definition Documentation

CRATE

#define CRATE   1

Definition at line 30 of file ybos_simfe.c.

LAM_SLOT

#define LAM_SLOT   1

Definition at line 31 of file ybos_simfe.c.

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 177 of file ybos_simfe.c.

{
   int ext, q;
   unsigned long d;
   /* put here clear scalers etc. */
   gbl_run_number = run_number;
 
   cdreg(&ext, 1, 2, 3, 4);
   cfsa(16, ext, &d, &q);
   return SUCCESS;
}

Here is the call graph for this function:

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 191 of file ybos_simfe.c.

{
   return SUCCESS;
}

files_dump()

INT files_dump	(	char *	pevent,
		INT	off
	)

Definition at line 322 of file ybos_simfe.c.

{
   feodb_file_dump(equipment, "File", pevent, gbl_run_number, "trigger");
 
   /* return 0 because I handle the "event send" by myself */
   return 0;
}

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 169 of file ybos_simfe.c.

{
   cam_exit();
   return SUCCESS;
}

Here is the call graph for this function:

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 160 of file ybos_simfe.c.

{
   /* put here hardware initialization */
   cam_init();
   return SUCCESS;
}

Here is the call graph for this function:

Here is the caller 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 212 of file ybos_simfe.c.

{
   /* if frontend_call_loop is true, this routine gets called when
      the frontend is idle or between every event */
   return SUCCESS;
}

interrupt_configure()

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

Definition at line 246 of file ybos_simfe.c.

{
   switch (cmd) {
   case CMD_INTERRUPT_ENABLE:
      cam_interrupt_enable(CRATE);
      break;
   case CMD_INTERRUPT_DISABLE:
      cam_interrupt_disable(CRATE);
      break;
   case CMD_INTERRUPT_ATTACH:
      cam_interrupt_attach(CRATE, LAM_SLOT, (void (*)(void)) adr);
      break;
   case CMD_INTERRUPT_DETACH:
      cam_interrupt_detach(CRATE, LAM_SLOT);
      break;
   }
   return SUCCESS;
}

Here is the call graph for this function:

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 198 of file ybos_simfe.c.

{
   return SUCCESS;
}

poll_event()

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

Polling routine for events.

Parameters

[in]	source	Event source (LAM/IRQ)
[in]	count	Loop count for event polling timeout
[in]	test	flag used to time the polling

Returns

1 if event is available, 0 if done polling (no event). If test equals TRUE, don't return.

Definition at line 229 of file ybos_simfe.c.

{
   INT i;
 
   for (i = 0; i < count; i++) {
      /* read the LAM register of the Crate controller to find out if
         ANY station has raised the LAM line.
       */
 
      if (rand() % 10000 < poll_val)    /* Ignore LAM if not LAM_STATION */
         if (!test)
            return TRUE;
   }
   return FALSE;
}

Here is the call graph for this function:

read_scaler_event()

INT read_scaler_event	(	char *	pevent,
		INT	off
	)

Scaler event readout.

Placeholder.

Scaler event readout routine. Not used in this example.

Parameters

[in]	pevent	Pointer to event buffer
[in]	off	Caller info (unused here), see mfe.c

Returns

Size of the event

Definition at line 304 of file ybos_simfe.c.

{
   DWORD i;
   DWORD *pbkdat;
 
   ybk_init((DWORD *) pevent);
 
   /* collect user hardware data */
  /*---- USER Stuff ----*/
   ybk_create((DWORD *) pevent, "SCAL", I4_BKTYPE, (DWORD *) (&pbkdat));
   for (i = 0; i < 16; i++)
      *pbkdat++ = (DWORD) (0xff + i) & 0xFFF;
   ybk_close((DWORD *) pevent, pbkdat);
 
   return (ybk_size((DWORD *) pevent));
}

Here is the call graph for this function:

read_trigger_event()

INT read_trigger_event	(	char *	pevent,
		INT	off
	)

Definition at line 267 of file ybos_simfe.c.

{
   INT i, j;
   double *pbkdat;
   ybk_init((DWORD *) pevent);
 
   j = rand() % 100;
   if (j < tr1)
      j = tr1;
   else if (j > tr2)
      j = tr2;
   ybk_create((DWORD *) pevent, "ADC0", I4_BKTYPE, (DWORD *) (&pbkdat));
   for (i = 0; i < j; i++)
      *((DWORD *) pbkdat)++ = i & 0xFFF;
   ybk_close((DWORD *) pevent, pbkdat);
 
   ybk_create((DWORD *) pevent, "TDC0", I2_BKTYPE, (DWORD *) (&pbkdat));
   for (i = 0; i < 16; i++)
      *((WORD *) pbkdat)++ = (WORD) (0x10 + i) & 0xFFFF;
   ybk_close((DWORD *) pevent, pbkdat);
 
   ybk_create_chaos((DWORD *) pevent, "OTHR", I2_BKTYPE, (DWORD *) (&pbkdat));
   for (i = 0; i < 16; i++)
      *((WORD *) pbkdat)++ = (WORD) (0x20 + i + 1) & 0xFFFF;
   ybk_close_chaos((DWORD *) pevent, I2_BKTYPE, pbkdat);
 
   ybk_create((DWORD *) pevent, "EFGH", D8_BKTYPE, (DWORD *) (&pbkdat));
   for (i = 0; i < 6; i++)
      *pbkdat++ = (double) i + 10.;
   ybk_close((DWORD *) pevent, pbkdat);
   /* END OF EVENT */
 
   return (ybk_size((DWORD *) 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 205 of file ybos_simfe.c.

{
   return SUCCESS;
}

Variable Documentation

display_period

INT display_period = 3000

a frontend status page is displayed with this frequency in ms

Definition at line 43 of file ybos_simfe.c.

equipment

EQUIPMENT equipment[]

Main structure for midas equipment.

Definition at line 68 of file ybos_simfe.c.

                           {
 
      {"Trigger",               /* equipment name */
       1, 0,                    /* event ID, trigger mask */
       "SYSTEM",                /* event buffer */
#ifdef USE_INT
       EQ_INTERRUPT,            /* equipment type */
#else
       EQ_POLLED,               /* equipment type */
#endif
       0,                       /* event source */
       "YBOS",                  /* format */
       TRUE,                    /* enabled */
       RO_RUNNING,              /* read only when running */
       500,                     /* poll for 500ms */
       0,                       /* stop run after this event limit */
       0,                       /* number of sub event */
       0,                       /* don't log history */
       "", "", "",
       read_trigger_event,      /* readout routine */
       NULL,                    /* keep null */
       NULL                     /* init string */
       },
 
      {"Scaler",                /* equipment name */
       2, 0,                    /* event ID, trigger mask */
       "SYSTEM",                /* event buffer */
       EQ_PERIODIC,             /* equipment type */
       0,                       /* event source */
       "YBOS",                  /* format */
       TRUE,                    /* enabled */
       RO_RUNNING | RO_TRANSITIONS |    /* read when running and on transitions */
       RO_ODB,                  /* and update ODB */
       10000,                   /* read every 10 sec */
       0,                       /* stop run after this event limit */
       0,                       /* number of sub event */
       0,                       /* log history */
       "", "", "",
       read_scaler_event,       /* readout routine */
       NULL,                    /* keep null */
       NULL                     /* init string */
       },
 
      {"File",                  /* equipment name */
       7, 0x0000,               /* event ID, mask */
       "SYSTEM",                /* event buffer */
       EQ_PERIODIC,             /* equipment type */
       0,                       /* event source */
       "YBOS",                  /* format */
       FALSE,                   /* enabled */
       RO_BOR,                  /* read only at BOR */
       10000,                   /* read every 10 sec */
       0,                       /* stop run after this event limit */
       0,                       /* number of sub event */
       0,                       /* don't log history */
       "", "", "",
       files_dump,              /* file dump */
       NULL,                    /* keep null */
       NULL                     /* init string */
       },
 
      {""}
   };

event_buffer_size

INT event_buffer_size = 10 * 10000

buffer size to hold events

Definition at line 49 of file ybos_simfe.c.

frontend_call_loop

BOOL frontend_call_loop = FALSE

frontend_loop is called periodically if this variable is TRUE

Definition at line 40 of file ybos_simfe.c.

frontend_file_name

char* frontend_file_name = __FILE__

The frontend file name, don't change it.

Definition at line 37 of file ybos_simfe.c.

frontend_name

char* frontend_name = "YbosFE"

The frontend name (client name) as seen by other MIDAS clients.

Definition at line 35 of file ybos_simfe.c.

gbl_run_number

INT gbl_run_number

Definition at line 63 of file ybos_simfe.c.

max_event_size

INT max_event_size = 10000

maximum event size produced by this frontend

Definition at line 46 of file ybos_simfe.c.

poll_val

INT poll_val = 10

Definition at line 32 of file ybos_simfe.c.

tr1

INT tr1 = 16

Definition at line 33 of file ybos_simfe.c.

tr2

INT tr2 = 200

Definition at line 33 of file ybos_simfe.c.