sample_scfe.c

Go to the documentation of this file.

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

  Name:         sample_scfe.c
  Created by:   Andreas Suter

  Contents:     Midas Slowcontrol Frontend to readout all devices related
                to the sample region (except high voltages)

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

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>

#include "midas.h"
#include "class/multi.h"
#include "lem_generic.h"
#include "LakeShore340.h"
#include "bronkhorst.h"
#include "thcd_100.h"
#include "tcpip_rs232.h"
#include "null.h"

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

char *frontend_name = "Sample_SC";
char *frontend_file_name = __FILE__;

BOOL frontend_call_loop = FALSE;

INT display_period = 1000;

INT max_event_size = 10000;

INT max_event_size_frag = 5*1024*1024;

INT event_buffer_size = 10*10000;

char sample_cryo[NAME_LENGTH];

//-- Equipment list ------------------------------------------------
DEVICE_DRIVER sample_driver[] = {
  { "Lake340_Sample", ls340_in,       15, tcpip_rs232, DF_INPUT  },
  { "Lake340_Sample", ls340_out,       8, tcpip_rs232, DF_OUTPUT },
  { "BH_Flow_1",      bh_flow_in,      2, tcpip_rs232, DF_INPUT  },
  { "BH_Flow_1",      bh_flow_out,     2, tcpip_rs232, DF_OUTPUT },
  { "BH_Flow_2",      bh_flow_in,      2, tcpip_rs232, DF_INPUT  },
  { "BH_Flow_2",      bh_flow_out,     2, tcpip_rs232, DF_OUTPUT },
  { "THCD_100_1",     thcd_100_in,     1, tcpip_rs232, DF_INPUT  },
  { "THCD_100_1",     thcd_100_out,    1, tcpip_rs232, DF_OUTPUT },
  { "THCD_100_2",     thcd_100_in,     1, tcpip_rs232, DF_INPUT  },
  { "THCD_100_2",     thcd_100_out,    1, tcpip_rs232, DF_OUTPUT },
  { "" }
};

EQUIPMENT equipment[] = {

  { "SampleCryo",         // equipment name
   {70, 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
    sample_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[], PTYPE adr) {return 1;};

//-- Global hotlink dispatcher routines ----------------------------
void sample_cryo_changed(INT hDB, INT dummy2, void *info)
{
  int   status;
  char  cryo_path[256];
  HNDLE hKey;

  // get experiment handle
  cm_get_experiment_database(&hDB, NULL);

  // get main handle
  sprintf(cryo_path, "/Equipment/SampleCryo/Settings/Devices/Lake340_Sample_0/DD/ODB Names/LakeShore 340 Name");

  status = db_find_key(hDB, 0, cryo_path, &hKey);
  if (status != DB_SUCCESS) {
    cm_msg(MINFO, "sample_cryo_changed",
           "sample_scfe, sample_cryo_changed: couldn't find sample cryo ODB entry.");
    return;
  }

  // write new name to DD structure
  db_set_data(hDB, hKey, (void *)&sample_cryo, sizeof(sample_cryo), 1, TID_STRING);
}

//-- Frontend Init -------------------------------------------------
INT frontend_init()
{
  HNDLE hDB, hKey;
  int   size, 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 experiment handle
  cm_get_experiment_database(&hDB, NULL);

  // find ODB entry
  status = db_find_key(hDB, 0, "/Info/Sample Cryo", &hKey);
  if (status != DB_SUCCESS) {
    cm_msg(MINFO, "frontend_init", "sample_scfe, frontend_init: couldn't find sample cryo ODB entry");
    return CM_SUCCESS;
  }

  // hotlink sample cryo name
  size = sizeof(sample_cryo);
  db_open_record(hDB, hKey, (void *)&sample_cryo, size, MODE_READ, &sample_cryo_changed, NULL);

  return CM_SUCCESS;
}

//-- Frontend Exit -------------------------------------------------
INT frontend_exit()
{
  return CM_SUCCESS;
}

//-- Frontend Loop -------------------------------------------------
INT frontend_loop()
{
  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;
}

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