deferredfe.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include "midas.h"
#include "mcstd.h"
#include "experim.h"

Include dependency graph for deferredfe.c:

Go to the source code of this file.

Macros
#define	N_ADC   4
#define	N_TDC   8
#define	N_SCLR   4
#define	CRATE   0
#define	SLOT_IO   23
#define	SLOT_ADC   1
#define	SLOT_TDC   2
#define	SLOT_SCLR   3

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_deferred_event (char *pevent, INT off)
	ADC0_BANK_STR (adc0_bank_str)
BOOL	wait_end_cycle (int transition, BOOL first)
INT	poll_event (INT source, INT count, BOOL test)
INT	interrupt_configure (INT cmd, INT source, PTYPE adr)

Variables
char *	frontend_name = "deferredfe"
char *	frontend_file_name = __FILE__
BOOL	frontend_call_loop = FALSE
INT	display_period = 000
INT	max_event_size = 10000
INT	max_event_size_frag = 5 * 1024 * 1024
INT	event_buffer_size = 10 * 10000
BANK_LIST	trigger_bank_list []
BANK_LIST	scaler_bank_list []
EQUIPMENT	equipment []
int	pseudo_delay = 0
BOOL	transition_PS_requested = FALSE
BOOL	end_of_mcs_cycle = FALSE

Macro Definition Documentation

CRATE

#define CRATE   0

Definition at line 54 of file deferredfe.c.

N_ADC

#define N_ADC   4

Definition at line 49 of file deferredfe.c.

N_SCLR

#define N_SCLR   4

Definition at line 51 of file deferredfe.c.

N_TDC

#define N_TDC   8

Definition at line 50 of file deferredfe.c.

SLOT_ADC

#define SLOT_ADC   1

Definition at line 56 of file deferredfe.c.

SLOT_IO

#define SLOT_IO   23

Definition at line 55 of file deferredfe.c.

SLOT_SCLR

#define SLOT_SCLR   3

Definition at line 58 of file deferredfe.c.

SLOT_TDC

#define SLOT_TDC   2

Definition at line 57 of file deferredfe.c.

Function Documentation

ADC0_BANK_STR()

ADC0_BANK_STR

(

adc0_bank_str

)

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 229 of file deferredfe.c.

{
   /* put here clear scalers etc. */
   pseudo_delay = 0;
   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 238 of file deferredfe.c.

{
   return SUCCESS;
}

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 222 of file deferredfe.c.

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

{
   // register for deferred transition
   cm_register_deferred_transition(TR_STOP, wait_end_cycle);
   cm_register_deferred_transition(TR_PAUSE, wait_end_cycle);
 
 
   /* hardware initialization */
 
   cam_init();
   cam_crate_clear(CRATE);
   cam_crate_zinit(CRATE);
 
   /* enable LAM in IO unit */
   camc(CRATE, SLOT_IO, 0, 26);
 
   /* enable LAM in crate controller */
   cam_lam_enable(CRATE, SLOT_IO);
 
   /* reset external LAM Flip-Flop */
   camo(CRATE, SLOT_IO, 1, 16, 0xFF);
   camo(CRATE, SLOT_IO, 1, 16, 0);
 
   /* print message and return FE_ERR_HW if frontend should not be started */
 
 
   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 259 of file deferredfe.c.

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

interrupt_configure()

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

Definition at line 297 of file deferredfe.c.

{
   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 245 of file deferredfe.c.

{
   return SUCCESS;
}

poll_event()

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

Definition at line 276 of file deferredfe.c.

{
   int i;
   DWORD lam;
 
   for (i = 0; i < count; i++) {
      cam_lam_read(LAM_SOURCE_CRATE(source), &lam);
 
      if (lam & LAM_SOURCE_STATION(source))
         if (!test)
            return lam;
   }
 
   return 0;
}

Here is the call graph for this function:

read_deferred_event()

INT read_deferred_event	(	char *	pevent,
		INT	off
	)

Definition at line 313 of file deferredfe.c.

{
   DWORD *pdata, a;
 
   /* init bank structure */
   bk_init(pevent);
 
 
   /* create SCLR bank */
   bk_create(pevent, "SCLR", TID_DWORD, &pdata);
 
   /* read scaler bank */
   for (a = 0; a < N_SCLR; a++)
      cam24i(CRATE, SLOT_SCLR, a, 0, pdata++);
 
   bk_close(pevent, pdata);
 
   if (transition_PS_requested) {
      // transition acknowledged, but...
      // carry on until hardware condition satisfied
      // ...
      if (pseudo_delay++ < 3) {
         // Ignore transition 
         printf("Transition ignored, ");
      } else {
         // Time to do transition
         printf("End of cycle... perform transition\n");
         end_of_mcs_cycle = TRUE;
      }
   }
   printf("Event ID:%d - Event#: %d\n", EVENT_ID(pevent), SERIAL_NUMBER(pevent));
   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 252 of file deferredfe.c.

{
   return SUCCESS;
}

wait_end_cycle()

BOOL wait_end_cycle	(	int	transition,
		BOOL	first
	)

Definition at line 168 of file deferredfe.c.

{
   // Get there after every
   if (first) {
      // Get there as soon as transition is requested
      transition_PS_requested = TRUE;
      printf("Transition requested...\n");
      // Defer the transition now
      return FALSE;
   }
   // Check user flag
   if (end_of_mcs_cycle) {
      // User flag set, ready to perform deferred transition now
      transition_PS_requested = FALSE;
      end_of_mcs_cycle = FALSE;
      return TRUE;
   } else {
      // User not ready for transition, defers it...
      return FALSE;
   }
}

Here is the caller graph for this function:

Variable Documentation

display_period

INT display_period = 000

Definition at line 37 of file deferredfe.c.

end_of_mcs_cycle

BOOL end_of_mcs_cycle = FALSE

Definition at line 165 of file deferredfe.c.

equipment

EQUIPMENT equipment[]

Definition at line 97 of file deferredfe.c.

                           {
 
      {"Deferred",              /* equipment name */
       2, 0,                    /* event ID, trigger mask */
       "SYSTEM",                /* event buffer */
       EQ_PERIODIC,             /* equipment type */
       0,                       /* event source */
       "MIDAS",                 /* format */
       TRUE,                    /* enabled */
       RO_RUNNING |             /* read when running */
       RO_ODB,                  /* and update ODB */
       2000,                    /* read every 2 sec */
       0,                       /* stop run after this event limit */
       0,                       /* number of sub events */
       0,                       /* log history */
       "", "", "",
       read_deferred_event,     /* readout routine */
       NULL, NULL,
       NULL,                    /* bank list */
       }
      ,
 
      {"Junk",                  /* equipment name */
       2, 0,                    /* event ID, trigger mask */
       "SYSTEM",                /* event buffer */
       EQ_PERIODIC,             /* equipment type */
       0,                       /* event source */
       "MIDAS",                 /* format */
       TRUE,                    /* enabled */
       RO_RUNNING |             /* read when running */
       RO_ODB,                  /* and update ODB */
       2000,                    /* read every 2 sec */
       }
      ,
 
      {""}
   };

event_buffer_size

INT event_buffer_size = 10 * 10000

Definition at line 46 of file deferredfe.c.

frontend_call_loop

BOOL frontend_call_loop = FALSE

Definition at line 34 of file deferredfe.c.

frontend_file_name

char* frontend_file_name = __FILE__

Definition at line 31 of file deferredfe.c.

frontend_name

char* frontend_name = "deferredfe"

Definition at line 29 of file deferredfe.c.

max_event_size

INT max_event_size = 10000

Definition at line 40 of file deferredfe.c.

max_event_size_frag

INT max_event_size_frag = 5 * 1024 * 1024

Definition at line 43 of file deferredfe.c.

pseudo_delay

int pseudo_delay = 0

Definition at line 163 of file deferredfe.c.

scaler_bank_list

BANK_LIST scaler_bank_list[]

Initial value:

= {
      {"SCLR", TID_DWORD, N_ADC, NULL}
      ,
      {""}
      ,
   }

Definition at line 86 of file deferredfe.c.

                                  {
      {"SCLR", TID_DWORD, N_ADC, NULL}
      ,
      {""}
      ,
   };

transition_PS_requested

BOOL transition_PS_requested = FALSE

Definition at line 164 of file deferredfe.c.

trigger_bank_list

BANK_LIST trigger_bank_list[]

Initial value:

= {
      {"ADC0", TID_STRUCT, sizeof(ADC0_BANK), adc0_bank_str}
      ,
      {"TDC0", TID_WORD, N_TDC, NULL}
      ,
 
      {""}
      ,
   }

Definition at line 76 of file deferredfe.c.

                                   {
      {"ADC0", TID_STRUCT, sizeof(ADC0_BANK), adc0_bank_str}
      ,
      {"TDC0", TID_WORD, N_TDC, NULL}
      ,
 
      {""}
      ,
   };