mirror_scfe.c

Go to the documentation of this file.

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

  Name:         mirror_scfe.c
  Created by:   Andreas Suter

  Contents:     midas slowcontrol frontend to handle the
                Phytron MCC controller needed for the Mirror.

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

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

#include "midas.h"
#include "class/multi.h"
#include "phytron_mcc.h"
#include "tcpip_rs232.h"

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

char *frontend_name = "Mirror_SC";
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;

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

DEVICE_DRIVER mirror_driver[] = {
  { "mirror_in",  phytron_mcc_in,  3, tcpip_rs232, DF_INPUT  | DF_PRIO_DEVICE },
  { "mirror_out", phytron_mcc_out, 2, tcpip_rs232, DF_OUTPUT },
  { "" }
};

EQUIPMENT equipment[] = {

  { "Mirror",             // equipment name
   {77, 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
    mirror_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;};

//-- Frontend Init -------------------------------------------------
INT frontend_init()
{
  // 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);

  return CM_SUCCESS;
}

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

//-- Frontend Loop -------------------------------------------------
INT frontend_loop()
{
  HNDLE hDB, hKey;
  char str[128];
  int size;
  static DWORD change_time;
  static float prev_demand=294.76;
  float demand;
  float measured;

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

  // get measured mirror position
  sprintf(str, "/Equipment/Mirror/Variables/Input");
  db_find_key(hDB, 0, str, &hKey);
  size = sizeof(float);
  db_get_data_index(hDB, hKey, &measured, &size, 0, TID_FLOAT);

  // get demand mirror position
  sprintf(str, "/Equipment/Mirror/Variables/Output");
  db_find_key(hDB, 0, str, &hKey);
  size = sizeof(float);
  db_get_data_index(hDB, hKey, &demand, &size, 0, TID_FLOAT);

  if (fabs(demand-prev_demand) > 0.1) { // demand changed hence start a timer
    change_time = ss_time();
  } else {
    if (ss_time() - change_time > 60) { // enough time difference between a change of the demand
      if (fabs(demand-measured) > 0.1) { // something is wrong
        sprintf(str, "Mirror Demand = %0.1f, Measured = %0.1f: something is wrong!", demand, measured);
        al_trigger_alarm( "mirror_scfe", str, "Warning", str, AT_INTERNAL);
      }
    }
  }

  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;
}

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