142 lines
4.6 KiB
C
142 lines
4.6 KiB
C
/*---------------------------------------------------------------------------
|
|
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);
|
|
|
|
ParName("htr"); ParTail("%");
|
|
ParFloat(&drv->htr, 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);
|
|
if (EaseGetUpdate(drv, EASE_RUN)) goto skipGetSet;
|
|
EaseWrite(eab, "SET?");
|
|
return __LINE__; case __LINE__: /**********************************/
|
|
if (EaseGetUpdate(drv, EASE_RUN)) goto skipGetSet;
|
|
drv->d.targetValue = atof(eab->ans);
|
|
|
|
skipGetSet:
|
|
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");
|
|
}
|