- added LakeShore 370 driver

- improvements in ease and ips driver

lsc370driv.c

@@ -0,0 +1,132 @@
+/*---------------------------------------------------------------------------
+lsc370driv.c
+
+Driver for the LakeShore Model 370 AC Resistance Bridge
+
+Markus Zolliker, July 2006
+----------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <assert.h>
+#include <sys/time.h>
+#include <math.h>
+#include <tcl.h>
+#include <fortify.h>
+#include <sics.h>
+#include <splitter.h>
+#include <obpar.h>
+#include <devexec.h>
+#include <nserver.h>
+#include <interrupt.h>
+#include <emon.h>
+#include <evcontroller.h>
+#include <evcontroller.i>
+#include <servlog.h>
+#include <sicsvar.h>
+#include <evdriver.i>
+#include <rs232controller.h>
+#include "lscsupport.h"
+#include "fsm.h"
+#include "initializer.h"
+
+typedef struct {
+  EaseDriv d;
+  float t;
+  float htr;
+} Lsc370;
+
+static ParClass lsc370Class = { "LSC370", sizeof(Lsc370) };
+
+/*----------------------------------------------------------------------------*/
+static void Lsc370ParDef(void *object) {
+  Lsc370 *drv = ParCast(&lsc370Class, object);
+  EaseBase *eab = object;
+
+  ParName(""); ParTail("K");
+  ParFloat(&drv->t, PAR_NAN);
+  
+  EaseBasePar(drv);
+  EaseSendPar(drv);
+  EaseDrivPar(drv, "%.5g", "K");
+  ParStdDef();
+  EaseMsgPar(drv);
+}
+/*----------------------------------------------------------------------------*/
+static long Lsc370Read(long pc, void *object) {
+  Lsc370 *drv = ParCast(&lsc370Class, object);
+  EaseBase *eab = object;
+  
+  switch (pc) { default: /* FSM BEGIN *******************************/
+    EaseWrite(eab, "RDGK?1");
+  return __LINE__; case __LINE__: /**********************************/
+    drv->t = atof(eab->ans);
+    EaseWrite(eab, "HTR?");
+  return __LINE__; case __LINE__: /**********************************/
+    drv->htr = atof(eab->ans);
+    
+    ParLog(drv);
+  fsm_quit: return 0; } /* FSM END *********************************/
+}
+/*----------------------------------------------------------------------------*/
+static long Lsc370Start(long pc, void *object) {
+  Lsc370 *drv = ParCast(&lsc370Class, object);
+  EaseBase *eab = object;
+  
+  switch (pc) { default: /* FSM BEGIN *******************************/
+    EaseWrite(eab, "*IDN?");
+  return __LINE__; case __LINE__: /**********************************/
+    if (0 != strncmp(eab->version, "LSCI,MODEL370", 13)) {
+      snprintf(eab->msg, sizeof eab->msg, "unknown temperature controller version: %s",
+               eab->version);
+      ParPrintf(drv, eError, "ERROR: %s", eab->msg);
+      EaseStop(eab);
+      goto quit;
+    }
+    ParPrintf(drv, eStatus, "connected to %s", eab->version);
+    FsmCall(Lsc370Read);
+  return __LINE__; case __LINE__: /**********************************/
+    
+  quit:
+  return 0; } /* FSM END ********************************************/
+}
+/*----------------------------------------------------------------------------*/
+static long Lsc370Set(long pc, void *object) {
+  Lsc370 *drv = ParCast(&lsc370Class, object);
+  EaseBase *eab = object;
+  char cmd[32];
+  int upd;
+  
+  switch (pc) { default: /* FSM BEGIN *******************************/
+    upd = EaseNextUpdate(drv);
+    if (upd != EASE_RUN) goto quit;
+    EaseWrite(eab, "MODE 1:MODE?"); /* remote mode */
+  return __LINE__; case __LINE__: /**********************************/
+    snprintf(cmd, sizeof cmd, "SETP %.5g:SETP?", drv->d.targetValue);
+    EaseWrite(eab, cmd);
+  return __LINE__; case __LINE__: /**********************************/
+    EaseWrite(eab, "MODE 0:MODE?"); /* local mode */
+  quit:
+  return 0; } /* FSM END ********************************************/
+}
+/*----------------------------------------------------------------------------*/
+static int Lsc370Init(SConnection *con, int argc, char *argv[], int dynamic) {
+  /* args:
+       MakeObject objectname lsc370 <rs232>
+       MakeObject objectname lsc370 <host> <port>
+   */
+  Lsc370 *drv;
+  
+  drv = EaseMakeDriv(con, &lsc370Class, argc, argv, dynamic, 7,
+                    Lsc370ParDef, LscHandler, Lsc370Start, NULL, Lsc370Read,
+                    Lsc370Set);
+  if (drv == NULL) return 0;
+  setRS232ReplyTerminator(drv->d.b.ser,"\n");
+  setRS232SendTerminator(drv->d.b.ser,"\n");
+  return 1;
+}
+/*----------------------------------------------------------------------------*/
+void Lsc370Startup(void) {
+  ParMakeClass(&lsc370Class, EaseDrivClass());
+  MakeDriver("LSC370", Lsc370Init, 0, "LakeShore 370 AC Resistance Bridge");
+}