feserial.c File Reference

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

Include dependency graph for feserial.c:

Go to the source code of this file.

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	poll_event (INT source, INT count, BOOL test)
	Polling routine for events.
INT	interrupt_configure (INT cmd, INT source, POINTER_T adr)
	Interrupt configuration (not implemented)

Variables
char *	frontend_name = "feSerial"
	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	max_event_size_frag = 5 * 1024 * 1024
	maximum event size for fragmented events (EQ_FRAGMENTED)
INT	event_buffer_size = 10 * 10000
	buffer size to hold events
void **	info
char	strin [256]
HNDLE	hDB
	main ODB handle
HNDLE	hSet
EQUIPMENT	equipment []
	Main structure for midas equipment.

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 157 of file feserial.c.

{
   /* put here clear scalers etc. */
   rs232(CMD_READ, info, strin, 256, 100);
   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 166 of file feserial.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 149 of file feserial.c.

{
   rs232(CMD_EXIT, info);
   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 125 of file feserial.c.

{
   /* hardware initialization */
  INT status;
  char set_str[80];
  /* Book Setting space */
  TRIGGER_SETTINGS_STR(trigger_settings_str);
 
  /* Map /equipment/Trigger/settings for the sequencer */
  sprintf(set_str, "/Equipment/Trigger/Settings");
  status = db_create_record(hDB, 0, set_str, strcomb1(trigger_settings_str).c_str());
  status = db_find_key (hDB, 0, set_str, &hSet);
  if (status != DB_SUCCESS)
    cm_msg(MINFO,"FE","Key %s not found", set_str);
 
 
    rs232(CMD_INIT, hSet, &info);
   /* 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 187 of file feserial.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,
		POINTER_T	adr
	)

Interrupt configuration (not implemented)

Routine for interrupt configuration if equipment is set in EQ_INTERRUPT mode. Not implemented right now, returns SUCCESS.

Parameters

[in]	cmd	Command for interrupt events (see midas.h)
[in]	source	Equipment index number
[in]	adr	Interrupt routine (see mfe.c)

Returns

Midas status code

Definition at line 224 of file feserial.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 173 of file feserial.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 204 of file feserial.c.

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

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 295 of file ebfe.cxx.

{
   DWORD *pdata, a;
 
   /* init bank structure */
   bk_init(pevent);
 
   /* create SCLR bank */
   bk_create(pevent, Sclx, TID_DWORD, (void**)&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);
}

read_trigger_event()

INT read_trigger_event	(	char *	pevent,
		INT	off
	)

Definition at line 241 of file feserial.c.

{
   WORD *pdata, a;
   INT j;
 
   /* init bank structure */
   bk_init(pevent);
 
   /* create structured ADC0 bank */
   bk_create(pevent, "ADC0", TID_WORD, &pdata);
   /* Use following code to "simulate" data */
   for (a = 0; a < 3; a++)
      *pdata++ = rand() % 1024;
   rs232(CMD_GETS, info, strin, 256, 0, 500);
   for (j=0;j<256;j++) {
    if (strin[j] != 0)
      *pdata++ = strin[j];
   }
 
   bk_close(pevent, pdata);
 
   /* create variable length TDC bank */
   bk_create(pevent, "TDC0", TID_WORD, &pdata);
   /* Use following code to "simulate" data */
   for (a = 0; a < 3; a++)
      *pdata++ = rand() % 1024;
   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 180 of file feserial.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 37 of file feserial.c.

equipment

EQUIPMENT equipment[]

Initial value:

= {
 
   {"Trigger",               
    {1, 0,                   
     "SYSTEM",               
 
 
 
     EQ_PERIODIC,              
 
     LAM_SOURCE(0, 0xFFFFFF),        
     "MIDAS",                
     TRUE,                   
     RO_RUNNING |            
     RO_ODB,                 
     500,                    
     0,                      
     0,                      
     0,                      
     "", "", "",},
    read_trigger_event,      
    },
 
   {""}
}

Main structure for midas equipment.

Definition at line 68 of file feserial.c.

                        {
 
   {"Trigger",               /* equipment name */
    {1, 0,                   /* event ID, trigger mask */
     "SYSTEM",               /* event buffer */
#ifdef USE_INT
     EQ_INTERRUPT,           /* equipment type */
#else
     EQ_PERIODIC,              /* equipment type */
#endif
     LAM_SOURCE(0, 0xFFFFFF),        /* event source crate 0, all stations */
     "MIDAS",                /* format */
     TRUE,                   /* enabled */
     RO_RUNNING |            /* read only when running */
     RO_ODB,                 /* and update ODB */
     500,                    /* poll for 500ms */
     0,                      /* stop run after this event limit */
     0,                      /* number of sub events */
     0,                      /* don't log history */
     "", "", "",},
    read_trigger_event,      /* readout routine */
    },
 
   {""}
};

event_buffer_size

INT event_buffer_size = 10 * 10000

buffer size to hold events

Definition at line 46 of file feserial.c.

frontend_call_loop

BOOL frontend_call_loop = FALSE

frontend_loop is called periodically if this variable is TRUE

Definition at line 34 of file feserial.c.

frontend_file_name

char* frontend_file_name = __FILE__

The frontend file name, don't change it.

Definition at line 31 of file feserial.c.

frontend_name

char* frontend_name = "feSerial"

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

Definition at line 29 of file feserial.c.

hDB

HNDLE hDB

main ODB handle

Definition at line 49 of file feserial.c.

hSet

HNDLE hSet

Definition at line 49 of file feserial.c.

info

void** info

Definition at line 47 of file feserial.c.

max_event_size

INT max_event_size = 10000

maximum event size produced by this frontend

Definition at line 40 of file feserial.c.

max_event_size_frag

INT max_event_size_frag = 5 * 1024 * 1024

maximum event size for fragmented events (EQ_FRAGMENTED)

Definition at line 43 of file feserial.c.

strin

char strin[256]

Definition at line 48 of file feserial.c.