scs2001m_scfe.cxx

Go to the documentation of this file.

/********************************************************************\

  Name:         scs2001m_scfe.cxx
  Created by:   Andreas Suter

  Contents:     Midas Slowcontrol Frontend to readout the scs2001
               (ADC/DAC/Thermo Coupler/Relais/24V power)

\********************************************************************/

#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <cmath>

#include "midas.h"
#include "mfe.h"

#include "class/multi.h"
#include "scs2001m.h"
#include "bus/null.h"

//-- Globals -------------------------------------------------------

const char *frontend_name = "SCS2001M_SC";
const char *frontend_file_name = __FILE__;

BOOL frontend_call_loop = TRUE;

INT display_period = 1000;

INT max_event_size = 10000;

INT max_event_size_frag = 5*1024*1024;

INT event_buffer_size = 10*10000;

// -- Globals for Hotlinks -----------------------------------------
#define SCS2001M_OUPUT_CH 12
#define SCS2001M_RELAY_FIRST 8

#define SCS2001M_MC_INTERLOCK_RESET  8
#define SCS2001M_TC_INTERLOCK_RESET  9
#define SCS2001M_SC_INTERLOCK_RESET 10

float scs2001m_output[SCS2001M_OUPUT_CH];
DWORD scs2001m_start;

//-- Equipment list ------------------------------------------------

DEVICE_DRIVER scs2001m_driver[] = {
  { "SCS2001m", scs2001m_in,  44, null, DF_INPUT  },
  { "SCS2001m", scs2001m_out, 12, null, DF_OUTPUT },
  { "" }
};

BOOL equipment_common_overwrite = FALSE;

EQUIPMENT equipment[] = {

  { "SCS2001M",           // equipment name
   {97, 0,                // event ID, trigger mask
    "SYSTEM",             // event buffer
    EQ_SLOW,              // equipment type
    0,                    // event source
    "FIXED",              // format
    TRUE,                 // enabled
    RO_RUNNING |
    RO_TRANSITIONS,       // read when running and on transitions
    30000,                // read every 30 sec
    0,                    // stop run after this event limit
    0,                    // number of sub events
    1,                    // log history every event
    "", "", "",},
    cd_multi_read,        // readout routine
    cd_multi,             // class driver main routine
    scs2001m_driver,      // device driver list
    NULL,                 // init string
  },

  { "" }
};



//-- Dummy routines ------------------------------------------------

INT  poll_event(INT source, INT count, BOOL test) {return 1;};
INT  interrupt_configure(INT cmd, INT source, POINTER_T adr) {return 1;};

//-- Dispatcher routines -------------------------------------------
void scs2001m_output_changed(INT hDB, INT hKey, void *data)
{
  scs2001m_start = ss_time();
}

//-- Frontend Init -------------------------------------------------
INT frontend_init()
{
  HNDLE hDB, hKey;
  char str[128];
  int status;

  // de-register run-transition notifications
  cm_deregister_transition(TR_START);
  cm_deregister_transition(TR_STOP);
  cm_deregister_transition(TR_PAUSE);
  cm_deregister_transition(TR_RESUME);

  // get ODB main handle
  cm_get_experiment_database(&hDB, NULL);

  // hotlink SCS2001M ouput record
  strcpy(str, "/Equipment/SCS2001M/Variables/Output");
  status = db_find_key(hDB, 0, str, &hKey);
  if (status != DB_SUCCESS) {
    cm_msg(MERROR, "frontend_init", "scs2001m_scfe: Couldn't find %s", str);
    return CM_SUCCESS;
  }
  status = db_open_record(hDB, hKey, (void*)&scs2001m_output, SCS2001M_OUPUT_CH*sizeof(float),
                          MODE_READ, &scs2001m_output_changed, NULL);
  if (status != DB_SUCCESS) {
    cm_msg(MERROR, "frontend_init", "scs2001m_scfe: Couldn't establish hotlink to %s", str);
    return CM_SUCCESS;
  }
  scs2001m_start = 0;

  return CM_SUCCESS;
}

//-- Frontend Exit -------------------------------------------------
INT frontend_exit()
{
  char  str[128];
  int   status;
  HNDLE hDB, hKey;

  // get ODB main handle
  cm_get_experiment_database(&hDB, NULL);

  // unlink scs2001m output
  strcpy(str, "/Equipment/SCS2001M/Variables/Output");
  status = db_find_key(hDB, 0, str, &hKey);
  if (status != DB_SUCCESS) {
    cm_msg(MERROR, "frontend_exit", "scs2001m_scfe: Couldn't find %s, status=%d", str, status);
    return CM_SUCCESS;
  }
  db_close_record(hDB, hKey);

  return CM_SUCCESS;
}

//-- Frontend Loop -------------------------------------------------
INT frontend_loop()
{
  char  str[128];
  int   status, i;
  HNDLE hDB, hKey;
  float fval;

  // reset relay if necessary
  if (scs2001m_start != 0) {
    if (ss_time() - scs2001m_start > 2) {
      scs2001m_start = 0; // reset times

      // get ODB main handle
      cm_get_experiment_database(&hDB, NULL);

      strcpy(str, "/Equipment/SCS2001M/Variables/Output");
      status = db_find_key(hDB, 0, str, &hKey);
      if (status != DB_SUCCESS) {
        cm_msg(MERROR, "frontend_loop", "scs2001m_scfe: Couldn't find %s, status=%d", str, status);
        return CM_SUCCESS;
      }

      for (i=SCS2001M_RELAY_FIRST; i<SCS2001M_OUPUT_CH; i++) {
        if (scs2001m_output[i] != 0.0) {
          fval = 0.0;
          db_set_data_index(hDB, hKey, &fval, sizeof(float), i, TID_FLOAT);
          switch (i) {
            case SCS2001M_MC_INTERLOCK_RESET:
              strcpy(str, "scs2001m_scfe: attempt to remotely reset MC HV interlock.");
              break;
            case SCS2001M_TC_INTERLOCK_RESET:
              strcpy(str, "scs2001m_scfe: attempt to remotely reset TC HV interlock.");
              break;
            case SCS2001M_SC_INTERLOCK_RESET:
              strcpy(str, "scs2001m_scfe: attempt to remotely reset SC HV interlock.");
              break;
            default:
              strcpy(str, "scs2001m_scfe: ??");
              break;
          }
          cm_msg(MINFO, "scs2001m_scfe", str);
        }
      }
    }
  }

  return CM_SUCCESS;
}

//-- Begin of Run --------------------------------------------------
INT begin_of_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//-- End of Run ----------------------------------------------------
INT end_of_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//-- Pause Run -----------------------------------------------------
INT pause_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//-- Resume Run ----------------------------------------------------
INT resume_run(INT run_number, char *error)
{
  return CM_SUCCESS;
}

//------------------------------------------------------------------