mantrigfe.c File Reference

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

Include dependency graph for mantrigfe.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_mantrig_event (char *pevent, INT off)
	ADC0_BANK_STR (adc0_bank_str)
INT	poll_event (INT source, INT count, BOOL test)
INT	interrupt_configure (INT cmd, INT source, PTYPE adr)

Variables
char *	frontend_name = "mantrigfe"
char *	frontend_file_name = __FILE__
BOOL	frontend_call_loop = FALSE
INT	display_period = 3000
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 []

Macro Definition Documentation

CRATE

#define CRATE   0

Definition at line 54 of file mantrigfe.c.

N_ADC

#define N_ADC   4

Definition at line 49 of file mantrigfe.c.

N_SCLR

#define N_SCLR   4

Definition at line 51 of file mantrigfe.c.

N_TDC

#define N_TDC   8

Definition at line 50 of file mantrigfe.c.

SLOT_ADC

#define SLOT_ADC   1

Definition at line 56 of file mantrigfe.c.

SLOT_IO

#define SLOT_IO   23

Definition at line 55 of file mantrigfe.c.

SLOT_SCLR

#define SLOT_SCLR   3

Definition at line 58 of file mantrigfe.c.

SLOT_TDC

#define SLOT_TDC   2

Definition at line 57 of file mantrigfe.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 179 of file mantrigfe.c.

{
   /* put here clear scalers etc. */
 
   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 188 of file mantrigfe.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 172 of file mantrigfe.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 149 of file mantrigfe.c.

{
   /* 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);
 
   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 209 of file mantrigfe.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 247 of file mantrigfe.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 195 of file mantrigfe.c.

{
   return SUCCESS;
}

poll_event()

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

Definition at line 226 of file mantrigfe.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_mantrig_event()

INT read_mantrig_event	(	char *	pevent,
		INT	off
	)

Definition at line 265 of file mantrigfe.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);
 
   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 202 of file mantrigfe.c.

{
   return SUCCESS;
}

Variable Documentation

display_period

INT display_period = 3000

Definition at line 37 of file mantrigfe.c.

equipment

EQUIPMENT equipment[]

Initial value:

= {
      {"mantrig",               
       2, 0,                    
       "SYSTEM",                
       EQ_PERIODIC | EQ_MANUAL_TRIG,    
       0,                       
       "MIDAS",                 
       TRUE,                    
       RO_RUNNING | RO_TRANSITIONS |    
       RO_ODB,                  
       30000,                   
       0,                       
       0,                       
       0,                       
       "", "", "",
       read_mantrig_event,      
       NULL, NULL,
       scaler_bank_list,        
       }
      ,
 
      {""}
   }

Definition at line 97 of file mantrigfe.c.

                           {
      {"mantrig",               /* equipment name */
       2, 0,                    /* event ID, trigger mask */
       "SYSTEM",                /* event buffer */
       EQ_PERIODIC | EQ_MANUAL_TRIG,    /* equipment type */
       0,                       /* event source */
       "MIDAS",                 /* format */
       TRUE,                    /* enabled */
       RO_RUNNING | RO_TRANSITIONS |    /* read when running and on transitions */
       RO_ODB,                  /* and update ODB */
       30000,                   /* read every 30 sec */
       0,                       /* stop run after this event limit */
       0,                       /* number of sub events */
       0,                       /* log history */
       "", "", "",
       read_mantrig_event,      /* readout routine */
       NULL, NULL,
       scaler_bank_list,        /* bank list */
       }
      ,
 
      {""}
   };

event_buffer_size

INT event_buffer_size = 10 * 10000

Definition at line 46 of file mantrigfe.c.

frontend_call_loop

BOOL frontend_call_loop = FALSE

Definition at line 34 of file mantrigfe.c.

frontend_file_name

char* frontend_file_name = __FILE__

Definition at line 31 of file mantrigfe.c.

frontend_name

char* frontend_name = "mantrigfe"

Definition at line 29 of file mantrigfe.c.

max_event_size

INT max_event_size = 10000

Definition at line 40 of file mantrigfe.c.

max_event_size_frag

INT max_event_size_frag = 5 * 1024 * 1024

Definition at line 43 of file mantrigfe.c.

scaler_bank_list

BANK_LIST scaler_bank_list[]

Initial value:

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

Definition at line 86 of file mantrigfe.c.

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

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 mantrigfe.c.

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